FOR loop with xml

[buddyel]

Does anyone know if it is possible to do a for loop with an xml file. We have an old basic program that does a for loop to find a certain line in a text file (it is based up a calculation that determines how far to search into the file)? Thanks in advance...

 

[Tarwn]

Do you mean using an XSL or a language specific parsing package?
XSL has the

<xsl:for-each>

tag that will loop through a file performing whatever actions based ona valid match. Most XML parsers generally allow a similar functionality (in VB you can use element.SelectNodes("nodename&quot, than loop through returned list of objects). It should be possible with any xml parser.
-Tarwn "The problem with a kludge is eventually you're going to have to back and do it right." - Programmers Saying (The Wiz Biz - Rick Cook)
"Your a geek!" - My Girlfriends saying

 

[buddyel]

The old code looks roughly like this:
Open "wiredata.txt" for Input as #1
For NN% = 0 to N%
Input #1,WireGauge,WireTurns
Next NN%
txtOutput.Text = "Wire Gage : " & WireGauge & " Turns: " & WireTurns
Close #1

Wiredata.txt looks like:
"3/16x63",1.25
"3/16x63",2.00
"3/16x5",3.00
...

wiredata.xml looks like:
<wires>
<wire>
<guage>3/16x63</gauge>
<turns>1.25</turns>
</wire>
...
</wires>

I was just wondering if there was a way to do code similar to the FOR statement listed above having the code scan the <wire> elements instead of each new line , is it possible ???

 

[JOLESEN]

You need an XML-Parser that you can call from the Basic environment (MSXML is fine with VB)
/JOlesen

 

[Graywolf001]

i'm building a project using the MSXML parser on IIS for ASP pages. this is a small example in VBScript of how you may be able to do what you're asking:

dim rootNode
dim baseNode
dim wireNode
dim listNode
dim nodeList
dim strGauge
dim strTurns
dim strOut  

set rootNode = objXML.documentElement
set baseNode = rootNode.selectSingleNode("//wires")

set nodeList = baseNode.getElementsByTagName("//wire")
for each wireNode in nodeList
  for each listNode in targetNode.childNodes
    if listNode.nodeName = "gauge" then
      strGauge = "Wire Gauge: " & listNode.text
    elseif listNode.nodeName = "turns" then
      strTurns = " Turns: " & listNode.text
    end if
  next
next

there's more info about this parser on microsoft's msdn website:

http://msdn.microsoft.com/library/d...xmlsdk30/htm/xmmscxmlreference.asp?frame=true

hope i was a help.