Code, der Keywords aus einer bestimmten Zeichenfolge generiert, die durch CreateKeword ASP implementiert ist

'**********************************************

'Funktionsname: createKeyword

Effekt: Generieren Sie Schlüsselwörter aus der angegebenen Zeichenfolge

'Argumente: Const --- Die ursprüngliche Zeichenfolge, um das Schlüsselwort zu generieren

'Rückgabewert: generiertes Schlüsselwort

'**********************************************

FunctionCreateKeyword (Byvalconstr, num)

Ifconstr = "" orisnull (Const) = trueorconstr = "$ false $"

CreateKeyword = "$ false $"

Ausgangsfunktion

Endif

Ifnum = "" orisnumeric (num) = falsethen

Num = 2

Endif

Const = ersetzen (Const, CHR (32), "")

Const = ersetzen (Const, Chr (9), "")

Const = ersetzen (Const ",", "")

Const = ersetzen (Const ",", "")

Const = ersetzen (Const, "(", "")

Const = ersetzen (Const, ")", "")

Const = ersetzen (Const, "<", "")

Const = ersetzen (Const, ">", "")

Const = ersetzen (Const "," "," ")

Const = ersetzen (Const, "?", "")

Const = ersetzen (Const, "*", "")

Const = ersetzen (Const, "|", "")

Const = ersetzen (Const, ",", "")

Const = ersetzen (Const, ".", "")

Const = ersetzen (Const ",/", "")

Const = ersetzen (Const ",/", "")

Const = ersetzen (Const, "-", "")

Const = ersetzen (Const, "@", "")

Const = ersetzen (Const, "#", "")

Const = ersetzen (Const, "$", "")

Const = ersetzen (Const, "%", "")

Const = ersetzen (Const, "&", "")

Const = ersetzen (Const, "+", "")

Const = ersetzen (Const, ":", "")

Const = ersetzen (Const, ":", "")

Const = ersetzen (Const, "'", "")

Const = ersetzen (Const "," "," ")

Const = ersetzen (Const "," "," ")

Const = ersetzen (Const, "&", "")

Const = ersetzen (Const, "GT;", "")

Dimi, Consttemp

Fei = 1tolen (Const)

Consttemp = Consttemp & "|" & Mid (Const, I, num)

Nächste

Iflen (Consttemp) <254Then

Consttemp = Consttemp & "|"

Anders

Consttemp = links (Consttemp, 254) & "|"

Endif

CONTTEMP = links (Consttemp, Len (Consttemp) -1)

ConstTemp = rechts (Consttemp, Len (Consttemp) -1)