<％
'*******************************
'機能：CheckQuery（byvalstr）
'引数：str -----検索文字列
著者：アリクシ
'日付：2007/7/15
'説明：検索を制限するキーワード
'例：checkquery（str）
'*******************************
publicFunctionCheckQuery（byvalstr）
dimfobwords、i、キーワード
キーワード= str
onerrorresumenext
fobwords = array（91,92,304,305,430,431,437,438,12460,12461,12462,12463,12464,12465,124 66,12467,12468,12469,12470,12471,12472,12473,12474,12475,12476,12477,12478,12479,1248 0,12481,12482,12483,12485,12486,12487,12488,12489,12490,12496,12497,12498,12499,12500 、12501,12502,12503,12504,12505,12506,12507,12508,12509,12510,12532,12533,6539,65340）
fori = 1toubound（fobwords、1）
ifinstr（キーワード、chrw（fobwords（i）））> 0then
checkquery = false
exitFunction
endif
次
fobwords = array（ "〜"、 "！"、 "@"、 "＃"、 "$"、 "％"、 "^"、 "＆"、 "*"、 "（"、 "）、" _ "+"、 "+" = "" = "、" ";"、 "："、 "" "" "" "" "" "" "" "" '"、"' "、"、 "、"> "、"/"、"/"、" | "、"？ "？"？ "？"？ "？"？ "？ 「別の」、「any」、「ase」、「as」、「at」、「be」、「as」、「be "、" be beot "、" before "、" beiting "、" both "、" by "、" came "、" come "、" come "for" for "、"、 "for"、 "、" for "、"、 "for"、 "、" for "、" for "、" for "、" for "、"、 「、「have」、「he」、「her」、 "here"、 "here"、 "his"、 "heself"、 "his"、 "how"、 "in"、 "into"、 "it"、 "like"、 "make"、 "me"、 "might"、 "more"、 "、"、 "、"、 "、"、 "、"、 "、"、 "、"、 "、"、 "、"、 "、"、 "、"、 "、"、 "、"、 "、"、 "、"、 "、"、 "、「 "only","or","other","our","out","over","say","some","should","since","some","still","such","take","than","that","the","their","them","then","there","these","they","this","this")
キーワード=左（キーワード、100）
キーワード=置換（キーワード、 "！"、 ""）