'Nombre de la función: CreateKeyword
'Efecto: genere palabras clave a partir de la cadena dada
'Argumentos: construcción --- la cadena original para generar la palabra clave
'Valor de retorno: palabra clave generada
'************************************************************
FunctionCreateKeyword (byvalconstr, num)
Ifconstr = "" orisnull (constr) = trueConstr = "$ false $" entonces
CreateKeyword = "$ falso $"
Extinción
Endif
Ifnum = "" orisnumérico (num) = falsethen
Num = 2
Endif
Constr = reemplazar (construye chr (32), "")
Constr = reemplazar (construct, chr (9), "")
Constr = reemplazar (construcción, "", "")
Constr = reemplazar (construcción, "", "")
Constr = reemplazar (construcción, "(", "")
Constr = reemplazar (construct, ")", "")
Constr = reemplazar (construct, "<", "")
Constr = reemplazar (construcción, ">", "")
Constr = reemplazar (construct, "" "", "")
Constr = reemplazar (construct, "?", "")
Constr = reemplazar (construct, "*", "")
Constr = reemplazar (construcción, "|", "")
Constr = reemplazar (construct, ",", "")
Constr = reemplazar (construct, ".", "")
Constr = reemplazar (construct, "/", "")
Constr = reemplazar (construct, "/", "")
Constr = reemplazar (construcción, "-", "")
Constr = reemplazar (construct, "@", "")
Constr = reemplazar (construct, "#", "")
Constr = reemplazar (construct, "$", "")
Constr = reemplazar (construct, "%", "")
Constr = reemplazar (construct, "&", "")
Constr = reemplazar (construct, "+", "")
Constr = reemplazar (construcción, ":", "")
Constr = reemplazar (construcción, ":", "")
Constr = reemplazar (construct, "'", "")
Constr = reemplazar (construct, "" "," ")
Constr = reemplazar (construct, "" "," ")
Dimi, construye
Fori = 1Tolen (constr)
ConstrTemp = ConstrTemp & "|" & Mid (Constr, I, Num)
Próximo
Iflen (ConstrTemp) <254Then
Constructtemp = constructtemp & "|"
Demás
Constructtemp = left (constructtemp, 254) y "|"
Endif
CreateKeyword = ConstrTempp
Función final