[RESOLVED] Spliting help

[Jazz00006]

I need some help (again) splitting a huge textfile.

there are lots of points in the file that start with <A href="/gp/product/ and then a number and then a /

how would i get ALL the info between these two points throughout the entire document

thanks for your time

[lintz]

This works for me

Dim s As String
Dim pos As Long
 
Open "C:\YourFile.txt" For Input As #1
s = Input(LOF(1), 1) 'grab entire file
Close #1
 
pos = InStr(1, s, "<A href=""/gp/product") 'check if search string is found
 
Do Until pos = 0
pos = pos + 21 '21 is the length of search string
 
Debug.Print Mid$(s, pos, InStr(pos + 1, s, "/") - pos) 'get numbers
 
pos = InStr(pos, s, "<A href=""/gp/product") 'check if search string is found again
Loop

[Jazz00006]

.... I have no idea how respond, within the hour you save the day, again ^.^

[lintz]

Good to see my work here is done!