LA CITATION DU JOUR
K@zuya
Messages postés
306
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
15 février 2016
-
11 févr. 2005 à 22:02
zemetafyzik Messages postés 117 Date d'inscription jeudi 17 juin 2004 Statut Membre Dernière intervention 3 novembre 2007 - 12 févr. 2005 à 18:28
zemetafyzik Messages postés 117 Date d'inscription jeudi 17 juin 2004 Statut Membre Dernière intervention 3 novembre 2007 - 12 févr. 2005 à 18:28
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/29440-la-citation-du-jour
https://codes-sources.commentcamarche.net/source/29440-la-citation-du-jour
12 févr. 2005 à 18:28
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.
12 févr. 2005 à 11:38
Kazuya parlait de ta fonction qui faisait ramer le tout, il faudrait donc essayer avec Instr
12 févr. 2005 à 09:02
12 févr. 2005 à 01:53
Ces sitations, elles sont dans l'application ?
Ah non, sur un site --> Important à préciser quand même, s'il faut une connexion internet ...
11 févr. 2005 à 22:31
"Programme ta vie et donne vie a tes programmes"
11 févr. 2005 à 22:02
sache qu'il existe la fonction VB Instr qui cherche une chaine dans une autre et qui est tres rapide.
dans ton code ça donnerai:
b = instr(1,code.Text,">><")