'Nome da função: CreateKeyword
'Efeito: gerar palavras -chave da string dada
'Argumentos: Constr --- A sequência original para gerar a palavra-chave
'Valor de retorno: palavra -chave gerada
'*************************************************************
FunctionCreateKeyword (byvalConstr, num)
Ifconstr = "" orisNull (construt) = trueConstr = "$ false $" então
CreateKeyword = "$ false $"
Saída de saída
Endif
Ifnum = "" orisnumeric (num) = falseten
Num = 2
Endif
Constr = Substitua (construt, Chr (32), "")
Constr = Substitua (Constr, Chr (9), "")
Constr = Substituir (construtor, "", "")
Constr = Substituir (construtor, "", "")
Constr = Substitua (construt, "(", "")
Constr = Substituir (construtor, ")", "")
Constr = Substituir (construtor, "<", "")
Constr = Substitua (construt, ">", "")
Constr = Substituir (construtor, "" "", "")
Constr = Substitua (construt, "?", "")
Constr = Substitua (construt, "*", "")
Constr = Substitua (construt, "|", "")
Constr = Substituir (constrrut, "," "")
Constr = Substituir (constrrut, ".", "")
Constr = Substituir (constrrut, "/", "")
Constr = Substituir (constrrut, "/", "")
Constr = Substituir (constrrut, "-", "")
Constr = Substitua (construt, "@", "")
Constr = Substitua (construt, "#", "")
Constr = Substitua (construt, "$", "")
Constr = Substitua (construt, "%", "")
Constr = Substituir (construtor, "&", "")
Constr = Substitua (construt, "+", "")
Constr = Substituir (constrrut, ":", "")
Constr = Substituir (constrrut, ":", "")
Constr = Substituir (construtor, "'", "")
Constr = Substitua (construt, "" "," ")
Constr = Substitua (construt, "" "," ")
Dimi, ConstrTemp
Fori = 1tolen (constr)
ConstrTemp = Constrtemp & "|" & Mid (Constr, i, num)
Próximo
Iflen (construtemp) <254then
ConstrTemp = Constrtemp & "|"
Outro
ConstrTemp = esquerda (construtemp, 254) & "|"
Endif
CreateKeyword = construtemp
Função final