Bonjour - et bonne année 2014 !

Cette modeste contribution pour récupérer automatiquement et historiser dans un fichier le taux du dollar (et du yuan) fournis par la BCE.

Code : 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
PROCEDURE Recup_TauxJour()
FicXML est une chaîne
ChgXML est un xmlDocument
ok,trouv est un booléen
wDate est une Date
wtauxUSD,wTauxCNY est un monétaire
data est une chaîne
 
ChgXML=XMLOuvre("http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml",depuisURL)
FicXML=XMLConstruitChaîne(ChgXML)
SI PAS XMLDocument("DocXML",FicXML) ALORS
	RENVOYER Faux
FIN
 
ok=XMLRecherche("DocXML","Cube",XMLBalise,XMLExact)
TANTQUE XMLTrouve("DocXML")
 
	data=XMLDonnée("DocXML","time")
	SI data<>"" ALORS
		wDate=Remplace(data,"-","")
	FIN
	data=XMLDonnée("DocXML","currency")
	SELON data
		CAS "USD"
			wtauxUSD=Val(XMLDonnée("DocXML","rate"))
		CAS "CNY"
			wTauxCNY=Val(XMLDonnée("DocXML","rate"))
	FIN
	SI wDate<>"" ET wtauxUSD<>0 ET wTauxCNY<>0 ALORS
		trouv=HLitRecherchePremier(TauxJour,Date,wDate)
		TauxJour.Date=wDate
		TauxJour.USD=wtauxUSD
		TauxJour.CNY=wTauxCNY
		SI PAS trouv
			HAjoute(TauxJour)
		SINON
			HModifie(TauxJour)
		FIN
		SORTIR
	FIN
	XMLSuivant("DocXML")
FIN
XMLTermine("DocXML")
RENVOYER Vrai