WebBrowserコントロールのBing Mapsを使用して2か所の間のマイルを手に入れよう

Question

2か所の間に道順を設定したら、HTMLコードからマイルを抽出することはできますか？道順を取得した後、私はIEのページのソースコードでマイルを見ることができ、私はそれが示すマイル数を以下のように抽出しようとしています。これはおそらく簡単ですが、私は困惑しています。

少し詳細私はWebブラウザコントロールを渡して、方向を取得したり取得したりすることができます。私はテキストボックスでマイルを取得したい。

htmlコード

VB.NETコード

Dim miles As String = "" 
Dim minutes As String = "" 
Dim strHtml As String = "" 
strHtml = wbMaps.DocumentText 

For i As Integer = 0 To strHtml.Length - 1 
    If InStr(strHtml(i).ToString, "descriptionDistance") Then 
     Dim bracketLoc As Integer = 0 
     Dim closeBracketLoc As Integer = 0 
     bracketLoc = InStr(strHtml(i).ToString, ">") 
     closeBracketLoc = InStr(strHtml(i).ToString, "<") 
     miles = Mid(strHtml(i).ToString, bracketLoc + 1, closeBracketLoc - 1) 
     haulMiles = Val(miles) 
     tb_Miles.Text = haulMiles.ToString 
    End If 
Next 

Answer 1

私は既にあなた自身の質問に答えていますが、あなたが興味を持っている場合は別の回答を追加します。その情報のためhttps://www.nuget.org/packages/HtmlAgilityPack/

 Dim htmlDoc As New HtmlAgilityPack.HtmlDocument 
     htmlDoc.LoadHtml(wbMaps.Document.Body.InnerHtml) 
     miles = htmlDoc.DocumentNode.SelectSingleNode("//td[@data-tag='descriptionDistance']").InnerHtml 

Answer 2

私はそれを考え出しました。私はこれを使用しました：

Dim miles As String = "" 
    Dim minutes As String = "" 
    Dim strHtml As StringBuilder 

    strHtml = New StringBuilder 

    strHtml.Append(wbMaps.DocumentText) 

    Dim lines() As String = Split(strHtml.ToString, vbCrLf) 


    For Each line As String In lines 

     If InStr(line, "descriptionDistance") Then 

      Dim bracketLoc As Integer = 0 
      Dim closeBracketLoc As Integer = 0 
      bracketLoc = InStr(line, ">") 
      closeBracketLoc = InStr(line, "<") 
      miles = Mid(line, bracketLoc + 1, closeBracketLoc - 1) 
      haulMiles = Val(miles) 
      tb_Miles.Text = miles 

     End If 
    Next