Get value of each attribute in paricular object

Question

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

Vulpes · Answer

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 rao · Answer

How to use for each for it check all data node in string xml ?

kalu singh rao · Answer

If i have multiple node in string xml then how can check everydata. Like i have this string xml.

Vulpes · Answer

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