Strange XML

  • 13 years ago

     Hi all i was wondering wheather someone could explain how i would extract the string data in bold from the xml line bellow?

    <countrydata>

    <stateid="point"><name>Sligo</name><size>2</size><loc>54.28,-8.48</loc></state>

    </countrydata>

    I am using an xReader to read the file in another program but the structure is very different, the code i use for the other app us bellow. could someone please direct me in how i should change this code to suit the current xml, i will need to put 54.28,-8.48 from above into 2 seperate variables as i loop through the lines.

    Any help would be great many thanks


    Dim Country as String
    Dim RefPosLat As Double
    Dim RefPosLong As Double

    xReader.ReadToFollowing("countrydata")
    Name = xReader.GetAttribute("id").Split(",")(1)
    Dim trStr As String = Name.Trim()
    xReader.ReadToFollowing("RefPosLat")
    Try
    RefPosLat = xReader.ReadElementContentAsDouble
    Catch ex As Exception

    RefPosLat = CDbl("0.0000000000")

    End Try
    xReader.ReadToFollowing("RefPosLong")
    Try
    RefPosLong = xReader.ReadElementContentAsDouble
    Catch ex As Exception
    RefPosLong = CDbl("0.000000000")
    End Try

    Domino.Vbcoder

  • 13 years ago

    Hi there,

            Dim fstream As FileStream = Nothing
    Dim xmldoc As XmlDocument = Nothing
    Dim xmlelem As XmlElement = Nothing
    Try
    fstream = New FileStream("E:\WindowsApplication3\XMLFile1.xml", FileMode.Open, FileAccess.Read)

    xmldoc = New XmlDocument
    xmldoc.Load(fstream)

    xmlelem = xmldoc.DocumentElement

    For Each node As XmlNode In xmlelem.SelectNodes("state")
    Dim tmp As String() = node.SelectSingleNode("loc").InnerText.Split(",")
    TextBox2.Text &= tmp(0) & " / " & tmp(1)
    Next
    Catch ex As Exception
    Throw ex
    Finally
    If (Not IsNothing(fstream)) Then fstream.Close()
    End Try
  • 13 years ago

    Hi thanks for the reply it worked with a little tinkering thank you so much i am in your debt

     

    Many Thanks

     

    Domino.vbcoder 

  • 13 years ago

    no matter. you are welcome.

Post a reply

Enter your message below

Sign in or Join us (it's free).

Contribute

Why not write for us? Or you could submit an event or a user group in your area. Alternatively just tell us what you think!

Our tools

We've got automatic conversion tools to convert C# to VB.NET, VB.NET to C#. Also you can compress javascript and compress css and generate sql connection strings.

“Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it.” - Brian Kernighan