-
'ชื่อฟังก์ชั่น: 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, "" "," ")
const = แทนที่ (const, "&", "")
ข้อ จำกัด = แทนที่ (const, "gt;", "")
dimi, constrtemp
fori = 1tolen (ข้อ จำกัด )
constrtemp = Stractemp & "|" & mid (const, i, num)
ต่อไป
Iflen (Stractemp) <254 จากนั้น
constrtemp = Stractemp & "|"
อื่น
constrtemp = ซ้าย (Stractemp, 254) & "|"
endif
constrtemp = ซ้าย (Stractemp, Len (Stinstemp) -1)
constrtemp = ขวา (Stractemp, Len (Stinstemp) -1)