Discussion :

[Danieldu54]

Bonjour à tous,

J'ai un petit soucis d'extraction de données d'un fichier Xml.
Avant tout je précise que je sais comment récupérer les données des balises "non-unique" et que j'ai déjà parcouru des divers post et tuto sur le Xml mais sans avoir trouver mon bonheur.

Je m'explique :

J'utilise actuellement le code suivant avec succès sur certaines balises dont le nom est unique:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Set oXmlDoc = CreateObject("microsoft.XMLDOM")
   With oXmlDoc
      .async = False
      .Load (Url)
 
      Adresse = .SelectSingleNode("//formatted_address").Text
 
    End With

Dans le fichier xml suivant, le résulat pour Adresse est "52300 Joinville, France"

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
<?xml version="1.0" encoding="UTF-8" ?> 
<GeocodeResponse>
<status>OK</status> 
<result>
<type>locality</type> 
<type>political</type> 
<formatted_address>52300 Joinville, France</formatted_address> 
<address_component>
<long_name>Joinville</long_name> 
<short_name>Joinville</short_name> 
<type>locality</type> 
<type>political</type> 
</address_component>
<address_component>
<long_name>Haute-Marne</long_name> 
<short_name>52</short_name> 
<type>administrative_area_level_2</type> 
<type>political</type> 
</address_component>
<address_component>
<long_name>Champagne-Ardenne</long_name> 
<short_name>Champagne-Ardenne</short_name> 
<type>administrative_area_level_1</type> 
<type>political</type> 
</address_component>
<address_component>
<long_name>France</long_name> 
<short_name>FR</short_name> 
<type>country</type> 
<type>political</type> 
</address_component>
<address_component>
<long_name>52300</long_name> 
<short_name>52300</short_name> 
<type>postal_code</type> 
</address_component>
<geometry>
<location>
<lat>48.4424793</lat> 
<lng>5.1403491</lng> 
</location>
<location_type>APPROXIMATE</location_type> 
<viewport>
<southwest>
<lat>48.4128631</lat> 
<lng>5.0763194</lng> 
</southwest>
<northeast>
<lat>48.4720782</lat> 
<lng>5.2043788</lng> 
</northeast>
</viewport>
<bounds>
<southwest>
<lat>48.4085352</lat> 
<lng>5.0725249</lng> 
</southwest>
<northeast>
<lat>48.4542442</lat> 
<lng>5.1811448</lng> 
</northeast>
</bounds>
</geometry>
<partial_match>true</partial_match> 
</result>
</GeocodeResponse>

Mon soucis est de pouvoir récupérer le code postal qui est dans la balise:

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
<address_component>
<long_name>52300</long_name> 
<short_name>52300</short_name> 
<type>postal_code</type> 
</address_component>

Mais vu qu'il y a plusieurs balises "<address_component>" je suis un peu perdu.

Si quelqu'un aurai des suggestion, je suis preneur !

[mercatog]

Bonjour
Peut être tu peux tirer le code postal à partir de l'adresse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Set oXmlDoc = CreateObject("microsoft.XMLDOM")
With oXmlDoc
    .async = False
    .Load (URL)
    Adresse = .SelectSingleNode("//formatted_address").Text
    CodePostal = Split(Adresse)(0)
End With

[Danieldu54]

J'y ai bien pensé, mais l'adresse retournée peut être sous différentes formes :

N° de rue, Adresse, Code postal, Ville, Pays
Adresse, Code postal, Ville, Pays
Adresse, Ville, Pays

C'est pourquoi j'aimerai pouvoir extraire directement la valeur depuis la source mais bon je suis ouvert à toutes propositions,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CodePostal = Split(Adresse)(0)

ça fonctionne bien mais uniquement dans le cas du "Code postal, Ville, Pays"

[mercatog]

Tu peux mettre ton exemple contenu dans URL?

[Danieldu54]

oui biensûr :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Url = "http://maps.googleapis.com/maps/api/geocode/xml?address=usine+de+Bussy,+52300,+JOINVILLE,+France&sensor=false&region=FR"

[mercatog]

Travailler le Test récupéré

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub TEST()
Dim oXmlDoc As New MSXML2.DOMDocument
Dim Url As String, CP As String
 
Url = "http://maps.googleapis.com/maps/api/geocode/xml?address=usine+de+Bussy,+52300,+JOINVILLE,+France&sensor=false&region=FR"
With oXmlDoc
    .async = False
    .Load Url
    CP = Left(.Text, InStr(.Text, "postal_code") - 2)
    CP = Mid(CP, InStrRev(CP, " ") + 1)
    MsgBox CP
End With
Set oXmlDoc = Nothing
End Sub

[Danieldu54]

Bonsoir,

J'ai testé ta solution et elle fonctionne ! bien joué
j'ai bien passer une heure à décortiquer les fonctions mid() et instr()
mais j'ai enfin compris leur fonctionnement

problème résolu ! merci encore