XL 2016 VBA - Fichier texte particulier

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Décembre 2021

• #2

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.

 

Dernière édition: 20 Décembre 2021

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 20 Décembre 2021

• #3

sylvanu à dit:

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.

Cliquez pour agrandir...

Bonjour @sylvanu ,
Voici.
Daniel

 

Pièces jointes

• Exemple.txt

  1.8 KB · Affichages: 6

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 20 Décembre 2021

• #4

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

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 20 Décembre 2021

• #5

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Décembre 2021

• #6

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 20 Décembre 2021

• #7

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Décembre 2021

• #8

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.

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 20 Décembre 2021

• #9

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

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 20 Décembre 2021

• #10

patricktoulon à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Décembre 2021

• #11

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.

 

Pièces jointes

• Txt.xlsm

  15.8 KB · Affichages: 2

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 20 Décembre 2021

• #12

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

 

Pièces jointes

• Extractiion.xlsx

  9.3 KB · Affichages: 4

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Décembre 2021

• #13

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 ?

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 21 Décembre 2021

• #14

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



Daniel

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Décembre 2021

• #15

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.

 

Pièces jointes

• Txt V2.xlsm

  17.8 KB · Affichages: 1

Vote positif 0 Vote négatif