Rechercher texte en sens inverseRésolu

Question

Salut !

En fait, je souhaiterai pouvoir rechercher du texte ds 1 textbox, mais non pas de gauche à droite, mais en sens contraire (de droite à gauche).

Voici le code pour la recherche avec "texte" le textbox et "text1" le texte à rechercher :

Private Sub Rechercher_Click()

'Recherche si ce qui est écrit dans Text1 existe dans le texte
Position =texte.SelStart +texte.SelLength + 1
Found = InStr(Position, texte, Text1)
   
'Si le mot est trouvé...
If Found <> 0 Then
    'Donne le focus au texte
    texte.SetFocus
    'Sélectionne le texte
    texte.SelStart = Found - 1
    texte.SelLength = Len(Text1)
Else
    MsgBox "Impossible de trouver " & Chr(34) & Text1 & Chr(34), vbInformation + vbOKOnly, "Rechercher texte"
End If

End Sub

Merci d'avance !   8-)

cs_liquide · Accepted Answer

essais la fonction "InstrRev"

Bonne prog, poele_a_frire@hotmail.com
liquide

SkyRocKo · Answer

Merci liquide pour ton aide mais je ne sais pas comment utiliser cette fonction. 

Si quelqu'un saurai le faire...

Merci d'avance   	 8-)

SkyRocKo · Answer

Est-ce que ça marche avec "Step -1" ?

Moi je n'y parviens pas.

vlad2i · Answer

La fonction InStrRev s'utilise comme InStr boy :)

Elles te renvoies la position de la chaine trouvée (1 = première lettre)

Exemple :

A = "ABCABCABChelloABC"
PremierC = InStr(1,A,"C")
'Renvoie la position du premier C
DernierC = InstrRev(A,"B")
'Renvoie la position du dernier B

J'espère que c'est assez clair, sinon demande plus d'informations, n'hésite pas :)

SkyRocKo · Answer

Si je comprend bien, ce qui suit doit être correct :

Texte = "hello tout le monde !!!"
Chercher = "monde"

Sub Rechercher_Click()

'Récupère la position du 1er caractère de la chaîne "Chercher"
Position = InstrRev(Texte, Chercher)

End Sub

Comment on sélectionne le texte trouvé ?

Merci encore    8-)

cs_liquide · Answer

et : 
texte.SelStart = Position 
texte.SelLength = Len(position)

ca sert a le selectionner

Bonne prog, poele_a_frire@hotmail.com
liquide

vlad2i · Answer

Et je crains que tu n'aies pas comprendu :) ou alors ton résumé et pas clair

InStrRev ne renvoie pas la 1ere mais la dernière occurence, et non pa sdu caractère, mais de la chaine que tu recherche, pfff :)

et pour corriger la pouale :

texte.SelStart = Position 
texte.SelLength = Len(TexteAChercher)

cs_liquide · Answer

ouais dsl j'ai merdé

Bonne prog, poele_a_frire@hotmail.com
liquide

SkyRocKo · Answer

C'est pas grave, je faisais quelques essais !

Juste un dernier petit truc ;) Voici mon code :

Private Sub Rechercher_Click()

'Récupère la position du 1er caractère de la chaîne "Chercher"
Position = InStrRev(Texte, Chercher)

'Donne le focus au Textbox
Texte.SetFocus

'Sélectionne le résultat
Texte.SelStart = Position - 1
Texte.SelLength = Len(Chercher)

End Sub

Je souhaiterai juste débuter la rechercher à partir du positionnement du curseur dans le textbox, par exemple avec les données ci-dessous, si j'ai sélectionné auparavant "monde", eh bien qu'il me sélectionne le "e" du mot "le" et non pas du mot "monde". Voilà, j'espère que c'est assez clair.    :) 

Texte = "hello tout le monde !!!"
Chercher = "e"

Merci d'avance !!!   8-)

vlad2i · Answer

Si tu veux faire ca, il faut que ton textbox ait le focus, et tu utilise

Position = InStrRev(Text1.SelStart,Texte,Recherche)

Mais attention, je le dis au passage, ton code mettra un message d'erreur si la recherche est égale à "" ou si il ne trouve pas...

SkyRocKo · Answer

Salut !

J'ai essayé mais chez-moi ça ne marche pas ("Erreur 13 - Type mismatch") :

Private Sub Rechercher_Click()

'Donne le focus au Textbox
Texte.SetFocus

'Récupère la position du 1er caractère de la chaîne "Chercher"
Position = InStrRev(Texte.SelStart, Texte, Chercher)

'Sélectionne le résultat
Texte.SelStart = Position - 1
Texte.SelLength = Len(Chercher)

End Sub

Décidément, je vous donne du boulot en ce moment ;)

cs_liquide · Answer

tu as lu l'aide MSDN sur VB?

regarde comment déclarer la fonction InstrRev, je ne suis pas sur 
que le selstart soit bien aproprié ou bien placé dans la fct.

voila ce que donne msdn : InstrRev(string1, string2[, start[, compare]])

string1 l'expression dans laquelle rechercher
string2 l'expression a rechercher
start le point de départ de la recherche
compare est une option facultative

pour toi selstart correspont au string1, ce qui est l'expression dans laquelle chercher. Hors selstart est un "point de départ" et non une chaine de caracteres.

Bonne prog, poele_a_frire@hotmail.com
liquide

SkyRocKo · Answer

Super, ça marche impec !!!

Merci et bonne continuation

PS: En fait, je n'ai pas msdn car il me manque le cd pour l'installation donc je dois faire sans.

Merci encore     8-)

Rechercher texte en sens inverse

13 réponses

Discussions similaires