Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:compcharstr [2007/12/11 21:08] (aktuell)
mirici angelegt
Zeile 1: Zeile 1:
 +====== 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:​
 +
 +<​code>​
 +?​CompCharStr("​*all*",​ "​Hallo"​)
 +1
 +
 +?​CompCharStr("​*all*",​ "​Halo"​)
 +0
 +
 +?​CompCharStr("​Gast*!*@*",​ "​Gast4326!user200@n-10F629D.pool.einsundzwei.de"​)
 +1
 +</​code>​
 +
 +<code vb>
 +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
 +</​code>​

Eigene Werkzeuge