Hallo Leute,
ich habe ein kleines Problem. Ich bin gerade dabei, mir ein kleines Programm zu schreiben, welches zwei Daten aus einem HTML Quelltext raus suchen soll. Ich bin auch schon relativ weit gekommen, jedoch habe ich jetzt das Problem, dass er sowohl für den Wert1 als auch den Wert2 den selben Wert ausliest. Das Programm liest im Moment nur den ersten Wert aus und packt diesen ersten Wert auch zu Wert2. Kann mir da jemand evtl. weiterhelfen? Hier der Code, den ich bis jetzt habe:
Programmiert mit Visual Studio 2010
ich habe ein kleines Problem. Ich bin gerade dabei, mir ein kleines Programm zu schreiben, welches zwei Daten aus einem HTML Quelltext raus suchen soll. Ich bin auch schon relativ weit gekommen, jedoch habe ich jetzt das Problem, dass er sowohl für den Wert1 als auch den Wert2 den selben Wert ausliest. Das Programm liest im Moment nur den ersten Wert aus und packt diesen ersten Wert auch zu Wert2. Kann mir da jemand evtl. weiterhelfen? Hier der Code, den ich bis jetzt habe:
Programmiert mit Visual Studio 2010
VB.NET-Quellcode
- Imports System.Net
- Imports System.IO
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Label1.Text = "Wert1 " & Wertlesen("Price range: ", TextBox1.Text) & " €"
- Label2.Text = "Wert1 " & Wertlesen("Price range: ", TextBox1.Text) & " €"
- End Sub
- Public Function Wertlesen(ByVal Gesstring As String, ByVal URL As String) As Integer
- Dim hReq As HttpWebRequest
- Dim HRes As HttpWebResponse
- hReq = DirectCast(HttpWebRequest.Create("URL"), HttpWebRequest)
- HRes = DirectCast(hReq.GetResponse(), HttpWebResponse)
- Dim s As Stream = HRes.GetResponseStream()
- Dim sR As New StreamReader(s)
- Dim webpage As String = sR.ReadToEnd
- sR.Close()
- s.Close()
- sR = Nothing
- s = Nothing
- hReq = Nothing
- HRes = Nothing
- Dim Startpos As Integer = webpage.IndexOf(Gesstring)
- Dim Zwischenstring As String = webpage.Substring(Startpos, 40)
- Dim i As Integer = 0
- Wertlesen = 0
- Do Until i = 39
- If IsNumeric(Zwischenstring(i)) = True Then
- If IsNumeric(Zwischenstring(i + 2)) = True Then
- Wertlesen = Convert.ToInt32(Zwischenstring(i) & Zwischenstring(i + 1) & Zwischenstring(i + 2))
- Exit Do
- Else
- Wertlesen = Convert.ToInt32(Zwischenstring(i) & Zwischenstring(i + 1))
- Exit Do
- End If
- End If
- i = i + 1
- Loop
- End Function
- End Class