[EX] top 250 films whith InternetMoviesDataBase

[moi]

bon voila un peyit script qui lit la source de Imdb.fr et fait la liste des 250 meilleurs films tous types et epoque incluses:

► Afficher le texteimdb 250 top

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <String.au3>
#include <Array.au3>
#include <File.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("IMDB TOP 250 CATCHER", 551, 975, 205, 32)
$e = GUICtrlCreateEdit("", 0, 32, 545, 937)
$Button1 = GUICtrlCreateButton("réactualiser", -8, 0, 553, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $recuptable = ""
Global $arrayrecupnumero = ""
Global $arrayrecupnote = ""
Global $arrayrecuptitre = ""
Global $arrayrecupvoteurnum = ""

$source = BinaryToString(InetRead("http://www.imdb.fr/chart/top"))
$recuptable = _StringBetween($source,'<table border="1" cellspacing="0" cellpadding="4"><tr bgcolor="#FFFFDB">','</table>')

$arrayrecupnumero = StringRegExp($recuptable[0], '<b>(.*?)</b>',3)
$arrayrecupnote = StringRegExp($recuptable[0], '<td align="center"><font face="Verdana, Arial, sans-serif" size="-1">(.*?)</font>',3)
$arrayrecuptitre = StringRegExp($recuptable[0], '/">(.*?)</a>',3)
$arrayrecupannee = StringRegExp($recuptable[0], '</a>(.*?)</font>',3)
$arrayrecupvoteurnum = StringRegExp($recuptable[0], '></td><td align="right"><font face="Verdana, Arial, sans-serif" size="-1">(.*?)</font></td></tr><tr',3)
_ArrayDelete($arrayrecupnumero, 0)
_ArrayDelete($arrayrecupnumero, 0)
_ArrayDelete($arrayrecupnumero, 0)
_ArrayDelete($arrayrecupnumero, 0)
_ArrayDelete($arrayrecupnote, 0)
_ArrayDelete($arrayrecupnote, 0)
_ArrayDelete($arrayrecupvoteurnum, 0)
_ArrayAdd($arrayrecupvoteurnum, StringRegExp($recuptable[0], '></td><td align="right"><font face="Verdana, Arial, sans-serif" size="-1">(.*?)</font></td></tr></table>',1))

_FileCreate(@MyDocumentsDir & "/top250imdb.imdbcatcher")
For $i = 0 to UBound($arrayrecupnumero)-1 Step 1
    FileWrite(@MyDocumentsDir & "/top250imdb.imdbcatcher", $arrayrecupnumero[$i] & " | ")
FileWrite(@MyDocumentsDir & "/top250imdb.imdbcatcher", $arrayrecupnote[$i] & " | ")
FileWrite(@MyDocumentsDir & "/top250imdb.imdbcatcher", $arrayrecuptitre[$i] & "  " &$arrayrecupannee[$i]& " | " )
FileWrite(@MyDocumentsDir & "/top250imdb.imdbcatcher",$arrayrecupvoteurnum[$i] & @CRLF& "----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------" & @CRLF)
Next
MsgBox(0,"terminer","analyse terminer" &@CRLF &"remerciements à http://www.imdb.fr")
$read = FileRead(@MyDocumentsDir & "/top250imdb.imdbcatcher")
GUICtrlSetData($e, $read)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            FileDelete(@MyDocumentsDir & "/top250imdb.imdbcatcher")
            Exit
        Case $Button1

$recuptable = ""
$arrayrecupnumero = ""
$arrayrecupnote = ""
$arrayrecuptitre = ""
$arrayrecupannee = ""
$arrayrecupvoteurnum = ""
GUICtrlSetData($e,"")
$source = BinaryToString(InetRead("http://www.imdb.fr/chart/top"))
$recuptable = _StringBetween($source,'<table border="1" cellspacing="0" cellpadding="4"><tr bgcolor="#FFFFDB">','</table>')

$arrayrecupnumero = StringRegExp($recuptable[0], '<b>(.*?)</b>',3)
$arrayrecupnote = StringRegExp($recuptable[0], '<td align="center"><font face="Verdana, Arial, sans-serif" size="-1">(.*?)</font>',3)
$arrayrecuptitre = StringRegExp($recuptable[0], '/">(.*?)</a>',3)
$arrayrecupannee = StringRegExp($recuptable[0], '</a>(.*?)</font>',3)
$arrayrecupvoteurnum = StringRegExp($recuptable[0], '></td><td align="right"><font face="Verdana, Arial, sans-serif" size="-1">(.*?)</font></td></tr><tr',3)
_ArrayDelete($arrayrecupnumero, 0)
_ArrayDelete($arrayrecupnumero, 0)
_ArrayDelete($arrayrecupnumero, 0)
_ArrayDelete($arrayrecupnumero, 0)
_ArrayDelete($arrayrecupnote, 0)
_ArrayDelete($arrayrecupnote, 0)
_ArrayDelete($arrayrecupvoteurnum, 0)
_ArrayAdd($arrayrecupvoteurnum, StringRegExp($recuptable[0], '></td><td align="right"><font face="Verdana, Arial, sans-serif" size="-1">(.*?)</font></td></tr></table>',1))
FileDelete(@MyDocumentsDir & "/top250imdb.imdbcatcher")
_FileCreate(@MyDocumentsDir & "/top250imdb.imdbcatcher")
For $i = 0 to UBound($arrayrecupnumero)-1 Step 1
    FileWrite(@MyDocumentsDir & "/top250imdb.imdbcatcher", $arrayrecupnumero[$i] & " | ")
FileWrite(@MyDocumentsDir & "/top250imdb.imdbcatcher", $arrayrecupnote[$i] & " | ")
FileWrite(@MyDocumentsDir & "/top250imdb.imdbcatcher", $arrayrecuptitre[$i] & "  " &$arrayrecupannee[$i]& " | " )
FileWrite(@MyDocumentsDir & "/top250imdb.imdbcatcher",$arrayrecupvoteurnum[$i] & @CRLF& "----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------" & @CRLF)
Next
MsgBox(0,"terminer","analyse terminer"& @CRLF &"remerciements à http://www.imdb.fr")
$read = FileRead(@MyDocumentsDir & "/top250imdb.imdbcatcher")
GUICtrlSetData($e, $read)
EndSwitch
WEnd
 

[TT22]

1. | 9,2 | Les évadés (1994) | 648 420
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
2. | 9,2 | Le parrain (1972) | 491 744
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
3. | 9,0 | Le parrain, 2ème partie (1974) | 303 856

Je crois qu'il y a un petit problème avec les é, les è

Sinon, ton logiciel fonctionne bien, moi, je n'ai pas besoin d'aller sur un site pour voir quels sont les meilleurs films
Par exemple : Il dit que le meilleur film est Les évadés mais de mon point de vue c'est Psychose, alors que d'après ton logiciel il n'est QUE le 26ème

► Afficher le texte

[moi]

le classement est fait a partir de plus de 10000 vote par films
c'est les utilisateur les plus actif qui sont pris en compte
ce qui donne un classement general
mon film preferes c'est james bond- on ne vie que 2 fois qui est un vieux films avec sean conneries dans le role de james bond.
pourtant c'est pas le premier

[Tlem]

Un titre de sujet plus explicite sera apprécié.

[mikell]

C'est parce que dans "to 250 films..." il manque le p

[moi]

nan c'est que au debut le topic sapeler "imdb top 250"

[moi]

1. | 9,2 | Les évadés (1994) | 648 420
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
2. | 9,2 | Le parrain (1972) | 491 744
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
3. | 9,0 | Le parrain, 2ème partie (1974) | 303 856

Je crois qu'il y a un petit problème avec les é, les è

Sinon, ton logiciel fonctionne bien, moi, je n'ai pas besoin d'aller sur un site pour voir quels sont les meilleurs films
Par exemple : Il dit que le meilleur film est Les évadés mais de mon point de vue c'est Psychose, alors que d'après ton logiciel il n'est QUE le 26ème

► Afficher le texte

résolu:

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <String.au3>
#include <Array.au3>
#include <File.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("IMDB TOP 250 CATCHER", 551, 975, 205, 32)
$e = GUICtrlCreateEdit("", 0, 32, 545, 937)
$Button1 = GUICtrlCreateButton("réactualiser", -8, 0, 553, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $recuptable = ""
Global $arrayrecupnumero = ""
Global $arrayrecupnote = ""
Global $arrayrecuptitre = ""
Global $arrayrecupvoteurnum = ""

$source = BinaryToString(InetRead("http://www.imdb.fr/chart/top"))
$recuptable = _StringBetween($source,'<table border="1" cellspacing="0" cellpadding="4"><tr bgcolor="#FFFFDB">','</table>')

$arrayrecupnumero = StringRegExp($recuptable[0], '<b>(.*?)</b>',3)
$arrayrecupnote = StringRegExp($recuptable[0], '<td align="center"><font face="Verdana, Arial, sans-serif" size="-1">(.*?)</font>',3)
$arrayrecuptitre = StringRegExp($recuptable[0], '/">(.*?)</a>',3)
$arrayrecupannee = StringRegExp($recuptable[0], '</a>(.*?)</font>',3)
$arrayrecupvoteurnum = StringRegExp($recuptable[0], '></td><td align="right"><font face="Verdana, Arial, sans-serif" size="-1">(.*?)</font></td></tr><tr',3)
_ArrayDelete($arrayrecupnumero, 0)
_ArrayDelete($arrayrecupnumero, 0)
_ArrayDelete($arrayrecupnumero, 0)
_ArrayDelete($arrayrecupnumero, 0)
_ArrayDelete($arrayrecupnote, 0)
_ArrayDelete($arrayrecupnote, 0)
_ArrayDelete($arrayrecupvoteurnum, 0)
_ArrayAdd($arrayrecupvoteurnum, StringRegExp($recuptable[0], '></td><td align="right"><font face="Verdana, Arial, sans-serif" size="-1">(.*?)</font></td></tr></table>',1))

_FileCreate(@MyDocumentsDir & "/top250imdb.imdbcatcher")
For $charspecial = 0 To UBound($arrayrecuptitre)-1 Step 1
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xE9;","é")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xE8;","è")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "'","'")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xEF;","ï")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xEA;","ê")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xF4;","ô")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xC8;","Ê")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xE7;","ç")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xEE;","î")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xEA;","ê")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xE0;","à")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "'","À")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xE2;","â")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xE4;","ä")
Next
For $i = 0 to UBound($arrayrecupnumero)-1 Step 1
    FileWrite(@MyDocumentsDir & "/top250imdb.imdbcatcher", $arrayrecupnumero[$i] & " | ")
FileWrite(@MyDocumentsDir & "/top250imdb.imdbcatcher", $arrayrecupnote[$i] & " | ")
FileWrite(@MyDocumentsDir & "/top250imdb.imdbcatcher", $arrayrecuptitre[$i] & "  " &$arrayrecupannee[$i]& " | " )
FileWrite(@MyDocumentsDir & "/top250imdb.imdbcatcher",$arrayrecupvoteurnum[$i] & @CRLF& "----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------" & @CRLF)
Next
MsgBox(0,"terminer","analyse terminer" &@CRLF &"remerciements à http://www.imdb.fr")
$read = FileRead(@MyDocumentsDir & "/top250imdb.imdbcatcher")
GUICtrlSetData($e, $read)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            FileDelete(@MyDocumentsDir & "/top250imdb.imdbcatcher")
            Exit
        Case $Button1

$recuptable = ""
$arrayrecupnumero = ""
$arrayrecupnote = ""
$arrayrecuptitre = ""
$arrayrecupannee = ""
$arrayrecupvoteurnum = ""
GUICtrlSetData($e,"")
$source = BinaryToString(InetRead("http://www.imdb.fr/chart/top"))
$recuptable = _StringBetween($source,'<table border="1" cellspacing="0" cellpadding="4"><tr bgcolor="#FFFFDB">','</table>')

$arrayrecupnumero = StringRegExp($recuptable[0], '<b>(.*?)</b>',3)
$arrayrecupnote = StringRegExp($recuptable[0], '<td align="center"><font face="Verdana, Arial, sans-serif" size="-1">(.*?)</font>',3)
$arrayrecuptitre = StringRegExp($recuptable[0], '/">(.*?)</a>',3)
$arrayrecupannee = StringRegExp($recuptable[0], '</a>(.*?)</font>',3)
$arrayrecupvoteurnum = StringRegExp($recuptable[0], '></td><td align="right"><font face="Verdana, Arial, sans-serif" size="-1">(.*?)</font></td></tr><tr',3)
_ArrayDelete($arrayrecupnumero, 0)
_ArrayDelete($arrayrecupnumero, 0)
_ArrayDelete($arrayrecupnumero, 0)
_ArrayDelete($arrayrecupnumero, 0)
_ArrayDelete($arrayrecupnote, 0)
_ArrayDelete($arrayrecupnote, 0)
_ArrayDelete($arrayrecupvoteurnum, 0)
_ArrayAdd($arrayrecupvoteurnum, StringRegExp($recuptable[0], '></td><td align="right"><font face="Verdana, Arial, sans-serif" size="-1">(.*?)</font></td></tr></table>',1))
FileDelete(@MyDocumentsDir & "/top250imdb.imdbcatcher")
_FileCreate(@MyDocumentsDir & "/top250imdb.imdbcatcher")
For $charspecial = 0 To UBound($arrayrecuptitre)-1 Step 1
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xE9;","é")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xE8;","è")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "'","'")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xEF;","ï")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xEA;","ê")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xF4;","ô")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xC8;","Ê")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xE7;","ç")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xEE;","î")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xEA;","ê")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xE0;","à")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "'","À")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xE2;","â")
    $arrayrecuptitre[$charspecial] = StringReplace($arrayrecuptitre[$charspecial], "&#xE4;","ä")
Next
For $i = 0 to UBound($arrayrecupnumero)-1 Step 1
    FileWrite(@MyDocumentsDir & "/top250imdb.imdbcatcher", $arrayrecupnumero[$i] & " | ")
FileWrite(@MyDocumentsDir & "/top250imdb.imdbcatcher", $arrayrecupnote[$i] & " | ")
FileWrite(@MyDocumentsDir & "/top250imdb.imdbcatcher", $arrayrecuptitre[$i] & "  " &$arrayrecupannee[$i]& " | " )
FileWrite(@MyDocumentsDir & "/top250imdb.imdbcatcher",$arrayrecupvoteurnum[$i] & @CRLF& "----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------" & @CRLF)
Next
MsgBox(0,"terminer","analyse terminer"& @CRLF &"remerciements à http://www.imdb.fr")
$read = FileRead(@MyDocumentsDir & "/top250imdb.imdbcatcher")
GUICtrlSetData($e, $read)
EndSwitch
WEnd