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

 

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