RECHERCHE BOOLÉENNE

<%

Function Recherche(ByVal Req, ByVal nextDefault)

  If (UCase(nextDefault) <> "AND" And UCase(nextDefault) <> "XOR") Then nextDefault = "OR"

  'Declaration des diférentes variables
  Dim compReq
  Dim Recherche0
  Dim Recherche1
  Dim nextField
  Dim start

  'Supprime les espaces en début et fin de recherche, ainsi que les espaces multiples de la recherche
  
  Req = Trim(Req)

  Do While Len(compReq) <> Len(Req)
    compReq = Req
    Req = Replace(Req, "  ", " ")
  Loop

  Recherche0 = "SELECT * FROM MaTable"
  Recherche1 = " WHERE ("
  
  'Si la recherche n'est pas vide
  If ((Req <> "") And (Req <> " ")) Then

    Dim tblReq

    'on découpe les termes de la recherche
    tblReq = Split(req, " ")
    nbTermes = UBound(tblReq)

    nextField = nextDefault

    start = 1

    'traitement du premier mot (qui ne doit être ni AND ni OR ni XOR)
    If (UCase(tblReq(0) <> "AND") And (UCase(tblReq(0)) <> "OR") And (UCase(tblReq(0)) <> "XOR")) Then
      
      'Si le premier mot est "NOT" alors le 2ème ne doit pas apparaitre
      If (UCase(tblReq(0)) = "NOT" And (nbTermes > 0)) Then
        Recherche1 = Recherche1 & "champ Not Like '%" & tblReq(1) & "%' " 
        start = 2
      'Sinon le permier mot doit apparaitre (sauf si la recherche est "NOT", dans ce cas il n'y a pas de critère de recherche)
      ElseIf UCase(tblReq(0)) <> "NOT" Then
        Recherche1 = Recherche1 & "champ Like '%" & tblReq(0) & "%' "
      End If

    Else
      If nbTermes > 0 Then
        Recherche1 = Recherche1 & "champ Like '%" & tblReq(1) & "%' "
        start = 2
      End If
    End If


    'On regarde tous les termes trouvés dans la recherche
    For ii = start To nbTermes

      'On regarde s'il y a un mot booléen
      Select Case UCase(tblReq(ii))
        Case "AND"
          nextField = "AND"
        Case "OR"
          nextField = "OR"
        cASE "XOR"
          nextField = "XOR"
          'Le cas "Not" est particulier, car le mot clef ne s'utilise pas de la même facon que "AND" et "OR"
          '"NOT" ne dois pas être le dernier mot
        Case "NOT"
          If ii < nbTermes Then
            ii = ii + 1
            Recherche1 = Recherche1 & nextField & " champ Not Like '%" & tblReq(ii) & "%' "
          End If
          'Sinon, on ajoute le mot à la chaine de recherche
        Case Else
          Recherche1 = Recherche1 & nextField & " champ '%" & tblReq(ii) & "%' "
          nextField = nextDefault
      End Select
      
    Next
    
    
  End If

  If Len(Recherche1) > 8 Then
    Recherche = Recherche0 & Recherche1 & ")"
  Else
    Recherche = Recherche0
  End If
  
End Function

%>

01 décembre 2005 15:26:31 :

Ajout d'un commentaire à coté du Replace, on ne voyait pas bien les 2 espaces

02 décembre 2005 08:56:16 :

Ajout des balises <% et %> (j'avais même pas vu que je les avait pas mises, honte à moi ^^)

02 décembre 2005 10:34:32 :

Mise à jour de divers bugs (par exemple si la recherche commence par AND ou OR ou XOR) et ajour de parenthèses autour de la clause WHERE (pour en ajouter d'autres qui ne suivent pas forcément le même shéma)