FindWildcard

Top  Previous  Next

function FindWildcard(sSource, sFindWildcard, ByRef iStartPos, ByRef iLength) As Boolean

 

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

 

StartText*EndText

 

FindWildcard ist case-sensitive. Das erste Zeichen in sSource hat die Position 1. Wird sFindWildcard gefunden. dann liefert FindWildcard den Wert TRUE.

 

Parameter

 

sSource ... Zeichenfolge, die durchsucht werden soll.
sFindWildcard ... Wildcard-Ausdruck, nach dem gesucht werden soll (StartText*EndText).
iStartPos ... Index des ersten Vorkommens.
iLength ... Länge des gefundenen Strings.

 

Beispiel:

Dim s, iStart, iLen

 

= "a number or a text"

If FindWildcard(s, "or*xt", iStart, iLen) then

   ' returns iStart = 10, iLen = 9

End If