Get value of each attribute in paricular object

kalu singh rao

I have following string in xml format and want to get value according to their attributes name in vb.net. But i didn't understand how can i do ?

Any help will appreciate.Thank you

4 Replies

Know the answer? Post it — somebody with the same question will find it here.

Vulpes12y ago
No problem, try this revised code:

Imports System
Imports System.Xml
Imports System.Collections.Generic

Class PassScroll

Public Property Passes As List(Of Pass)

End Class

Class Pass

Public Property LedgerName As String
Public Property SerialFrom As Integer
Public Property SerialTo As Integer
Public Property Qty As Integer
Public Property Rate As Double
Public Property IssuedQty As Integer

End Class

Module Program

Sub Main

Dim root As XElement =

Dim children = root.Elements("Pass")
Dim passScroll As PassScroll = New PassScroll
passScroll.Passes = New List(Of Pass)

For Each child As XElement In children
Dim pass As New Pass
pass.LedgerName = child.Attribute("LedgerName").Value
pass.SerialFrom = Convert.ToInt32(child.Attribute("SerialFrom").Value)
pass.SerialTo = Convert.ToInt32(child.Attribute("SerialTo").Value)
pass.Qty = Convert.ToInt32(child.Attribute("Qty").Value)
pass.Rate = Convert.ToDouble(child.Attribute("Rate").Value)
pass.IssuedQty = Convert.ToInt32(child.Attribute("IssuedQty").Value)
passScroll.Passes.Add(pass)
Next

' check it worked
For Each pass As Pass in passScroll.Passes
Console.WriteLine("LedgerName = {0}", pass.LedgerName)
Console.WriteLine("SerialFrom = {0}", pass.SerialFrom)
Console.WriteLine("SerialTo = {0}", pass.SerialTo)
Console.WriteLine("Qty = {0}", pass.Qty)
Console.WriteLine("Rate = {0}", pass.Rate)
Console.WriteLine("IssuedQty = {0}", pass.IssuedQty)
Console.WriteLine
Next

End Sub

End Module

The output now is:

LedgerName = SB FORMS
SerialFrom = 1
SerialTo = 100
Qty = 10
Rate = 10
IssuedQty = 10

LedgerName = CD FORMS
SerialFrom = 1
SerialTo = 2500
Qty = 50
Rate = 15
IssuedQty = 10
kalu singh rao12y ago
How to use for each for it check all data node in string xml ?
kalu singh rao12y ago
If i have multiple node in string xml then how can check everydata. Like i have this string xml.
Vulpes12y ago
Try this:

Imports System
Imports System.Xml

Class PassScroll

Public Property Pass As Pass

End Class

Class Pass

Public Property LedgerName As String
Public Property SerialFrom As Integer
Public Property SerialTo As Integer
Public Property Qty As Integer
Public Property Rate As Double
Public Property IssuedQty As Integer

End Class

Module Program

Sub Main

Dim root As XElement =

Dim child = root.Element("Pass")
Dim passScroll As PassScroll = New PassScroll
Dim pass As New Pass
pass.LedgerName = child.Attribute("LedgerName").Value
pass.SerialFrom = Convert.ToInt32(child.Attribute("SerialFrom").Value)
pass.SerialTo = Convert.ToInt32(child.Attribute("SerialTo").Value)
pass.Qty = Convert.ToInt32(child.Attribute("Qty").Value)
pass.Rate = Convert.ToDouble(child.Attribute("Rate").Value)
pass.IssuedQty = Convert.ToInt32(child.Attribute("IssuedQty").Value)
passScroll.Pass = pass

' check it worked
Console.WriteLine("LedgerName = {0}", pass.LedgerName)
Console.WriteLine("SerialFrom = {0}", pass.SerialFrom)
Console.WriteLine("SerialTo = {0}", pass.SerialTo)
Console.WriteLine("Qty = {0}", pass.Qty)
Console.WriteLine("Rate = {0}", pass.Rate)
Console.WriteLine("IssuedQty = {0}", pass.IssuedQty)

End Sub

End Module

The output is:

LedgerName = SB FORMS
SerialFrom = 1
SerialTo = 100
Qty = 10
Rate = 10
IssuedQty = 5