How can I parse the component elements per partList in the following xml
file? If I remove the namespace section of the xml my code works. I am not
sure why the namespace section impacts my code? Of course when I remove the
namespace I section I change the selectnode reference accordingly.
<?xml version="1.0"?>
<workOrderRelea sed
xmlns="http://www.qad.com/qdoc"
xmlns:enc="http ://www.w3.org/2002/12/soap-encoding"
xmlns:qcom="htt p://www.qad.com/qdoc/common"
xmlns:xsi="http ://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocat ion="workOrderR eleasedWithComm ents-JITS17_1.xsd">
<workOrderRelea sed>
<corhOrderNumbe r>O1564</corhOrderNumber >
<corhSequenceNu mber>1564</corhSequenceNum ber>
<prdfId>Seat Set</prdfId>
<workOrder>
<wordId>2004112 6-00004403-00000000</wordId>
<wordDescriptio n>System Generated</wordDescription >
<wordBatchQty>1 </wordBatchQty>
<wordPreSchedul eKey>2004060114 2450-00001567</wordPreSchedule Key>
<wordBatchIdSch ed>1999</wordBatchIdSche d>
<wordBatchSeria lSched>1</wordBatchSerial Sched>
<wordReleaseOrd er>52</wordReleaseOrde r>
<wordPackOrder> 0</wordPackOrder>
<wordProcessSta tus>R</wordProcessStat us>
<wordProduction Status>R</wordProductionS tatus>
<wordBackflushS tatus>U</wordBackflushSt atus>
<wordPackStatus >U</wordPackStatus>
<wordHold>false </wordHold>
<wordCreatedDat e>2004-11-26</wordCreatedDate >
<wordCreatedTim e>10:25:05</wordCreatedTime >
<wordUpdatedDat e>2004-11-26</wordUpdatedDate >
<wordUpdatedTim e>11:50:57</wordUpdatedTime >
<wordReleaseDat e>2004-11-26</wordReleaseDate >
<wordReleaseTim e>11:08:58</wordReleaseTime >
</workOrder>
<partList>
<partId>1004872 </partId>
<paldQty>1</paldQty>
<paldSkipBackfl ush>false</paldSkipBackflu sh>
<attributeLis t>
<attributeType> BROADCASTSTRING-0</attributeType>
<attnId>LeftSea t</attnId>
<attvId>Yes</attvId>
</attributeList>
<componentLis t>
<partId>1004872 </partId>
<bomsQtyPer>1 </bomsQtyPer>
</componentList>
<componentLis t>
<partId>10048 72-A</partId>
<bomsQtyPer>1 </bomsQtyPer>
</componentList>
<componentLis t>
<partId>10048 72-B</partId>
<bomsQtyPer>1 </bomsQtyPer>
</componentList>
<componentLis t>
<partId>10048 72-C</partId>
<bomsQtyPer>1 </bomsQtyPer>
</componentList>
</partList>
<partList>
<partId>1004883 </partId>
<paldQty>1</paldQty>
<paldSkipBackfl ush>false</paldSkipBackflu sh>
<attributeLis t>
<attributeType> BROADCASTSTRING-1</attributeType>
<attnId>RightSe at</attnId>
<attvId>Yes</attvId>
</attributeList>
<componentLis t>
<partId>1004883 </partId>
<bomsQtyPer>1 </bomsQtyPer>
</componentList>
<componentLis t>
<partId>10048 83-A</partId>
<bomsQtyPer>1 </bomsQtyPer>
</componentList>
<componentLis t>
<partId>10048 83-B</partId>
<bomsQtyPer>1 </bomsQtyPer>
</componentList>
<componentLis t>
<partId>10048 83-C</partId>
<bomsQtyPer>1 </bomsQtyPer>
</componentList>
<componentLis t>
<partId>10048 83-D</partId>
<bomsQtyPer>1 </bomsQtyPer>
</componentList>
</partList>
</workOrderReleas ed>
</workOrderReleas ed>
Dim nsmgr As XmlNamespaceMan ager
nsmgr = New XmlNamespaceMan ager(objXMLDoc. NameTable)
nsmgr.AddNamesp ace("qd", "http://www.qad.com/qdoc")
'nsmgr.AddNames pace("enc", "http://www.w3.org/2002/12/soap-encoding")
'nsmgr.AddNames pace("qcom", "http://www.qad.com/qdoc/common")
'nsmgr.AddNames pace("xsi",
"http://www.w3.org/2001/XMLSchema-instance")
Dim eResults As XmlNode
eResults = objXMLDoc.Docum entElement
Dim nodes As XmlNodeList
'nodes =
eResults.Select Nodes("/workOrderReleas ed/workOrderReleas ed/partList")
nodes =
eResults.Select Nodes("/qd:workOrderRel eased/qd:workOrderRel eased/qd:partList", nsmgr)
Dim sspartId As String = objXMLDoc.NameT able.Get("partI d")
Dim spaldQty As String = objXMLDoc.NameT able.Get("paldQ ty")
Dim spaldSkipBackfl ush As String =
objXMLDoc.NameT able.Get("paldS kipBackflush")
Dim nattributeType As String =
objXMLDoc.NameT able.Get("attri buteType")
Dim nattnId As String = objXMLDoc.NameT able.Get("attnI d")
Dim nattvId As String = objXMLDoc.NameT able.Get("attvI d")
Dim spartId As String = objXMLDoc.NameT able.Get("partI d")
Dim sbomsQtyPer As String = objXMLDoc.NameT able.Get("bomsQ tyPer")
oNodes = objXMLDoc.GetEl ementsByTagName ("componentList ")
Dim oNodeCount = oNodes.Count
oNodes = objXMLDoc.GetEl ementsByTagName ("partList")
Dim pcount = oNodes.Count
ReDim partListArray(p count, 3)
ReDim componentListAr ray(pcount, oNodeCount, 2)
Dim arrayPos_0 = 0
Dim arrayPos_1 = 0
If (Not nodes Is Nothing) Then
Console.WriteLi ne("Number of interactions = " & CStr(nodes.Coun t))
For Each eInteraction As XmlNode In nodes
Dim ePchild As XmlNode = eInteraction.Fi rstChild
Dim ppartId As String
Dim paldQty As String
Dim paldSkipBackflu sh As String
While (Not ePchild Is Nothing)
If (ePchild.NodeTy pe = XmlNodeType.Ele ment) Then
If ePchild.LocalNa me = sspartId Then
ppartId = ePchild.FirstCh ild.Value
partListArray(a rrayPos_0, 0) = ppartId
ElseIf ePchild.LocalNa me = spaldQty Then
paldQty = ePchild.FirstCh ild.Value
partListArray(a rrayPos_0, 1) = paldQty
ElseIf ePchild.LocalNa me = spaldSkipBackfl ush Then
paldSkipBackflu sh = ePchild.FirstCh ild.Value
partListArray(a rrayPos_0, 2) = paldSkipBackflu sh
End If
End If
ePchild = ePchild.NextSib ling
End While
Console.WriteLi ne(partListArra y(arrayPos_0, 0) & " : " &
partListArray(a rrayPos_0, 1) & " : " & partListArray(a rrayPos_0, 2))
Dim nodesInner As XmlNodeList
'nodesInner =
eInteraction.Se lectNodes("/qd:workOrderRel eased/qd:workOrderRel eased/qd:partList/qd:componentLis t", nsmgr)
nodesInner =
eInteraction.Fi rstChild("/qd:componentLis t").SelectNodes ("/qd:components",
nsmgr)
Dim x = nodesInner.Coun t
If (Not nodesInner Is Nothing) Then
For Each ePoint As XmlNode In nodesInner
Dim eChild As XmlNode = ePoint.FirstChi ld
Dim attributeType As String
Dim attnId As String
Dim attvId As String
Dim partId As String
Dim bomsQtyPer As String
While (Not eChild Is Nothing)
If (eChild.NodeTyp e = XmlNodeType.Ele ment) Then
If eChild.LocalNam e = nattributeType Then
attributeType = eChild.FirstChi ld.Value
ElseIf eChild.LocalNam e = nattnId Then
attnId = eChild.FirstChi ld.Value
ElseIf eChild.LocalNam e = nattvId Then
attvId = eChild.FirstChi ld.Value
ElseIf eChild.LocalNam e = spartId Then
partId = eChild.FirstChi ld.Value
componentListAr ray(arrayPos_0,
arrayPos_1, 0) = partId
ElseIf eChild.LocalNam e = sbomsQtyPer Then
bomsQtyPer = eChild.FirstChi ld.Value
componentListAr ray(arrayPos_0,
arrayPos_1, 1) = bomsQtyPer
End If
End If
eChild = eChild.NextSibl ing
End While
Console.WriteLi ne("component = " & arrayPos_0 & " :
" & arrayPos_1 & " : " & partId & " : " & bomsQtyPer)
arrayPos_1 = arrayPos_1 + 1
Next
arrayPos_0 = arrayPos_0 + 1
arrayPos_1 = 0
End If
Next
End If
Thank you
Jack
