Lecture de fichier .txt: trouver la ligne courante

Bonjour,

Je souhaite lire un fichier .txt ligne par ligne et remplir un tableau du contenu de chaque ligne.

Pour cela, j'aimerais connaitre le numéro de la ligne courante pour en faire l'indice incrémental de mon tableau.

En gros je veux mettre dans MaTable(1) le contenu de la ligne 1, dans MaTable(2) le contenu de a ligne 2 ... dans MaTable(n) le contenu de a ligne n.

J'aimerais faire un truc comme ça.

Dim ContenuLigne As String
Dim MaTable() As String

Open "C:\Users\..\MonFichier.txt" For Input As #IndexFichier
Line Input #IndexFichier, ContenuLigne

Do Until EOF(IndexFichier)
              Line Input #IndexFichier, ContenuLigne
                        MaTable ( lenumérodelaligne) = ContenuLigne                                           
              End If

 Loop
Close #IndexFichier 

Sauf que je ne sais pas accéder à la valeur de la ligne en cours, donc je ne sais pas quoi mettre à la place de lenumérodelaligne.

Merci pour votre aide

Cdt

Bonjour,

à tester,

Sub test_lire_txt()
Dim ff As Integer, lignes() As String, Temp As String
ff = FreeFile
Fichier = "C:\Users\isabelle\Documents\Test2\Aaax.docx"

Open Fichier For Binary As #ff

Temp = String(FileLen(Fichier), " ")
Get #ff, , Temp ' Récupère tout le fichier
Close #ff
lignes = Split(Temp, vbCrLf)

For i = LBound(lignes) To UBound(lignes)
x = lignes(i)
Next

End Sub

Bonjour,

Merci pour votre proposition, dans l'urgence je n'ai pas eu le temps de bien regarder.

Je m'en suis sorti en incrémentant un compteur dans la boucle et en utilisant un tableau dynamique avec ReDim Preserve.

Dim ContenuLigne As String

Dim MaTable() As String

Dim LigneCourante As Integer

Open "C:\Users\..\MonFichier.txt" For Input As #IndexFichier

Line Input #IndexFichier, ContenuLigne

Do Until EOF(IndexFichier)

Line Input #IndexFichier, ContenuLigne

ReDim Preserve MaTable(LigneCourante)

MaTable (LigneCourante) = ContenuLigne

LigneCourante = LigneCourante + 1

Loop

Close #IndexFichier