'*************************************************
'関数名：CreateKeyWord
'効果：指定された文字列からキーワードを生成します
'引数：constr--キーワードを生成する元の文字列
'戻り値：生成されたキーワード
'*************************************************
functioncreatekeyword（byvalconst、num）
ifconstr = "" orisnull（connt）= trueorconstr = "$ false $" then
createkeyword = "$ false $"
exitFunction
endif
ifnum = "" orisnumeric（num）= falsethen
num = 2
endif
const = cheplage（connt、chr（32）、 ""）
const =置換（contr、chr（9）、 ""）
const = cheplage（connt、 ""、 ""）
const = cheplage（connt、 ""、 ""）
const = cheplace（connt、 "（"、 ""）
const = cheplage（connt、 "）"、 ""）
const = cheplage（connt、 "<"、 ""）
const = cheplage（connt、 ">"、 ""）
const = cheplage（connt、 "" ""、 ""）
const = cheplage（connt、 "？"、 ""）
const = cheplage（connt、 "*"、 ""）
const = cheplage（connt、 "|"、 ""）
const =置換（contr、 "、"、 ""）
const = cheplage（connt、 "。"、 ""）
const = cheplage（connt、 "/"、 ""）
const = cheplage（connt、 "/"、 ""）
const = cheplage（connt、 " - "、 ""）
const = cheplage（connt、 "@"、 ""）
const = cheplage（connt、 "＃"、 ""）
const =置換（connt、 "$"、 ""）
const = cheplage（connt、 "％"、 ""）
const = cheplage（connt、 "＆"、 ""）
const =置換（connt、 "+"、 ""）
const = cheplage（connt、 "："、 ""）
const = cheplage（connt、 "："、 ""）
const =置換（contr、 "'"、 ""）
const =置換（contr、 "" "、" "）
const =置換（contr、 "" "、" "）
const = cheplage（connt、 "＆"、 ""）
const =置き換え（contr、 "gt;"、 ""）
ディミ、conttemp
fori = 1tolen（contr）
consttemp = contrtemp＆ "|"＆mid（contr、i、num）
次
iflen（consttemp）<254then
consttemp = consttemp＆ "|"
それ以外
consttemp = left（consttemp、254）＆ "|"
endif
consttemp = left（consttemp、len（consttemp）-1）
consttemp = right（consttemp、len（consttemp）-1）