Reguläre Ausdrücke: Pattern

17/05/2010 - 16:47 von Steffen Brose | Report spam
Hallo Allseits,

ich habe versucht eine Vorlage auf 'Suche nach Datum' passsend zu machen.
Ergebnis: funktioniert nicht (probiert und probiert ... ohne/mit [] ,
ohne/mitt () usw.)

Könnt Ihr mir da einen Tipp zum Pattern geben ? Danke Euch Gruß Steffen

Der Code:


Public Function GetRegExpString(ByVal vsStingIn As String, _
ByVal vsPattern As String) As String

Dim objRegExp As Object, RegExp As Object
Set objRegExp = CreateObject("vbscript.regexp")

objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.MultiLine = True

objRegExp.Pattern = vsPattern
GetRegExpString = objRegExp.Replace(vsStingIn, "")

Set objRegExp = Nothing
End Function


Public Sub Test()
Dim strText As String
Dim strPattern As String
Dim strRetStr As String

strText = "Text mit Zahlen 12-34 und weiteren Zahlen 1 , 8 und Datum 1.4.10
im Text"


'strPattern = "[^\d\s$]" 'funktioniert - findet alle Zahlen

strPattern = "[^[1-9]{1}\.[1-9]{1}\.[0-9]{2}$]" 'soll das Datum finden -
funktioniert nicht

strRetStr = GetRegExpString(strText, strPattern)

MsgBox strRetStr

End Sub
 

Lesen sie die antworten

#1 Stefan Dase
17/05/2010 - 20:44 | Warnen spam
Hallo Steffen!

Könnt Ihr mir da einen Tipp zum Pattern geben ? Danke Euch Gruß Steffen
(...)
strPattern = "[^[1-9]{1}\.[1-9]{1}\.[0-9]{2}$]"



^ = sucht am Anfang der Zeichenkette
$ = sucht am Ende der Zeichenkette

Um also mit dem Pattern einen Treffer zu erhalten darf nur das Datum
enthalten sein! Lass die Steuerzeichen weg und es sollte klappen.

Viele Grüße aus Bremen,
Stefan

Ähnliche fragen