สร้างคำหลักจากสตริงที่กำหนด

'ชื่อฟังก์ชั่น: createKeyword

'เอฟเฟกต์: สร้างคำหลักจากสตริงที่กำหนด

'อาร์กิวเมนต์: ข้อ จำกัด --- สตริงต้นฉบับเพื่อสร้างคำหลัก

'ค่าส่งคืน: คำหลักที่สร้างขึ้น

-

FunctionCreateKeyword (byvalconstr, num)

ifconstr = "" orisnull (cronst) = treaorConstr = "$ false $"

createKeyword = "$ false $"

exitfunction

endif

ifnum = "" orisnumeric (num) = falsethen

num = 2

endif

ข้อ จำกัด = แทนที่ (constr, chr (32), "")

ข้อ จำกัด = แทนที่ (constr, chr (9), "")

ข้อ จำกัด = แทนที่ (const, "", "")

ข้อ จำกัด = แทนที่ (const, "", "")

ข้อ จำกัด = แทนที่ (const, "(", "")

ข้อ จำกัด = แทนที่ (const, ")", "")

ข้อ จำกัด = แทนที่ (const, "<", "")

ข้อ จำกัด = แทนที่ (const, ">", "")

ข้อ จำกัด = แทนที่ (const, "" "," ")

ข้อ จำกัด = แทนที่ (const, "?", "")

ข้อ จำกัด = แทนที่ (const, "*", "")

const = แทนที่ (constres, "|", "")

const = แทนที่ (constres, ",", "")

ข้อ จำกัด = แทนที่ (const, ".", "")

ข้อ จำกัด = แทนที่ (const, "/", "")

ข้อ จำกัด = แทนที่ (const, "/", "")

ข้อ จำกัด = แทนที่ (const, "-", "")

const = แทนที่ (constres, "@", "")

const = แทนที่ (const, "#", "")

ข้อ จำกัด = แทนที่ (const, "$", "")

ข้อ จำกัด = แทนที่ (const, "%", "")

const = แทนที่ (const, "&", "")

ข้อ จำกัด = แทนที่ (const, "+", "")

const = แทนที่ (constres, ":", "")

const = แทนที่ (constres, ":", "")

ข้อ จำกัด = แทนที่ (const, "'", "")

ข้อ จำกัด = แทนที่ (const, "" "," ")

ข้อ จำกัด = แทนที่ (const, "" "," ")

dimi, constrtemp

fori = 1tolen (ข้อ จำกัด )

constrtemp = Stractemp & "|" & mid (const, i, num)

ต่อไป

Iflen (Stractemp) <254 จากนั้น

constrtemp = Stractemp & "|"

อื่น

constrtemp = ซ้าย (Stractemp, 254) & "|"

endif

createKeyword = constrTemp

endfunction