xml - 每个循环的vbscript到for循环

Question

嗨，我已经用VBScript编写了一个程序，现在我想用For Each循环替换For循环。

For Each node In objMSXML.selectNodes(sXPath)                   
    Set li = document.createElement("li")
    li.innerText = i & " " & node.text
    ul.appendChild li
    i = i +1
Next

我无法弄清楚，因为我还需要知道从Xpath返回的节点数。

Answer 1

.SelectNodes（）返回的节点列表是一个具有.length属性的集合，可以使用从零开始的整数索引来遍历：

Option Explicit

Dim oFS    : Set oFS  = CreateObject("Scripting.FileSystemObject")
Dim sFSpec : sFSpec   = oFS.GetAbsolutePathName("..\data\33921005.xml")
Dim oXML   : Set oXML = CreateObject("Msxml2.DOMDocument.6.0")
oXML.load sFSpec
If 0 = oXML.parseError Then
   Dim ndlName : Set ndlName = oXML.selectNodes("/Envelope/Body/Request/individual/hasName/*")
   Dim ndName
   For Each ndName In ndlName
       WScript.Echo ndName.tagName
   Next
   Dim iNd
   For iNd = 0 To ndlName.length - 1
       WScript.Echo iNd, ndlName(iNd).tagName
   Next
Else
   WScript.Echo oXML.parseError.reason
End If

输出：

cscript 36053711.vbs
firstName
lastName
0 firstName
1 lastName