La citation du jour

5/5 (6 avis)

Vue 4 444 fois - Téléchargée 304 fois

Description

Permet de récuperer la "citation du jour" a partir du site evene.fr

Conclusion :


il y a encore quelques petits problemes d'optimisation mais je vais essayer de mettre ma source a jour (si j'ai le temps)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
117
Date d'inscription
jeudi 17 juin 2004
Statut
Membre
Dernière intervention
3 novembre 2007
1
ta source je la voi beaucoup plus simple, j'ai ecris un code, j'ai essayer de le commenter, pour voir ce que cela donne il suffit de créé une nouvelle form avec :
2 label (label1;label2)
un timer (timer1)
et un "webbrowser" (webbrowser1)

'---------------------code-----------------
Public gg As String 'ici le texte du webbrowser
Public b As Long
Public c As Long
Public d As Long
Public e As Long
Private Sub Form_Load()
Webbrowser1.Navigate ("http://www.evene.fr/citations/index.php") 'charge la page web
Timer1.Enabled = False
Timer1.Interval = 250
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption & "." 'faire patienter...
End Sub

Private Sub Webbrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) 'quand la page a fini de charger
Timer1.Enabled = False 'on arrete de faire patienter

gg = Webbrowser1.Document.body.innertext 'on place uniquement le texte de la page (et pas la source)
'voici les 3 different, mais je connais pas leur specificité
'Webbrowser1.Document.body.innerhtml
'webbrowser1.document.body.innertext
'webbrowser1.Document.documentelement.innerhtml
'------------
'la citation
b = InStr(1, gg, "LA CITATION [DU JOUR]") 'on chope l'emplacement de ça
c = InStr(b, gg, "« Envoyer à un ami") 'idem
'------------
'------------
'l'auteur
d = InStr(c, gg, "[")
e = InStr(d, gg, "]")
'------------
Label1.Caption = Mid(gg, b + 27, c - (b + 27)) '+ 27 : nombre de caractere a rajouter pour arriver a la citation
'c - (b + 27) : nombre de caractere a prendre
Label2.Caption = Mid(gg, d + 1, e - (d + 1)) 'idem, mais pour l'auteur
End Sub

Private Sub webbrowser1_DownloadBegin()
Label1.Caption = "patientez SVP " 'debut du chargement
Timer1.Enabled = True
End Sub
'---fin du code

par contre, il faut faire gaffe car sur evene : desfois il y a une citation qui fait des sauts de ligne
et il y a parfois le nom du livre(ou autre) dans lequelle c'est extrait. ceci n'est pas pris en compte dans ce prog.
Messages postés
2167
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009
1
C'est pas mal mais le temps de chargement est un peu long chez moi est ce normal ?
Kazuya parlait de ta fonction qui faisait ramer le tout, il faudrait donc essayer avec Instr
Messages postés
30
Date d'inscription
samedi 13 mars 2004
Statut
Membre
Dernière intervention
2 mai 2012
16
Merci Kazuya, j'en tiendrai compte pour ma mise a jour (j'avais bien précisé qu'il y avais quelques problemes d'optimisation du code)
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
75
Ca manque de description.
Ces sitations, elles sont dans l'application ?
Ah non, sur un site --> Important à préciser quand même, s'il faut une connexion internet ...
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
Ma citation du jour :

"Programme ta vie et donne vie a tes programmes"
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.