Code : Tout sélectionner
$source = BinaryToString(InetRead("http://www.imdb.fr/chart/top"))
$recuptable = _StringBetween($source,'<table border="1" cellspacing="0" cellpadding="4"><tr bgcolor="#FFFFDB">','</table>')Code : Tout sélectionner
$arrayrecupvoteurnum = StringRegExp($recuptable[0], '></td><td align="right"><font face="Verdana, Arial, sans-serif" size="-1">(.*?)</font></td></tr><tr',3)Code : Tout sélectionner
_ArrayDelete($arrayrecupvoteurnum, 0)Code : Tout sélectionner
FileWrite(@TempDir & "/top250imdb.imdbcatcher", $arrayrecupnumero[$i] & " | "&$arrayrecupnote[$i] & " | " &$arrayrecuptitre[$i] & " " &$arrayrecupannee[$i]& " | " &$arrayrecupvoteurnum[$i] & @CRLF& "-----------------------------------------------------------------------------------------------------------------" & @CRLF)Code : Tout sélectionner
FileWrite(@TempDir & "/top250imdb.imdbcatcher", $arrayrecupnumero[$i] & " | "&$arrayrecupnote[$i] & " | " &$arrayrecuptitre[$i] & " " &$arrayrecupannee[$i]& " | " &[color=#FF0000]$arrayrecupvoteurnum[/color][$i] & @CRLF& "-----------------------------------------------------------------------------------------------------------------" & @CRLF)Code : Tout sélectionner
Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
FileWrite(@TempDir & "/top250imdb.imdbcatcher", $arrayrecupnumero[$i] & " | "&$arrayrecupnote[$i] & " | " &$arrayrecuptitre[$i] & " " &$arrayrecupannee[$i]& " | "& $arrayrecupvoteurnum[$i] & @CRLF &"-----------------------------------------------------------------------------------------------------------------" & @CRLF)
FileWrite(@TempDir & "/top250imdb.imdbcatcher", $arrayrecupnumero[$i] & " | "&$arrayrecupnote[$i] & " | " &$arrayrecuptitre[$i] & " " &$arrayrecupannee[$i]& " | "& ^ ERRORhelp...



