VBA - Macro Logiciel Opencpn - Fichier TXT > XML > GPX
Bonjour,
Je suis entrain de faire une macro sous Excel 2007 pour créer un fichier texte qui doit en suite être converti en XML. Jusqu’à maintenant, j’ai bien réussi à créer un fichier Txt. Je pensais naïvement qu’il suffisait de changer l’extension pour pouvoir fonctionner. La solution de facilité ne marche pas toujours.
En fait, le PB est un peu plus délicat. Je travaille sur des cartes marines avec Opencpn qui est un logiciel de navigation gratuit. Avec ce logiciel, je peux créer des routes et les points de changement de route sont sauvegardés dans un fichier GPX. Ce fichier est très simple de sa par sa conception est peut être très facilement lu avec Bloc Note ou mieux avec NotePad++. Mais en farfouillant sur le Web, j’ai compris que ce fichier était en fait du type XML.
Voici à quoi ressemble un fichier GPX limité à trois changements de route.
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
| <?xml version="1.0" encoding="utf-8" ?>
<gpx version="1.1" creator="OpenCPN" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.topografix.com/GPX/1/1" xmlns:gpxx="http://www.garmin.com/xmlschemas/GpxExtensions/v3" xsi:schemaLocation="http://www.topografix.com/GPX/1/1 http://www.topografix.com/GPX/1/1/gpx.xsd" xmlns:opencpn="http://www.opencpn.org">
<rte>
<name>Route Test 2</name>
<extensions>
<opencpn:start>TOULON</opencpn:start>
<opencpn:end>LES SAB</opencpn:end>
<opencpn:viz>1</opencpn:viz>
</extensions>
<rtept lat="43.086570672" lon="5.959989507">
<time>2014-09-28T13:03:24Z</time>
<name>001</name>
<sym>diamond</sym>
<type>WPT</type>
<extensions>
<opencpn:viz>1</opencpn:viz>
<opencpn:viz_name>0</opencpn:viz_name>
<opencpn:auto_name>1</opencpn:auto_name>
</extensions>
</rtept>
<rtept lat="43.065893029" lon="5.986304225">
<time>2014-09-28T13:03:27Z</time>
<name>002</name>
<sym>diamond</sym>
<type>WPT</type>
<extensions>
<opencpn:viz>1</opencpn:viz>
<opencpn:viz_name>0</opencpn:viz_name>
<opencpn:auto_name>1</opencpn:auto_name>
</extensions>
</rtept>
</rte>
</gpx> |
La macro me permet de pouvoir créer ce fichier avec un nombre important de changement de route, jusqu’à 500. Si non, je suis obligé de rentrer point par point dans Opencepn. La galère.
Existe t il des fonctions spécifiques vba qui me permettent de créer ce type de fichier et comment ?
En vous remerciant par avance d’une aide précieuse.
