Discussion :

[cdevl32]

Bonjour,

J ai un problème j arrive extraire le contenu d une page internet mais je ne parviens pas à extraire par exemple se qui se trouve dans la balise <TITLE> </TITLE> ??

Pouvez vous m aider svp ?

merci à vous

chris

[Jannus]

Quelques précisions seraient utiles, telles que le langage utilisé (Windev ?) et sa version ? La manière dont la page est récupérée et au besoin le code utilisé ?

[cdevl32]

Bonsoir,

J utilise la version 11 de windev.

Je voudrais récupérer des données d'un site internet (http://www.boursorama.com/opcvm/opcvm.phtml). Mon code fonctionne en partie. J'ai un champ texte "code de placement" où on indique le code de l'action. J'ai un autre champ texte "cours" où là il m'indique bien le montant de l'action qui correspond au code de l'autre champ. Jusque là, tout fonctionne bien.

Maintenant je voudrais qu'il m'indique le titre de cette action dans un autre champ texte. Là, je n'y parvient pas.
Voici mon code source (ce code ne fonctionne que pour le cours de l'action, et j'aimerais pouvoir l'adapter pour qu'il fonctionne pour que puisse récupérer d'autres données de ce site, comme par ex., le champ "title" ...)' :

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
45
46
47
48
49
50
51
52
53
54
55
56
// detection des erreurs eventuelles
QUAND EXCEPTION
Erreur(ExceptionInfo())
RETOUR
FIN
 
// site internet ou le cours est publié
sURL est une chaîne
sURL= "http://www.boursorama.com/opcvm/opcvm.phtml"
 
// code placement en ligne de commande
sURL+="?code="+SAI_CODE
 
// accès au site web
Sablier(Vrai)
SI PAS HTTPRequête(SansEspace(sURL)) ALORS
Erreur(" Problème de lecture de la page "+sURL)
Sablier(Faux)
RETOUR
FIN
 
// téléchargement du contenu de la page
sContenu, sCours sont des chaînes
sContenu = HTTPDonneRésultat()
 
//recherche du cours dans la page HTML
// d apres les balise indiquéees
sBalise1, sBalise2, sBalise3 sont des chaînes
sBalise1 ="<td nowrap align=left>Valeur liquidative</td>"
sBalise2 ="<td align=right><B>"
sBalise3 =" EUR "
 
nPDebut, nPFin sont des entiers
 
// recherche de la balise de debut
nPDebut=Position(sContenu,SansEspace(sBalise1))+Taille(SansEspace(sBalise1))
SI PAS sBalise2~=" " ALORS
// 2éme balise nécessaire pour se positionner au début
nPDebut=Position(sContenu,SansEspace(sBalise2), nPDebut) +Taille(SansEspace(sBalise2))
FIN
 
// recherche de la balise de fin
nPFin=Position(sContenu,SansEspace(sBalise3), nPDebut)
 
// extraction du cours 
sCours=SansEspace(sContenu[[nPDebut A nPFin]])
 
// formatage du cours renvoyé 
sCours=Remplace(sCours," ", "")
sCours=Remplace(sCours," ,",".")
 
// affichage
SAI_Cours=Val(sCours)
 
// fin
Sablier(Faux)

Merci pour votre aide.