Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

\<h1\>(?<string>(.*))\<\/h1\>

Visual Basic Quellcode

<div id="user-info">
            <br />
            <span>Hello, Torben</span> 
            <br />
            <div id="soundholderFix">

Visual Basic Quellcode

<div\s+id="user-info">\s+<br\s+/>\s+<span>(\w+,\s+\w+)

Quellcode

<li><a href="/Messages/tid/106" class="Navi-Messages-Link" rel="nofollow"title="Nachrichtendienst">Nachrichtendienst</a></li>

Visual Basic Quellcode

<li><a\s+href="/Messages/tid/106"\s+class="Navi-Messages-Link"\s+rel="nofollow"title="Nachrichtendienst">(\w+)

Visual Basic Quellcode

Dim ipRegEx As New Regex("<li><a\s+href="/Messages/tid/106"\s+class="Navi-Messages-Link"\s+rel="nofollow"title="Nachrichtendienst">(\w+)") 
Dim myIP As String = ipRegEx.Match(txtSourcecode.Text).Groups("string").ToString()
lblIP.Text = "Narrichten: " & myIP

Visual Basic Quellcode

Dim ipRegEx As New Regex(Label1.Text)
Dim myIP As String = ipRegEx.Match(txtSourcecode.Text).Groups("string").ToString()
lblIP.Text = "Narrichten: " & myIP

Visual Basic Quellcode

Imports System.Text.RegularExpressions
Imports System.Net
Imports System.IO

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim httpRequest As HttpWebRequest = HttpWebRequest.Create(".....") '<--- Statt den Punkten die URL wo du Regex anwenden möchtest
    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("<li><a\s+href=""/Messages/tid/106""\s+class=""Navi-Messages-Link""\s+rel=""nofollow""title=""Nachrichtendienst"">(?<string>(.*))
")
    Dim match As String = ipRegEx.Match(httpContent).Groups("string").ToString()
    Label1.Text = "Nachrichten: " & match
End Sub
End Class

Quellcode

 <li><a href="/Messages/tid/106" class="Navi-Messages-Link" rel="nofollow" title="Nachrichtendienst">Nachrichtendienst</a></li>

Visual Basic Quellcode

Dim ipRegEx As New Regex("<li><a\s+href=""/Messages/tid/106""\s+class=""Navi-Messages-Link""\s+rel=""nofollow""title=""Nachrichtendienst"">(\w+)")
    Dim match As String = ipRegEx.Match(TextBox1.Text).Groups("string").ToString()
    Label1.Text = "Nachrichten: " & match

Visual Basic Quellcode

label1.text = "Narrichten: " & match

Visual Basic Quellcode

Imports System.Text.RegularExpressions

Public Class Form1

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    	Dim RegEx1 As New Regex("<a\s+href=""/Messages/tid/106""\s+class=""Navi-Messages-Link""\s+rel=""nofollow""\s+title=""Nachrichtendienst"">(?<string>(.*))</a>")
    	Dim match As String = RegEx1.Match(TextBox1.Text).Groups("string").ToString()

    	Label1.Text = "Nachrichten: " & match
	End Sub
End Class

Visual Basic Quellcode

Private Function GetBetween(ByVal Start As Long, Data As String, _
	StartString As String, EndString As String, _
	Optional ByVal CompareMethod As CompareMethod = BinaryCompare) As String
   
	Dim lonStart As Long, lonEnd As Long
	lonStart = InStr(Start, Data, StartString, CompareMethod)
	If lonStart > 0 Then
    	lonStart = lonStart + Len(StartString)
    	lonEnd = InStr(lonStart, Data, EndString, CompareMethod)
    	If lonEnd > 0 Then
        	GetBetween = Mid$(Data, lonStart, lonEnd - lonStart)
    	End If
	End If
End Function

Visual Basic Quellcode

Dim Message = GetBetween(1,"<test>Wie gehts?</test>","<test>","</test>")
MsgBox(Message)