-
-
'ฟังก์ชั่น: CheckQuery (byvalstr)
'อาร์กิวเมนต์: str ----- สตริงค้นหา
'ผู้แต่ง: Alixi
'วันที่: 2007/7/15
'คำอธิบาย: คำหลักที่ จำกัด การค้นหา
'ตัวอย่าง: CheckQuery (STR)
-
PublicFunctionCheckQuery (byvalstr)
dimfobwords, i, คำหลัก
คำหลัก = str
onerrorresumenext
fobwords = อาร์เรย์ (91,92,304,305,430,431,437,438,12460,12461,12462,12463,12464,12465,124,12462,12463,12464,12465 66,12467,12468,12469,12470,12471,12472,12473,12474,12475,12476,12477,12478,12479,12475,12476,12477 0,12481,12482,12483,12485,12486,12487,12488,12489,12490,12496,12497,12498,12499,12500,12496,12488 , 12501,12502,12503,12504,12505,12506,12507,12508,12509,12510,12532,12533,65339,65340)
fori = 1toubound (fobwords, 1)
ifinstr (คำหลัก, chrw (fobwords (i)))> 0 แล้ว
CheckQuery = FALSE
exitfunction
endif
ต่อไป
fobwords = array ("~", "!", "@", "#", "$", "%", "^", "&", "*", "(", ","), "_", "+", "+", "=", "", "" "," ";", ":", "" "", "" "," "", "" "," ","> ","/","/",", "|", "?"? " "อีก", "ใด ๆ ", "คือ", "เป็น", "ที่", "be", "เพราะ", ",", "ก่อน", "เป็น", "ระหว่าง", "ทั้งสอง", "แต่", "โดย", "มา", ",", ",", ",", ",", ",", ",", ",", ",", มี "," มี "," เขา "," เธอ "," ที่นี่ "," ที่นี่ "," เขา "," heself "," ของเขา "," อย่างไร "," ถ้า "," ใน "," เข้าไปใน "," คือ "," มัน ",", ",", ",", ",", ",", ",", ",", ",", ",", "," "Only", "หรือ", "อื่น ๆ ", "ของเรา", "out", "over", "พูด", "บาง", "ควร", "ตั้งแต่", "บางคน", "ยัง", "เช่น", ",", ",", ",", ",",
คำหลัก = ซ้าย (คำหลัก, 100)
คำสำคัญ = แทนที่ (คำหลัก, "!", "")