[英]How do I read specific XML File section - VB.Net
請看下面的 XML
<MessageHeader>
<Master branch_name="ABCD" ref_date="2020-09-23 11:43:46" refno="1">
<mbl_no>1234566</mbl_no>
<mbl_date>2020-08-25 00:00:00</mbl_date>
<agent_code>XXXXX</agent_code>
<agent_name>XXXX YYYYY</agent_name>
<carrier_code>1234</carrier_code>
<carrier_name>XXXXX</carrier_name>
<pol_code>XXX1234</pol_code>
<pol_name>XXXX,YYYY</pol_name>
<HouseBill>
<House slno="1" house_no="XXDEL233695">
<shipper_code>3023233324</shipper_code>
<shipper_name>..Shipper Name...</shipper_name>
<shipper_add1>... Address 1... </shipper_add1>
<shipper_add2>... Address 2...</shipper_add2>
<shipper_add3/>
<shipper_add4/>
</House>
</HouseBill>
</Master>
</MessageHeader>
我正在嘗試使用以下代碼將此信息讀入數據集:
Dim xmlFile As XmlReader
Dim importFileName As String = "C:\107.xml"
xmlFile = XmlReader.Create(importFileName, New XmlReaderSettings())
Dim ds As New DataSet
ds.ReadXml(xmlFile)
這對我很有用,我可以這樣訪問列:
Dim shipperName As String = ds.tables("House").rows(x).Item("shipper_name").tostring()
我的問題是如何從父節點訪問諸如 slno 和 house_no 項之類的項?
謝謝
沒有數據集
Dim xmlFile As XElement
Dim importFileName As String = "C:\107.xml"
' xmlFile = XElement.Load(importFileName)
'for testing use litersl
xmlFile = <MessageHeader>
<Master branch_name="ABCD" ref_date="2020-09-23 11:43:46" refno="1">
<mbl_no>1234566</mbl_no>
<mbl_date>2020-08-25 00:00:00</mbl_date>
<agent_code>XXXXX</agent_code>
<agent_name>XXXX YYYYY</agent_name>
<carrier_code>1234</carrier_code>
<carrier_name>XXXXX</carrier_name>
<pol_code>XXX1234</pol_code>
<pol_name>XXXX,YYYY</pol_name>
<HouseBill>
<House slno="1" house_no="XXDEL233695">
<shipper_code>3023233324</shipper_code>
<shipper_name>..Shipper Name...</shipper_name>
<shipper_add1>... Address 1... </shipper_add1>
<shipper_add2>... Address 2...</shipper_add2>
<shipper_add3/>
<shipper_add4/>
</House>
</HouseBill>
</Master>
</MessageHeader>
Dim shipperName As String = xmlFile.<Master>.<HouseBill>.<House>.<shipper_name>.Value
Dim slno As String = xmlFile.<Master>.<HouseBill>.<House>.@slno
Dim house_no As String = xmlFile.<Master>.<HouseBill>.<House>.@house_no
用於生產
Dim xmlFile As XElement
Dim importFileName As String = "C:\107.xml"
xmlFile = XElement.Load(importFileName)
Dim shipperName As String = xmlFile.<Master>.<HouseBill>.<House>.<shipper_name>.Value
Dim slno As String = xmlFile.<Master>.<HouseBill>.<House>.@slno
Dim house_no As String = xmlFile.<Master>.<HouseBill>.<House>.@house_no
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.