VBA Parsing the webpage for a specific value between tags

[dimer]

Hi all,

I am trying to extract a specific value from a static webpage.

so far I come up with the following script:
Sub Macro1()
my_url = "http://www.investopedia.com/search/default.aspx?q=rog"
Set my_obj = CreateObject("MSXML2.XMLHTTP")
my_obj.Open "GET", my_url, False
my_obj.send
my_var = my_obj.responseText
MsgBox my_var
Set my_obj = Nothing
End Sub

So my_var returning the whole webpage data. But from all that mess I need to find < div class="exchange">NYSE< </< font>div> and return in this case value NYSE?? How can I do that? please help!!!

 

[Rick Rothstein]

This single line of code should do what you want...

ExchangeName = Split(Split(my_var, "div class=""exchange"">", , vbTextCompare)(1), "<")(0)

where I just made up a variable name to receive the "NYSE" from the expression to the right of the equal sign.

 

[dimer]

Wow, I really like your idea of using two splits.. how did I not think of that..

Thank you very much,

The case is solved.