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

Eigene Werkzeuge