CLASS功能.替換傳入的字符串成為SQL語句Where關鍵字後面的表達式:
詞語搜索[例如:小明]
詞組搜索
詞組裡面每一個詞都將被檢索
例如:小強1小名1小強強小小強
邏輯搜索
支持And和Or運算符.
例如:小明And小強And小小強
複合條件:
例如:(小小明Or小明)And(小強Or小小強)
例如:(小小明Or小名)And小小強
例如:ROOT1And(廣東人Or北京人)
-----------------------------------------------------------
複製代碼代碼如下:
ClassCreateQueryString
PublicobjReg
PublicintStart
PublicstrField
PrivateobjNode2
PrivatestrText
PublicPropertyLetQueryString(strValue)
strText=Lcase(strValue)
EndProperty
PrivateSubClass_Initialize()
SetobjReg=newRegExp
strField="(標題+文章)"
EndSub
PrivateSubClass_Terminate()
SetobjReg=Nothing
EndSub
PublicDefaultFunctionGetText()
DimblnRes
DimstrSky
WithobjReg
.IgnoreCase=true
.Global=True
.Pattern="/s"
blnRes=.Test(strText)
EndWith
If(NotblnRes)Then
intStart=2
GetText=strField&"like'%"&strText&"%'"
Else