Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Dim Lines() As String = Hintergrund.txt_links.Text.Split(vbNewLine)
        Try
            If My.Computer.FileSystem.FileExists(Application.StartupPath & "\temp.txt") Then
                My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\temp.txt")
            End If
            My.Computer.Network.DownloadFile(Lines(0), Application.StartupPath & "\temp.txt")
            Dim rx As New Regex("<img(.*)src=""(?<url>([a-zA-Z0-9.:-_/]+))""(.*)>", RegexOptions.Compiled Or RegexOptions.IgnoreCase)

            Dim rxMatches As MatchCollection = rx.Matches(My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\temp.txt"))
            For Each oMatch As Match In rxMatches
                MsgBox(oMatch.Groups(Lines(0)).ToString())
                Hintergrund.txt_dateien.Text = Hintergrund.txt_dateien.Text & oMatch.Groups(Lines(0)).ToString() & vbNewLine
            Next
        Catch ex As Exception
            MsgBox("Fehler beim auslesen der Links von der Seite " & Lines(0) & ":" & vbNewLine & vbNewLine & ex.Message)
        End Try

Quellcode

<td headers="thAnzahl" align="right">100.000</td>

Visual Basic Quellcode

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim adress As String
        Dim w As New WebClient
        adress = TextBox45.Text
        Dim quelltext As String = w.DownloadString(adress)
        Dim WertRegex1 As New System.Text.RegularExpressions.Regex("<td headers=\""thAnzahl\"" align=\""right\"">(?<Wert2>([0-9.]*))</td>")
        Dim Wert2 As String = WertRegex1.Match(quelltext).Groups("Wert2").ToString()

        TextBox44.Text = Wert2
    End Sub

Quellcode

<tr>
<td headers="thEinheit">Wassermine</td>
<td headers="thAnzahl" align="right">100.000</td>
</tr>
<tr>
<td headers="thEinheit">Landmine</td>
<td headers="thAnzahl" align="right">20.000</td>
</tr>

Quellcode

    	Dim RegEx_Treffer As New Regex("<td headers=""thEinheit"">(?<Treffer>(.*?))</td>")
    	Dim Treffergruppe As MatchCollection
    	Dim Treffer As Match
    	Dim ListBox As New ListBox
    	Dim Zahl As Integer
    	Try
        	Treffergruppe = RegEx_Treffer.Matches(RichTextBox1.Text)
        	For Each Treffer In Treffergruppe
            	ListBox.Items.Add(Treffer.Groups("Treffer").Value)
        	Next
        	For Zahl = 0 To ListBox.Items.Count
            	TextBox1.Text &= ListBox.Items(Zahl) & vbCrLf
        	Next
    	Catch ex As Exception
    	End Try

Quellcode

"<td headers=""thEinheit"">(?<Treffer>([^>]*))</td>"

Visual Basic Quellcode

[^<]* = hier darf alles kommen außer <

Visual Basic Quellcode

Dim RegEx_Treffer As New Regex("<td headers=""thEinheit"">(?<Treffer>(.*?))<")

Visual Basic Quellcode

Dim RegEx_Treffer As New Regex("thEinheit"">(?<Treffer>(.*))<")

Visual Basic Quellcode

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim adress As String = "http://xxxx.html"
        Dim w As New WebClient
        'adress = TextBox45.Text
        Dim quelltext As String = w.DownloadString(adress)
        RichTextBox1.Text = quelltext
        Dim RegEx_Treffer As New Regex("<td headers=\""thEinheit\"">(?<Treffer>(.*?))</td>")
        Dim Treffergruppe As MatchCollection
        Dim Treffer As Match
        Dim ListBox As New ListBox
        Dim i As Integer
        Try
            Treffergruppe = RegEx_Treffer.Matches(RichTextBox1.Text)
            For Each Treffer In Treffergruppe
                'Umlaute ersetzen
                Dim builder As New StringBuilder(Treffer.Groups("Treffer").Value)
                With builder
                    .Replace("&szlig;", "ß")
                    .Replace("&auml;", "ä")
                    .Replace("&Auml;", "Ä")
                    .Replace("&ouml;", "ö")
                    .Replace("&Ouml;", "Ö")
                    .Replace("&uuml;", "ü")
                    .Replace("&Uuml;", "Ü")
                End With

                ListBox.Items.Add(builder.ToString())
            Next
            For i = 0 To ListBox.Items.Count
                TextBox1.Text = ListBox.Items(0)
                TextBox2.Text = ListBox.Items(1)
                TextBox3.Text = ListBox.Items(2)
                TextBox4.Text = ListBox.Items(3)
                TextBox5.Text = ListBox.Items(4)
                'weitere Textboxen
            Next
        Catch ex As Exception
        End Try

Visual Basic Quellcode

    	Dim httpRequest As Net.HttpWebRequest = Net.HttpWebRequest.Create("http://croomeware.cr.funpic.de/test.html")
    	Dim httpResponse As HttpWebResponse = httpRequest.GetResponse()
    	Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
    	Dim httpContent As String = reader.ReadToEnd

    	Dim ipRegEx As New Regex("\<div id=\""helloworld\""\>(?<string>(.*))\<\/div\>")
    	Dim HelloWorld As String = ipRegEx.Match(httpContent).Groups("string").ToString()

    	Label1.Text = HelloWorld

Quellcode

"\<div id=\""helloworld\""\>(?<string>([^<^]*))\<\/div\>"

Visual Basic Quellcode

[^<^]

Visual Basic Quellcode

Dim ipRegEx As New Regex("\<a href=\""(?<string>([a-z.]*))""\>")