'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 "," "," ")
Dimi, Consttemp
Fei = 1tolen (Const)
Consttemp = Consttemp & "|" & Mid (Const, I, num)
Nächste
Iflen (Consttemp) <254Then
Consttemp = Consttemp & "|"
Anders
Consttemp = links (Consttemp, 254) & "|"
Endif
CreateKeyword = Consttemp
Endfunktion