[RESOLVED] Grab Links from Webpage

[FireXtol]

Dim X As Long, Y As Long
Dim sHtml As String
sHtml = LCase$(Text1.Text) 'cast to lower case
 
X = InStr(sHtml, "[img]")
Do While X
  X = X + Len("[img]")
  Y = InStr(X, sHtml, "[")
  If X > 0 And Y > 0 Then
    Debug.Print Mid$(sHtml, X, Y - X)
  Else
    Exit Do
  End If
  X = InStr(Y, sHtml, "[img]")
Loop
 
'returns
'http://images.com/thumbs/atob3iji.jpg
'http://images.com/images/atob3iji.jpg

Bon Appétit!

[_-Rs-_]

I'm not sure why you'd use split....

Basically, what I suggest is(as far as built-in string procedures):

• x = Instr(strHtml, "[IMG]") 'get the char location of "[IMG]"(optionally use Y as the start)
• Ensure: x > 0
• Add the len("[IMG]") to x
• let x = that result of addition
• make y = Instr(x, strHtml, "[") 'find the closing brace, using X as the start
• Ensure: y > 0
• Use: strUrl = Mid$(strHtml, x, y - x - 1) to get the URL
• this process can be repeated specifying Y as the new start location for Instr

bro i am new leaner i have no idea what you said if you can give me a

example i wood appreciate it

[FireXtol]

bro i am noob new leaner i have no idea what you said if you can give me a

example i wood appreciate it

I have modified the post with an example.

[_-Rs-_]

I have modified the post with an example.

guys thanks for all the help snoop and firextol bro

that did the trick