présence d'une chaine dans une chaineRésolu

Question

Bonjour a tous....

Avec mon explorateur d'objet en anglais je n'ai pas trouvé mais ça doit exister mais .....
Y a t'il une commande qui permette de recherche un mot (string) dans une phrase (string aussi)?   

sinon comment faire? Merci

 Pompier un jour Pompier toujours

lillith212 · Accepted Answer

Re,

As-tu essayé de retirer le 0...???

Private Sub CommandTRI_Click()
  Dim canal2 As Byte
  canal2 =  FreeFile
   Open Accueil.LecRes & "GestRH\Data\Log" & FileDATE.FileName For Input As canal2 
  TextLOG.Text  = ""
  Do Until EOF(canal2)
     Line Input #canal2, ligne
     If InStr(ligne, Trim(TextTRI.Text)) > 0 Then
        TextLOG.Text = TextLOG.Text + ligne + vbCrLf
     End If
Loop
Close canal2
End Sub

Les majuscules et minuscules sont vérifiées elles aussi... Fait un pas à pas et compare tes 2 chaines en mettant un espion sur ligne et sur trim(textTRI.text)
Bon courage et n'hesite pas si ca marche toujours pas.

slb
---------------------------------------------------------------
Il faut beaucoup donner pour recevoir un tout petit peu...
---------------------------------------------------------------

Utilisateur anonyme · Answer

Salut,

Oui, voir InStr

__________
  Kenji

lillith212 · Answer

Salut,

tu utilises la fonction instr...

exemple :
InStr(optionnel pointdépart, chaine, chainerecherchée) il te retourne un integer...

SLB

---------------------------------------------------------------
Il faut beaucoup donner pour recevoir un tout petit peu...
---------------------------------------------------------------

cs_BANDIT007 · Answer

Merci ....

Mais je n'arrive pas a l'utiliser? 

Je veux ouvrir un fichier texte et n'afficher que le ligne qui contienne le contenu d'une textbox nomé "TextTRI"

voila mon code:

Private Sub CommandTRI_Click()
  Dim canal2 As Byte
  canal2 =  FreeFile
   Open Accueil.LecRes & "GestRH\Data\Log" & FileDATE.FileName For Input As canal2 
  TextLOG.Text  = ""
  Do Until EOF(canal2)
     Line Input #canal2, ligne
     If InStr(0, ligne, Trim(TextTRI.Text)) > 0 Then
        TextLOG.Text = TextLOG.Text + ligne + vbCrLf
     End If
Loop
Close canal2
End Sub
J'ai essayé d'afficher ke résultat de instr mais même ça je n'y arrive pas?

La PuIsAnCe et dans le CODE (quand on sais le codé)

cs_BANDIT007 · Answer

Oui c'était ça...

merci 

La PuIsAnCe et dans le CODE

Présence d'une chaine dans une chaine

5 réponses

Votre réponse

Discussions similaires