vb 读取xml文件

    Dim strPage As String   '接收页面
    Dim xDoc As Object
    Dim xmlFile As String

   Set xDoc = CreateObject("MSXML2.DOMDocument")
   xmlFile = App.Path & "version.xml"
   xDoc.Load xmlFile
 
   strPage = xDoc.selectSingleNode("versions").selectSingleNode("accept").Attributes(0).Text

version.xml

<?xml version="1.0" encoding="utf-8" ?> 
 <versions>
 <accept version1="/HRRY/Data/netaccept.aspx method=post" version2="/agent/upload.do?method=upload"  /> 
 <get version1="/HRRY/Data/Netresult.aspx " version2="/agent/upload.do?method=upload" />
  </versions>




    
        
 

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!