<٪
'*********************************
"الوظيفة: CheckQuery (Byvalsstr)
'الحجج: Str ----- سلسلة البحث
المؤلف: Alixi
"التاريخ: 2007/7/15
الوصف: الكلمات الرئيسية التي تقيد البحث
مثال: CheckQuery (STR)
'*********************************
publicfunctionCheckquery (Byvalsstr)
DimFobwords ، أنا ، الكلمة الرئيسية
الكلمة الرئيسية = str
onerrorresumenext
fobwords = صفيف (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،65339،65340)
fori = 1Toubound (Fobwords ، 1)
IFINSTR (الكلمة الرئيسية ، Chrw (fobwords (i)))> 0then
checkquery = خطأ
exitfunction
Endif
التالي
fobwords = array ("~" ، "!" ، "@" ، "#" ، "$" ، "٪" ، "^" ، "،" ، "،" ، "،" ، "_" ، "+" ، "+" ، "=" ، "؛" ، "،": "،" "" "" ، "" "،" "،" "،" ، "" ، "،" ، "،" ، "،" ، "،" ، "؟ "آخر" ، "أي" ، "هي" ، "،" ، "،" ، "،" ، "، لأن" ، "،" ، "قبل" ، "،" بين "،" ، "، لكن" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "t" ، ". لديه "،" Have "،" He "،" Her "،" هنا "،" هنا "،" Him "،" Heself "،" His "،" How "،" If "،" ، "،" ، "،" ، "،" "،" ، "، مثل" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" "فقط" ، "،" ، "،" الآخر "،" لدينا "،" Out "،" Over "،" ، قل "،" بعض "،" يجب "،" ، "،" ، "،" ، "،" مثل "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ، "،" ،
الكلمة الرئيسية = اليسار (الكلمة الرئيسية ، 100)
الكلمة الرئيسية = استبدال (الكلمة الرئيسية "!" ، "")