WDForge.org - Forums

Re: Extraire le contenu de la balise <TITLE> ??

Sujet: Re: Extraire le contenu de la balise <TITLE> ??
par cdevl32 sur 13/8/2007 2:52:47

Il y a un petit problème dans le code pour récupérer se qui se trouve entre la balise <TITLE> </TITLE> il ne s arrête pas à la fin du </TITLE> il continue à m indiquer tout se qui se trouve apres dans la page ??

sTresultat=Replace(Milieu(sContenu,Position(Majuscule(sContenu),"<TITLE>",DepuisDébut),Position(Majuscule(sContenu),"</TITLE>",DepuisDébut)),"<TITLE>","")

J ai trouver se bout de code aussi je l ai tester et il m indique le cours dans mon champs "SAI_Cours", sa fonctionne tres bien mais je ne comprend pas, je l ai déjà tracer pas à pas.
Serait il possible de m expliquer se qu il fait exactement ?

// 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 à vous

chris