{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\froman\fcharset0 Times New Roman;}{\f2\fmodern\fcharset0 Courier New;}}
{\colortbl ;\red0\green128\blue0;\red128\green0\blue128;\red102\green102\blue102;\red0\green0\blue0;\red0\green0\blue255;\red255\green102\blue0;\red255\green0\blue0;}
\viewkind4\uc1\pard\cf1\f0\fs20 // DESCRIPTION Telecha rapidamente sus fichas de peliculas con grandes imagenes\par
// AUTHOR JUIN J\'e9r\'f4me \par
// LANGUAGE ES\cf2\par
\cf3\par
\cf2 MovieDatabaseValue\cf3  = "Carteles"\par
\cf1 // ShellExecute("http://carteles.metropoliglobal.com/4resultados.php?titulo=" + TitleToSearch + "&director=&interpretes=&Submit=Buscar")\cf3\fs18\par
\cf1\fs20 //http://carteles.metropoliglobal.com/4resultados.php?titulo=leon&director=&interpretes=&Submit=Buscar\cf3\par
\par
\cf1 // cette page liste les films deja sortis avec click sur "plus" de la page allocine\par
HtmlCode\cf3 1\cf1  is \cf4 String\cf1  = \cf5 GetPage\cf1 ("http://carteles.metropoliglobal.com/4resultados.php?titulo=", \cf6 TitleToSearch\cf1  \cf3 , "\cf1 &director=&interpretes=&Submit=Buscar\cf3 " \cf1 )\cf3\par
\cf4 If\cf1  HtmlCode1 = "" \cf4 Then\cf3\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("No se encontr\'f3 esta p\'e1gina")\cf3\par
\cf1\tab\cf4 Return\cf3\par
\cf4 End\par
\cf3\par
\cf1 HtmlCode2 is \cf4 String\cf1  = \cf5 GetPage\cf1 ("\cf3 http://carteles.metropoliglobal.com/4resultados.php?pageNum_resultados=1&totalRows_resultados=40&titulo=\cf1 ", \cf6 TitleToSearch\cf1  \cf3 , "&director=&interpretes=&Submit=Buscar" \cf1 )\cf3\par
\cf4 If\cf1  HtmlCode2 = "" \cf4 Then\cf3\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("No se encontr\'f3 esta p\'e1gina")\cf3\par
\cf1\tab\cf4 Return\cf3\par
\cf4 End\cf3\par
\par
\cf1 // Concatenation des codes\par
\cf3 HtmlCode is \cf4 String\cf3  = HtmlCode1 + HtmlCode2\cf1\par
\cf3\par
\par
\cf1 //arborescence g\'e9n\'e9rale du stockage \par
\cf3 Movies_Delimiter is \cf4 String\cf3  = "\cf1 <a href=""4planti.php?id=\cf3 " \par
\cf1 Movies_Number is \cf4 Int \cf1 = \cf5 StringCounter\cf1 (\cf3 HtmlCode\cf1 , Movies_Delimiter)\cf3\par
\cf4 If\cf1  Movies_Number = 0 \cf4 Then\cf3\par
\pard\sb100\sa100\cf1\tab\cf5 UserErrorMessage\cf1 ("\cf0\f1\fs24 Ninguna respuesta para esta investigaci\'f3n. Piense a pesar de todo por desactivar su a FireWall para comprobar que eso no viene \'e9l. \cf3\f0\fs20 ")\cf1\par
\pard\cf4\tab Return\par
End\par
\cf3\fs18\par
\par
\cf1\fs20 // MODE DEBUG : enlever les deux slash devant Information pour tester la capture du nombre de films\cf3\par
\cf1 // Information("Movies Number = " + Movies_Number)\cf3\fs18\par
\par
\fs20 i is int\par
Movie_ID, Movie_Title, Movie_URL are \cf4 String\cf3\par
\cf4 For\cf3  i=2 to Movies_Number + 1\par
\f2\tab\cf0 Movie_Title = Movies_Delimiter  +  \cf5 StringExtraction\cf0  (\cf1 HtmlCode\cf0 , i ,Movies_Delimiter )\par
\tab Movie_ID = \cf5 BetweenStrings\cf0  ( Movie_Title , Movies_Delimiter , ""\cf3 ">\cf0 " )\cf3\f0\tab\par
\tab\cf1 Movie_Title = \cf5 BetweenStrings\cf1 (Movie_Title, \cf0\f2 ""\cf3 ">\cf0 "\cf1\f0  , "</a>")\par
\cf3\tab Movie_Title = \cf5 StringRefine\cf3 (Movie_Title)\par
\tab\cf1 Movie_Title = \cf5 FormatString\cf1  (Movie_Title, "UC")\par
\cf3\tab\cf1 Movie_Title = RemoveHTMLTags (Movie_Title)\cf3\par
\tab Movie_URL = "\cf1 http://carteles.metropoliglobal.com/4planti.php?id=\cf3 " + Movie_ID\cf1  \par
\cf3\tab\cf5 AddMovieToList\cf3 (i, Movie_ID, Movie_Title, Movie_URL)\par
\cf1\par
//MODE DEBUG : enlever les deux slash devant \cf7 Trace\cf1  pour tester la capture des titres\par
//\cf7 Trace\cf1 (Movie_ID, Movie_Title, Movie_URL)\cf3\par
\cf4 End\cf3\par
\fs18\par
\cf1 // Ouverture de la liste des films trouv\'e9s\par
\cf5 OpenMoviesList\cf1 ()\cf3\par
\cf4\fs20 If\cf1  \cf2 MovieIDValue\cf1  = "" \cf4 Then\cf3\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("Ninguna pel\'edcula seleccionada. O entonces su FireWall bloquea los resultados.")\cf3\par
\tab\cf4 Return\cf3\par
\cf4 End\cf3\fs18\par
\par
\cf1\fs20 // MODE DEBUG : Verify URL (must be deactivate in the final version of the script)\cf3\par
\cf1 // ShellExecute("")\cf3\par
\par
\cf1 // Extraction du code Html de la page d\'e9sir\'e9e\cf3\par
HtmlCode = \cf5 GetMovie\cf3 (\cf2 MovieURLValue\cf3 ,"", "")\par
\cf4 If\cf3  HtmlCode = "" \cf4 Then\cf3\par
\tab\cf5 UserErrorMessage\cf3 (\cf1 "No se encontr\'f3 esta p\'e1gina"\cf3 )\par
\tab\cf4 Return\cf3\par
\cf4 End\cf3\par
\cf2\par
\cf1 //Titre original\par
\cf3 LTTO is \cf4 String\cf3  = \cf5 LinesAfter\cf3  (HtmlCode , 1 , "TIT. ORIGINAL:")\cf1\par
\cf2 MovieOriginalTitleValue\cf1  = \cf5 BetweenStrings\cf3  \cf1 (L\cf3 TTO\cf1 ,\cf3  "sans-serif"">"\cf1  , \cf3 "</font"\cf1  )\cf3\par
\cf4 If\cf3  \cf2 MovieOriginalTitleValue\cf3  =\fs18 "\cf1\'04" \cf4 Then\par
\cf3\fs20\tab\cf2 MovieOriginalTitleValue\cf3  = ""\par
\cf4 End\cf3\par
\par
\cf1 //dur\'e9e  DURACION:\cf3\par
\cf1 duree is \cf4 String\cf1  = \cf5 BetweenStrings\cf1  (HtmlCode , "DURACION:" , "\cf3 </font></td>\cf1 " )\cf3\par
\cf2 MovieDurationValue\cf1  = \cf5 BetweenStrings\cf1  (duree, "sans-serif"">" , "Min" )\cf3\par
\cf2 MovieDurationValue\cf3  = \cf5 EliminateLetters\cf3  (\cf2 MovieDurationValue\cf3 )\cf1\par
\cf3\par
\cf1 //Origine Pays // NACIONALIDAD:\par
\cf3 Nacio is \cf4 String\cf3  = \cf5 LinesAfter\cf3  (HtmlCode, 1 , "NACIONALIDAD:")\par
\cf2 MovieCountryValue \cf3 = \cf5 BetweenStrings\cf3 (Nacio, "sans-serif"">"\cf1  , \cf3 "</font"\cf1  )\cf3\par
\cf2 MovieCountryValue\cf3  = \cf5 FormatString\cf3  (\cf2 MovieCountryValue\cf3  , "1UC")\par
\cf1\par
//Recuperation de l'annee //A&Ntilde;O:\cf3\par
\cf1 Year is \cf4 String\cf1  = \cf5 LinesAfter\cf1  (Htmlcode, 1\cf3  , \cf1 "\cf3 A&Ntilde;O:\cf1 ")\cf3\par
\cf2 MovieYearValue\cf3  = \cf5 BetweenStrings\cf3  (Year ,"sans-serif"">"\cf1  , \cf3 "</font"\cf1  )\cf3\par
\par
\cf1 //R\'e9sum\'e9\par
\cf3 Sum is \cf4 String\cf3  \cf1 = \cf5 BetweenStrings\cf1  (HtmlCode , "valign=""TOP"" colspan" , \cf3 "font></td>"\cf1 )\par
\cf2 MovieSummaryValue\cf1  = \cf5 BetweenStrings\cf1  (Sum , "serif"">" , "</")\cf2\par
MovieSummaryValue\cf1  = RemoveHTMLTags (\cf2 MovieSummaryValue\cf1 )\par
\cf3\par
\par
\cf1 // R\'e9alisateur - \cf3\par
\cf1 Reali is \cf4 String\cf1  = \cf5 LinesAfter\cf1  (HtmlCode , 1 , "DIRECTOR:")\cf3\par
\lang2057 Realis1 is \cf4 String\cf3  \cf1 = \cf5 BetweenStrings\cf1  (Reali , \lang1036 "serif"">" , "\cf3 .\cf1 ")\par
\cf3 Realis2 is \cf4 String\cf3  = \cf5\lang2057 BetweenStrings\cf1  (Reali , \lang1036 "serif"">" , "</")\par
\cf4\lang2057 If\cf3  Realis1 = \lang1036\fs18 "\cf1\'04"\cf3  \cf4 Then\cf3\par
\lang2057\fs20\tab Realis1 = Realis2\par
\cf4 End\cf3\par
Realisateur is \cf4 String\cf3  = \cf5 R\cf3 ealis1\par
\cf4 R\cf3 ealisateur = \cf5 RemoveHTMLTags\cf3  (Realisateur)\cf4\par
If\cf3  Realisateur = "\cf1\lang1036\fs18\'04\lang2057\fs20 "\cf3  \cf4 Then\cf3\par
\tab Realisateur = ""\par
\cf4 End\cf3\par
\cf5 AddMovieDirectors\cf1 (Realisateur)\cf3\par
\cf1\par
// Scenariste - utiliser PersoCode\par
\cf3 Scena is \cf4 String\cf3  = \cf5 LinesAfter\cf3  (HtmlCode , 1 , ">GUI&Oacute;N:")\par
Scena1 is \cf4 String\cf3  \cf1 = \cf5 BetweenStrings\cf1  (\cf3 Scena \cf1 , \lang1036 "serif"">" , "\cf3 .\cf1 ")\par
\cf3 Scena2 is \cf4 String\cf3  = \cf5\lang2057 BetweenStrings\cf1  (\cf3 Scena\cf1  , \lang1036 "serif"">" , "</")\par
\cf4\lang2057 If\cf3  Scena1 = \lang1036\fs18 "\cf1\'04"\cf3  \cf4 Then\cf3\par
\lang2057\fs20\tab Scena1 = Scena2\par
\cf4 End\par
\cf3 Scenariste is \cf4 String\cf3  = \cf5 S\cf3 cena1\par
\cf4 S\cf3 cenariste = \cf5 RemoveHTMLTags\cf3  (Scenariste)\cf4\par
If\cf3  Scenariste = "\cf1\lang1036\fs18\'04\lang2057\fs20 "\cf3  \cf4 Then\cf3\par
\tab Scenariste = ""\par
\cf4 End\cf5\par
AddMovieWriters\cf3 (Scenariste)\par
\par
\cf1 // compositeur\par
\cf3 Compo is \cf4 String\cf3  = \cf5 LinesAfter\cf3  (HtmlCode , 1 , "M&Uacute;SICA:")\par
Compo1 is \cf4 String\cf3  \cf1 = \cf5 BetweenStrings\cf1  (\cf3\lang1036 Compo\lang2057  \cf1 , \lang1036 "serif"">" , "\cf3 .\cf1 ")\par
\cf3 Compo2 is \cf4 String\cf3  = \cf5\lang2057 BetweenStrings\cf1  (\cf3\lang1036 Compo\cf1\lang2057  , \lang1036 "serif"">" , "</")\par
\cf4\lang2057 If\cf3  \lang1036 Compo\lang2057 1 = \lang1036\fs18 "\cf1\'04"\cf3  \cf4 Then\cf3\par
\lang2057\fs20\tab\lang1036 Compo\lang2057 1 = \lang1036 Compo\lang2057 2\par
\cf4 End\par
\cf3 Compositeur is \cf4 String\cf3  = compo1\par
Compositeur = \cf5 RemoveHTMLTags\cf3  (Compositeur)\par
\cf4\lang1036 If\cf3  C\cf1 ompositeur\cf3  = "\cf1\fs18\'04\fs20 "\cf3  \cf4 Then\cf3\par
\tab C\cf1 ompositeur\cf3  = ""\par
\cf4 End\cf5\par
AddMovieComposers\cf3 (Compositeur)\cf1\par
\par
// Acteurs - utiliser PersoCode\par
\pard\sb100\sa100\cf3\lang2057 ListAct is \cf4 String \cf3 = \cf5 BetweenStrings\cf3 (HtmlCode, "INT&Eacute;RPRETES:" , "</tr")\par
ListAct = \cf5 BetweenStrings\cf3  (ListAct, \cf1\lang1036 "serif"">" ,\cf3  "</font>")\par
\lang2057 ListAct = "," + ListAct + ","\par
ListAct = replace (ListAct , ", " , ",")\par
ListAct = replace (ListAct , "," , "<h ref=commence>")\par
NbAct is \cf4 Int \cf3 = \cf5 StringCounter\cf3  (ListAct , "<h ref=")\par
\pard\cf4 For\cf3  i = 2 TO NbAct + 1\par
\cf1\tab\cf3 Acteur is \cf4 String\cf3  = \cf5 StringExtraction\cf3  (ListAct , i , "<h ref=")\par
\tab NomActeur is \cf4 String\cf3  = \cf5 BetweenStrings\cf3  (Acteur, ">" , "<")\par
\tab NomActeur = \cf5 RemoveHTMLTags\cf3  (NomActeur)\par
\tab\cf4 If\cf1  NomActeur = "\lang1036\fs18\'04\lang2057\fs20 " \cf4 Then\cf3\par
\tab\cf1\tab NomActeur = ""\cf3\par
\tab\cf4 End\cf3\par
\cf5\tab AddMovieActors\cf3  (NomActeur , "")\par
\cf4\lang1036 End\cf3\par
\par
\cf1 //Image grand format --- la 1ere image trouv\'e9e\cf3\par
\cf1 P\cf3 ict_ID is \cf4 String\cf3  = \cf5 BetweenStrings\cf3  (HtmlCode , "pgrande.php?image_id=" , """")\cf1\par
l\cf3 ien is \cf4 String\cf3  = \cf5 GetPage\cf3  ("http://carteles.metropoliglobal.com/pgrande.php?image_id=" , Pict_ID , "" )\par
Img is \cf4 String\cf3  = \cf5 BetweenStrings\cf3  (Lien , "<img src="".." , """")\par
\cf2 MoviePictureValue\cf3  = "http://carteles.metropoliglobal.com" + Img\par
\cf1\fs18\par
// Cr\'e9ation de la fiche dans la base de donn\'e9es\par
\cf3\tab\cf1 //\cf5 UserInformationMessage\cf1  ("")\cf3\par
\cf1 CreateMovie()\cf3\par
\cf1\par
\cf3\fs20\par
\tab\par
\cf1\fs18 // Fin du script - version 2.0 JUIN J. --\par
\cf0\par
\par
}