GetAllWildcardMatches

Top Previous Next

function GetAllWildcardMatches(sSource, sFindWildcard) As String

Sucht in sSource nach allen Vorkommen von sFindWildcard. sFindWildcard ist ein Wildcard-Ausdruck mit einem Start-Text, einem Stern-Zeichen und einem Ende-Text mit folgender Syntax:

StartText*EndText

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

Parameter

•	sSource ... Zeichenfolge, die durchsucht werden soll.

•	sFindWildcard ... Wildcard-Ausdruck, nach dem gesucht werden soll (StartText*EndText).

Beispiel:

Dim s, s2

s = "a number or a text or a date"

s2 = GetAllWildcardMatches(s, "or*t")

' returns s2 = "or a t"#13#10"or a dat"

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