VBS读取XML文件

XML文件:

<?xml version=”1.0″ encoding=”gb2312″?>
<root>
    <list>
        <week>星期一</week>
        <menu1>aaa</menu1>
        <menu2>bbb</menu2>
        <menu3>ccc</menu3>
    </list>
    <list>
        <week>星期二</week>
        <menu1>111</menu1>
        <menu2>222</menu2>
        <menu3>333</menu3>
    </list>
    <list>
        <week>星期三</week>
        <menu1>hello</menu1>
        <menu2>hi</menu2>
        <menu3>en</menu3>
    </list>
</root>

VBS代码:

msgbox GetXML(“menu.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(“//root”)              
    
    num=xmlRoot.childNodes.length-1
        
    For i=0  To num
    
        tmpWeek=xmlRoot.childNodes.item(i).childNodes.item(0).text
        tmpMenu1=xmlRoot.childNodes.item(i).childNodes.item(1).text
        tmpMenu2=xmlRoot.childNodes.item(i).childNodes.item(2).text
        tmpMenu3=xmlRoot.childNodes.item(i).childNodes.item(3).text    
                    
        strXML=strXML & tmpWeek & “:” &    tmpMenu1 & “,” & tmpMenu2 & “,” & tmpMenu3 & vbcrlf        

    Next  
      
    GetXml = strXML
End Function

发表评论

电子邮件地址不会被公开。