[EX] top 250 films whith InternetMoviesDataBase
Posté : ven. 30 sept. 2011 17:57
par 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
