HTMLソースから特定のデータを取得してラベルに表示する

ゲーム内で進行状況を示すウェブサイトから特定の値を抽出して、簡単にアクセスできるようにvb.netアプリケーションで表示したいと考えています。私はからデータを取得したいと思いHTMLコードさ：プレイ時間」「225」、「5.6M」HTMLソースから特定のデータを取得してラベルに表示する

と：：私はこのコードから取得したいと思いデータがある

<div id="freemodeRank" class="page-section clearfix"> 
    <div class="rankHex right-grad bronze"> 
     <h3 style="font-size:54px">225</h3> 
     <p style="text-align:center;"></p> 
    </div> 
    <div class="rankXP"> 
     <div class="clearfix"> 
      <h3 class="left">5.6M<span> RP</span></h3> 
     </div> 
     <div class="rankBar"> 
      <h4>Play Time: 58d 4h 23m</h4>

58D 4h 23m "

どのような助けが素晴らしいでしょう。

出典

2016-07-16 Jordan Lee

なしのXMLへのLINQは、あなたが試さなかった、どこ – Fabio

を積み重ね得るもの、私は本当にすべてを持っていない、あなたのコードを表示しますプログラムのコード。私はそのデータを取得し、それをラベルに表示したいだけです。 –

regexを使用できますか？ –

GetBetween関数を使用してこれを行うことができます。

Public Function GetBetween(ByRef sSearch As String, ByRef sStart As String, ByRef sStop As String, _ 
               Optional ByRef lSearch As Long = 1) As String 
    lSearch = InStr(lSearch, sSearch, sStart) 
    If lSearch > 0 Then 
     lSearch = lSearch + Len(sStart) 
     Dim lTemp As Long 
     lTemp = InStr(lSearch, sSearch, sStop) 
     If lTemp > lSearch Then 
      GetBetween = Mid$(sSearch, lSearch, lTemp - lSearch) 
     End If 
    End If 
End Function

出典：http://www.devx.com/tips/Tip/40934

あなたはこの

'Assuming htmlData is the variable where your html string is stored 
Dim rpAmount As String = GetBetween(htmlData, "<h3 class=""left"">", "<span> RP</span></h3>")

同じようにそれを呼び出すことができますが、あなたが

出典

2016-07-17 03:01:24 ebildude123

ありがとうございました。私が持っている1つの問題は、 "InStr"にはエラーがあります： "ある文字列の最初の文字列の開始位置を別の文字列の中で指定する整数を返します。" –

エラーメッセージは何ですか？あなたはInStrが何をしているのかの説明を投稿しました。また、この関数をどのように呼び出すのかを投稿できますか？（コード行） – ebildude123

@ ebildude123 - 'vb6'？ – Fabio

HTMLがXmlでこすりしたい残りの値を適用します。データを取得するにはXDocumentクラスを使用してください。 XDocument Class

Dim html As String = "<html><div id=""freemodeRank""><h3>255</h3></div></html>" 

Dim document As XDocument = XDocument.Parse(html) 
Dim value As String = document.Root... 
           <div>. 
           Where(Function(div) [email protected]("freemodeRank")). 
           <h3>. 
           First(). 
           Value

XML Axis Properties (Visual Basic)

軸のプロパティ

Dim value As String = 
    document.Root. 
      Descendants("div"). 
      Where(Function(div) div.Attribute("id").Value.Equals("freemodeRank")). 
      Element("h3"). 
      Value

Overview of LINQ to XML in Visual Basic

出典

2016-07-17 08:14:40 Fabio

HTMLソースから特定のデータを取得してラベルに表示する

答えて

関連する問題