Recherche ds un fichier txt

Question

bonjour,

quel est le moyen le plus simple de retrouver une chaîne de car. dans un fichier séquentiel?

AD

---

Alain D

Answer 1

Bonjour, voici de tête, non vérifié :

sub fichier()
 Dim p As Integer
 dim r as long
 dim l as long
 dim ligne_fichier as string
 dim recherche as string
 ChDrive App.Path ' rep courant
 ChDir App.Path ' rep courant
 recherche = "texte recherché"
 l = 0
 p = FreeFile
 Open "nom_fichier.txt" For Input As p
  do while eof(p) = false 
   l = l + 1
   Line Input #p, ligne_fichier
   r = InStr(1, ligne_fichier, recherche, 1)
   if r <> 0 then
    msgbox("Trouvé : ligne = " & l & " : Octet = " & r & vblf & ligne_fichier", vbexclamation)
    exit do
   end if
  loop
 close(p)
end sub

---

Joseph Attila PUSZTAY
EhJoe       Logiciels       Romans       Ecrire

---

Answer 2

bonsoir ehjoe

cette solution me convient; je viens de l'essayer.

A moins qu'on me propose mieux.

Merci pour cette aide.

AD 

---

Alain D

Answer 3

Bonsoir Alain,

 

Bof, c'est une bonne solution...

Si je le mérite, n'oublies pas de me noter, un point en haut à gauche de mes réponse, dans le rectangle bleu où est le triangle vert, c'est pour mon avancement :o)

 

 

 

---

Joseph Attila PUSZTAY
EhJoe       Logiciels       Romans       Ecrire

---