'*********************************************************
'Nom de la fonction: CreateKeyword
'Effect: générer des mots clés à partir de la chaîne donnée
'Arguments: Contr --- La chaîne d'origine pour générer le mot-clé
'Valeur de retour: mot-clé généré
'*********************************************************
FunctionCreateyWord (ByValConstr, Num)
IfConstr = "" orisnull (contr) = trueOrConstr = "$ false $" puis
CreateKeyword = "$ false $"
Sortie
Endire
Ifnum = "" orisnumeric (num) = falsethhen
Num = 2
Endire
Contr = remplacer (CONSTR, CHR (32), "")
Contr = remplacer (CONSTR, CHR (9), "")
Contr = remplacer (CONSTR, "", "")
Contr = remplacer (CONSTR, "", "")
Contr = remplacer (CONSTR, "(", "")
Contr = remplacer (CONSTR, ")", "")
Contr = remplacer (CONSTR, "<", "")
Contr = remplacer (CONSTR, ">", "")
Contr = remplacer (CONSTR, "" "", "")
Contr = remplacer (CONSTR, "?", "")
Contr = remplacer (CONSTR, "*", "")
Contr = remplacer (CONSTR, "|", "")
Contr = remplacer (CONSTR, ",", "")
Contr = remplacer (CONSTR, ".", "")
Contr = remplacer (CONSTR, "/", "")
Contr = remplacer (CONSTR, "/", "")
Contr = remplacer (CONSTR, "-", "")
Contr = remplacer (CONSTR, "@", "")
Contr = remplacer (CONSTR, "#", "")
Contr = remplacer (CONSTR, "$", "")
Contr = remplacer (CONSTR, "%", "")
Contr = remplacer (CONSTR, "&", "")
Contr = remplacer (CONSTR, "+", "")
Contr = remplacer (CONSTR, ":", "")
Contr = remplacer (CONSTR, ":", "")
Contr = remplacer (CONSTR, "'", "")
Contr = remplacer (CONSTR, "" "," ")
Contr = remplacer (CONSTR, "" "," ")
Contr = remplacer (CONSTR, "&", "")
Contr = remplacer (CONSTR, "GT;", "")
Dimi, ContrTemp
Fori = 1Tolen (contrat)
CONSTRITemp = CONSTRTEMP & "|" & mid (CONSTR, I, NUM)
Suivant
Iflen (contraintemp) <254Then
CONSTRITemp = CONSTRITemp & "|"
Autre
ContrTemp = Left (ContrTemp, 254) & "|"
Endire
ContrTemp = Left (CONSTRITemp, Len (CONSTRTEMP) -1)
ContrTemp = Right (CONSTRTEMP, LEN (CONSTRITemp) -1)