[Ex] Programme Tv

[Zippo]

Salut,

J'ai créée un script pour connaître le programme télé des 6 chaines régionaux (tf1,Fr2,Fr3,Canal+,Arte,M6) des émissions le soir, grâce au site : http://www.programme-television.org/ .

► Afficher le texte

Code : Tout sélectionner

#include <array.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Local $Affiche = 0
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Programme Tv. Soirée", 483, 419, 192, 124)
GUISetBkColor(0xFFFFFF)
Global $Group1 = GUICtrlCreateGroup("", 8, 8, 225, 129)
Global $Pic1 = GUICtrlCreatePic("images\TF1.jpg", 16, 16, 92, 68, BitOR($SS_NOTIFY,$WS_GROUP))
Global $Label1 = GUICtrlCreateLabel("Label1", 16, 96, 204, 17, $SS_CENTER)
Global $Label2 = GUICtrlCreateLabel("Label2", 112, 32, 109, 33, $SS_CENTER)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group2 = GUICtrlCreateGroup("", 248, 8, 225, 129)
Global $Pic2 = GUICtrlCreatePic("images\FR2.jpg", 256, 16, 92, 68, BitOR($SS_NOTIFY,$WS_GROUP))
Global $Label3 = GUICtrlCreateLabel("Label1", 256, 96, 204, 17, $SS_CENTER)
Global $Label4 = GUICtrlCreateLabel("Label2", 352, 32, 109, 33, $SS_CENTER)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group3 = GUICtrlCreateGroup("", 6, 145, 225, 129)
Global $Pic3 = GUICtrlCreatePic("images\FR3.jpg", 14, 153, 76, 68, BitOR($SS_NOTIFY,$WS_GROUP))
Global $Label5 = GUICtrlCreateLabel("Label1", 14, 233, 204, 17, $SS_CENTER)
Global $Label6 = GUICtrlCreateLabel("Label2", 110, 169, 109, 33, $SS_CENTER)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group4 = GUICtrlCreateGroup("", 249, 145, 225, 129)
Global $Pic4 = GUICtrlCreatePic("images\canal+.jpg", 257, 153, 92, 60, BitOR($SS_NOTIFY,$WS_GROUP))
Global $Label7 = GUICtrlCreateLabel("Label1", 257, 233, 204, 17, $SS_CENTER)
Global $Label8 = GUICtrlCreateLabel("Label2", 353, 169, 109, 33, $SS_CENTER)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group5 = GUICtrlCreateGroup("", 6, 284, 225, 129)
Global $Pic5 = GUICtrlCreatePic("images\arte.jpg", 14, 292, 84, 44, BitOR($SS_NOTIFY,$WS_GROUP))
Global $Label9 = GUICtrlCreateLabel("Label1", 14, 372, 204, 17, $SS_CENTER)
Global $Label10 = GUICtrlCreateLabel("Label2", 110, 308, 109, 33, $SS_CENTER)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group6 = GUICtrlCreateGroup("", 248, 283, 225, 129)
Global $Pic6 = GUICtrlCreatePic("images\M6.jpg", 256, 291, 92, 68, BitOR($SS_NOTIFY,$WS_GROUP))
Global $Label11 = GUICtrlCreateLabel("Label1", 256, 371, 204, 17, $SS_CENTER)
Global $Label12 = GUICtrlCreateLabel("Label2", 352, 307, 109, 33, $SS_CENTER)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Recup()
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd


Func Recup()
$source = BinaryToString(InetRead("http://www.programme-television.org/"))
$balise_tr = StringRegExp($source, '<tr>(.*?)</tr>', 3)

For $i = 0 to UBound($balise_tr) - 1 Step 1
    $balise_Titresoiree = StringRegExp($balise_tr[$i],'class="TitresoireeEncart">(.*?)</a>', 3)
    If UBound($balise_Titresoiree) Then
        $balise_heure = StringRegExp($balise_Titresoiree[0],'(.*?)<strong>', 3)
        $balise_Serie = StringRegExp($balise_Titresoiree[0],'<strong>(.*?)</strong>', 3)
        Affiche($balise_Serie[0],$balise_heure[0])
    EndIf
Next
EndFunc

Func Affiche($serie,$heure)
    $Affiche = $Affiche + 1
    Switch($Affiche)
        Case 1
            GUICtrlSetData($Label1,$serie)
            GUICtrlSetData($Label2,$heure)
        Case 2
            GUICtrlSetData($Label3,$serie)
            GUICtrlSetData($Label4,$heure)
        Case 3
            GUICtrlSetData($Label5,$serie)
            GUICtrlSetData($Label6,$heure)
        Case 4
            GUICtrlSetData($Label7,$serie)
            GUICtrlSetData($Label8,$heure)
        Case 5
            GUICtrlSetData($Label9,$serie)
            GUICtrlSetData($Label10,$heure)
        Case 6
            GUICtrlSetData($Label11,$serie)
            GUICtrlSetData($Label12,$heure)
    EndSwitch
EndFunc

Voilà ^^, Bon fin de week (:

[pierrotm777]

Chouette exemple , merci pour ce partage

[Kagami]

Très impressionnant!
Y aurait moyen que tu mettes des commentaires à chaque ligne dans le but que je comprenne mieux ton code s'il te plait.
Merci.

[Xtend]

Très impressionnant!
Y aurait moyen que tu mettes des commentaires à chaque ligne dans le but que je comprenne mieux ton code s'il te plait.
Merci.

Voilà l'explication fait par moi-même (j'ai déplacer quelques lignes pour que ce soit plus compréhensible mais le script reste le même) :

► Afficher le texte

Code : Tout sélectionner

#include <array.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Local $Affiche = 0

#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Programme Tv. Soirée", 483, 419, 192, 124)
GUISetBkColor(0xFFFFFF)

;-- Création des groupes (petits contour autour des chaines)
Global $Group1 = GUICtrlCreateGroup("", 8, 8, 225, 129)
Global $Group2 = GUICtrlCreateGroup("", 248, 8, 225, 129)
Global $Group3 = GUICtrlCreateGroup("", 6, 145, 225, 129)
Global $Group4 = GUICtrlCreateGroup("", 249, 145, 225, 129)
Global $Group5 = GUICtrlCreateGroup("", 6, 284, 225, 129)
Global $Group6 = GUICtrlCreateGroup("", 248, 283, 225, 129)

;-- Images des chaînes
Global $Pic1 = GUICtrlCreatePic("images\TF1.jpg", 16, 16, 92, 68, BitOR($SS_NOTIFY,$WS_GROUP))
Global $Pic2 = GUICtrlCreatePic("images\FR2.jpg", 256, 16, 92, 68, BitOR($SS_NOTIFY,$WS_GROUP))
Global $Pic3 = GUICtrlCreatePic("images\FR3.jpg", 14, 153, 76, 68, BitOR($SS_NOTIFY,$WS_GROUP))
Global $Pic4 = GUICtrlCreatePic("images\canal+.jpg", 257, 153, 92, 60, BitOR($SS_NOTIFY,$WS_GROUP))
Global $Pic5 = GUICtrlCreatePic("images\arte.jpg", 14, 292, 84, 44, BitOR($SS_NOTIFY,$WS_GROUP))
Global $Pic6 = GUICtrlCreatePic("images\M6.jpg", 256, 291, 92, 68, BitOR($SS_NOTIFY,$WS_GROUP))

;-- Création des labels : les impairs (1,3, ...) pour l'émission et les pairs (2,4, ...) pour l'heure
Global $Label1 = GUICtrlCreateLabel("Label1", 16, 96, 204, 30, $SS_CENTER)
Global $Label2 = GUICtrlCreateLabel("Label2", 112, 32, 109, 33, $SS_CENTER)
Global $Label3 = GUICtrlCreateLabel("Label1", 256, 96, 204, 30, $SS_CENTER)
Global $Label4 = GUICtrlCreateLabel("Label2", 352, 32, 109, 33, $SS_CENTER)
Global $Label5 = GUICtrlCreateLabel("Label1", 14, 233, 204, 17, $SS_CENTER)
Global $Label6 = GUICtrlCreateLabel("Label2", 110, 169, 109, 33, $SS_CENTER)
Global $Label7 = GUICtrlCreateLabel("Label1", 257, 233, 204, 17, $SS_CENTER)
Global $Label8 = GUICtrlCreateLabel("Label2", 353, 169, 109, 33, $SS_CENTER)
Global $Label9 = GUICtrlCreateLabel("Label1", 14, 372, 204, 17, $SS_CENTER)
Global $Label10 = GUICtrlCreateLabel("Label2", 110, 308, 109, 33, $SS_CENTER)
Global $Label11 = GUICtrlCreateLabel("Label1", 256, 371, 204, 17, $SS_CENTER)
Global $Label12 = GUICtrlCreateLabel("Label2", 352, 307, 109, 33, $SS_CENTER)

;-- Mettre le texte du label en MS Sans Serif
GUICtrlSetFont($Label2, 18, 400, 0, "MS Sans Serif")
GUICtrlSetFont($Label4, 18, 400, 0, "MS Sans Serif")
GUICtrlSetFont($Label6, 18, 400, 0, "MS Sans Serif")
GUICtrlSetFont($Label8, 18, 400, 0, "MS Sans Serif")
GUICtrlSetFont($Label10, 18, 400, 0, "MS Sans Serif")
GUICtrlSetFont($Label12, 18, 400, 0, "MS Sans Serif")


Recup()
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd


Func Recup()  ;-- Récupération des émissions avec leurs horaires
$source = BinaryToString(InetRead("http://www.programme-television.org/"))  ;-- Ici, on lit le code HTML de la page
$balise_tr = StringRegExp($source, '<tr>(.*?)</tr>', 3)  ;-- On cherche la partie du code HTML ou est comprise le code recherché pour les titres et les horaires.

For $i = 0 to UBound($balise_tr) - 1 Step 1  ;-- Pour chaque $balise_tr trouvé dans le code source, on réalise la fonction
$balise_Titresoiree = StringRegExp($balise_tr[$i],'class="TitresoireeEncart">(.*?)</a>', 3)  ;-- On cherche ce qu'il y a écrit entre   class="TitresoireeEncart">   et     </a>  pour  $i c'est à dire pour les 6 chaines (ex: $i = 1 pour TF1 ou $i = 4 pour Canal)
    If UBound($balise_Titresoiree) Then  ;-- Si il trouve la variable pour le  $i  donné , il continue (sinon, il passe au Next)
        $balise_heure = StringRegExp($balise_Titresoiree[0],'(.*?)<strong>', 3) ;-- On copie l'heure de l'émission
        $balise_Serie = StringRegExp($balise_Titresoiree[0],'<strong>(.*?)</strong>', 3) ;-- On copie le titre de l'emission
        Affiche($balise_Serie[0],$balise_heure[0])   ;-- rélié à la fonction    Func Affiche($serie,$heure)   , il donnera chaque variable avec la balise correspondante [1] pour TF1, [2] pour France 2, ...
    EndIf
Next
EndFunc

Func Affiche($serie,$heure)
    $Affiche = $Affiche + 1  ;-- Cette variable sert pour les Case du Switch, à chaque fois qu'une émission est trouvé et affiché, elle passera à la suivante.
    Switch($Affiche)
        Case 1 ;-- Pour TF1
            GUICtrlSetData($Label1,$serie)
            GUICtrlSetData($Label2,$heure)
        Case 2 ;-- Pour France 2
            GUICtrlSetData($Label5,$serie)
            GUICtrlSetData($Label6,$heure)
        Case 3 ;-- Pour France 3
            GUICtrlSetData($Label9,$serie)
            GUICtrlSetData($Label10,$heure)
        Case 4  ;-- Pour Canal+
            GUICtrlSetData($Label3,$serie)
            GUICtrlSetData($Label4,$heure)
        Case 5 ;-- Pour France 5
            GUICtrlSetData($Label7,$serie)
            GUICtrlSetData($Label8,$heure)
        Case 6 ;-- Pour M6
            GUICtrlSetData($Label11,$serie)
            GUICtrlSetData($Label12,$heure)
    EndSwitch
EndFunc

[Zippo]

Bonne initiative

[Kagami]

Merci pour les commentaires =)

[SarahS]

Sympa ce script, merci pour le partage!