Discussion :

[chrisaccess]

Bonjour,

Je souhaite vérifier si le contenu d'un textbox ou d'une variable contient un mot.
Mes recherches m'ont permis de trouver la fonction "like"

J'ai monté un programme test afin de comprendre son utilisation mais il semble que je sache pas l'utiliser.

Ce programme me réponds toujours faux ?????

Pouvez vous m'éclairer ?

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
18
Sub test()
 
Dim test As String
Dim result As Boolean
Dim result1 As Single
 
test = "le bonjour j'aime le revolver"
result = test Like "le"
result1 = test Like "le"
MsgBox test & " : " & result & " - " & result1
If test Like "le" Then
    MsgBox "vrai"
Else
    MsgBox "faux"
End If
 
 
End Sub

merci pour votre aide,

[chrisaccess]

Il fallait rajouter 2 "*" dans le contenu du mot à chercher :
Je l'ai trouvé dans un exemple qui m'a intrigué.

Par contre la condition ne fonctionne pas car elle reste toujours fausse

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
18
Sub test()
 
Dim test As String
Dim result As Boolean
Dim result1 As Single
 
test = "le bonjour j'aime le revolver"
result = test Like "*le*"
result1 = test Like "*le*"
MsgBox test & " : " & result & " - " & result1
If test Like "le" Then
    MsgBox "vrai"
Else
    MsgBox "faux"
End If
 
 
End Sub

DONC ce code fonctionne :

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
 
Sub test()
 
Dim test As String
Dim result As Boolean
 
test = "bonjour j'aime  revolver"
result = test Like "*le*"
MsgBox test & " : " & result
If result = True Then
    MsgBox "vrai"
Else
    MsgBox "faux"
End If
 
 
End Sub

Les explications sont très peu claire sur cette fonction !!!!!!
Cela aidera peut être quelqu'un d'autre dans l'avenir qui aura chercher comme moi !!

merci

[riaolle]

Bonjour,
La page suivante donne un certain nombre d'exemple pour comprendre la fonction : https://msdn.microsoft.com/fr-fr/library/swf8kaxw.aspx

[unparia]

Bonjour
1) je ne vois pas en quoi :

Les explications sont très peu claire sur cette fonction !!!!!!

Elles m'ont toujours paru très claires et ce : depuis mes tous premiers pas en VB
2) il ne faut pas abuser gratuitement de l'opérateur Like, là où suffit une simple utilisation de la fonction Instr (elle également exposée de manière claire dans l'aide VBA)

[joe.levrai]

il ne faut pas abuser gratuitement de l'opérateur Like, là où suffit une simple utilisation de la fonction Instr (elle également exposée de manière claire dans l'aide VBA)

Bonjour,

cette remarque, comme toute tes remarques, n'est pas anodine, et m'interpelle.

tu fais ici allusion aux ressources mobilisées par Like par rapport à Instr (et donc du temps d'exécution) ou plutôt à une fiabilité plus grande de Instr si on ne sait pas correctement utiliser Like par rapport au contexte du projet (notamment si on évalue mal le type et les combinaisons de valeurs qu'on va analyser) ?

[unparia]

Bonjour joe.levrai
Je ne fais là allusion qu'à la vitesse d'exécution. Instr est plus léger que Like
Petit test :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
chaine = "voila une chaîne de caractères"
sous_chaine = "cha"
Dim deb As Single
deb = Timer
For i = 1 To 1000000
  toto = InStr(chaine, sous_chaine)
Next
MsgBox Timer - deb
 
deb = Timer
For i = 1 To 1000000
  toto = chaine Like "*" & sous_chaine & "*"
Next
MsgBox Timer - deb

Amitiés

La principale raison de cette différence de vitesse d'exécution est à rechercher dans toute la boîte d'outils que transporte avec lui l'opérateur Like (tous les cas de figure). C'est un peu le même genre de cause qui fait qu'utiliser par exemple FSO revient à "transporter" dans sa "valise" tout ce dont FSO a besoin.

[joe.levrai]

Plus encore que ma fainéantise légendaire, j'ai surtout posé la question pour soit écrit noir sur blanc au sein du forum cette réponse explicite, qui servira à d'autres également

Rapport de 1/5 de mon côté en testant : Instr est 5 fois plus rapide à l'exécution de ton exemple
De quoi me faire réfléchir à modifier des grosses procédures dont je dispose pour encore les optimiser

merci


EDIT : il me vient de ce fait une seconde question, qui n'attend pas forcément réponse

dans la mesure où Instr va chercher une position (existante ou non) et que Like va chercher l'existence (donc chercher au préalable une position) et en fournir un état booléen, ne pouvons-nous pas considérer que Like ajoute une couche de "traitement" qui puisse également justifier d'une rallonge de traitement, indépendamment du fait qu'il soit nativement plus lourd car "couteau-suisse" par rapport à Instr() ?

vous avez 4h !

[unparia]

Instr va chercher une position (existante ou non) et que Like va chercher l'existence (donc chercher au préalable une position) et en fournir un état booléen

Non car un état booléen est plus rapide à définir qu'une valeur. Mais Like demeure cependant plus lent en dépit de cet avantage.
Preuve par un second test où on va charger (inutilement) la mule de Instr en lui faisant subir une expression booléenne en plus de la valeur de la position :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
chaine = "voila une chaîne de caractères"
sous_chaine = "cha"
Dim deb As Single
deb = Timer
For i = 1 To 1000000
  toto = InStr(chaine, sous_chaine) > 0 ' regarde on va faire faire deux contrôles à instr (valeur + booléenne)
Next
MsgBox Timer - deb
 
deb = Timer
For i = 1 To 1000000
  toto = chaine Like "*" & sous_chaine & "*"
Next
MsgBox Timer - deb

Instr demeure plus rapide malgré cette taxe supplémentaire (et inutile).

La cause de la lenteur relative de Like est vraiment à rechercher dans le fait que le traitement de cet opérateur impose le transport de toute la valise des outils divers de Like alors que (dans le cas de figure qui nous intéresse) Instr se contente d'un seul outil : celui de la détermination de la position éventuelle

[joe.levrai]

Je n'ai pas su expliquer suffisamment clairement mon propos, qui rejoint une partie de ton dernier paragraphe

outre le fait que quoi qu'on fasse, Instr() sera plus rapide que Like, je m'interrogeais futilement sur le fait qu'au delà du "couteau-suisse" qui forcément pèse plus lourd, le fait que Instr() ne lit qu'une position pour la restituer, n'était pas par essence plus rapide que la nécessité pour Like de :

- chercher une position (ce que fait Instr(), et probablement d'une manière différente ?)
- l'ayant trouvé (ou non) renvoyer un booléen

c'est du pur chipotage ma question, à côté de la lenteur liée au "couteau suisse" ce n'est qu'un grain de sable posé sur une belle et grande dune saharienne

[unparia]

Je n'ai pas su expliquer suffisamment clairement mon propos

Si si !
J'avais parfaitement compris ton propos...
Et c'est bel et bien à ce propos que j'ai fait un nouveau test pour charger (en vain) la mule de Instr ...
Amitiés.
Là, je vais à la pêche, maintenant ... (et donc absent pour environ 3 heures).

EDIT (avant de tenter d'intéresser la louvine) : la religion d'un athée (ce que je suis) :
- donner toujours, lorsque l'on peu choisir, la priorité aux fonctions "simples" et peu "gourmandes" (Left, Right, Instr)
- si vraiment nécessaire --->> penser à l'opérateur Like
- si Like ne suffit pas, penser seulement alors aux expressions régulières, que je refuse personnellement (et que ma machine, ou VBS est délibérément totalement inhibé, refuse également)
(je dois être fou ... ).

[chrisaccess]

Bonsoir messieurs,

Je vois que le débat a été animé pendant mon absence.

Après lecture de vos échanges je vais modifier mon code et utiliser instr.
Si j'ai bien compris instr renvoyant un nombre d'occurence il suffit de vérifier si instr est supérieur à 0 pour validé que le mot existe.

Une question :
J'ai testé la fonction like sur ces 2 exemples :

exemple 1 : "le marteau et le clou sont perdus"
exemple 2 : "carole est en forme"

Je voudrais donc pousser le débat.
Dans les 2 cas j'obtiens vrai avec la fonction like.
Le problème est que je souhaite testé le mot complet.
Donc dans mes 2 exemples je devrais avoir exemple 1 = vrai et exemple 2 = faux.

pour l'exemple ci dessous le code donne la réponse " 1 - 5 " alors que la réponse attendu est " 1 - 0"

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
Sub test()
 
Dim test1 As String
Dim test2 As String
Dim result As Single
Dim result1 As Single
 
test1 = "le marteau est le clou sont perdus"
test2 = "carole est en forme"
result = InStr(test1, "le")
result1 = InStr(test2, "le")
 
MsgBox result & " - " & result1
 
End Sub

merci pour votre aide


La question : comment paramétrer instr pour rechercher sur le mot

[unparia]

Si j'ai bien compris instr renvoyant un nombre d'occurence

Non. Il retourne la position à laquelle existe la première occurrence de la chaîne
Pour le reste (mot entier). Je vais te laisser (tout de même) t'y mettre un peu !
Juste une piste :
un mot "mot" est entier si :
- il est entouré d'espaces
ou
- s'il est au tout début et suivi d'un espace ou d'un point de ponctuation
ou
- s'il est à la toute fin et précédé d'un espace
etc ...
Ce qui fait que tu vas devoir travailler avec plusieurs fonctions de traitement de chaînes de caractères.
Quelles sont les fonctions utiles aux traitement de chaînes de caractères ? --->> les voilà : Left, Right, Instr, InStrRev, Len, Mid, LCase, Ucase (sans oublier Like, dont nous avons déjà suffisamment parlé)
Il va te falloir ouvrir ton aide VBA sur chacune de ces fonctions et les étudier.
Tu voudras bien comprendre, s'il te plait, que ce forum n'est pas un "magasin" où l'on fait tout à ta place. Il te faut également faire un effort (de lecture, de compréhension, de petits tests, etc ...)
Maintenant : cette discussion a été ouverte pour :

Rechercher un contenu dans une variable

Tu as reçu non pas une, mais deux solutions à cette difficulté, telle qu'exposée.
Si tu as maintenant d'autres difficultés (y compris si dans le "prolongement" de la première) : la présente discussion est à clore (tag RESOLU) et une autre discussion est à ouvrir, mais en montrant bien évidemment ce que tu auras au moins tenté sur les bases que je t'ai indiquées.

[pijaku]

Bonjour,

Je suis avec un certain intérêt cette discussion dans la discussion.
Pour tenter d'"élargir" un peu, ne pourrait-on pas imaginer une fonction de "remplacement" de Like, même pour des recherches avec caractères génériques (? et *)?

L'exemple suivant semble fonctionner, mais je voudrais obtenir vos avis :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub test()
Dim c As String, e1 As String, e2 As String, n As Integer, b As Boolean
Dim i As Long, deb As Single
 
    c = "ceci est une chaine de caractères"
    'c = "chaine"
    e1 = "ch"
    e2 = "ne"
    'e2 = "no"
    n = 2
 
    'pour vérifier : "ch??ne"
    deb = Timer
    For i = 1 To 1000000
        b = (InStr(c, e1) + Len(e1) + n = InStr(InStr(c, e1), c, e2))
    Next i
    MsgBox "ch??ne Instr+Len" & " " & Timer - deb & " " & b
 
    deb = Timer
    For i = 1 To 1000000
        b = c Like "*" & e1 & "??" & e2 & "*"
    Next
    MsgBox "ch??ne Like" & " " & Timer - deb & " " & b
 
    'pour vérifier : "ch*ne"
    deb = Timer
    For i = 1 To 1000000
        b = (InStr(InStr(c, e1), c, e2) > InStr(c, e1))
    Next i
    MsgBox "ch*ne Instr" & " " & Timer - deb & " " & b
 
    deb = Timer
    For i = 1 To 1000000
        b = c Like "*" & e1 & "*" & e2 & "*"
    Next
    MsgBox "ch*ne Like" & " " & Timer - deb & " " & b
End Sub

Qu'en dites-vous? Qu'en pensez-vous?

[unparia]

Bonjour Franck
On peut tout imaginer, mais il faudrait alors "imaginer" une démarche de substitution pour chacune des "qualités" (car il en possède beaucoup) de l'opérateur Like.
(je suis persuadé de ce que tu te souviens de l'utilisation que j'en ai montrée il y a un peu plus d'un an - peut-être deux ? - . Elle allait même jusqu'à utiliser ce que la documentation de Like n'expose pas )
L'opérateur Like est très utile dans certains cas ***(complexité de la recherche d'occurrence) , à éviter dans d'autres.

*** L'utilisation de l'opérateur like permet par exemple (et entre autres) de vérifier si une chaîne de caractères contient une sous-chaîne "toto", mais qui ne contient ni la lettre "L", ni la lettre "c" avant "toto", contient la sous-chaine "titi" après "toto" (en précisant si collée ou non à "toto") , et contient la lettre "D" ou la lettre "E" après "toto"

Sans parler de toutes les conjugaisons imbriquées possibles avec les opérateurs NOT, AND, OR ....

[pijaku]

Bonjour Jacques,

(je suis persuadé de ce que tu te souviens de l'utilisation que j'en ai montrée il y a un peu plus d'un an - peut-être deux ? - . Elle allait même jusqu'à utiliser ce que la documentation de Like n'expose pas )

Je m'en souviens, mais n'arrive pas à remettre la main sur ce sujet...

L'utilisation de l'opérateur like permet par exemple (et entre autres) de vérifier si une chaîne de caractères contient une sous-chaîne "toto", mais qui ne contient ni la lettre "L", ni la lettre "c" avant "toto", contient la sous-chaine "titi" après "toto" (en précisant si collée ou non à "toto") , et contient la lettre "D" ou la lettre "E" après "toto"

Sans parler de toutes les conjugaisons imbriquées possibles avec les opérateurs NOT, AND, OR ....

Entièrement d'accord avec toi sur ce point.

[RyuAutodidacte]

Bonjour tout le monde
Coucou Jacques,
Je viens de prendre en cours ce post et je suis très intéressé par tes propos concernant l'opérateur Like et ses possibilités.
Je vais relire attentivement la discussion et intervenir si moyen de le faire, auquel cas, je vais suivre la discussion de près.

Edit : bon j'ai relu attentivement, et j'ai une meilleure vision sur les utilisations de Like ou instr,… etc
dont l'ensemble des propos sont très intéressant, comme par exemple la vitesse d'exécution …