Extraire un mot dans un fichier texte

[Résolu/Fermé]
Signaler
Messages postés
35
Date d'inscription
dimanche 21 mars 2010
Statut
Membre
Dernière intervention
28 juin 2011
-
Messages postés
35
Date d'inscription
dimanche 21 mars 2010
Statut
Membre
Dernière intervention
28 juin 2011
-
Bonjour,
je veux extraire un mot du ligne parcouru.comment faire
voila mon code

Private Sub ouvrir_Click()
On Error Resume Next
Open "C:\Windows\Bureau\note.TXT" For Input As #1
retour = Chr$(13) + Chr$(10)
Line Input #1, texte
tout = texte
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
tout = tout + retour + texte
Wend
End If
Close #1
End Sub


1 réponse

Messages postés
89
Date d'inscription
jeudi 9 juin 2011
Statut
Membre
Dernière intervention
1 août 2016
34
Bonjour

Quelle version de VB utilisez-vous ?

La fonction InStr est toute dévouée pour cette tâche.

Exemple: https://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/#LI-E

Bon succès,
Messages postés
35
Date d'inscription
dimanche 21 mars 2010
Statut
Membre
Dernière intervention
28 juin 2011

merci beaucoup. très suffisant l'exemple.