GetAllRegexMatches

Top  Previous  Next

Sub GetAllRegexMatches($source As String, $regex As String) As String

 

Sucht in $source nach allen Vorkommen von $regex. $regex ist ein 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 $regex nicht gefunden, dann liefert GetAllRegexMatches einen leeren String.

 

Parameter

 

$source ... Zeichenfolge, die durchsucht werden soll.
$regex ... Regulärer Ausdruck, der gesucht werden soll.

 

Beispiel:

Dim $s, $s2

 

$s = "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.