Доступ к элементу в XMLnodelist с помощью vb.net

У меня есть список узлов vb.net XML, доставленный из Google Maps API:

<?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>

Как я могу получить доступ к элементу <text>483 km</text> с помощью vb.net?

Это мой код до сих пор:

    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 :) #####

Я всего лишь хочу закинуть два места на карты гугла и получить расстояние в км между ними. Если у вас есть другой подход, я с нетерпением жду его.

С уважением, Стефан


vb.net xmlnodelist
person Stefan Meyer    schedule 16.06.2014    source источник
comment
Другое дело - вы пробовали использовать WebClient.DownloadString?   -  person Neolisk    schedule 16.06.2014

Ответы (1)


arrow_upward
1
arrow_downward

Вот сокращенный пример тестового примера для игры (консольное приложение):

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)

В вашем случае вместо того, чтобы назначать переменную xml с некоторым встроенным XML, вы будете делать XDocument.Parse(responsereader).

Что касается проверки состояния (я предполагаю, что вы хотите полностью преобразовать LINQ-to-XML):

If xml.Root.Element("status").Value = "OK" Then

Ссылка:

person Neolisk    schedule 16.06.2014
comment
Спасибо - это помогло мне, и теперь у меня есть хороший старт для улучшения - person Stefan Meyer; 17.06.2014