Question

I have the following XML document which I would like to parse into a DataSet.

<?xml version="1.0" encoding="UTF-8" standalone="yes" ?> 
<Response Status="OK">
  <Item>
    <Field Name="ID">767147519</Field> 
    <Field Name="Name">Music</Field> 
    <Field Name="Path">Family\Music</Field> 
    <Field Name="Type">Playlist</Field> 
  </Item>
</Response>

I am wanting to get the attribute values for ID, Name, and Path.

The following is what I have attempted:

Dim loaded As XDocument = XDocument.Load(uriString)
Dim name = From c In loaded.Descendants("Item") Select c
For Each result In name
  Dim str1 = result.Attribute("ID").Value 'Returns Nothing and causes a validation error
  Dim str2 = result.Value ' Returns all the attribute values in one long string (ie "767147519MusicFamilyPlaylist")
Next

Any help would be greatly appreciated.

Thanks,

Matt

EDIT:

Following one of the answers below, I have been attempting to implement an anonymous type in my Linq, however I keep encountering the error

Object reference not set to an
instance of an object.

My updated code is as follows:

Dim name = From c In loaded.Descendants("Item") Select c Select sID = c.Element("Field").Attribute("Name").Value, sName = c.Attribute("ID").Value.FirstOrDefault
Dim Id As String = String.Empty
For Each result In name
  Id = result.sID
Next

I think this error means that the attribute (“ID”) cannot be located, so I have attempted several variations of this with similar results.

Is anyone able to identify where I am going wrong and point me in the right direction.

Thanks,

Matt

Answer 1

After some further research and with the assistance of parts from the answers provided, I have come up with the following, which returns the information that I am after.

Dim Query = From items In loaded.Descendants("Item") _   
Let sID = ( From q In items.Descendants("Field") _       
Where q.Attribute("Name").Value = "ID" ) _ 
Let sName = ( From r In items.Descendants("Field") _       
Where r.Attribute("Name").Value = "Name" ) _ 
Let sPath = ( From s In items.Descendants("Field") _       
Where s.Attribute("Name").Value = "Path" ) _ 
Where (Ctype(sPath.Value,String) Like "Family\*") _
Select pId=sID.Value, pName=sName.Value, pPath = sPath.Value

If this can be improved in any way to enable better performance, please let me know.

Thank you all for your assistance, while no one answer was able to entirely solve the problem I was able to learn a great deal about Linq through everyones assistance.

Matt