fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

4PMedia

Uploader:	ytwinky
Datum/Zeit:	12.07.2007 19:14:14

Function Match(byVal Text As String, byVal Mask As String) As Integer

  Dim As String TempText, PrevText, s

  Dim As Integer DestRPL, DoneRPL

  Dim i As UInteger

  For i=1 To Len(Mask)

    DestRPL += IIF(SubStr(Mask, "*", i)<>Chr(0) AND SubStr(Mask, "*", i)<>"", 1, 0)

  Next

  TempText = Text

  For i=1 To Len(Mask)

    PrevText = TempText

    s = SubStr(Mask, "*", i)

    TempText = Replace(TempText, s, String(Len(s), "X"))

    DoneRPL += IIF(PrevText <> TempText, 1, 0)

  Next

  Return IIF(DestRPL-DoneRPL = 0, 1, 0)

End Function

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.