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