Hey!
Also ich habe folgendes Problem: Ich will den Quelltext aus einer Seite auslesen und dann die ausgelesenen Werte in eine Groupbox einfügen.
Das mit dem Auslesen des Quelltextes klappt auch soweit, aber ich bekomme es nicht hin die Werte gezielt raus zu lesen und diese dann in eine Groupbox einzufügen.
Mein Ansatz:
Hier der Quelltext:
Also ich habe folgendes Problem: Ich will den Quelltext aus einer Seite auslesen und dann die ausgelesenen Werte in eine Groupbox einfügen.
Das mit dem Auslesen des Quelltextes klappt auch soweit, aber ich bekomme es nicht hin die Werte gezielt raus zu lesen und diese dann in eine Groupbox einzufügen.
Mein Ansatz:
Quellcode
- Dim Suchmuster As String
- Dim Trefferliste As MatchCollection
- Dim Treffer As String
- Dim Pos As Integer
- Dim arr() As String = {"eins", "zwei", "drei", "vier", "fünf"}
- Dim trennzeichen As Char = CType(">", Char)
- Suchmuster = "Test"
- Try
- rgx = New Regex(Suchmuster, RegexOptions.IgnoreCase Or RegexOptions.Multiline)
- Catch ex As Exception
- MsgBox("Exception rgx Suchindex")
- End Try
- Trefferliste = rgx.Matches(HTMLQuelltext)
- Treffer = Trefferliste.Item(1).ToString.Trim
- Pos = Treffer.LastIndexOf("</div>")
- Treffer = Treffer.Remove(Pos)
- Pos = Treffer.LastIndexOf(">") + 1
- Treffer = Treffer.Substring(Pos).Trim
- Treffer = String.Join(trennzeichen, arr)
- arr = Treffer.Split(trennzeichen)
- For Each element As String In arr
- GroupBox1.Items.Add(element)
- Next
- End Sub
Hier der Quelltext: