'*********************************************************
'Nama Fungsi: CreateKeyword
'Efek: menghasilkan kata kunci dari string yang diberikan
'Argumen: Constr --- String asli untuk menghasilkan kata kunci
'Nilai pengembalian: kata kunci yang dihasilkan
'*********************************************************
FunctionCreateKeyWord (byvalconstr, num)
Ifconstr = "" orisnull (constr) = trueorconstr = "$ false $" Lalu
CreateKeyword = "$ false $"
Fungsi keluar
Endif
Ifnum = "" orisnumeric (num) = falsethen
Num = 2
Endif
Constr = ganti (constr, chr (32), "")
Constr = REPLACE (CONSPER, CHR (9), "")
Constr = ganti (constr, "", "")
Constr = ganti (constr, "", "")
Constr = ganti (constr, "(", "")
Constr = ganti (constr, ")", "")
Constr = ganti (constr, "<", "")
Constr = ganti (constr, ">", "")
Constr = ganti (constr, "" "", "")
Constr = ganti (constr, "?", "")
Constr = ganti (constr, "*", "")
Constr = ganti (constr, "|", "")
Constr = ganti (constr, ",", "")
Constr = ganti (constr, ".", "")
Constr = ganti (constr, "/", "")
Constr = ganti (constr, "/", "")
Constr = ganti (constr, "-", "")
Constr = ganti (constr, "@", "")
Constr = ganti (constr, "#", "")
Constr = ganti (constr, "$", "")
Constr = ganti (constr, "%", "")
Constr = ganti (constr, "&", "")
Constr = ganti (constr, "+", "")
Constr = ganti (constr, ":", "")
Constr = ganti (constr, ":", "")
Constr = ganti (constr, "'", "")
Constr = ganti (constr, "" "," ")
Constr = ganti (constr, "" "," ")
Constr = ganti (constr, "&", "")
Constr = ganti (constr, "gt;", "")
DIMI, Constrtemp
Fori = 1tolen (constr)
Constrtemp = Constrtemp & "|" & Mid (Constr, I, Num)
Berikutnya
Iflen (Constrtemp) <254then
Constrtemp = Constrtemp & "|"
Kalau tidak
Constrtemp = kiri (Constrtemp, 254) & "|"
Endif
Constrtemp = kiri (Constrtemp, Len (Constrtemp) -1)
Constrtemp = kanan (Constrtemp, Len (Constrtemp) -1)