Parsing help.

I am grabbing html from a website, in the source I want to parse out the TOKEN are without the "" around it. I have no idea of how to do this.

Code:

---

name="org.apache.struts.taglib.html.TOKEN" value="aecc4e108cb6295bb9131ea04b92f2cf">

---

Where is aecc4e108cb6295bb9131ea04b92f2cf, that is the TOKEN, I need that to be parsed out and to be added to a list or a textbox.

Any help is appreciated.

Thank you,
mikeyy.

Are you using webbrowser control? Research on HTML document object model, then do a search here in forums of sample parsing/extraction through HTML DOM.

vb Code:

Dim Parts() As String
'Const T = "name=""org.apache.struts.taglib.html.TOKEN"" value=""aecc4e108cb6295bb9131ea04b92f2cf"">"
'T is the variable with all of the html in
'You should remove the const of it.
Parts() = Split(T, Chr(34))
'Splitting the different parts of the string into an array, by the delimeter of "
'MsgBox Parts(0) & vbNewLine & Parts(1) & vbNewLine & Parts(2) & vbNewLine & Parts(3)
'Part 3 is the token.
List1.AddItem Parts(3)

If "org.apache.struts.taglib.html.TOKEN" only appears once in the text, use InStr() to find it, then take 32 characters starting from the 45th character after what InStr() returned.

I've found my solution for grabbing the TOKEN with:

Code:

---

StrToken = GetBetween(1, StrPage, _
        "org.apache.struts.taglib.html.TOKEN"" value=""", """>", vbTextCompare)

---

Now I have another problem, I want to be able to parse multiple userID's from a page of online users, the code I want to get between is:

Code:

---

_vchat_174375447'

---

I used:

Code:

---

    Dim StrPage As String
    StrPage = Inet1.OpenURL("http://www.stickam.com/whosLive.do?listType=live")
 
    StrToken = GetBetween(1, StrPage, _
        "vchat_", "'", vbTextCompare)
       
    lstGen.AddItem (StrToken)

---

The problem is not the parsing, the problem is it only grabs one userID out of the 100 other users. Do you know a way where it can grab each userID and add each one to a listbox?

(Reply to leinad31: I am using Inet, then just parsing out the source.")

Thank you,
mikeyy.

Assuming you have each line separately.. this will separate the 'aecc....'

Text1.text = the string :name="org.apache.st.....

you can change to your string afterwards...

Code:

---


Dim temp As String
Dim pos As Long

pos = InStr(1, Text1.Text, "value=") 'Get char position for "Value="

If Not pos = 0 Then
temp = Right$(Text1.Text, Len(Text1) - pos - 5)
temp = Left$(temp, Len(temp) - 1) ''Remove > from the End
temp = Replace(temp, Chr(34), "") 'Remove ""
MsgBox temp  'or List1.Add temp

End If

---

I've fixed the TOKEN problem, please read my above post about the userID.

thank you,
mikeyy.

Why would you want to know their userID and token?

The token was to add the userID, now I am going to try and parse out online users and save them to a listbox. Before hand I had just made a function to generate the userIDs, but that usually just added inactive accounts.