إنشاء كلمات رئيسية من السلسلة المحددة

اسم الوظيفة: 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 ، "" "،" ")

ديمي ، inventtemp

fori = 1tolen (const)

constremp = constrtemp & "|" & mid (const ، i ، num)

التالي

iflen (constrtemp) <254then

constrtemp = constrtemp & "|"

آخر

constrtemp = left (constremp ، 254) و "|"

Endif

CreateKeyword = constrtemp

الوظيفية