JMO9966
asked on
VBA - XML selectNode and/or selectSingleNode help needed.
I have a similar questions posted, but I need to clarify and start again.
Basically I have data in XML format as a DOM Document in memory in my VBA program.
Dim xmlResponseDoc As New DOMDocument40
Dim xmlJobResponse As IXMLDOMNode
Dim xmlJobQueryNode As IXMLDOMNode
Dim xmlFilterNode As IXMLDOMNode
Dim xmlNodeList As IXMLDOMNodeList
Here's the XML data in memory as xmlJobResponse:
<JBXML xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<JBXMLRespond>
<JobQueryRs ErrorCode="0" Message="">
<ID>SDK</ID>
<LastUpdated>2006-11-17T09 :12:00</La stUpdated>
<BuildtoStock>false</Build toStock>
<TimeandMaterial>false</Ti meandMater ial>
<Status>Active</Status>
<Priority>5</Priority>
....
....
.... above is "header" information for a single Job. now is where the question is. A job can have many <RoutingLine> sections similar to below.
....
<RoutingLine>
<ID>1824</ID>
<Priority>5</Priority>
<Sequence>0</Sequence>
<Status>O</Status>
<WorkCenteRef ID="90 PRESS"/>
</RoutingLine>
<RoutingLine>
<ID>1825</ID>
<Priority>5</Priority>
<Sequence>0</Sequence>
<Status>O</Status>
<WorkCenteRef ID="Lathe"/>
</RoutingLine>
</JobQueryRs>
</JBXMLRespond>
</JBXML>
I need to be able to select into memory the RoutingLine.ID(1824 or 1825) based off of the WorkCenterRef ID attribute!
So basically I need to query all routing line sections in this XML Document in memory and select by WorkCenterRef ID ="specified value" and then store the ID from that RoutingLine section.
example:
search for WorkCenterRef ID="Lathe" and return the ID value of 1825
I Know how to selectSingleNode, but I don't know how to return a NodeList or section of an XML document and then access node values in that "section" for my one to many scenario.
THANKS!
JMO9966
Basically I have data in XML format as a DOM Document in memory in my VBA program.
Dim xmlResponseDoc As New DOMDocument40
Dim xmlJobResponse As IXMLDOMNode
Dim xmlJobQueryNode As IXMLDOMNode
Dim xmlFilterNode As IXMLDOMNode
Dim xmlNodeList As IXMLDOMNodeList
Here's the XML data in memory as xmlJobResponse:
<JBXML xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<JBXMLRespond>
<JobQueryRs ErrorCode="0" Message="">
<ID>SDK</ID>
<LastUpdated>2006-11-17T09
<BuildtoStock>false</Build
<TimeandMaterial>false</Ti
<Status>Active</Status>
<Priority>5</Priority>
....
....
.... above is "header" information for a single Job. now is where the question is. A job can have many <RoutingLine> sections similar to below.
....
<RoutingLine>
<ID>1824</ID>
<Priority>5</Priority>
<Sequence>0</Sequence>
<Status>O</Status>
<WorkCenteRef ID="90 PRESS"/>
</RoutingLine>
<RoutingLine>
<ID>1825</ID>
<Priority>5</Priority>
<Sequence>0</Sequence>
<Status>O</Status>
<WorkCenteRef ID="Lathe"/>
</RoutingLine>
</JobQueryRs>
</JBXMLRespond>
</JBXML>
I need to be able to select into memory the RoutingLine.ID(1824 or 1825) based off of the WorkCenterRef ID attribute!
So basically I need to query all routing line sections in this XML Document in memory and select by WorkCenterRef ID ="specified value" and then store the ID from that RoutingLine section.
example:
search for WorkCenterRef ID="Lathe" and return the ID value of 1825
I Know how to selectSingleNode, but I don't know how to return a NodeList or section of an XML document and then access node values in that "section" for my one to many scenario.
THANKS!
JMO9966
ASKER
Thanks EDDYKT,
Okay, I tried calling your subroutine wiith (Call Op) after my ResponseDoc has been built in memory, but I get an run-time 91 error - Object Variable or With Block variable not set when I call the For Each loop in your subroutine.
Here's my code, maybe this will help.
Public Sub Load(jb As JBRequestProcessor, sessionID As String)
'''''''''''''''''''''''''' '''''''''' '
' Retrieve a job from JobBOSS. '
' jb is an active JBXML session. '
' sessionID is the session # of jb. '
' Populate Job properties. '
'''''''''''''''''''''''''' '''''''''' '
Dim xmlRequestdoc As DOMDocument40
Dim xmlResponseDoc As New DOMDocument40
Dim xmlJobResponse As IXMLDOMNode
Dim xmlJobQueryNode As IXMLDOMNode
Dim xmlFilterNode As IXMLDOMNode
Dim xmlNodeList As IXMLDOMNodeList
Dim response As String
Set xmlRequestdoc = newJBXMLRequest(sessionID)
Set xmlJobQueryNode = createJBNode(xmlRequestdoc , "JobQueryRq")
Set xmlFilterNode = createJBNode(xmlRequestdoc , "JobQueryFilter")
xmlJobQueryNode.appendChil d xmlFilterNode
xmlFilterNode.appendChild createJBNode(xmlRequestdoc , "ID", ID)
xmlFilterNode.appendChild createJBNode(xmlRequestdoc , "IncludeAdditionalCharges" , "1")
xmlFilterNode.appendChild createJBNode(xmlRequestdoc , "IncludeDeliveries", "1")
xmlFilterNode.appendChild createJBNode(xmlRequestdoc , "IncludeRoutingLines", "1")
xmlFilterNode.appendChild createJBNode(xmlRequestdoc , "IncludeMaterialRequiremen ts", "1")
xmlFilterNode.appendChild createJBNode(xmlRequestdoc , "IncludeComponents", "1")
xmlRequestdoc.selectSingle Node("JBXM L/JBXMLReq uest").app endChild xmlJobQueryNode
Set xmlFilterNode = Nothing
Set xmlJobQueryNode = Nothing
response = jb.ProcessRequest(xmlReque stdoc.XML)
Set xmlRequestdoc = Nothing
xmlResponseDoc.loadXML response
Call Op ************************** ********** ******here 's where I call your subroutine since my xmlResponseDoc is in memory now
Set xmlJobResponse = xmlResponseDoc.selectSingl eNode("JBX ML/JBXMLRe spond/JobQ ueryRs")
Set xmlResponseDoc = Nothing
these two "selects" work but they are simple single nodes
ID = xmlJobResponse.selectSingl eNode("ID" ).Text
LastUpdated = xmlJobResponse.selectSingl eNode("Las tUpdated") .Text
Private Sub Op()
Dim xmlApps As IXMLDOMElement
Dim xmlDoc As New DOMDocument40
'xmlDoc.Load ("xmlResponseDoc") ' use loadxml if you pass as xml
xmlDoc.loadXML ("xmlResponsedoc")
For Each xmlchild In xmlDoc.selectSingleNode("/ /WorkCente Ref [@ID='Lathe']").parentNode .childNode s *************dies on this line
If (xmlchild.baseName = "ID") Then Debug.Print xmlchild.Text
Next
End Sub
Thanks!
Okay, I tried calling your subroutine wiith (Call Op) after my ResponseDoc has been built in memory, but I get an run-time 91 error - Object Variable or With Block variable not set when I call the For Each loop in your subroutine.
Here's my code, maybe this will help.
Public Sub Load(jb As JBRequestProcessor, sessionID As String)
''''''''''''''''''''''''''
' Retrieve a job from JobBOSS. '
' jb is an active JBXML session. '
' sessionID is the session # of jb. '
' Populate Job properties. '
''''''''''''''''''''''''''
Dim xmlRequestdoc As DOMDocument40
Dim xmlResponseDoc As New DOMDocument40
Dim xmlJobResponse As IXMLDOMNode
Dim xmlJobQueryNode As IXMLDOMNode
Dim xmlFilterNode As IXMLDOMNode
Dim xmlNodeList As IXMLDOMNodeList
Dim response As String
Set xmlRequestdoc = newJBXMLRequest(sessionID)
Set xmlJobQueryNode = createJBNode(xmlRequestdoc
Set xmlFilterNode = createJBNode(xmlRequestdoc
xmlJobQueryNode.appendChil
xmlFilterNode.appendChild createJBNode(xmlRequestdoc
xmlFilterNode.appendChild createJBNode(xmlRequestdoc
xmlFilterNode.appendChild createJBNode(xmlRequestdoc
xmlFilterNode.appendChild createJBNode(xmlRequestdoc
xmlFilterNode.appendChild createJBNode(xmlRequestdoc
xmlFilterNode.appendChild createJBNode(xmlRequestdoc
xmlRequestdoc.selectSingle
Set xmlFilterNode = Nothing
Set xmlJobQueryNode = Nothing
response = jb.ProcessRequest(xmlReque
Set xmlRequestdoc = Nothing
xmlResponseDoc.loadXML response
Call Op **************************
Set xmlJobResponse = xmlResponseDoc.selectSingl
Set xmlResponseDoc = Nothing
these two "selects" work but they are simple single nodes
ID = xmlJobResponse.selectSingl
LastUpdated = xmlJobResponse.selectSingl
Private Sub Op()
Dim xmlApps As IXMLDOMElement
Dim xmlDoc As New DOMDocument40
'xmlDoc.Load ("xmlResponseDoc") ' use loadxml if you pass as xml
xmlDoc.loadXML ("xmlResponsedoc")
For Each xmlchild In xmlDoc.selectSingleNode("/
If (xmlchild.baseName = "ID") Then Debug.Print xmlchild.Text
Next
End Sub
Thanks!
ASKER
Increasing points!
what is your xml looks like?
i use this to test
<JBXML>
<JBXMLRespond>
<JobQueryRs>
<RoutingLine>
<ID>1824</ID>
<Priority>5</Priority>
<Sequence>0</Sequence>
<Status>O</Status>
<WorkCenteRef ID="90 PRESS"/>
</RoutingLine>
<RoutingLine>
<ID>1825</ID>
<Priority>5</Priority>
<Sequence>0</Sequence>
<Status>O</Status>
<WorkCenteRef ID="Lathe"/>
</RoutingLine>
</JobQueryRs>
</JBXMLRespond>
</JBXML>
i use this to test
<JBXML>
<JBXMLRespond>
<JobQueryRs>
<RoutingLine>
<ID>1824</ID>
<Priority>5</Priority>
<Sequence>0</Sequence>
<Status>O</Status>
<WorkCenteRef ID="90 PRESS"/>
</RoutingLine>
<RoutingLine>
<ID>1825</ID>
<Priority>5</Priority>
<Sequence>0</Sequence>
<Status>O</Status>
<WorkCenteRef ID="Lathe"/>
</RoutingLine>
</JobQueryRs>
</JBXMLRespond>
</JBXML>
ASKER
Here's the whole document, this document is in memory and not a physical file while my program runs. Thanks!
<JBXML xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<JBXMLRespond>
<JobQueryRs ErrorCode="0" Message="">
<ID>SDK</ID>
<LastUpdated>2006-11-17T09 :12:00</La stUpdated>
<BuildtoStock>false</Build toStock>
<TimeandMaterial>false</Ti meandMater ial>
<Status>Active</Status>
<Priority>5</Priority>
<CertsReqd>false</CertsReq d>
<LeadDays>2</LeadDays>
<OrderDate>2006-11-17</Ord erDate>
<OrderQty>100</OrderQty>
<UnitPrice>5</UnitPrice>
<PriceUofM>ea</PriceUofM>
<TotalPrice>500</TotalPric e>
<ShippedQty>0</ShippedQty>
<ReturnedQty>0</ReturnedQt y>
<ScrapQty>0</ScrapQty>
<CompletedQty>0</Completed Qty>
<EstimatedTotalHours>33</E stimatedTo talHours>
<EstimatedServiceCost>0</E stimatedSe rviceCost>
<EstimatedLaborCost>880</E stimatedLa borCost>
<EstimatedLaborBurden>0</E stimatedLa borBurden>
<EstimatedMachineBurden>77 0</Estimat edMachineB urden>
<EstimatedGABurden>0</Esti matedGABur den>
<EstimatedMaterial>0</Esti matedMater ial>
<ActualRevenue>0</ActualRe venue>
<ActualHours>0</ActualHour s>
<ActualLaborCost>0</Actual LaborCost>
<ActualLaborBurden>0</Actu alLaborBur den>
<ActualMachineBurden>0</Ac tualMachin eBurden>
<ActualGABurden>0</ActualG ABurden>
<ActualMaterial>0</ActualM aterial>
<Source>0</Source>
<CustomerRef ID="CATINC"/>
<CountactRef ID="0"/>
<ShipToRef ID="2"/>
<TermsCodeRef ID="Net 30 days"/>
<SalesCodeRef ID="Machine Sales"/>
<SalesRepRef ID="JR"/>
<ShipViaRef ID="Consolidated Fr"/>
<UserValues>
<Amount1>0.00</Amount1>
<Amount2>0.00</Amount2>
<Numeric1>0.0</Numeric1>
<Numeric2>0.0</Numeric2>
<Decimal1>0.0</Decimal1>
</UserValues>
<BuildQuantities>
<ExtraQuantity>0</ExtraQua ntity>
<PickQty>0</PickQty>
</BuildQuantities>
<PricingCalculator>
<ProfitorMarkup>M</Profito rMarkup>
<ProfitPercent>15</ProfitP ercent>
<LaborMarkup>20</LaborMark up>
<MaterialMarkup>20</Materi alMarkup>
<ServiceMarkup>20</Service Markup>
<LaborBurdenMarkup>20</Lab orBurdenMa rkup>
<MachineBurdenMarkup>10</M achineBurd enMarkup>
<GABurdenMarkup>10</GABurd enMarkup>
</PricingCalculator>
<PartSpecification>
<PartNumber>PART</PartNumb er>
<Description>test</Descrip tion>
<ScrapPercent>0</ScrapPerc ent>
</PartSpecification>
<RoutingLine>
<ID>1824</ID>
<LastUpdated>2006-11-17T09 :12:01</La stUpdated>
<Priority>5</Priority>
<Sequence>0</Sequence>
<Status>O</Status>
<CompletedQty>0</Completed Qty>
<PercentAttended>100</Perc entAttende d>
<SetUpPercentComplete>0</S etUpPercen tComplete>
<RunPercentComplete>0</Run PercentCom plete>
<EstimateRunTime>20</Estim ateRunTime >
<EstimateTotalTime>22</Est imateTotal Time>
<EstimateSetUpTime>2</Esti mateSetUpT ime>
<SetUpLabor>0</SetUpLabor>
<RunLabor>0</RunLabor>
<LaborBurden>0</LaborBurde n>
<MachineBurden>0</MachineB urden>
<GABurden>0</GABurden>
<ActualRunTime>0</ActualRu nTime>
<ActualSetUpTime>0</Actual SetUpTime>
<ActualTotalTime>0</Actual TotalTime>
<ActualScrapQty>0</ActualS crapQty>
<ReworkRunTime>0</ReworkRu nTime>
<ReworkSetUpTime>0</Rework SetUpTime>
<ReworkSetUpLabor>0</Rewor kSetUpLabo r>
<ReworkRunLabor>0</ReworkR unLabor>
<ReworkGABurden>0</ReworkG ABurden>
<ReworkLaborBurden>0</Rewo rkLaborBur den>
<ReworkMachineBurden>0</Re workMachin eBurden>
<ReworkRunQty>0</ReworkRun Qty>
<ReworkScrapQty>0</ReworkS crapQty>
<RemainingRunTime>20</Rema iningRunTi me>
<RemainingSetUpTime>2</Rem ainingSetU pTime>
<RemainingTotalTime>22</Re mainingTot alTime>
<WorkCenteRef ID="90 PRESS"/>
<SetUpCalculator>
<Hours>2</Hours>
</SetUpCalculator>
<RunTimeCalculator>
<RunMethod>Parts/Hr</RunMe thod>
<Run>5</Run>
<Efficiency>100</Efficienc y>
</RunTimeCalculator>
<OverlapSpecifier>
<Method>Qty</Method>
<Overlap>0</Overlap>
</OverlapSpecifier>
<RouteSchedule>
<StartTime>0</StartTime>
<EndTime>0</EndTime>
</RouteSchedule>
</RoutingLine>
<RoutingLine>
<ID>1825</ID>
<LastUpdated>2006-11-17T09 :12:01</La stUpdated>
<Priority>5</Priority>
<Sequence>1</Sequence>
<Status>O</Status>
<CompletedQty>0</Completed Qty>
<PercentAttended>100</Perc entAttende d>
<SetUpPercentComplete>0</S etUpPercen tComplete>
<RunPercentComplete>0</Run PercentCom plete>
<EstimateRunTime>10</Estim ateRunTime >
<EstimateTotalTime>11</Est imateTotal Time>
<EstimateSetUpTime>1</Esti mateSetUpT ime>
<SetUpLabor>0</SetUpLabor>
<RunLabor>0</RunLabor>
<LaborBurden>0</LaborBurde n>
<MachineBurden>0</MachineB urden>
<GABurden>0</GABurden>
<ActualRunTime>0</ActualRu nTime>
<ActualSetUpTime>0</Actual SetUpTime>
<ActualTotalTime>0</Actual TotalTime>
<ActualScrapQty>0</ActualS crapQty>
<ReworkRunTime>0</ReworkRu nTime>
<ReworkSetUpTime>0</Rework SetUpTime>
<ReworkSetUpLabor>0</Rewor kSetUpLabo r>
<ReworkRunLabor>0</ReworkR unLabor>
<ReworkGABurden>0</ReworkG ABurden>
<ReworkLaborBurden>0</Rewo rkLaborBur den>
<ReworkMachineBurden>0</Re workMachin eBurden>
<ReworkRunQty>0</ReworkRun Qty>
<ReworkScrapQty>0</ReworkS crapQty>
<RemainingRunTime>10</Rema iningRunTi me>
<RemainingSetUpTime>1</Rem ainingSetU pTime>
<RemainingTotalTime>11</Re mainingTot alTime>
<WorkCenteRef ID="LATHE"/>
<SetUpCalculator>
<Hours>1</Hours>
</SetUpCalculator>
<RunTimeCalculator>
<RunMethod>Parts/Hr</RunMe thod>
<Run>10</Run>
<Efficiency>100</Efficienc y>
</RunTimeCalculator>
<OverlapSpecifier>
<Method>Qty</Method>
<Overlap>0</Overlap>
</OverlapSpecifier>
<RouteSchedule>
<StartTime>0</StartTime>
<EndTime>0</EndTime>
</RouteSchedule>
</RoutingLine>
</JobQueryRs>
</JBXMLRespond>
</JBXML>
<JBXML xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<JBXMLRespond>
<JobQueryRs ErrorCode="0" Message="">
<ID>SDK</ID>
<LastUpdated>2006-11-17T09
<BuildtoStock>false</Build
<TimeandMaterial>false</Ti
<Status>Active</Status>
<Priority>5</Priority>
<CertsReqd>false</CertsReq
<LeadDays>2</LeadDays>
<OrderDate>2006-11-17</Ord
<OrderQty>100</OrderQty>
<UnitPrice>5</UnitPrice>
<PriceUofM>ea</PriceUofM>
<TotalPrice>500</TotalPric
<ShippedQty>0</ShippedQty>
<ReturnedQty>0</ReturnedQt
<ScrapQty>0</ScrapQty>
<CompletedQty>0</Completed
<EstimatedTotalHours>33</E
<EstimatedServiceCost>0</E
<EstimatedLaborCost>880</E
<EstimatedLaborBurden>0</E
<EstimatedMachineBurden>77
<EstimatedGABurden>0</Esti
<EstimatedMaterial>0</Esti
<ActualRevenue>0</ActualRe
<ActualHours>0</ActualHour
<ActualLaborCost>0</Actual
<ActualLaborBurden>0</Actu
<ActualMachineBurden>0</Ac
<ActualGABurden>0</ActualG
<ActualMaterial>0</ActualM
<Source>0</Source>
<CustomerRef ID="CATINC"/>
<CountactRef ID="0"/>
<ShipToRef ID="2"/>
<TermsCodeRef ID="Net 30 days"/>
<SalesCodeRef ID="Machine Sales"/>
<SalesRepRef ID="JR"/>
<ShipViaRef ID="Consolidated Fr"/>
<UserValues>
<Amount1>0.00</Amount1>
<Amount2>0.00</Amount2>
<Numeric1>0.0</Numeric1>
<Numeric2>0.0</Numeric2>
<Decimal1>0.0</Decimal1>
</UserValues>
<BuildQuantities>
<ExtraQuantity>0</ExtraQua
<PickQty>0</PickQty>
</BuildQuantities>
<PricingCalculator>
<ProfitorMarkup>M</Profito
<ProfitPercent>15</ProfitP
<LaborMarkup>20</LaborMark
<MaterialMarkup>20</Materi
<ServiceMarkup>20</Service
<LaborBurdenMarkup>20</Lab
<MachineBurdenMarkup>10</M
<GABurdenMarkup>10</GABurd
</PricingCalculator>
<PartSpecification>
<PartNumber>PART</PartNumb
<Description>test</Descrip
<ScrapPercent>0</ScrapPerc
</PartSpecification>
<RoutingLine>
<ID>1824</ID>
<LastUpdated>2006-11-17T09
<Priority>5</Priority>
<Sequence>0</Sequence>
<Status>O</Status>
<CompletedQty>0</Completed
<PercentAttended>100</Perc
<SetUpPercentComplete>0</S
<RunPercentComplete>0</Run
<EstimateRunTime>20</Estim
<EstimateTotalTime>22</Est
<EstimateSetUpTime>2</Esti
<SetUpLabor>0</SetUpLabor>
<RunLabor>0</RunLabor>
<LaborBurden>0</LaborBurde
<MachineBurden>0</MachineB
<GABurden>0</GABurden>
<ActualRunTime>0</ActualRu
<ActualSetUpTime>0</Actual
<ActualTotalTime>0</Actual
<ActualScrapQty>0</ActualS
<ReworkRunTime>0</ReworkRu
<ReworkSetUpTime>0</Rework
<ReworkSetUpLabor>0</Rewor
<ReworkRunLabor>0</ReworkR
<ReworkGABurden>0</ReworkG
<ReworkLaborBurden>0</Rewo
<ReworkMachineBurden>0</Re
<ReworkRunQty>0</ReworkRun
<ReworkScrapQty>0</ReworkS
<RemainingRunTime>20</Rema
<RemainingSetUpTime>2</Rem
<RemainingTotalTime>22</Re
<WorkCenteRef ID="90 PRESS"/>
<SetUpCalculator>
<Hours>2</Hours>
</SetUpCalculator>
<RunTimeCalculator>
<RunMethod>Parts/Hr</RunMe
<Run>5</Run>
<Efficiency>100</Efficienc
</RunTimeCalculator>
<OverlapSpecifier>
<Method>Qty</Method>
<Overlap>0</Overlap>
</OverlapSpecifier>
<RouteSchedule>
<StartTime>0</StartTime>
<EndTime>0</EndTime>
</RouteSchedule>
</RoutingLine>
<RoutingLine>
<ID>1825</ID>
<LastUpdated>2006-11-17T09
<Priority>5</Priority>
<Sequence>1</Sequence>
<Status>O</Status>
<CompletedQty>0</Completed
<PercentAttended>100</Perc
<SetUpPercentComplete>0</S
<RunPercentComplete>0</Run
<EstimateRunTime>10</Estim
<EstimateTotalTime>11</Est
<EstimateSetUpTime>1</Esti
<SetUpLabor>0</SetUpLabor>
<RunLabor>0</RunLabor>
<LaborBurden>0</LaborBurde
<MachineBurden>0</MachineB
<GABurden>0</GABurden>
<ActualRunTime>0</ActualRu
<ActualSetUpTime>0</Actual
<ActualTotalTime>0</Actual
<ActualScrapQty>0</ActualS
<ReworkRunTime>0</ReworkRu
<ReworkSetUpTime>0</Rework
<ReworkSetUpLabor>0</Rewor
<ReworkRunLabor>0</ReworkR
<ReworkGABurden>0</ReworkG
<ReworkLaborBurden>0</Rewo
<ReworkMachineBurden>0</Re
<ReworkRunQty>0</ReworkRun
<ReworkScrapQty>0</ReworkS
<RemainingRunTime>10</Rema
<RemainingSetUpTime>1</Rem
<RemainingTotalTime>11</Re
<WorkCenteRef ID="LATHE"/>
<SetUpCalculator>
<Hours>1</Hours>
</SetUpCalculator>
<RunTimeCalculator>
<RunMethod>Parts/Hr</RunMe
<Run>10</Run>
<Efficiency>100</Efficienc
</RunTimeCalculator>
<OverlapSpecifier>
<Method>Qty</Method>
<Overlap>0</Overlap>
</OverlapSpecifier>
<RouteSchedule>
<StartTime>0</StartTime>
<EndTime>0</EndTime>
</RouteSchedule>
</RoutingLine>
</JobQueryRs>
</JBXMLRespond>
</JBXML>
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Thank You EDDYKT.
I will test this out and let you know, I've accepted for now. I apologize, I've been out of town.
JMO9966
I will test this out and let you know, I've accepted for now. I apologize, I've been out of town.
JMO9966
Dim xmlApps As IXMLDOMElement
Dim xmlDoc As New DOMDocument40
xmlDoc.Load ("yourxmlfile") ' use loadxml if you pass as xml
For Each xmlchild In xmlDoc.selectSingleNode("/
If (xmlchild.baseName = "ID") Then Debug.Print xmlchild.Text
Next
End Sub