0

我正在考虑在 Visual Basic 中处理 xml 文件。当我使用 DOMDOCUMENT visual basic 尝试它时显​​示错误。它无法识别 domdocument 是什么。我是否必须调用任何库才能使其正常工作。看看我的代码

Attribute VB_Name = "Module1"
Function getDistance(Origin As String, Destination As String) As Double
    Dim HttpReq As Object
    Dim myDomDoc As DOMDocument60
    Dim distanceNode As IXMLDOMNode
    Set HttpReq = CreateObject("MSXML2.XMLHTTP")
    HttpReq.Open "GET", "http://maps.googleapis.com/maps/api/distancematrix/xml?origins=" & Origin & "&destinations=" & Destination & "&sensor=false", False
    HttpReq.send
    MsgBox HttpReq.responseText
    Set myDomDoc = New DOMDocument60
    myDomDoc.LoadXML HttpReq.responseText
    Set distanceNode = myDomDoc.SelectSingleNode("/DistanceMatrixResponse/row/element/distance/value")
    getDistance = distanceNode.Text / 1000
End Function
4

1 回答 1

0

项目参考:

System.XML

添加Imports System.Xml到您的进口清单

创建一个类似于以下内容的变量:

Dim MyXMLDoc As New XmlDocument

要加载文档,请使用:

 MyXMLDoc.Load("Document path here")

要读取与此类似的节点,应该可以:

Dim Items as Xml.XmlNodeList = MyXMLDoc.SelectNodes("ParentNode/ChildNodes")
Dim Item as Xml.XmlNode
Try
  For Each Item in Items
    Dim randomstring As String = Item.GetAttributes.GetNamedItem("ItemName").value
  Next
Catch ex As Exception
End Try

ETC...

希望这有点用

于 2013-03-02T04:53:12.310 回答