Discussion :

[Invité]

Bonjour,

J'utilise la macro suivante, extrêmement simple, je veux simplement lire mon fichier toto.txt ligne par ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Go()
    Dim File_Path As String
    File_Path = "C:\toto.txt"
    Open File_Path For Input As #1
    row_num = 0
    Do Until EOF(1)
        Line Input #1, Line_FromFile
        row_num = row_num + 1
    Loop
    Close #1
    MsgBox row_num
End Sub

Cependant, mon fichier toto.txt (disponible ici sous forme zippée), contient des caractères spéciaux (il s'agit d'un extrait de dump d'une table de données).
Il semblerait que l'un de ces caractères spéciaux (que vi fait apparaître en tant que "^Z" à la 2ème ligne, colonne 249 de mon fichier) perturbe la commande EOF qui du coup, "sort" à la ligne 2 dès qu'elle rencontre ce caractère.

Ma variable row_num affiche donc la valeur 2, alors que mon fichier contient 6 lignes...
Je voudrais que ma macro VBA parcoure bien l'ensemble des 6 lignes de mon fichier.
D'où vient le problème, et comment corriger mon code pour que ça marche ?

Par avance, merci !

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Do while EOF(1)
        Line Input #1, Line_FromFile
        row_num = row_num + 1
    Loop

[Invité]

J'ai testé, mais ça ne marche pas... row_num = 0

[patricktoulon]

bonsoir
essaie de ne pas utiliser des noms d'expression vba pour tes fonctions

adapte ton file_path

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Gos()
    Dim File_Path As String
    File_Path = "C:\Users\polux\Desktop\test2.txt"
    Open File_Path For Input As #1
    laChaine = Input(LOF(1), #1)
    row_num = UBound(Split(laChaine, vbCrLf))
    Close #1
    MsgBox row_num
End Sub

[Invité]

Malheureusement, ça ne marche pas non plus...

J'obtiens le message d'erreur suivant sur l'instruction "laChaine = Input(LOF(1), #1)" :

Erreur d'exécution '62' :
L'entrée dépasse la fin de fichier

[patricktoulon]

Ok visiblement la methode open n'aime pas ton fichier
tant pis on par sur l'object scriptingfilesystem alors
et la ca fonctionne !!!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Sub test3()
Dim oFSO as object,ofile as object ,texte as string 
 Const ForReading = 1: Const ForWriting = 2
 File_Path = "C:\Users\polux\Desktop\toto.txt"
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set ofile = oFSO.OpenTextFile(File_Path, ForReading)
texte = ofile.readall
MsgBox UBound(Split(texte, vbCrLf))
End Sub