ReadLine n'arrive pas ài identifier les lignes de mes fichiers csv

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

Afin de ne plus être tributaire des différents paramètres régionaux d'Excel et de Windows, je cherche à charger les données de fichiers csv directement dans des variables tableaux.
Pour cela, je passe par Scripting.FileSystemObject.
J'ai activé la référence Microsoft Scripting Runtime
Voici un bout de mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim line As String, Arr Dim FSO As Object, Fo As Object Set FSO = CreateObject("Scripting.FileSystemObject") Set Fo = FSO.OpenTextFile("(chemin de mon fichier)\D20220416test.csv", ForReading, False, TristateFalse) While Not Fo.AtEndOfStream line = Fo.ReadLine ' sensé lire le csv ligne par ligne mais dans mon cas lit l'ensemble des lignes Debug.Print line 'voir résultat ci-dessous Arr = Split(line, ";") ' ne peut pas fonctionner correctement 'etc...... Wend Fo.Close Set Fo = Nothing Set FSO = Nothing
Le problème c'est que ReadLine (ligne 7) qui est sensé lire une ligne entière (jusqu’au caractère de retour à la ligne, sans l’inclure, dixit l'aide) n'arrive pas à identifier les lignes et lit systématiquement la totalité du fichier en une seule passe.
Le résultat c'est qu'il n'y a aucune colonne identifiable et la dernière donnée de la ligne est collée à la première de la ligne suivante.
Bref, je n'arrive pas à exploiter les données.

Pourtant, le debug.print de l'unique extraction montre bien les lignes de mon csv :

Citation:

16/04/22 11:00;0,76;8,26;2,84;372,00;7,55;5,50;517,8
16/04/22 12:00;0,76;8,26;2,84;372,00;7,55;5,50;517,8
16/04/22 13:00;0,76;12,58;2,84;363,00;7,52;5,50;517,8
16/04/22 14:00;0,76;12,58;2,84;363,00;7,55;5,50;517,8
16/04/22 15:00;0,76;12,58;2,84;363,00;7,55;5,50;517,8
16/04/22 16:00;0,76;12,58;2,84;363,00;7,55;5,50;517,8
16/04/22 17:00;0,76;16,41;3,01;330,00;7,55;5,50;548,8
16/04/22 18:00;0,76;16,41;3,01;330,00;7,55;5,50;548,8
16/04/22 19:00;0,76;16,41;3,01;330,00;7,55;5,50;548,8
16/04/22 20:00;0,76;16,41;3,01;330,00;7,55;5,50;548,8
16/04/22 21:00;0,78;20,00;3,16;310,00;7,55;5,50;576,2
16/04/22 22:00;0,78;20,00;3,16;310,00;7,55;5,60;576,2
16/04/22 23:00;0,77;22,04;2,94;285,00;7,55;5,50;536,1
17/04/22 00:00;0,77;22,04;2,94;285,00;7,55;5,50;536,1

et si j'ouvre le fichier dans le bloc note, les lignes sont bien là. Idem avec Excel qui sait mettre directement ces données en tableau. J'en conclue que le caractère de retour de ligne est bien présent, sinon les données ne pourraient pas être extraites.

Le résultat est le même pour les deux versions d'Excel que j'ai : 2010 et 2016
Je n'arrive pas à trouver ce qui coince.

Merci à ceux qui pourront m'aider à comprendre et surtout à résoudre ce mystère.

Ci-joint un des fichiers que je cherche à extraire.

11/05/2022, 11h16
tototiti2008

Bonjour,

Il y a deux caractères de retour à la ligne en informatique
pris sur un forum :

Citation:

Le retour de ligne est '\n' sur les systèmes UNIX, '\r' sous Macintosh (et peut-être MacOS X, je ne sais pas) et '\r\n' sous DOS/Windows

en VBA, on peut faire appel à ces caractères par vbCr (ou Chr(13) il me semble) ou vbLf (Chr(10))
vbCrLf représente les 2 (chr(13) & chr(10))
donc il faut voir si FileSystemObject.OpenTextFile te permet de spécifier ce caractère, ou il faudra envisager une autre méthode d'ouverture (il y en a d'autres, Open par exemple)
Pas encore cherché plus avant
11/05/2022, 11h24
tototiti2008

En ouvrant ton fichier CSV dans le bloc notes, il écrit dans la barre d'état chez moi MacIntosh (CR)
donc ton retour à la ligne doit être vbCr

un code qui devrait marcher
(à adapter)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub litLignes()
Dim Strm As Object, Ligne As String
    Set Strm = CreateObject("ADODB.Stream")
    Strm.Open
    Strm.LineSeparator = 13
    Strm.Charset = "utf-8"
    Strm.LoadFromFile "C:\toto\D20220416test.csv"
    Do Until Strm.EOS
        Ligne = Strm.ReadText(-2)
        MsgBox Ligne
    Loop
    Strm.Close
    Set Strm = Nothing
End Sub

hello,
on peut aussi lire tout le contenu du fichier csv en une seule chaîne avec un readAll que l'on divise en lignes avec un Split avec le séparateur adéquat.
Exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub LireCsv()
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateFalse = 0, TristateTrue = -1
Dim line, lines, Arr
Dim FSO As Object, Fo As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Fo = FSO.OpenTextFile("D:\temp\D20220416test.csv", ForReading, False, TristateFalse)
lines = Split(Fo.ReadAll, vbCr)
Fo.Close
 For Each line In lines
    Debug.Print line         
    Arr = Split(line, ";")  
    If UBound(Arr) > 0 Then
         Debug.Print Arr(0) ' on affiche le premier champ des lignes
    End If
Next
Set Fo = Nothing
Set FSO = Nothing
End Sub

Ami calmant, J.P

11/05/2022, 13h26
Mic13710

Merci à tous les deux pour votre aide. Il est clair que c'est le caractère de fin de ligne qui n'est pas correct.

J'ai essayé la solution de tototiti2008 et elle fonctionne très bien avec le fichier que j'ai donné en exemple :

Citation:

16/04/22 04:00;0,76;1,57;2,93;196,00;7,54;5,50;534,2
16/04/22 05:00;0,78;4,00;3,03;221,00;7,54;5,60;552,5
16/04/22 06:00;0,78;4,00;3,03;221,00;7,54;5,50;552,5
16/04/22 07:00;0,78;4,00;3,03;221,00;7,54;5,50;552,5
etc...

Mais ces fichiers ont une ligne de titre et lorsque je fais l'opération avec les titres, j'ai la deuxième ligne qui est tronquée au début :

Citation:

;Chlore MIN (mg/L);Heure Chlore Min (h,m);Niveau (m);D?bit (L/m);pH;Temp?rature (C);Volume
4/22 01:00;0,78;0,25;3,04;224,00;7,54;5,50;554,3
16/04/22 02:00;0,76;1,57;2,93;196,00;7,53;5,60;534,2
16/04/22 03:00;0,76;1,57;2,93;196,00;7,54;5,60;534,2
16/04/22 04:00;0,76;1,57;2,93;196,00;7,54;5,50;534,2
16/04/22 05:00;0,78;4,00;3,03;221,00;7,54;5,60;552,5
etc...

Je n'ai pas cherché pourquoi pour le moment, je n'ai fait qu'essayer le code. Je me pencherai dessus dès que j'ai un moment.

J'ai aussi essayé la proposition de jurassic pork qui semble mieux fonctionner; Chaque ligne est correctement affichée et la première donnée est affichée conformément au code , ce qui donne avec le fichier avec ligne de titre :

Citation:

;Chlore MIN (mg/L);Heure Chlore Min (h,m);Niveau (m);Débit (L/m);pH;Température (C);Volume
(ici pas de donnée puisque la première de la ligne ci-dessus est vide)
16/04/22 01:00;0,78;0,25;3,04;224,00;7,54;5,50;554,3
16/04/22 01:00
16/04/22 02:00;0,76;1,57;2,93;196,00;7,53;5,60;534,2
16/04/22 02:00
16/04/22 03:00;0,76;1,57;2,93;196,00;7,54;5,60;534,2
16/04/22 03:00
etc...

Reste à l'adapter à mon projet.

Merci encore pour votre aide précieuse qui je pense va me permettre de résoudre mon problème.
12/05/2022, 17h53
Mic13710

Bonjour,

Finalement j'ai adopté la solution proposée par jurassic pork car elle permet la lecture sur une seule passe.

Désolé tototiti2008, je n'ai pas vraiment cherché pourquoi j'ai un manque au début de la ligne 2.

Merci en tout cas à tous les deux pour votre aide qui m'a permis d'avancer.