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

            If blnTru Then 
                If (i <> "and") And (i <> "or") Then
                    blnTru    = False
                    strAAA = strAAA & strSSS & i & strCCC
                Else
                    blnBBB = false
                    Exit for
                End if
            Else
                If (i = "and") Or (i = "or") Then
                    blnTru    = True
                    strAAA = strAAA & i
                Else
                    blnBBB = False
                    Exit For
                End if
            End if
        Next
        If (Not blnBBB) Then
            ORAND = False
        Else
            ORAND = strAAA
            intStart = 4
        End if
    End Function

    

    Private Function check()
        Dim re