Extraire le contenu de la balise <TITLE> ??
Stagiaire WDF
Inscrit:
29/07/2007 00:31
Post(s): 19
Bonjour,

Je ne parviens pas a récuperer le Titre d une page web <TITLE>LBPAM Actions Amerique C</TITLE>

Je bloque une fois que j ai télécharger le contenu de cette page , je ne vois pas comment je dois faire pour me positioner sur la balise <TITLE> et récuperer sont contenu ??


Je creer un bouton Execute avec se code :

// 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()

Contribution le : 12/08/2007 03:43
Créer un fichier PDF de la contribution Imprimer


Re: Extraire le contenu de la balise <TITLE> ??
Utilisateur WDF
Inscrit:
08/03/2006 11:03
De Poitiers
Post(s): 79
Bonjour,

Il est possible d'utiliser :
montitre=replace(Milieu(sContenu,position(majuscule(sContenu),"<TITLE>",DepuisDébut),position(majuscule(sContenu),"</TITLE>",DepuisDébut)),"<TITLE>","")

c'est critiquable mais ça marche !!

@+

Contribution le : 12/08/2007 13:48
_________________
La sagesse est d'être fou lorsque les circonstances en valent la peine.
Créer un fichier PDF de la contribution Imprimer


Re: Extraire le contenu de la balise <TITLE> ??
Stagiaire WDF
Inscrit:
29/07/2007 00:31
Post(s): 19
Bonjour,

Super sa fonctionne pouvez-vous m expliquer cette ligne en détail ?

montitre=replace(Milieu(sContenu,position(majuscule(sContenu),"<TITLE>",DepuisDébut),position(majuscule(sContenu),"</TITLE>",DepuisDébut)),"<TITLE>","")


merci à vous

chris

Contribution le : 13/08/2007 01:44
Créer un fichier PDF de la contribution Imprimer


Re: Extraire le contenu de la balise <TITLE> ??
Stagiaire WDF
Inscrit:
29/07/2007 00:31
Post(s): 19
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

Contribution le : 13/08/2007 02:52
Créer un fichier PDF de la contribution Imprimer


Re: Extraire le contenu de la balise <TITLE> ??
Stagiaire WDF
Inscrit:
14/12/2006 10:56
Post(s): 29
Bonjour,

un simple
monTitre est une chaine

montitre = extraitchaine(extraitchaine(sContenu,"<TITRE>",2),"</TITRE>",1)


devrait fonctionner

Bon dev
@+

Contribution le : 13/08/2007 10:04
Créer un fichier PDF de la contribution Imprimer


Re: Extraire le contenu de la balise <TITLE> ??
Stagiaire WDF
Inscrit:
31/01/2007 23:48
Post(s): 23
Ca devrait fonctionner sauf si :
- la balise TITLE est en minuscule
- la balise TITLE possède un attribut (genre Background color)

Mieux vaut, je pense faire un truc comme :
sTitre est une chaine
nPos1, nPos2 sont des entiers

nPos1 = position(sContenu,"<title",1,sanscasse)
nPos1 = position(sContenu,">",nPos1,sanscasse)
nPos2 = position(sContenu,"</title>",1,sanscasse)

sTitre = sContenu[[nPos1+1 A nPos2-1]]


J'ai tapé sans vérifier le code donc à adapter si besoin pour corriger les éventuelles erreurs

Contribution le : 22/08/2007 19:59
Créer un fichier PDF de la contribution Imprimer


Re: Extraire le contenu de la balise <TITLE> ??
Stagiaire WDF
Inscrit:
14/12/2006 10:56
Post(s): 29
Bonjour,

Citation :

la balise TITLE possède un attribut (genre Background color)


non car la balise title est un metat tag donc elle ne comprend que <title> et elle est limité a 100 caracteres et chaque page doit en avoir une

Citation :

la balise TITLE est en minuscule


ca oui.mais en generale si la page est generée par un outil web la balise sera en minuscule.

par contre attention aux caracteres accentués qui seront renvoyés sous forme de code html ex :
Citation :

Traduction r& # 2 3 3 ; aliser dans le dictionnaire Fran& # 2 3 1 ;ais-Anglais


les espaces sont la pour pourvoir afficher cette chaine dans une page html sinon le code serait interprété.

Contribution le : 23/08/2007 08:12
Créer un fichier PDF de la contribution Imprimer


Re: Extraire le contenu de la balise <TITLE> ??
Stagiaire WDF
Inscrit:
31/01/2007 23:48
Post(s): 23
Effectivement, TITLE ne prend jamais aucun attribut.
J'ai confondu avec BODY.

Cependant, le code que j'ai fournit doit marcher avec n'importe quelle balise (TITLE, BODY...) qu'il y ait des attributs ou pas.

Contribution le : 23/08/2007 19:24
Créer un fichier PDF de la contribution Imprimer


Re: Extraire le contenu de la balise <TITLE> ??
Stagiaire WDF
Inscrit:
29/07/2007 00:31
Post(s): 19
bonsoir,

Sorry j ai essayer votre code sa ne fonctionne pas se serais pas mal d avoir un tutorial !!

bonne soirée

chris

Contribution le : 23/08/2007 21:53
Créer un fichier PDF de la contribution Imprimer


Re: Extraire le contenu de la balise <TITLE> ??
Stagiaire WDF
Inscrit:
31/01/2007 23:48
Post(s): 23
Bonsoir.

Désolé mais mon code marche parfaitement.
Je viens de le tester de la façon suivante :
sTitre est une chaîne
nPos1, nPos2 sont des entiers
sContenu est une chaîne

HTTPRequête("http://www.pcsoft.fr")
sContenu = HTTPDonneRésultat(HTTPRésultat)

nPos1 = Position(sContenu,"<title",1,SansCasse)
nPos1 = Position(sContenu,">",nPos1,SansCasse)
nPos2 = Position(sContenu,"</title>",1,SansCasse)

sTitre = sContenu[[nPos1+1 A nPos2-1]]
Info(sTitre)

Contribution le : 24/08/2007 18:51
Créer un fichier PDF de la contribution Imprimer



 Haut   Précédent   Suivant




Enregistrer votre réponse
CompteNom   Mot de passe   Authentification
Message:


Vous ne pouvez pas débuter de nouveaux sujets.
Vous pouvez voir les sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
Visualiser tous les Partenaires...
WinDev, WebDev, WinDev Mobile et HyperFile sont des marques déposées par PCSoft. |  Voter |  Legal |  Contact |   XOOPS 2.0.13.2