HTML Parse

[Mr.Nemo]

I know this has probably been answered before but I am have difficulty find exactly what I need. This is ultimately what I would like to achieve. I have a form with the Inet control added as well as a web browser. I have it load up a specific URL, then save to .html. What I would like is for it to specifically parse out the Product names as listed below.
http://krasikart.no-ip.org/parse.jpg

Just the product names. I then want to add them to a listbox for ease of copying. Can anyone help me in the right direction? This is the code I have currently.

Private Sub Command1_Click()
Dim URL() As Byte

'set protocol to HTTP
Inet1.Protocol = icHTTP
Inet1.URL = WebBrowser1.LocationURL
' Retrieve the HTML data into a byte array.
URL() = Inet1.OpenURL(Inet1.URL, icByteArray)
' Create a file for the data.
Open "google.htm" For Binary Access Write As #1
Put #1, , URL()
urlbox.Text = WebBrowser1.LocationURL
Close #1
End Sub

Private Sub gotourl_Click()
WebBrowser1.Navigate urlbox.Text
End Sub

Private Sub parse_Click()
Text1.Text = WebBrowser1.Document.body.innerText
List1.AddItem Text1.Text
End Sub

Thanks for any help you can offer!

[LaVolpe]

Though the screenshot may be helpful to see what you want parsed, but without some sample html to look at, no one can really offer any advice.

Do you get in your textbox what you expected? If not, more details/specifics are needed

[Mr.Nemo]

Yes, I can post more details. Here is some html snippet.

<table border="1" cellpadding="2" cellspacing="0" align="center" width=700>
	<THEAD class="dark">
	<TD COLSPAN=4>Products&nbsp;</TD>
	</THEAD>

	<THEAD>
	<TD>&nbsp;</TD>
	<TD>Comments</TD>
	<TD>Date Modified</TD></THEAD>

	

<TR>
<TD WIDTH=300>ACUVAIL - ketorolac tromethamine ophthalmic solution&nbsp;</TD>
<TD WIDTH=300>&nbsp;</TD>
<TD>10/2/2009&nbsp;</TD>
</TR>
	
<TR>
<TD WIDTH=300>ALPHAGAN&nbsp;</TD>
<TD WIDTH=300>&nbsp;</TD>
<TD>10/2/2009&nbsp;</TD>
</TR>
	
<TR>
<TD WIDTH=300>BOTOX&nbsp;</TD>
<TD WIDTH=300>&nbsp;</TD>
<TD>10/2/2009&nbsp;</TD>
</TR>
	
<TR>
<TD WIDTH=300>JUVEDERM&nbsp;</TD>
<TD WIDTH=300>&nbsp;</TD>
<TD>10/2/2009&nbsp;</TD>
</TR>

Here is a screenshot of the app and results from the parse_Click. I've also linked the entire saved page if that helps anyone.
http://krasikart.no-ip.org/parse2.jpg
http://krasikart.no-ip.org/parse.htm

[MarkT]

My approach would be convert the html to xml and then use the xml dom to pull the values. Here is a quick sample.

Private Sub Command1_Click()
Dim strURL As String
Dim objHTML
Dim strHTML As String
Dim intPos As Integer
Dim objDoc
Dim objNodeList
Dim objNode
Dim objTdNode

    'Get the raw html
    strURL = "http://174.51.225.164:8080/parse.htm"
    Set objHTML = CreateObject("Microsoft.XMLHTTP")
    objHTML.open "GET", strURL, False
    objHTML.send

    strHTML = objHTML.responseText
    
    
    'Remove everything before the start of the table
    intPos = InStr(1, strHTML, "Products", vbTextCompare)
    intPos = InStrRev(strHTML, "<table", intPos, vbTextCompare)
    strHTML = Mid(strHTML, intPos)
    
    'Remove everything after the table
    intPos = InStr(1, strHTML, "</table>", vbTextCompare) + 7
    strHTML = Left(strHTML, intPos)
    
    'Do some replaces to prevent things from breaking
    strHTML = Replace(strHTML, " WIDTH=300", "")
    strHTML = Replace(strHTML, " width=700", "")
    strHTML = Replace(strHTML, " COLSPAN=4", "")
    strHTML = Replace(strHTML, "&nbsp;", "")
    
    Set objHTML = Nothing
    
    'load the html as an xml document
    Set objDoc = CreateObject("Microsoft.XMLDOM")
    objDoc.async = False
    objDoc.loadXML strHTML
    
    ' Load the tr tags into a node list
    Set objNodeList = objDoc.selectNodes("//TR")
    
    ' Loop through the tr tags grabbing the contents of the first td tag
    For Each objNode In objNodeList
        Set objTdNode = objNode.selectSingleNode("TD")
        List1.AddItem objTdNode.Text
    Next objNode
    
    Set objTdNode = Nothing
    Set objNode = Nothing
    Set objNodeList = Nothing
    Set objDoc = Nothing
End Sub

[Mr.Nemo]

Thank you so much! It works perfectly. I just have one more question. I need to send the contents of List1 to another listbox on another form. I can't seem to find how to send the list from one listbox in one form to another listbox in another form. The answer will let me complete my project.

[LaVolpe]

There is no function that will do it all at once. Simple solution is a simple loop

Dim L As Long
Form2.List2.Clear
For L = 0 To List1.ListCount - 1
   Form2.List2.AddItem List1.List(L)
Next

[MarkT]

If it is on another form you have to prefix the listbox name with the form name

Dim L As Long
Form2.List2.Clear
For L = 0 To List1.ListCount - 1
   Form2List2.AddItem List1.List(L)
Next

[LaVolpe]

MarkT, beat you to it! I realized my error & fixed it before you posted - ain't that slick

[Mr.Nemo]

Thanks, worked perfectly. Now I can complete my project!

[Mr.Nemo]

Thanks for help guys.

[Mr.Nemo]

Sorry for the bump but I had to revise my last question. Several If/Thens I believe will be used for this but I'm trying to get it to search Products and Terms and if Products is listed but not Terms, pull the Product list. If, however the Products and Terms are there, pull both. And, if Terms is there but not Products, pull Terms. Basically I need an And/Or I think. Sorry for the confusion. Pretty tired and can't seem to wrap my brain around it this late in the morning. Thanks for all help!

[Mr.Nemo]

Bump.

[MarkT]

Without having the html to work with it is hard to tell what you need.

[Mr.Nemo]

Ah, right. I meant to upload some things. I hate I bumped this but I was working on this all night and have to have this running by Monday. I'll post some html as well as my project files. If someone opens my project, you will have to change the url to the included files to test the function.

Project Files
Web Pages

when I change the search terms, and I know the searched term is in the document, it doesn't always find them. And sometimes it does but doesn't pull the data. It's pretty strange.

[Mr.Nemo]

Anyone have any enlightening ideas? I'm afraid to add too many If/Thens and complicate it. I think it's over complicated as is...

[Mr.Nemo]

I'm still having issues, Not sure what I can do now.