[VBA] Problème avec EOF qui "sort" avant la fin du fichier

Version imprimable

Bonjour,

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

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 !

Code:

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

22/10/2015, 19h38
Invité

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

heu

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

adapte ton file_path

Code:

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

22/10/2015, 20h17
Invité

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

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

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

Code:

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

22/10/2015, 20h51
Docmarti

Bonjour.

Code:

Do While Not EOF(1)

bon il semblerait quen ouvrant le fichier en binaire avec open ca fonctionne aussi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub testlecture()
Dim laChaine As String, x, fichier As String
fichier = "C:\Users\polux\Desktop\toto.txt"
x = FreeFile
 Open fichier For Binary Access Read As #x
        laChaine = String(LOF(x), " ")
        Get #x, , laChaine
 
Close #x
  MsgBox UBound(Split(laChaine, vbCrLf))
 
End Sub

22/10/2015, 21h37
Invité

Patricktoulon,

La solution avec Scripting.FileSystemObject ne fonctionne pas (renvoie 3).
Mais la solution avec Open en binaire fonctionne (renvoie bien 6).

Je vais maintenant étudier le pourquoi et comment de la chose.
En tous cas, cet obstacle est enfin franchi grâce à ton aide, merci ! :D
23/10/2015, 13h08
Marc-L

Bonjour.

Citation:

Envoyé par Faalamva

Je vais maintenant étudier le pourquoi et comment de la chose.

C'est simple : mauvais fichier mal enregistré ou corrompu, n'est donc pas un vrai fichier texte !

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse
23/10/2015, 22h53
Oliv-

Bonsoir,
J'ai eu récemment un problème pour lire un fichier csv, c'était lié à l'encodage ANSI vs UTF-16LE

Code:

Set objStream = FSO.OpenTextFile(fichier, 1, False, True)

Bonsoir.

Voici un démo de : While Not EOF(filenumber)

Valeurs dans le fichier test.txt

Code:

1
2
3
4
5
6
'Fichier test.txt
1
1.2
1,235
10-01-2015
2015-01-10

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Sub tt()
 
'Fichier test.txt
'1
'1.2
'1,235
'10-01-2015
'2015-01-10
 
 Set f = Worksheets("Feuil1")
 f.Cells.Clear
 f.Columns(1).NumberFormat = "@"
 f.Columns("B:E").NumberFormat = "General"
 f.Cells(1, 1) = "Fichier"
 f.Cells(1, 2) = ".Value"
 
 Chemin = "C:\Users\client\Downloads\test.txt"
 filenumber = FreeFile
 ReDim t(1 To 1, 1 To 1)
 
    Open Chemin For Input As #filenumber
 
       While Not EOF(filenumber)
 
        Line Input #filenumber, a
 
        ligne = ligne + 1
 
        f.Cells(ligne + 1, 1).Value = a
        f.Cells(ligne + 1, 2).Value = a
 
        ReDim Preserve t(1 To 1, 1 To ligne)
        t(1, ligne) = a
 
    Wend
 
    Close #filenumber
 
    f.Cells(2, 3).Resize(UBound(t, 2)).Value = Application.Transpose(t)
    f.Cells(1, 3) = ".Value"
 
    f.Cells(2, 5).Resize(UBound(t, 2)).FormulaLocal = Application.Transpose(t)
    f.Cells(1, 5) = ".FormulaLocal"
 
End Sub