我需要写一个VBS读取以下格式XML的内容,期中inum="846051000004226"处理不了,请问哪位朋友可以帮忙看一下.
2016-09-01T00:01:11.056
23
31642191, 39107
39901
00001127871472659262
<
/result>
2016-09-01T00:01:11.254
27
31642191, 39104
39901
00001127881472659264
2016-09-01T00:01:22.233
17
31642191, 39105
39901
00001127891472659279
msgbox GetXML("AA.xml")
Function GetXml (ByVal strXmlFilePath)
Dim xmlDoc,xmlRoot
Dim num
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = False
xmlDoc.load strXmlFilePath
If xmlDoc.parseError.errorCode <> 0 Then
GetXml "Error:" & Chr(13) & xmlDoc.parseError.reason
Exit Function
End If
Set xmlRoot = xmlDoc.documentElement.selectSingleNode("//results")
num=xmlRoot.childNodes.length-1
For i=0 To num
tmpInum=""
tmpStartedat=xmlRoot.childNodes.item(i).childNodes.item(0).text
tmpDuration=xmlRoot.childNodes.item(i).childNodes.item(1).text
tmpOtherparties=xmlRoot.childNodes.item(i).childNodes.item(2).text
tmpSkills=xmlRoot.childNodes.item(i).childNodes.item(3).text
tmpSwitchcallid=xmlRoot.childNodes.item(i).childNodes.item(4).text
strXML=strXML & i & "," & tmpInum & "," & tmpStartedat & "," & tmpDuration & "," & tmpOtherparties & "," & tmpSkills & "," & tmpSwitchcallid & vbcrlf
Next
GetXml = strXML
End Function