GetAllRegexMatches

Top  Previous  Next

function GetAllRegexMatches(sSource, sRegex) As String

 

Sucht in sSource nach allen Vorkommen von sRegex. sRegex ist ein Perl-kompatibler Regulärer Ausdruck.

 

GetAllRegexMatches ist case-insensitive. Jeder gefundene Ausdruck wird in einer eigenen Zeile gelistet, die einzelnen Zeilen werden mit einem carriage-return/line-feed umgebrochen. Wird sRegex nicht gefunden, dann liefert GetAllRegexMatches einen leeren String.

 

Parameter

 

sSource ... Zeichenfolge, die durchsucht werden soll.
sRegex ... Regulärer Ausdruck, der gesucht werden soll.

 

Beispiel:

Dim s, s2

 

= "this number 12 or number 1003 or a date"

s2 = GetAllRegexMatches(s, "number \d+")

' returns s2 = "number 12"#13#10"number 1003"

 

Die gefundenen Zeilen können mit der Funktion SortStringLines sortiert werden.