RegEx - Code Problem

Phil5038 · 10. Juni 2013, 19:57

Hey bin neu hier und hab mich ein wenig mit RegEx beschäftigt.
Nun habe ich mal probiert aus

das

zu filtern und es in einer Messagebox ausgeben zu lassen.
Nur ist in der besagten Message dann nichts enthalten.

Der Code:

Dim numRegEx As New Regex("(.*?)")
Dim num As String = numRegEx.Match(RichTextBox1.Text).Groups("string").ToString()
MsgBox(num)

Liegt es am "filtercode" oder habe ich einen anderen Fehler gemacht ?

Mfg. Phil

LaMiy · 10. Juni 2013, 20:02

Schau mal hier.

Option Strict On
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim x As String = "Tel. : +49 (0)176 25806413"
Dim r As New Regex("(?<text>(.*?))")
Dim m As Match = r.Match(x)
MessageBox.Show(m.Groups("text").Value)
End Sub
End Class

Rinecamo · 10. Juni 2013, 20:06

Oder:

MessageBox.Show(New Regex("(?<=\<strong\>)Tel.[^\<]+").Match(input).Value.ToString()) 'input = Variable mit Text

nafets3646 · 10. Juni 2013, 20:19

Ich hatte mal ne Funktion für sowas gemacht, die sogar das escapen abnimmt:

Public Function SearchBetweenRegex(input As String, starttag As String, endtag As String) As List(Of String)
Dim SearchRegex As New Regex(String.Format("{0}{1}{2}", Regex.Escape(starttag), "(?<text>(.*?))", Regex.Escape(endtag)))
Dim ReturnList As New List(Of String)
For Each m As Match In SearchRegex.Matches(input)
ReturnList.Add(m.Groups("text").Value)
Next
Return ReturnList
End Function

Damit geht es auf jeden Fall.
Benutzungsbeispiel:

For Each s As String In SearchBetweenRegex("Tel. : +49 (0)176 25806413", "", "")
MessageBox.Show(s)
Next

Phil5038 · 10. Juni 2013, 20:22

Okay, vielen Dank für die hilfreichen Antworten.
Es funktioniert jetzt

Muss mir die Zeichenbedeutungen bei RegEx noch mal näher anschauen und bisschen mehr rumprobieren.

danke !!