XL 2016 VBA - Fichier texte particulier

[danielco]

Bonjour,

Je cherche à lire un fichier texte dont les enregistrements sont séparés par des caractères ASCII 10. Avec la méthode Line Input, le fichier est lu en une fois. Je dois ensuite faire un Split sur ce caractère. Est-il possible de le lire enregistrement par enregistrement ?

Merci par avance.

Daniel

 

[danielco]

Bonjour,
C'est fou ! Je n'aurais jamais fait le rapport entre le titre du post et cette image. 😂😂😂
D'où l'intérêt de présenter l'attendu.
En PJ un essai à tester.

Ca fonctionne à la perfection ! merci beaucoup. Le pire est que je ne vois pas en quoi ton code diffère du mien. Si j'ai des questions, je me permettrai de revenir.

Encore merci.

Daniel

 

[danielco]

En fait,ça ne fonctionne pas si le fichier est plus important (il fait 23 Mo. La fonction "TailleFichierTxt" retourne "1". Si tu le souhaites, je mets un lien sur un fichier plus gros.

Daniel

 

[sylvanu]

Bonjour,
Oui si possible.
Mais même ci joint.com est limité à 15Mo. Peut être en le zippant.

 

[danielco]

J'ai un fichier de 8 Mo qui fait le même problème :

https://www.cjoint.com/c/KLvoN6oTqXt

Daniel

 

[sylvanu]

Je pense avoir trouvé, remplacez :

Dim Fichier, T, Ligne$, L%, T1, T2, T3
par
Dim Fichier, T, Ligne$, L#, T1, T2, T3

Le nombre de ligne est limité à 32768, avec # il est "quasi" infini".
Chez moi ça marche avec un fichier de 42Mo, ce qui génère 95000 lignes.

 

[danielco]

C'est la fonction qui compte le nombre de lignes, et dans la fonction, "NbL" est bien définie "NbL#".

Daniel

 

[sylvanu]

Testez cette PJ, elle marche avec votre fichier.
j'ai fait quelques modifs cosmétiques sur le raz du tableau.

 

[danielco]

Il doit y avoir une différence entre ta version d'Excel et la mienne. La fonction s'obstine à compter une ligne 🙁

Daniel

 

[sylvanu]

Cela m'étonnerais que cela vienne de là, je suis en Win10 XL2007. Vous êtes bien sous Windows ?
Avec votre fichier, je trouve NbL=34351, et cela génère 3012 lignes.

essayez avec cette PJ, c'est votre fichier tronqué pour qu'il tienne en 1Mo.
Je trouve NbL=6635 et 2210 lignes générées.

 

[danielco]

Ca fonctionne avec ton fichier, pas avec celui que je t'ai envoyé. Ou alors tu as une version 64 bits ?

Daniel

 

[sylvanu]

Je suis en 64 bits. Mais est ce le problème ?
Mon fichier est limité à 1Mo.
Créez vous un fichier à 2 puis 4 ... Mo pour voir si vous avez une limite.

 

[danielco]

Clairement, il y a une limite, puisquele fichier de 1 Mo est traité correctement. Je pense que le problème vient de là.

Daniel

 

[sylvanu]

Bonjour Danielco,
Deux choses :

1- En PJ j'ai mis un fichier test, le même que précédemment, mais sans déclaration de variables pour laisser le VBA décider ( au cas où ), et sans la fonction taille fichier.
Le fichier Résultat le ... résultat d'analyse de votre fichier, pour mémoire

2- Plus "amusant" :
- Sous Chrome ( ou Firefox, c'est le même résultat ) vous ouvrez votre lien Cijoint.com.
- Chrome vous l'ouvre sous format XML

- Clic droit "Enregistrez sous", il vous propose une extension XML, vous enregistrez sur le bureau.
- Sous XL vous ouvrez ce fichier, et vous trouvez un fichier XML complet !
avec en particulier :

Cela permet d'exploiter directement le XML sous XL sans passer par le VBA.
Reste à savoir comment Chrome a traduit votre fichier txt de Cijoint.com en XML, comment il a retrouvé une structure connue.

"Bizarrement", le fichier XML généré a bien la structure de votre fichier :

<Record type="HKQuantityTypeIdentifierHeartRate" sourceName="Apple Watch de daniel" sourceVersion="8.1" device="<<HKDevice: 0x281a87b10>, name:Apple Watch, manufacturer:Apple Inc., model:Watch, hardware:Watch6,7, software:8.1>" unit="count/min" creationDate="2021-12-03 20:09:11 +0100" startDate="2021-12-03 20:00:47 +0100" endDate="2021-12-03 20:00:47 +0100" value="69">
<MetadataEntry key="HKMetadataKeyHeartRateMotionContext" value="1"/>
</Record>

 

[danielco]

Bonjour @sylvanu

Merci pour ton acharnement. Le classeur ne fonctionne pas davantage. Par contre, L'ouverture avec Firefox, ça génial ! Ca résout mon problème.

Encore merci.

Daaniel

 

[danielco]

Remarque, je me donnerai des claques. Le fichier s'ouvre directement dans Excel...

Daniel