テキストボックスで使用する要素からテキストを取得

Question

私は、そのユーザーに関する情報を返すウェブサイトを使用してユーザーの価値をチェックするプログラムを作成しています。私は自分のプログラムにその情報の一部を使用したいと思っています。私はページを読み込み、返された文字列をトリミングすることを望んだが、後の情報はそこになかった。以下は、何も返さないように私の最近の試みです。

Dim pos1 As Long, pos2 As Long, strAccount As String 
    Dim request As WebRequest = WebRequest.Create("http://rbx.trade/s/" + TextBox2.Text) 
    Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse) 
    Dim datastream As Stream = response.GetResponseStream 
    Dim reader As New StreamReader(datastream) 
    Dim strData As String = reader.ReadToEnd 
    pos1 = InStr(strData, "rap") 
    pos1 = InStr(pos1 + 1, strData, "rap", vbTextCompare) 
    pos2 = InStr(pos1 + 1, strData, "rank", vbTextCompare) 
    strAccount = strData.Substring(pos1, pos2 - pos1) 
    textbox5.text = strAccount 

私が取得したいものの眺め：私は、このユーザーにtextbox5にRAP値を返すようにしようとしています

それは私があまりにも長い間しようとしている1104 で、私の人生のためにこれを理解することはできません。誰か助けてください。

Answer 1

私はこのようなことをしたい。..

'cold 
pos1 = strdata.IndexOf("class=""rap"">") + "class=""rap"">".length 
strdata = strdata.remove(0,pos1) 

'warm 
pos1 = strdata.IndexOf("hide-on-small-only"">") + "hide-on-samll-only"">".length 
strdata = strdata.remove(0,pos1) 

'hot 
dim result as string = strdata.remove(strdata.indexof("<",0))