Code: Alles auswählen
Procedure f(str.s, str2.s)
Protected regex = CreateRegularExpression(#PB_Any, str2+"\b")
If regex
If ExamineRegularExpression(regex, str)
While NextRegularExpressionMatch(regex)
Debug "Match: " + RegularExpressionMatchString(regex)
Debug "- Position: " + Str(RegularExpressionMatchPosition(regex))
Debug "- Length: " + Str(RegularExpressionMatchLength(regex))
Wend
EndIf
Else
Debug RegularExpressionError()
EndIf
EndProcedure
Debug "-------"
f("K11 bla", "K1") ; (nix)
Debug "-------"
f("K1 bla", "K1")
Debug "-------"
f("K1", "K1")
Debug "-------"
f("x K1 x K11 x K1 x k11", "K1")
Debug "-------"