[RESOLVED][2005] Getting data between <player> tags

**spambot** · Nov 22nd, 2008, 01:32 PM

Hello,

I was just wondering if you could help me extract & format data between <player> tags (obviously a css-assosiated tag), i'm working on a website for my guild on WAR and the player data is posted on a community site like so:

Code:

<player>
<div>name</div>
<div>level</div>
<div>rlevel</div>

<div>guild</div>
<div>rank</div>
</player>

There are also assosiated players that i'd also like to extract, the html is formatted exactly the same, it's just lower down the page.

I was wondering how i'd go about formatting it like so:

Player1 name, Level, Plevel, Guild, Rank
Player2 name, Level, Plevel, Guild, Rank

Any help is appreciated,

Thanks

**.paul.** · Nov 22nd, 2008, 02:26 PM

try this:

vb Code:

Dim xmlDoc As New Xml.XmlDocument
Dim xmlRoot As Xml.XmlNode
xmlDoc.LoadXml("<player>" & Environment.NewLine & _
    "<div>name</div>" & Environment.NewLine & _
    "<div>level</div>" & Environment.NewLine & _
    "<div>rlevel</div>" & Environment.NewLine & _
    "<div>guild</div>" & Environment.NewLine & _
    "<div>rank</div>" & Environment.NewLine & _
    "</player>")
xmlRoot = xmlDoc.DocumentElement
Dim nodes As XmlNodeList = xmlRoot.SelectNodes("div")
Dim msg As String = String.Empty
For Each node As XmlNode In nodes
    msg &= node.InnerText & ","
Next
msg = msg.Remove(msg.Length - 1, 1)
MsgBox(msg)

**spambot** · Nov 22nd, 2008, 02:50 PM

Thanks but theres more html around it i was trying to ignore so i'm trying to copy and paste it into a textbox and then process it, i just get a divide by zero error when i try to replace:

xmlDoc.LoadXml("<player>" & Environment.NewLine & _
"<div>name</div>" & Environment.NewLine & _
"<div>level</div>" & Environment.NewLine & _
"<div>rlevel</div>" & Environment.NewLine & _
"<div>guild</div>" & Environment.NewLine & _
"<div>rank</div>" & Environment.NewLine & _
"</player>")

with:

xmlDoc.LoadXml(textbox1.text)

**.paul.** · Nov 22nd, 2008, 03:15 PM

i tried it with a textbox. worked ok.

edit: ignore the buttons. i tested it in my xml learning program

**spambot** · Nov 22nd, 2008, 03:18 PM

try with:

Code:

<html>
<title>test</title>
<head>
</head>
<player> 
<div>name</div> 
<div>level</div> 
<div>rlevel</div> 
<div>guild</div> 
<div>rank</div> 
</player>
</html>

I really appreciate the help. sorry if i didnt get the point accross that it's within html.

**.paul.** · Nov 22nd, 2008, 03:24 PM

this works:

vb Code:

Dim xmlDoc As New Xml.XmlDocument
Dim xmlRoot As Xml.XmlNode
xmlDoc.LoadXml(TextBox1.Text)
xmlRoot = xmlDoc.DocumentElement
Dim nodes As XmlNodeList = xmlRoot.SelectNodes("player/div")
Dim msg As String = String.Empty
For Each node As XmlNode In nodes
    msg &= node.InnerText & ","
Next
msg = msg.Remove(msg.Length - 1, 1)
MsgBox(msg)

**.paul.** · Nov 22nd, 2008, 03:28 PM

if you want to post the whole html, i'll have a look at it

**.paul.** · Nov 22nd, 2008, 06:04 PM

the 2nd part (1st part by PM) of the answer to your other question is:

vb Code:

Dim addressesAcquired As Boolean = False
 
Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
    If Not addressesAcquired And e.CurrentProgress = e.MaximumProgress Then
 
        Dim regAddress As String = String.Empty
        Dim corrAddress As String = String.Empty
 
        Dim rx As New Regex("(?<=<h2>Registered Address</h2>).+(?=</div><div class=""corrAddress"">)")
        Dim xmlDoc As New Xml.XmlDocument
        Dim xmlRoot As Xml.XmlNode
 
        xmlDoc.LoadXml(rx.Match(WebBrowser1.DocumentText).Value)
        xmlRoot = xmlDoc.DocumentElement
        Dim nodes As Xml.XmlNodeList = xmlRoot.SelectNodes("div")
        Dim msg As String = String.Empty
        For Each node As Xml.XmlNode In nodes
            msg &= node.InnerText & Environment.NewLine
        Next
        regAddress = msg & Environment.NewLine & Environment.NewLine
 
        rx = New Regex("(?<=<h2>Correspondence Address</h2>).+(?=</div></div><hr /><h2>Associated Organisations</h2>)")
 
        xmlDoc.LoadXml(rx.Match(WebBrowser1.DocumentText).Value)
        xmlRoot = xmlDoc.DocumentElement
        nodes = xmlRoot.SelectNodes("div")
        msg = String.Empty
        For Each node As Xml.XmlNode In nodes
            msg &= node.InnerText & Environment.NewLine
        Next
 
        corrAddress = msg
 
        rx = New Regex("(?<=<th class=""col1"">).+(?=</table><table class=""total"")")
 
        Dim splitHTML As String = rx.Match(WebBrowser1.DocumentText).Value
        splitHTML = splitHTML.Substring(splitHTML.IndexOf("<tr>"))
        splitHTML = splitHTML.Replace("<tr>", "")
        splitHTML = splitHTML.Replace("</tr>", "")
        splitHTML = "<splitHTML>" & splitHTML & "</splitHTML>"
 
        xmlDoc.LoadXml(splitHTML)
        xmlRoot = xmlDoc.DocumentElement
        nodes = xmlRoot.SelectNodes("td")
        msg = CStr("Stock Type" & vbTab).PadRight(40) & "Owned" & vbTab & "Managed On Behalf of Others" & Environment.NewLine
        Dim counter As Integer = 1
        For Each node As Xml.XmlNode In nodes
            If counter = 1 Then
               msg &= CStr(node.InnerText & vbTab).PadRight(40)
                counter += 1
            ElseIf counter = 2 Then
                msg &= node.InnerText & vbTab
                counter += 1
            Else
                msg &= node.InnerText & Environment.NewLine
                counter = 1
            End If
        Next
 
        Debug.Print(regAddress & corrAddress & msg)
 
        addressesAcquired = True
 
    End If
End Sub

Thread: [RESOLVED][2005] Getting data between <player> tags

Thread Tools

Display

[RESOLVED][2005] Getting data between <player> tags

Re: [2005] Getting data between <player> tags

Re: [2005] Getting data between <player> tags

Re: [2005] Getting data between <player> tags

Re: [2005] Getting data between <player> tags

Re: [2005] Getting data between <player> tags

Re: [2005] Getting data between <player> tags

Re: [2005] Getting data between <player> tags

Posting Permissions