Hallo Leute
ich hab ein Problem mit dem auslesen von Links: Die Schleife wird zwar Problemlos durchgelaufen aber es wird dann immer nur der erste Link eingefügt.
Ich habe das mal am beispiel Lokalisten gemacht. Der erste Link ist allerdings einer, der auf eine CSS-Datei verweist
Das wäre der Tag:
<link rel="stylesheet" type="text/css" href="/css/loki-def.css;jsessionid=B6AFABB16E92743F75A8BB07263B0F14.s50n1s2?v=201010281801" />
der wird leider ausgelesen, obwohl ich eigentlich nur a-Tags auslesen möchte. (vll liegt hier der fehler, was ich auch stark vermute aber ich weiß nicht was da falsch ist )
In die Listbox wird dan auch einwandfrei der Link eingefügt: = /css/loki-def.css;jsessionid=B6AFABB16E92743F75A8BB07263B0F14.s50n1s2?v=201010281801
ich hab ein Problem mit dem auslesen von Links: Die Schleife wird zwar Problemlos durchgelaufen aber es wird dann immer nur der erste Link eingefügt.
Ich habe das mal am beispiel Lokalisten gemacht. Der erste Link ist allerdings einer, der auf eine CSS-Datei verweist
Das wäre der Tag:
<link rel="stylesheet" type="text/css" href="/css/loki-def.css;jsessionid=B6AFABB16E92743F75A8BB07263B0F14.s50n1s2?v=201010281801" />
der wird leider ausgelesen, obwohl ich eigentlich nur a-Tags auslesen möchte. (vll liegt hier der fehler, was ich auch stark vermute aber ich weiß nicht was da falsch ist )
In die Listbox wird dan auch einwandfrei der Link eingefügt: = /css/loki-def.css;jsessionid=B6AFABB16E92743F75A8BB07263B0F14.s50n1s2?v=201010281801
VB.NET-Quellcode
- Dim i As Integer = 5 ' WebBrowser1.Document.Links.Count()
- Dim addresse As String = WebBrowser1.DocumentStream.ToString
- RichTextBox2.Clear()
- RichTextBox2.Text = WebBrowser1.DocumentText
- For j As Integer = 0 To i - 1
- Dim match As Match = Regex.Match(RichTextBox2.Text, "\<a(.*?)\>")
- Dim Text As String = match.Groups(1).Value
- ListBox1.Items.Add(getLinks(Text))
- RichTextBox2.Text.Replace(getLinks(Text), "###########################Test##########################")
- Next