[RESOLVED] Grab Links from Webpage

[_-Rs-_]

Any can one take a look at this html source and tell me how i can grab the links out of it "i use Document.getElementById to grab links or data but in this one when i grab using the ID it dosent grab the links other then it grabs some text please take a look"

<div id="mostrar_mas_enlaceview">
            <h2 id="mec">Thumbnail</u> link</h2>
            <div class="ctninput">
                <div class="codex">HTML:</div><div class="inputshare">
                <input tabindex="1" value="&lt;a href=&quot;http://images.com/?v=atob3iji.jpg&quot;&gt;&lt;img src=&quot;http://images.com/thumbs/atob3iji.jpg&quot; border=&quot;0&quot;&gt;&lt;/a&gt;" onclick="this.focus();this.select();" />
                </div>
            </div>
            <div class="ctninput">
                <div class="codex">BBCode :</div><div class="inputshare">
                <input tabindex="2" value="[url=http://images.com/?v=atob3iji.jpg][img]http://images.com/thumbs/atob3iji.jpg[/img][/url]" onclick="this.focus();this.select();" />
                </div>
            </div>
        </div>
        
        <div id="mostrar_directa">
            <h2 id="mc">Show directly this image</h2>
            <div class="ctninput">
                <div class="codex"><a href="http://images.com/?v=atob3iji.jpg" target="_blank">Viewer:</a></div>
                <div class="inputshare"><input tabindex="3" value="http://images.com/?v=atob3iji.jpg" onclick="this.focus();this.select();" /></div>
            </div>
            <div class="ctninput">
                <div class="codex">BBCode (Forums):</div>
                <div class="inputshare"><input tabindex="4" value="[img]http://images.com/images/atob3iji.jpg[/img]" onclick="this.focus();this.select();" /></div>
            </div>
            <div class="ctninput">
                <div class="codex"><a href="http://images.com/images/atob3iji.jpg" target="_blank">URL:</a></div>
                <div class="inputshare"><input tabindex="5"value="http://images.com/images/atob3iji.jpg" onclick="this.focus();this.select();" /></div>
            </div>
                    </div>
        
		<div id="mostrar_social">

I am still a leaner so i dont know much and one more thing can any one tell me how can i extract a text or link between the tags
i wood really appreciate if any one can help me

[Spoo]

RS

Try the InStr function.

What VB code do you have so far that "grabs" the text?
Where is the "grabbed text" put .... into an array? into something else?

Spoo

[vb5prgrmr]

Try, document.getelementsbytagname instead...



Good Luck

[_-Rs-_]

RS

Try the InStr function.

What VB code do you have so far that "grabs" the text?
Where is the "grabbed text" put .... into an array? into something else?

Spoo

Bro first using the webbroswer i navigate to the website and then using same

ById().Click it clicks the browse button and it uploadeds the image after it's

uploaded all i want is to get the image link i even tried the bytagname but i

am still a noob so i may have not done it right so it didnt work then i tried to

grab the html and using Findtext and split() i wanted to grab the link from

between but problem was i am not even good at split i did

like this

Text2.Text = WebBrowser1.Document.documentelement.innerhtml
FindText = Split(Text2.Text, "[img]")
Text3.Text = Text3.Text & FindText(1)

but that code only split till [img] after that comes the image link but after

the image link there's still useless html codes

if you can give me example on how to grab link between

that should do the trick

Check your pm i sent you the site link

[Spoo]

RS

Maybe something like this:

Text2.Text = WebBrowser1.Document.documentelement.innerhtml
FindText = Split(Text2.Text, vbCrLf)  ' uses vbCrLf instead of what you had
nn = UBound(FindText)                 ' num elements in array FindText
tagb = "<IMG"                         ' begin tag
tage = "</IMG"                        ' end tag
For ii = 0 to nn
    b = InStr(UCase(FindText, tagb)   ' beginning pos of tagb
    e = InStr(UCase(FindText, tage)   ' beginning pos of tage
    If b > 0 Then                     ' only interested if have tagb in this given string
        < code parse based on b and e >
    End If
Next ii

Does this get you started?
FWIW, I noticed that tags seem to use "<" instead of "[".

EDIT:
As you may have guessed, I'm not too familiar with html codes.
Looks like I was wrong:

Replace: tagb = "<IMG"
.... with: tagb = "[IMG"

... and ditto with tage

Spoo

[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&#233;tit!

[_-Rs-_]

RS

Maybe something like this:

Text2.Text = WebBrowser1.Document.documentelement.innerhtml
FindText = Split(Text2.Text, vbCrLf)  ' uses vbCrLf instead of what you had
nn = UBound(FindText)                 ' num elements in array FindText
tagb = "<IMG"                         ' begin tag
tage = "</IMG"                        ' end tag
For ii = 0 to nn
    b = InStr(UCase(FindText, tagb)   ' beginning pos of tagb
    e = InStr(UCase(FindText, tage)   ' beginning pos of tage
    If b > 0 Then                     ' only interested if have tagb in this given string
        < code parse based on b and e >
    End If
Next ii

Does this get you started?
FWIW, I noticed that tags seem to use "<" instead of "[".

EDIT:
As you may have guessed, I'm not too familiar with html codes.
Looks like I was wrong:

Replace: tagb = "<IMG"
.... with: tagb = "[IMG"

... and ditto with tage

Spoo

Bro i added the code you gave but as you i am noob how do i show the

result in text box as u seen in my code in the end i added

Text3.Text = Text3.Text & FindText(1)

that shows the result sorry for the noob questions and one more problem is



Should it be like this

b = InStr(UCase, "FindText", tagb)
e = InStr(UCase, "FindText", tage)

once again sorry for the noob questions

[_-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

[Spoo]

Resil

Let's look at your example HTML code in your OP

1. <div id="mostrar_mas_enlaceview">
2. <h2 id="mev">Thumbnail + <u>viewer</u> link</h2>
3. <div class="ctninput">
4. <div class="codex">HTML:</div><div class="inputshare">
5. <input tabindex="1" value="&lt;a href=&quot;[urlx]http://images.com/?v=atob3iji.jpg&quot;&gt;&lt;img[/urxl] src=&quot;[urlx]http://images.com/thumbs/atob3iji.jpg&quot;[/urlx] border=&quot;0&quot;&gt;&lt;/a&gt;" onclick="this.focus();this.select();" />
6. </div>
7. </div>
8. <div class="ctninput">
9. <div class="codex">BBCode (Forums):</div><div class="inputshare">
10. <input tabindex="2" value="[url=http://images.com/?v=atob3iji.jpg][imgx]http://images.com/thumbs/atob3iji.jpg[/imgx][/urlx]" onclick="this.focus();this.select();" />
11. </div>
12. </div>
13. </div>

In the above, I have taken the first 13 lines of your example.

I purposely changed [img] to [imgx] and [/img] to [/imgx] so the text would display .. thus ignore, is just for demo purposes

So, if I understand your current question properly, you want to know how to extract http://images.com/thumbs/atob3iji.jpg from
array element 10.

Maybe something like this:

Text2.Text = WebBrowser1.Document.documentelement.innerhtml
FindText = Split(Text2.Text, vbCrLf)  ' uses vbCrLf instead of what you had
nn = UBound(FindText)                 ' num elements in array FindText
tagb = "[IMG]"                        ' begin tag
tage = "[/IMG]" 
Dim txtURL(100) as String
Dim begURL as Long
Dim lenURL as Long
Dim lenTAGb as Long
uu = 0
lenTAGb = 5                           ' ie, length of [IMG]
For ii = 0 to nn
    b = InStr(UCase(FindText(ii), tagb)   ' = 70, or thereabouts
    e = InStr(UCase(FindText(ii), tage)   ' = 95, or thereabouts
    If b > 0 Then                         ' only interested if have tagb in this given string
        uu = uu + 1
        begURL = b + lenTAGb
        lenURL = e - b - lenTAGb
        txtURL(uu) = Mid(FindText(ii), begURL, lenURL)
    End If
Next ii

New statements shown in blue
Corrections to statements in my prior post shown in red

In our example case, you would get the following result:

txtURL(1) = "http://images.com/thumbs/atob3iji.jpg"

• I initialized uu (the "use" counter) at 100 -- this may be overkill.
• I think this is what you were asking about >> ie, the parsing bit
• If I'm wrong, let me know.

EDIT:
It took me so long to compose this post .. looks like you already
have resolved the issue.... oh well ...

EDIT-2:
Yes, sorry about that compile error you got. How silly of me...
At least I caught it as I was preparing this rather lengthy post.

Spoo