récupérer une ligne de texte pointée dans un fichier txt

récupérer une ligne de texte pointée dans un fichier txt - VB/VBA/VBS - Programmation

Marsh Posté le 08-07-2009 à 16:55:06    

Bonjour à tous,  
 
Je suis étudiant ingénieur systèmes mécanique en stage et j'ai appris le VBA par mes propres moyens depuis 2 mois
 
Après avoir beaucoup cherché sur le net je viens vous poser ma question :
 
Est-il possible de récupérer une ligne (pointée) contenue dans un fichier texte ?
 
je veux dire par là, en gros, comment dire en vba "Va me chercher le contenu de cette ligne !"  :heink:  
 
voici ce que j'arrive à faire :  
 

Code :
  1. Dim oFSO As Scripting.FileSystemObject
  2. Dim oFl As Scripting.File
  3. Dim oTxt As Scripting.TextStream
  4. 'Instanciation du FSO
  5. Set oFSO = New Scripting.FileSystemObject
  6. Set oFl = oFSO.GetFile(filePath)
  7. Set oTxt = oFl.OpenAsTextStream(ForReading)
  9. While Not oTxt.AtEndOfStream
  10.     oTxt.ReadAll
  11.     MsgBox oTxt.line
  12. Wend


 
ce morceau de programme m'affiche le nombre de lignes de mon fichier texte (filePath c'est le chemin du fichier bien entendu), je n'arrive à rien de plus
 
aussi, je me suis rendu compte qu'à la fin de ma boucle while, je me retrouve à la fin de mon fichier, et donc j'arrive plus à travailler avec. il faut le fermer et le rouvrir ?
 
Merci d'avance pour votre aide !
 
Romain

Reply

Marsh Posté le 08-07-2009 à 16:55:06   

Reply

Marsh Posté le 09-07-2009 à 10:16:49    

Ta question n'est pas claire: tu veux aller à la ligne numéro X ou tu veux savoir où est le texte "XX" dans ton fichier?

Reply

Marsh Posté le 09-07-2009 à 12:22:43    

Aller à la ligne numéro X. c'est possible ?
 
Merci
 
Romain

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed