實現支持邏輯搜索/單詞搜索/詞組搜索+支持OR/AND關鍵字的VBS CL

2024-05-04 11:02:56

字體：大中小

來源：轉載

供稿：網友

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

上一篇：ByVal和ByRef(編寫ASP子程序所用到命令）

下一篇：ASP 類專題