'*********************************************************
اسم الوظيفة: CreateKeyword
التأثير: إنشاء كلمات رئيسية من السلسلة المحددة
'الوسائط: const --- السلسلة الأصلية لإنشاء الكلمة الرئيسية
'قيمة الإرجاع: الكلمة الرئيسية التي تم إنشاؤها
'*********************************************************
وظيفة createKeyword (byvalconston ، num)
ifconstr = "" orisnull (conder) = trueorconstr = "$ false $" ثم
CreateKeyword = "$ false $"
exitfunction
Endif
ifnum = "" orisnumeric (num) = falsethen
Num = 2
Endif
const = استبدال (const ، chr (32) ، "")
const = استبدال (const ، chr (9) ، "")
condr = استبدال (const ، "" ، "")
condr = استبدال (const ، "" ، "")
condr = استبدال (constr ، "(" ، "")
const = استبدال (const ، ")" ، "")
condr = استبدال (const ، "<" ، "")
const = استبدال (const ، ">" ، "")
condr = استبدال (constr ، "" "" ، "")
const = استبدال (const ، "؟" ، "")
const = استبدال (const ، "*" ، "")
const = استبدال (const ، "|" ، "")
condr = استبدال (constr ، "،" ")
const = استبدال (const ، "." ، "")
condr = استبدال (const ، "/" ، "")
condr = استبدال (const ، "/" ، "")
condr = استبدال (constr ، "-" ، "")
const = استبدال (const ، "@" ، "")
const = استبدال (const ، "#" ، "")
condr = استبدال (const ، "$" ، "")
const = استبدال (const ، "٪" ، "")
const = استبدال (const ، "&" ، "")
const = استبدال (const ، "+" ، "")
condr = استبدال (constr ، ":" ، "")
condr = استبدال (constr ، ":" ، "")
const = استبدال (const ، "" "،" ")
condr = استبدال (constr ، "" "،" ")
condr = استبدال (constr ، "" "،" ")
const = استبدال (const ، "&" ، "")
const = استبدال (const ، "gt ؛" ، "")
ديمي ، inventtemp
fori = 1tolen (const)
constremp = constrtemp & "|" & mid (const ، i ، num)
التالي
iflen (constrtemp) <254then
constrtemp = constrtemp & "|"
آخر
constrtemp = left (constremp ، 254) و "|"
Endif
constrtemp = اليسار (constrtemp ، len (constremp) -1)
ConstrEmp = Right (Constrtemp ، len (constremp) -1)