CompCharStr
Vergleicht einen String mit einer Maske die Platzhalter enthalten kann. Der Rückgabewert ist 1 wenn die Maske passt und 0 wenn sie nicht passt.
Beispielaufrufe:
?CompCharStr("*all*", "Hallo") 1 ?CompCharStr("*all*", "Halo") 0 ?CompCharStr("Gast*!*@*", "Gast4326!user200@n-10F629D.pool.einsundzwei.de") 1
Function CompCharStr(CharStr, CompStr) Dim I Dim I2 Dim I3 i=0 i3=0 Do I2 = I I = InStr(I + 1, CharStr, "*") If I = 0 Then I = Len(CharStr) + 1 If I - I2 - 1 > 0 Then I3 = InStr(I3 + 1, CompStr, Mid(CharStr, I2 + 1, I - I2 - 1), 1) Else If I > 1 Then I3 = Len(CompStr) + 1 Else I3 = 1 End If End If Loop Until I3 = 0 Or I = Len(CharStr) + 1 CompCharStr = iif(I3 > 0 And Len(CompStr) = I3 + (I - I2 - 2) And (I2 > 0 Or I3 = 1),1,0) End Function
Sie befinden sich hier: start » nettalk » scripting » compcharstr