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

 

[sylvanu]

Bonjour Danielco,
Vous pouvez fournir un extrait de votre fichier txt ?
Ce serait plus simple pour répondre.
Sinon : Oui c'est possible avec un split sur chr (10).
Mais chr(10) étant un saut de ligne, le split ne sera pas utile car ce sera la chaine lue suivante.

 

[danielco]

Bonjour Danielco,
Vous pouvez fournir un extrait de votre fichier txt ?
Ce serait plus simple pour répondre.
Sinon : Oui c'est possible avec un split sur chr (10).
Mais chr(10) étant un saut de ligne, le split ne sera pas utile car ce sera la chaine lue suivante.

Bonjour @sylvanu ,
Voici.
Daniel

 

[patricktoulon]

bonsoir
c'est pas du texte c'est du xml autant utiliser la librairie adéquate et choper ce que l'on veut des balise
bien qu'il me semble être du html converti en xml mais pas udf 8 donc des caractères de structure remplacer

 

[danielco]

Bonsoir @patricktoulon ,

Le fichier a une extension XML, effectivement. Sinon, ce que tu dis, c'est du chinois pour moi. Est-ce que tu peux détailler pour un débutant total ?

Daniel

 

[sylvanu]

Re, Bonsoir Patrick,
@danielco : Que voulez vous récupérez ? Et sous quelle forme ?
Vous auriez un petit attendu ?
Par ex :
Apple Watch de daniel 8.1 Apple Watch Apple Inc.

 

[patricktoulon]

re
l'ai testé en lecture xml, il a comme je te l'ai dis des caractères de structures qui ont été remplacé
du fait c'est même plus un xml valide ou alors il a un préambule de shema que tu n'as pas copier dans ton texte
bref te reste plus qu'a faire des split de splits interminables et qui selon le fichier ne marcheront pas
pour ce genre de travail je te laisse avec @sylvanu qui semble avoir pris les choses en main

 

[sylvanu]

J'essaie juste de comprendre. Ce n'est ni du HTML ni du XML, ça ressemble à tout donc à rien.
Les split peuvent marcher à la condition de savoir ce que l'on cherche.

 

[danielco]

Actuellement, j'extraie les lignes qui contiennent la chaîne
"HKQuantityTypeIdentifierHeartRate". Ensuite, avec Power Query, je filtre les données des 7 derniers jours, je récupère la date, l'heure et la valeur.

Daniel

 

[danielco]

re
l'ai testé en lecture xml, il a comme je te l'ai dis des caractères de structures qui ont été remplacé
du fait c'est même plus un xml valide ou alors il a un préambule de shema que tu n'as pas copier dans ton texte
bref te reste plus qu'a faire des split de splits interminables et qui selon le fichier ne marcheront pas
pour ce genre de travail je te laisse avec @sylvanu qui semble avoir pris les choses en main

Effectivement, j'ai copié au hasard. Le fichier commence comme ceci :
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE HealthData [
<!-- HealthKit Export Version: 11 -->
<!ELEMENT HealthData (ExportDate,Me,(Record|Correlation|Workout|ActivitySummary|ClinicalRecord)*)>
<!ATTLIST HealthData
locale CDATA #REQUIRED
>
<!ELEMENT ExportDate EMPTY>
<!ATTLIST ExportDate
value CDATA #REQUIRED
>
<!ELEMENT Me EMPTY>
<!ATTLIST Me
HKCharacteristicTypeIdentifierDateOfBirth CDATA #REQUIRED
HKCharacteristicTypeIdentifierBiologicalSex CDATA #REQUIRED
HKCharacteristicTypeIdentifierBloodType CDATA #REQUIRED
HKCharacteristicTypeIdentifierFitzpatrickSkinType CDATA #REQUIRED
>
<!ELEMENT Record ((MetadataEntry|HeartRateVariabilityMetadataList)*)>
<!ATTLIST Record
type CDATA #REQUIRED
unit CDATA #IMPLIED
value CDATA #IMPLIED
sourceName CDATA #REQUIRED
sourceVersion CDATA #IMPLIED
device CDATA #IMPLIED
creationDate CDATA #IMPLIED
startDate CDATA #REQUIRED
endDate CDATA #REQUIRED
>
etc.
Le zip contient deux fichhiers :
-export.xml
-export_cda.xml

Daniel

 

[sylvanu]

Si le but est simplement de concaténer les trois lignes quand la première contient cette chaine, essayez cette PJ.
Sinon revenez avec de plus amples informations.

 

[danielco]

Voici un exemple des lignes extraites sur la chaîne indiquée. J'extraie la date et l'heure (après "StartDate" et la valeur (après "value")

Daniel

 

[sylvanu]

Ce sont bien les chaines comme je les ai concaténées.
Mais qu'attendez vous vraiment comme résultat. Je n'ai toujours pas compris.
Une extraction auto de Startdate et de value ?

 

[danielco]

Désolé de ne pas avoir été assez clair. Voici un exemple de ce que je souhaite extraire :

Daniel

 

[sylvanu]

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.