How to read HTML

[pechoi@syr.edu]

Hi all,
My function looks like:
Function getWebPage()
Dim loInet As InternetExplorer
Dim lsURL As String
Dim loObject As Object


Set loInet = New InternetExplorer
loInet.Visible = True

lsURL = "http://finance.yahoo.com/"

loInet.Navigate lsURL

End Function

I don't know how to read the HTML site I just opened.

THx

[Jake Marx]

Hi,

You can use the XMLHTTP object to read the HTML:

Public Function gsGetHTML(rsURL As String) As String
Dim x As Object

Set x = CreateObject("Microsoft.XMLHTTP")

With x
.Open "GET", rsURL
.send
Do Until .ReadyState = 4
DoEvents
Loop
gsGetHTML = .ResponseText
End With

Set x = Nothing
End Function

--
Regards,

Jake Marx
www.longhead.com


[please keep replies in the newsgroup - email address unmonitored]


pechoi@syr.edu wrote:
> Hi all,
> My function looks like:
> Function getWebPage()
> Dim loInet As InternetExplorer
> Dim lsURL As String
> Dim loObject As Object
>
>
> Set loInet = New InternetExplorer
> loInet.Visible = True
>
> lsURL = "http://finance.yahoo.com/"
>
> loInet.Navigate lsURL
>
> End Function
>
> I don't know how to read the HTML site I just opened.

[pechoi@syr.edu]

Thx a lot!
However, your function only print out limit of string (I printed out
..ResponseText). So it only gets 256 chararacters (i am just guessing).
Do you know other way to print out more?

Thx