使用vb.net访问XMLnodelist中的项
我已经获得了一个vb.net XML节点列表,已交付: 我只想把两个位置扔到谷歌地图上,然后得到它们之间的距离(以公里为单位)。如果你有另一种方法,我期待着看到它 致以最良好的祝愿,使用vb.net访问XMLnodelist中的项,vb.net,xmlnodelist,Vb.net,Xmlnodelist,我已经获得了一个vb.net XML节点列表,已交付: 我只想把两个位置扔到谷歌地图上,然后得到它们之间的距离(以公里为单位)。如果你有另一种方法,我期待着看到它 致以最良好的祝愿, Stefan这里是一个简化的测试用例示例(控制台应用程序): 参考: 另一件事-您是否尝试过使用WebClient.DownloadString?谢谢-这对我很有帮助,现在我有了一个良好的开始来改进 <?xml version="1.0" encoding="UTF-8"?> <Distanc
Stefan这里是一个简化的测试用例示例(控制台应用程序): 参考:
WebClient.DownloadString
?谢谢-这对我很有帮助,现在我有了一个良好的开始来改进
<?xml version="1.0" encoding="UTF-8"?>
<DistanceMatrixResponse>
<status>OK</status>
<origin_address>Dusseldorf, Germany</origin_address>
<destination_address>Wiesenburg, Germany</destination_address>
<row>
<element>
<status>OK</status>
<duration>
<value>15931</value>
<text>4 hours 26 mins</text>
</duration>
<distance>
<value>482793</value>
<text>483 km</text>
</distance>
</element>
</row>
</DistanceMatrixResponse>
Dim URL As String = "http://maps.googleapis.com/maps/api/distancematrix/xml?origins=" + origin + "&destinations=" + destination + "&mode=driving&sensor=false&language=en-EN&units=km"
Dim request As HttpWebRequest = DirectCast(WebRequest.Create(URL), HttpWebRequest)
Dim response As WebResponse = request.GetResponse()
Dim dataStream As Stream = response.GetResponseStream()
Dim sreader As New StreamReader(dataStream)
Dim responsereader As String = sreader.ReadToEnd()
response.Close()
Dim xmldoc As New XmlDocument()
xmldoc.LoadXml(responsereader)
If xmldoc.GetElementsByTagName("status")(0).ChildNodes(0).InnerText = "OK" Then
'##### here comes "Your" code :) #####
Dim xml As XDocument =
<?xml version="1.0" encoding="UTF-8"?>
<DistanceMatrixResponse>
<status>OK</status>
<origin_address>Dusseldorf, Germany</origin_address>
<destination_address>Wiesenburg, Germany</destination_address>
<row>
<element>
<status>OK</status>
<duration>
<value>15931</value>
<text>4 hours 26 mins</text>
</duration>
<distance>
<value>482793</value>
<text>483 km</text>
</distance>
</element>
</row>
</DistanceMatrixResponse>
Dim textElement As XElement =
xml.Descendants("distance").Elements("text").First()
Console.WriteLine(textElement.Value)
If xml.Root.Element("status").Value = "OK" Then