Read through XML in VB.NET

Question

0.00/5 (No votes)

See more:

Hi Everyone,
I could really do with some help here. I know f all about xml and I need to do something with xml. Below you will see the XML content. I need to read the following

CustomerPartDescription
ComponentPart
Product Key
SerialNo

The below xml has only one part on it but there could be mutiple parts with their own product key and serialno in the xml file.
Please if anyone has time could they help taking into account I know more than little about XML

<?xml version="1.0" encoding="UTF-16"?>
<OrderLoadData>
<VariableData>
<VariableData>
<Header>
<ClientOrderNo>6504271201</ClientOrderNo>
<EMail/>
<PONumber>J071.3.5.0.26698</PONumber>
<RSNComment/>
<PONumber300>3007557587</PONumber300>
<RSNPODate>20190111</RSNPODate>
</Header>
<Lines>
<Line>
<CustomerLineItemNo>000010</CustomerLineItemNo>
<CustomerLineItemNoTrim>10</CustomerLineItemNoTrim>
<PoLineItemNumber>000010</PoLineItemNumber>
<SPSPartNumber>9527-I5PRLUSBINTM [PN-516445]</SPSPartNumber>
<SAPMaterialNumber/>
<RFF05LI/>
<RFF05SE/>
<MktNo/>
<Quantity ordered="5"/>
<CountryOfOrigin>CA</CountryOfOrigin>
<pre><?xml version="1.0" encoding="UTF-16"?>
<OrderLoadData>
<VariableData>
<VariableData>
<Header>
<ClientOrderNo>6504271201</ClientOrderNo>
<EMail/>
<PONumber>J071.3.5.0.26698</PONumber>
<RSNComment/>
<PONumber300>3007557587</PONumber300>
<RSNPODate>20190111</RSNPODate>
</Header>
<Lines>
<Line>
<CustomerLineItemNo>000010</CustomerLineItemNo>
<CustomerLineItemNoTrim>10</CustomerLineItemNoTrim>
<PoLineItemNumber>000010</PoLineItemNumber>
<SPSPartNumber>9527-I5PRLUSBINTM [PN-516445]</SPSPartNumber>
<SAPMaterialNumber/>
<RFF05LI/>
<RFF05SE/>
<MktNo/>
<Quantity ordered="5"/>
<CountryOfOrigin>CA</CountryOfOrigin>
<RegisterTo>
<ContactName/>
<Address1>JON DOE</Address1>
<Address2>Timbucktwo</Address2>
<Address3/>
<Address4/>
<Address5>Earth</Address5>
</RegisterTo>
<PickHeaderId/>
<Installs>001</Installs>
<SellingPrice>18</SellingPrice>
<Components>
<Component>
<ComponentItemNo>1</ComponentItemNo>
<BomItemCount/>
<CustomerPartDecription>ISaGRAF5 Essential Unlimited USB MED S/W</CustomerPartDecription>
<ComponentPart>9527-I5PRLUSBINTM [PN-516445]</ComponentPart>
<Installs>1</Installs>
<Revision>5.22.00</Revision>
<LicenseType>N/A</LicenseType>
<ActivationType>NP</ActivationType>
<LifeTimeExpiration>PERMANENT</LifeTimeExpiration>
<Comments/>
<TermEndDate/>
<TermDays>0000</TermDays>
<Comments/>
<RssType>N</RssType>
<Platform>Y</Platform>
<SerialDetails>
<SerialDetail>
<ComponentLineItemNo>1</ComponentLineItemNo>
<SerialNumberRecord>1</SerialNumberRecord>
<ProductKey>RRRRRRR</ProductKey>
<SerialNo>OOOOOOO</SerialNo>
</SerialDetail>
<SerialDetail>
<ComponentLineItemNo>2</ComponentLineItemNo>
<SerialNumberRecord>2</SerialNumberRecord>
<ProductKey>PPPPPPP</ProductKey>
<SerialNo>UUUUUUU</SerialNo>
</SerialDetail>
<SerialDetail>
<ComponentLineItemNo>3</ComponentLineItemNo>
<SerialNumberRecord>3</SerialNumberRecord>
<ProductKey>NNNNNNN</ProductKey>
<SerialNo>QQQQQQQ</SerialNo>
</SerialDetail>
<SerialDetail>
<ComponentLineItemNo>4</ComponentLineItemNo>
<SerialNumberRecord>4</SerialNumberRecord>
<ProductKey>DDDDDDD</ProductKey>
<SerialNo>WWWWWWW</SerialNo>
</SerialDetail>
<SerialDetail>
<ComponentLineItemNo>5</ComponentLineItemNo>
<SerialNumberRecord>5</SerialNumberRecord>
<ProductKey>YYYYYYY</ProductKey>
<SerialNo>XXXXXXX</SerialNo>
</SerialDetail>
</SerialDetails>
</Component>
</Components>
<Description>ISaGRAF5 Essential Unlimited USB MED S/W</Description>
</Line>
</Lines>
<Details>
<OrderDate/>
</Details>
</VariableData>
</VariableData>
</OrderLoadData>

What I have tried:

Searched web but not sure how to use what I found

Posted 14-Jan-19 5:08am

johnjsm

Updated 14-Jan-19 5:36am

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Accepted Answer · 2019-01-14T05:37:00

You can do it in few ways, through:
1) XDocument class[^]
2) XmlDocument class[^]
3) XmlSerialization[^]

For further details, please see:
Parsing XML (Visual Basic) | Microsoft Docs[^]
HOW TO: Read XML Data into a DataSet by Using Visual Basic .NET[^]
How to: Access XML Descendant Elements (Visual Basic) | Microsoft Docs[^]

Example:

VB.NET

Dim xdoc As XDocument = XDocument.Load("FullFileNameHere.xml")
	Dim myData = xdoc.Descendants("Component") _
		.Select(Function(x) New With _
			{ _
				.CustomerPartDescription = x.Element("CustomerPartDecription").Value, _
				.ComponentPart = x.Element("ComponentPart").Value, _
				.ProductKey = x.Descendants("SerialDetail").Select(Function(y) y.Element("ProductKey").Value).ToList(), _
				.SerialNo = x.Descendants("SerialDetail").Select(Function(y) y.Element("SerialNo").Value).ToList() _
			})

Returns:

CustomerPartDescription                      ComponentPart             ProductKey SerialNo
ISaGRAF5 Essential Unlimited USB MED S/W     9527-I5PRLUSBINTM [PN-516445]     RRRRRRR     OOOOOOO
                                                                               PPPPPPP     UUUUUUU
                                                                               NNNNNNN     QQQQQQQ
                                                                               DDDDDDD     WWWWWWW     
                                                                               YYYYYYY     XXXXXXX