asmis24 2016-09-03 06:55 采纳率: 0%
浏览 852

vbs读取xml值失败,请问怎么处理.

我需要写一个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

  • 写回答

1条回答 默认 最新

  • asmis24 2016-09-03 08:03
    关注

    tmpInum=xmlRoot.childNodes.item(i).attributes.getNamedItem("inum").text

    评论

报告相同问题?

悬赏问题

  • ¥20 iqoo11 如何下载安装工程模式
  • ¥15 本题的答案是不是有问题
  • ¥15 关于#r语言#的问题:(svydesign)为什么在一个大的数据集中抽取了一个小数据集
  • ¥15 C++使用Gunplot
  • ¥15 这个电路是如何实现路灯控制器的,原理是什么,怎么求解灯亮起后熄灭的时间如图?
  • ¥15 matlab数字图像处理频率域滤波
  • ¥15 在abaqus做了二维正交切削模型,给刀具添加了超声振动条件后输出切削力为什么比普通切削增大这么多
  • ¥15 ELGamal和paillier计算效率谁快?
  • ¥15 蓝桥杯单片机第十三届第一场,整点继电器吸合,5s后断开出现了问题
  • ¥15 file converter 转换格式失败 报错 Error marking filters as finished,如何解决?