'*******************************************************
'Имя функции: CreateKeyWord
'Эффект: генерировать ключевые слова из данной строки
'Аргументы: создать --- исходная строка для генерации ключевого слова
'Return Value: сгенерированное ключевое слово
'*******************************************************
FunctionCreateKeyword (byvalconstr, num)
Ifconstr = "" orisnull (constry) = trueorconstr = "$ false $" then
CreateKeyWord = "$ false $"
Выходная функция
Эндиф
Ifnum = "" orisnumeric (num) = falsethen
Num = 2
Эндиф
Constr = reply (constr, chr (32), "")
Constr = reply (constry, chr (9), "")
Constr = reply (constry "", "")
Constr = reply (constry "", "")
Constr = reply (constr, "(", "")
Constr = reply (constry ")", "")
Constr = reply (constr, "<", "")
Constr = reply (constr, ">", "")
Constr = reply (constr, "" "", "")
Constr = reply (constr, "?", "")
Constr = reply (constr, "*", "")
Constr = reply (constry, "|", "")
Constr = reply (constr, ",", "")
Constra = reply (constr, ".", "")
Constr = reply (constry, "/", "")
Constr = reply (constry, "/", "")
Constr = reply (constr, "-", "")
Constr = reply (constr, "@", "")
Constr = reply (constr, "#", "")
Constr = reply (constr, "$", "")
Constr = reply (constry, "%", "")
Constr = reply (constry, "&", "")
Constr = reply (constr, "+", "")
Constr = reply (constry »:", "")
Constr = reply (constry »:", "")
Constr = reply (constry, "'", "")
Constr = reply (constr, "" "," ")
Constr = reply (constr, "" "," ")
Constr = reply (constry, "&", "")
Constr = reply (constr, "gt;", "")
DiMi, Constrtemp
Fori = 1tolen (const)
Constrtemp = constrtemp & "|" & mid (constry, i, num)
Следующий
Iflen (constryemp) <254then
Constrtemp = constrtemp & "|"
Еще
Constrtemp = Left (Constrtemp, 254) & "|"
Эндиф
Constrtemp = left (constrtemp, len (constrtemp) -1)
Constrtemp = right (constrtemp, len (constrtemp) -1)