Discussion :

[nicolas2603]

Bonjour, je ne trouve aucune info qui me permette de compter le nombre de fois qu'un caractère prédéfini est insérer dans un champ de texte.

Par exemple dans un champ "Nom" contenant "truc;machin;bidule;chose" j'aimerais savoir déterminer le nombre de ";" présent. Une piste ? Merci d'avance.

[nicolas2603]

Ok j'ai obtenu un résultat en passant par une fonction. Je ne sais pas si c'est la meilleure solution ni la plus propre, mais ça fonctionne. J'utilise cette fonction avec en paramètre la valeur du champ texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function fonctionVerificationVirgule(txtRecherche As String)
Dim i, n, varNbVirgule, varPositionVirgule As Integer
 
    varNbVirgule = 1
    Do
        varPositionVirgule = InStr(varNbVirgule, txtRecherche, ";")
        If varPositionVirgule > 0 Then
            i = i + 1
            varNbVirgule = varPositionVirgule + 1
        Else
            MsgBox i
            Exit Do
        End If
    Loop
End Function

Maintenant que je sais par exemple que j'ai 3 ";", je voudrais récupérer distinctement les mots séparés par la ; dans des variables du style txt1, txt2, txt3, txt4.

Le but étant d'obtenir, par exemple de la chaine Nom="truc;machin;bidule;chose", un ensemble de txt1="truc", txt2="machin", txt3="bidule", txt4="chose".

C'est envisageable ?

[Jean-Philippe André]

salut,
tu as plusiseurs méthodes pour compter le nombre d'occurences :
- combinaison fonctions Split + Ubound
- Len + Replace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Function NbOc(Chaine As String, Ch As String, Optional RC As Boolean = False) As Long
        If RC Then
           NbOc = (Len(Chaine) - Len(Replace(Chaine, Ch, "", , , 0))) / Len(Ch)
        Else
           NbOc = (Len(Chaine) - Len(Replace(Chaine, Ch, "", , , 1))) / Len(Ch)
        End If
End Function

[nicolas2603]

Salut, le problème avec ce genre de méthode c'est que ça ne me permet pas de récupérer dans des variables le texte compris entre chaque ";" il me semble.

J'ai modifié légèrement ma fonction pour que ce que je cherche à obtenir soit plus simple à comprendre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function fonctionVerificationVirgule(txtRecherche As String)
Dim i, varPositionDepart, varPositionArrivee As Integer
 
    varPositionDepart = 1
    Do
        varPositionArrivee = InStr(varPositionDepart, txtRecherche, ";")
        If varPositionArrivee > 0 Then
            i = i + 1
            varPositionDepart = varPositionArrivee + 1
 
            ' il faut récupérer à chaque tour le mot entre la position varPositionDepart et varPositionArrivee 
            ' dans une variable du style "txtTitre & i"
        Else
            Exit Do
        End If
    Loop
End Function

EDIT : Je viens de découvir la fonction "SPLIT", je ferais pas mieux de l'utiliser pour ce que je veux faire ?

[vodiem]

salut jpcheck et nicolas2603,

- combinaison fonctions Split + Ubound

[nicolas2603]

Oui c'est bien ce que je me disais ! Effectivement j'arrive à récupérer facilement dans un tableau les différents éléments. Maintenant, c'est possible de sortir chaque élément (à chaque "for i=" je suppose) dans une variable incrémentée ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function fonctionVerificationVirgule(txtRecherche As String)
Dim varTableau As Variant
Dim i%
 
    varTableau = fSplit(txtRecherche, ";")
    If IsArray(varTableau) = False Then
        ' un seul mot
    Else
        For i = 0 To UBound(varTableau)
            txt1 =  varTableau(i)
            ' il faudrait que txt1 devienne txt2, puis txt3, etc...
            ' du genre "txt" & i
        Next
    End If
End Function

[Jean-Philippe André]

salut,
où est l'intérêt d'une "variable incrémentée" si tu as déjà tout dans ton tableau ?

que veux-tu faire des données une fois extraites ?

[nicolas2603]

En fait à la base je veux faire une recherche dans ma base en fonction du contenu d'un champ, "titre" par exemple. Mais je souhaite que ma recherche puisse trouver la correspondance, même si le titre tapé n'est pas entier.

Par exemple dans ma base j'ai "Note interne concernant l'estimation des crues". Si je ne connais pas le nom exact j'aimerais que l'on puisse taper par exemple dans le champ titre "note concernant crues". J'ai donc une requête qui fait ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
SELECT *
FROM BASE_documents
WHERE BASE_documents!N <> 0 And BASE_documents!titre like ' " & titre & " ' "
ORDER BY BASE_documents.N;

Mais bien évidemment ça ne retourne aucun résultat, logique. J'ai donc opté pour remplacer les espaces par des *. Là ça me retourne le bon résultat, mais à condition que les mots soient dans le même ordre que dans la base. Cette solution me parait la meilleure si c'est possible de faire interpréter les mots dans n'importe quel ordre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
titre = Replace(titre, " ", "*")
strSQL = strSQL & " And BASE_documents!titre like '*" & titre & "*' "

Donc je me dis que pour que ça fonctionne au maximum, je récupère dans un tableau les différents mots (via SPLIT) et j'adapte ma requête en fonction du nombre de mots. Ce qui me donne par exemple si mon tableau contient 3 résultats :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
SELECT *
FROM BASE_documents
SELECT *
FROM BASE_documents
WHERE BASE_documents!N <> 0 And BASE_documents!titre like '*" & txt1 & "*' And BASE_documents!titre like '*" & txt2 & "*' And BASE_documents!titre like '*" & txt3 & "*'"
ORDER BY BASE_documents.N;

Mais pour ça, il faut qu'à chaque boucle du tableau (post au dessus, avec à la place du ; un espace plutot) la valeur soit associée à la variable ! Je sais que c'est assez complexe (en tout cas à mon niveau il me semble) mais j'espère avoir été assez clair sur ce que je cherche à faire, et comment je procède !

[Jean-Philippe André]

ok,
alors déjà concernant la partie critère de ta requete, je pense qu'un OR serait plus adéquat qu'un AND
ensuite, rien ne t'empêche de générer une requete en passant dans une boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim strSQL As String
Dim i As Integer
strSQL = "SELECT *
FROM BASE_documents
WHERE BASE_documents!N <> 0 And ("
 
varTableau = fSplit(txtRecherche, ";")
For i = 0 to UBound(varTableau)
         strSQL = strSQL & "BASE_documents!titre like '*" & varTableau(i) & "*' OR "
Next i
'ici on supprime le dernier OR en trop
strSQL = Left(strSQL,Len(strSQL)-3)
'et on poursuit la requete
strSQL = strSQL & "ORDER BY BASE_documents.N;"
'on affiche la requete générée pour vérifier
Debug.Print strSQL

[vodiem]

autrement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

critere = "([titre] Like '*" & Replace(champ, ";", "*') OR ([titre] Like '*") & "*')"

avec comme séparateur ";" qui peut être remplacé par l'espace.
avec: "... WHERE " & critere
et peut être en rajoutant qq tests supplémentaires.

[nicolas2603]

là je dis "BRAVO". Je ne m'en suis pas sorti avec ta solution vodiem (mais bon je ne suis pas top doué non plus), par contre avec celle de jpcheck légèrement adapté à mon code fonctionne nickel ! Que je mettre 1 ou 150 mots, dans n'importe quel ordre, ça fonctionne !!!

Merci bcp et franchement chapeau !