VB.NET: Get the Attribute and Text out from Xml....[Resolved]

[toytoy]

Say i receive this string from the server:
s = "<Main Type="Personal">Title</Main>"

How to extract the attributes = "Personal" from Main tag
and the Text ="Title" using LoadXml(s)

more sugguestions and related articles will be greatly appreciate...

Thanks

[Edneeis]

See if this helps:

http://www.vbforums.com/showthread.p...hreadid=253267

There are other previous threads on this topic too if you want to try and search the forums.

[toytoy]

Thanks...

I have seem the examples..

Besides being able to select any attribute and Elements to display, how to actually retrieve all the elements and attributes..
Say i want to display all in various textboxes at one go ...

Example of the string: (Taken form the thread given)

<chimaera>
<servers>
<host ip="172.16.1.30">Chimaera</host>
</servers>
<themes value="true" />
<locationupdate path="C:\1.xml" />
</chimaera>

Which mean the various textboxes should contain:

TextBox1.Text =  172.16.1.30
TextBox2.Text = Chimaera
TextBox3.Text = true
TextBox4.Text = (All the contents in 1.xml)

Thanks

[Edneeis]

Just replace the code parts that use a Msgbox with the same values into Textboxes. To get the value 'Chimaera' you would refer to the text property of the node itself instead of an attribute but the rest should be the same.

[toytoy]

ok....Thanks

[toytoy]

Another problem...

Say i have these Xml tag..

<Book>
<Title ID = "1">
<Author>Hello</Author>
<Reference web = "www.reference.com" topic = "In thing">
</Title>
<Title ID = "2">
<Author>Thanks</Author>
<Reference web = "www.titlebook.com" topic = "Out thing">
</Title>
</Book>

And the method that i use is XmlDocument..

If the user key in the text in the textbox...how to tell the XmlDocument that the text refer to certain ID..

And how to display all the attributes and Elements of that ID to all the textbox.....

Thanks

[Edneeis]

In the previous example you notice later on I passed a longer string to the SelectNodes method. This is called an XPath or XQuery and you can query XML using this. To find a specific title by id you would use an XPath something like this:

For Each nod As XmlNode In xdoc.SelectNodes("//Book/Title[@ID=1]") 'select title node with id=1
            'handle different parts of the Title node here
        Next 

http://www.w3.org/TR/xpath

[toytoy]

Just to ask how this MsgBox part can be replace by string...

Dim xdoc As New XmlDocument
xdoc.Load("..\data.xml")

For Each nod As XmlNode In xdoc.SelectNodes("//servers/host")
     MsgBox(nod.Attributes("ip").Value, , "host")
Next

MsgBox(xdoc.SelectSingleNode("//themes/@value").Value, , "themes")
MsgBox(xdoc.SelectSingleNode("//locationupdate/@path").Value, , "locationupdate")

Thanks

[Edneeis]

Dim xdoc As New XmlDocument
xdoc.Load("..\data.xml")

For Each nod As XmlNode In xdoc.SelectNodes("//servers/host")
    TextBox1.Text &=nod.Attributes("ip").Value
Next

TextBox2.Text=xdoc.SelectSingleNode("//themes/@value").Value
TextBox3.Text=xdoc.SelectSingleNode("//locationupdate/@path").Value 

But really you should add some error handling just in case no matching node is found.

Dim xdoc As New XmlDocument
xdoc.Load("..\data.xml")

For Each nod As XmlNode In xdoc.SelectNodes("//servers/host")
    If Not nod Is Nothing Then TextBox1.Text &=nod.Attributes("ip").Value
Next

Dim nod As XmlNode
node=xdoc.SelectSingleNode("//themes/@value")
If Not nod Is Nothing Then TextBox2.Text=nod.Value
node=xdoc.SelectSingleNode("//locationupdate/@path")
If Not nod Is Nothing Then TextBox3.Text=nod.Value 

[toytoy]

ok....thanks

if you all guys have found any useful threads in this site or any useful articles besides the above link. .....

feel free to put the link here...

any help will be appreciated....

[toytoy]

one more question...

Besides using For Each /Next loop to find every individual nodes, which loop should be use and how to apply if i want only one set of tag...(in blue)

Example:

<Book>
<Title ID ="1"> 
<Author>Hello</Author>
<Reference web = "www.reference.com" topic = "In thing">
</Title>
<Title ID = "2">
<Author>Thanks</Author>
<Reference web = "www.titlebook.com" topic = "Out thing">
</Title>
</Book>

I just want a draft idea of how it should be like...

[toytoy]

For what i know:

I must use XPath to search through the required ID so that it will return me back the Elements and attributes for that particular ID.

But when i read through the XPath articles...I feel that it is some sort like using SelectNodes("//Book/Title) to search and return certain nodes of that string....

It cannot skip certain tag and retrieve other tags. ...Maybe is my concept weak..
Say I want to display ID = "2" and web =www.titlebook.com...and skip Author tag..

Example:

<Books>
<Book>
<Title ID ="1">
<Author>Hello</Author>
<Reference web = "www.reference.com" topic = "In thing">
</Title>
</Book>
<Book>
<Title ID = "2"> 
<Author>Thanks</Author>    'skip this part    
<Reference web = "www.titlebook.com" topic = "Out thing">
</Title>
</Book>
</Books>

My coding:

Dim a, b As String
For Each n In xdoc.SelectNodes("//Title")
 a = n.Attributes("ID").Value
textBox1.Text = a
Next

For Each n In xdoc.SelectNodes("//Title/Reference")
b = n.Attributes("web").Value
textbox2.Text = b
Next

Although it can still be retrieve but it retrieve all...but how to retrieve mainly form ID = "2".... instead of retrieve all the two tags using two loops, how to use it in one loop...

And in the last two thread that Edneeis send....I feel that it cannot be done since the program does not know which ID until the user key in something inside the textbox....what if there is 100 of IDs which i did not know, is that means that i have to create 100 of that loop..

TextBox2.Text=xdoc.SelectSingleNode("//themes/@value").Value
TextBox3.Text=xdoc.SelectSingleNode("//locationupdate/@path").Value

What is the @ represent in the above coding... and how it works..

Lastly, do you have silimar articles with examples using XPath...
XPath expert, i need your help in clearing my unclear concepts..

Thanks

[Edneeis]

The @ is because that item is an attribute of a node. In your schema ID is an attribute of the Title node, web and topic are attributes of the Reference node.

Here is an example to show you the rest of what to do for that schema specifically.

[toytoy]

thanks....Edneeis

you are really so good..It solve all my problems...

Just to ask in the Enter the ID part...

the user must key in an Integer ID first before retrieve certain data..

Can it be like the user key in a string and that string is relate to the ID.. and then from there it will show all the Elements and attributes from that ID

[Edneeis]

What do you mean? You want the user to search by another node or attribute? If so which one?

You can just the initial xpath to something like this to search for other things:

'by author
Dim xpath As String = String.Format("//Book/Title[Author='{0}']", id)

'by reference topic
Dim xpath As String = String.Format("//Book/Title[Reference/@topic='{0}']", id) 

The search is case-sensitive by the way.

[toytoy]

What i means is that for example:

when i key in "France" in the textbox...

That France will point to the <Title ID ="1"> and show all the Element and attribute inside that ID to the textboxes...

and when i key in "Singapore" , It will show all the Elements and attribute from <Title ID = "2">

there is nothing to do with the content of xml files....

Just used any words to point to that particular main ID inside xml file..

Is it possible?..

[toytoy]

Another question related to the above question..

Say the Xml tag is:

<Books>
<Book>
<Title ID ="1">
<Author>Hello</Author>
<Reference web = "www.reference.com" topic = "In thing">
</Title>
</Book>
<Book>
<Title ID = "2">
<Author>Thanks</Author>
<Reference web = "www.titlebook.com" topic = "Out thing">
</Title>
</Book>
</Books>

Say i entered Hello in the textbox....
how can i retrieve the ID = "1" and
display the "In thing" in the textbox..

Thanks

[toytoy]

ok.... i get what you mean...

the previous thread is solve...

what about the France and Singapore words which i post eariler

[Edneeis]

How is France and Singapore related to that data?

I don't understand. The data needs to be related or else how would you look it up?

[toytoy]

that means if that data is not declare in the Xml file, it cannot be create and point to any of the Elements or attribute...

is that what you mean...

[Edneeis]

If its not in the XML document then it can't be reached via the Xpath query. How is it related? Where is it stored?

[toytoy]

ok....i fully understand what you mean..

now my concept on XPath is much more clearer...
I have finally resolve all my doubts..

Thanks Edneeis..

[toytoy]

Say i have these Xml tag

<Books>
      <Title section ="1">
          <Reference web = "www.any.com" topic = "1">
      </Title>
      <Title section ="1">
          <Reference web = "www.idea.com" topic = "2">
      </Title>
      <Title section ="2">
          <Reference web = "www.howTo.com" topic = "3">
      </Title>
      <Title section ="3">
          <Reference web = "www.do.com" topic = "4">
      </Title>
</Books>

I want to extract all the web and topic attribute only in Title section "1"...

Thanks

[Edneeis]

Did you check out the example code I posted in the zip file?

It shows you how to do that. The only difference would be referring to the topic attribute exactly the way the example does the web attribute.

[toytoy]

yeah....cannot..

Once i selected ID "1" which is the same with two title data..

it display only the first data of web and topics since two have the same ID..

Say how to extract all web and topic involve same and different ID into the combo box ..

Thanks..

[Edneeis]

Then instead of calling SelectSingleNode use SelectNodes and loop through the results.

[toytoy]

From the previous Xml tags:

<Books>
      <Title section ="1">
          <Reference web = "www.any.com" topic = "1">
      </Title>
      <Title section ="5">
          <Reference web = "www.idea.com" topic = "2">
      </Title>
      <Title section ="5">
          <Reference web = "www.howTo.com" topic = "3">
      </Title>
      <Title section ="9">
          <Reference web = "www.do.com" topic = "4">
      </Title>
</Books>

Say i have 3 section name for the Title:
"1" stand for Science, "2" stand for Gerenal and "3" stand for History

when i receive the section attribute from the server, i have to do some comparing with the number...like 2 to the power of 1 indicate the event of Science, 2 to the power of 2 indicate Gerenal and so on.

Thus when i receive the number "5" for section in this case, it indicate the events of Science and Gerenal...
so all those fields with attribute "5" will be extract.......

The exponent method is:

 Public Function pow(ByVal exponent As Integer, ByVal base As Integer)

        result = base ^ exponent
        subtotal = result
        total = total + subtotal
        Return total

    End Function

with the above method, what should i do to compare the number with the section attributes correctly and display it to a listbox...

Currently, i may extract the web and topic.... but it will duplicate the values whenever i extract from it...

Example: listbox should contain:

www.howTo.com
3
www.idea.com
2

But my coding gave me this:

www.howTo.com
3
www.idea.com
2
www.howTo.com
3
www.idea.com
2
www.howTo.com
3
www.idea.com
2
www.howTo.com
3
www.idea.com
2

See, when i extract two sets of data, it will duplicate four sets instead...

Thanks

[toytoy]

According to the above XML tags...

I want to extract all attributes and display accordingly...

I will always have duplicate values...

That means...my looping is wrong..

Any ideas how to do a simple and accurate compare loop and extract the required attributes from all the loop into different listbox...

Thanks

[Edneeis]

Post your code and I'll help you fix it.

[toytoy]

Say when I press a button, the server will send the Xml tag as below..

<Books>
      <Title section ="1">
          <Reference web = "www.any.com" topic = "1">
      </Title>
      <Title section ="5">
          <Reference web = "www.idea.com" topic = "2">
      </Title>
      <Title section ="5">
          <Reference web = "www.howTo.com" topic = "3">
      </Title>
      <Title section ="9">
          <Reference web = "www.do.com" topic = "4">
      </Title>
</Books>

The first thing i did was to pass the whole tag to this sortXml method
whereby it will extract the section out to compare...

      Public Function sortXml(ByVal wholeXml As String) As String

        Dim no As String
        Dim xdoc As New XmlDocument

      Try
            xdoc.LoadXml(wholeXml)

         For Each nod As XmlNode In xdoc.SelectNodes("//Books/Title")
            no = nod.Attributes("section").Value
            sortSection(no, wholeXml)  ' then i pass here to check the exponent
        Next

      Catch ex As Exception

        End Try
  End Function

Since i must compare the exponent so i declare the constant and set some flags to false

Const mintSCIENCE As Integer = 0
Const mintGENERAL As Integer = 1
Const mintCOMPUTER As Integer = 2
Dim blnScience, blnGeneral, blnComputer As boolean

The code inside sortSection is:

Public Function sortSection(ByVal sect As Integer, ByVal wholeXml2 As String)

        blnScience = False
        blnGeneral = False
        blnComputer = False
        Dim strScience, strGerenal, strComputer, output as String
   
        Dim xdoc As New XmlDocument
        xdoc.LoadXml(wholeXml2)
        output = sect

  If output = pow(mintSCIENCE, 2) Or output > pow(mintSCIENCE,2)  Then
       blnScience = True
       output = output - pow(mintSCIENCE, 2)
       strScience = "Science"      ' I will pass and compare this string  
       populateData(strScience, wholeXml2)  ' inside the populateData method 
  End If

  If output = pow(mintGENERAL, 2) Or output > pow(mintGENERAL, 2) Then
       blnGeneral = True
       output = output - pow(mintGENERAL, 2)
       strGeneral = "General"
       populateData(strGeneral, wholeXml2)
  End If

  If output = pow(mintCOMPUTER, 2) Or output > pow(mintCOMPUTER, 2) Then
       blnComputer = True
       output = output - pow(mintCOMPUTER, 2)
       strComputer = "Computer"
       populateData(strComputer, wholeXml2)
  End If
End function

The codes for pow and populateData are:

Public Function pow(ByVal exponent As Integer, ByVal base As Integer)

   result = 1       'Assume all the values are declared
   Dim i As Integer
   For i = 0 To exponent - 1 Step i + 1
       result = result * base
   Next
   Return result

End Function

Public Sub populateData(ByVal val As String, ByVal wholeXml3 As String)

        Dim str1, str2 As String
        Dim xdoc As New XmlDocument
        xdoc.LoadXml(wholeXml3)

        If val = "Science" Then

     For Each nod As XmlNode In xdoc.SelectNodes("//Books/Title/Reference")
                str1 = nod.Attributes("web").Value 
                str2 = nod.Attributes("topic").Value 
                lst1.Items.Add(str1)
                lst1.Items.Add(str2)
            Next
        End If

     If val = "General" Then

    For Each nod As XmlNode In xdoc.SelectNodes("//Books/Title/Reference")
             str1 = nod.Attributes("web").Value 
             str2 = nod.Attributes("topic").Value 
             lst2.Items.Add(str1)
             lst2.Items.Add(str2)
            Next
    End If

    If val = "Computer" Then

    For Each nod As XmlNode In xdoc.SelectNodes("//Books/Title/Reference")
             str1 = nod.Attributes("web").Value 
             str2 = nod.Attributes("topic").Value 
             lst3.Items.Add(str1)
             lst3.Items.Add(str2)
            Next
    End If

I have a lot of logic error which i can't figure out how to solve when it involve exponent to compare and populate the data into the listboxes...

Thanks

[toytoy]

Does anyone know how to solve....

Thanks

[toytoy]

Finally item will not duplicate.....

      Public Function sortXml(ByVal wholeXml As String) As String

        Dim no, web2, topics2 As String
        Dim xdoc As New XmlDocument
        Dim nod2 As XmlNode

      Try
         xdoc.LoadXml(wholeXml)

         For Each nod As XmlNode In xdoc.SelectNodes("//Books/Title")
            no = nod.Attributes("section").Value
            nod2 = nod.FirstChild()
            web2 = nod2.Attributes("web").Value 
            topics2 = nod2.Attributes("topic").Value 
            sortSection(no, web2, topics2)  ' then i pass here to check the exponent
        Next

      Catch ex As Exception

        End Try
  End Function

Since i must compare the exponent so i declare the constant and set some flags to false

Const mintSCIENCE As Integer = 0
Const mintGENERAL As Integer = 1
Const mintCOMPUTER As Integer = 2
Dim blnScience, blnGeneral, blnComputer As boolean

The code inside sortSection is:

Public Function sortSection(ByVal sect As Integer, ByVal web3 As String, ByVal topics3 As String )

blnScience = False
blnGeneral = False
blnComputer = False
Dim strScience, strGerenal, strComputer, output as String
   
output = sect

If output = pow(mintSCIENCE, 2) Or output > pow(mintSCIENCE,2)  Then
   blnScience = True
   output = output - pow(mintSCIENCE, 2)
   strScience = "Science"      ' I will pass and compare this string  
   populateData(strScience, web3, topics3)  ' inside the populateData method 
End If

If output = pow(mintGENERAL, 2) Or output > pow(mintGENERAL, 2) Then
   blnGeneral = True
   output = output - pow(mintGENERAL, 2)
   strGeneral = "General"
   populateData(strGeneral, web3, topics3)
End If

If output = pow(mintCOMPUTER, 2) Or output > pow(mintCOMPUTER, 2) Then
   blnComputer = True
   output = output - pow(mintCOMPUTER, 2)
   strComputer = "Computer"
   populateData(strComputer, web3, topics3)
End If

End function

The codes for pow and populateData are:

Public Function pow(ByVal exponent As Integer, ByVal base As Integer)

  result = 1         'Assume all the values are declared
  Dim i As Integer
  For i = 0 To exponent - 1 Step i + 1
       result = result * base
  Next
  Return result
End Function

Public Sub populateData(ByVal val As String, ByVal web4 As String, ByVal topics4 As String)

    
  If val = "Science" Then

     lst1.Items.Add(web4)
     lst1.Items.Add(topics4)
     
  End If

  If val = "General" Then

     lst2.Items.Add(web4)
     lst2.Items.Add(topics4)
  End If

  If val = "Computer" Then

     lst3.Items.Add(web4)
     lst3.Items.Add(topics4)
           
  End If

End sub