实现支持逻辑搜索/单词搜索/词组搜索+支持OR/AND关键字的VBS CL

CLASS功能.替换传入的字符串成为SQL语句Where关键字后面的表达式:

词语搜索 [例如: 小明]

词组搜索
词组里面每一个词都将被检索
例如: 小强1 小名1 小强强小小强

逻辑搜索
支持 And 和 Or 运算符.
例如: 小明 And 小强 And 小小强

复合条件:
例如:(小小明 Or 小明) And (小强 Or 小小强)
例如:(小小明 Or 小名) And 小小强
例如: ROOT1 And (广东人 Or 北京人)
-----------------------------------------------------------
复制代码代码如下:

Class CreateQueryString

    Public objReg
    Public intStart
    Public strField
    Private objNode2
    Private strText

    Public Property Let QueryString( strValue )
        strText = Lcase( strValue )
    End Property

    Private Sub Class_Initialize()
        Set objReg = new RegExp
        strField = "(标题+文章)"
    End Sub

    Private Sub Class_Terminate()
        Set objReg = Nothing
    End Sub

    Public Default Function GetText()
        Dim blnRes
        Dim strSky
        With objReg
            .IgnoreCase = true
            .Global     = True
            .Pattern    = "/s"
            blnRes = .Test( strText )
        End With
        If (Not blnRes) Then
            intStart = 2
            GetText  = strField & " like '%" & strText & "%'"
        Else
            objReg.Pattern = "/sand|/sor"
            blnRes = objReg.Test( strText )
            If blnRes Then
                strSky = check()
                If strSky = False Then
                    GetText = wahaha()
                Else
                    GetText = strSky
                End if
            Else
                GetText = wahaha()
            End if
        End If
    End Function

上一篇：支持加号空格的查询

下一篇：结合asp和存储过程做的搜索程序

发表评论

共有条评论