{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\fnil\fcharset0 arial;}{\f2\froman\fcharset0 Times New Roman;}{\f3\froman\fprq2\fcharset0 Times New Roman;}}
{\colortbl ;\red0\green128\blue0;\red102\green102\blue102;\red128\green0\blue128;\red0\green0\blue0;\red0\green0\blue255;\red255\green102\blue0;\red255\green0\blue0;}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\cf1\f0\fs20 // DESCRIPTION Yahoo Cine Espana \cf2\par
\cf1 // AUTHOR JUIN J\'e9r\'f4me \par
// LANGUAGE ES\cf3\par
\cf2\par
\cf3 MovieDatabaseValue\cf2  = "YahooEs"\par
\par
\cf1 // MODE DEBUG: enlever le double slash pour verifier que votre adresse de recherche est correcte.\cf2\par
\cf1\lang2057 // ShellExecute("http://es.search.movies.yahoo.com/search/movies_db_es?p=" + TitleToSearch+"+tp:6&n=30&s=tf&tp=6&kw=" + TitleToSearch)\cf2\par
\cf1 //http://es.search.movies.yahoo.com/search/movies_db_es?p=leon+tp:6&n=30&s=tf&tp=6&kw=leon\par
\cf2\par
\cf1\lang1036 // cette page liste les prochaines sorties de films\par
\lang2057 HtmlCode is \cf4 String\cf1  = \cf5 GetPage\cf1 ("\cf2 http://es.search.movies.yahoo.com/search/movies_db_es?p=\cf1 " , \cf6 TitleToSearch\cf1  + \cf2 "+tp:6&n=30&s=tf&tp=6&kw=" \cf1 ,\cf2  \cf6 TitleToSearch\cf1 )\cf2\par
\cf4\lang1036 If\cf1  HtmlCode = "" \cf4 Then\cf2\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("No se encontr\'f3 esta p\'e1gina.")\cf2\par
\cf1\tab\cf4 Return\cf2\par
\cf4 End\par
\cf2\par
\cf1 //arborescence g\'e9n\'e9rale du stockage Allocine-Generalisation\par
\cf2\lang2057 Movies_Delimiter is \cf4 String\cf2  = "es.movies.yahoo.com/db"\par
\cf1 Movies_Number is \cf4 Int \cf1 = \cf5 StringCounter\cf1 (\cf2 HtmlCode\cf1 , Movies_Delimiter)\cf2\par
\cf4\lang1036 If\cf1  Movies_Number = 0 \cf4 Then\cf2\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("No se encontr\'f3 esta p\'e1gina.\cf2 ")\cf1\par
\cf4\tab Return\par
End\par
\cf2\par
\cf1 // MODE DEBUG : enlever les deux slash devant Information pour tester la capture du nombre de films\cf2\par
\cf1\lang2057 //\cf7 Information\cf1 ("Movies Number = " + Movies_Number)\cf2\par
\par
i is int\par
Movie_ID, Movie_Title, Movie_URL are \cf4 String\cf2\par
\cf4 For\cf2  i=2 to Movies_Number + 1\par
\cf1 //<a href="http://es.movies.yahoo.com/db/f/2/1/217208.html">Matrix reloaded</a> (The Matrix reloaded,&nbsp;2003)\cf2\par
\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 , "\cf1 .html\cf0 " )\cf2\tab\par
\tab\cf1 Movie_Title = \cf5 BetweenStrings\cf1 (Movie_Title, "\cf2 "">\cf1 " , "</a>")\par
\cf2\tab Movie_Title = \cf5 StringRefine\cf2 (Movie_Title)\par
\tab\cf1 Movie_Title = \cf5 FormatString\cf1  (Movie_Title, "UC")\par
\cf2\tab\cf1 Movie_Title = RemoveHTMLTags (Movie_Title)\cf2\par
\tab Movie_URL = "\cf1 http://es.movies.yahoo.com/db\cf2 " + Movie_ID \cf1 + ".html"\cf2\par
\tab\cf5 AddMovieToList\cf2 (i, Movie_ID, Movie_Title, Movie_URL)\par
\cf1\par
\lang1036 //MODE DEBUG : enlever les deux slash devant \cf7 Trace\cf1  pour tester la capture des titres\par
\lang2057 //\cf7 Trace\cf1 (Movie_ID, Movie_Title, Movie_URL)\cf2\par
\cf4\lang1036 End\cf2\par
\par
\cf1 // Ouverture de la liste des films trouv\'e9s\par
\cf5\lang2057 OpenMoviesList\cf1 ()\cf2\par
\cf4 If\cf1  \cf3 MovieIDValue\cf1  = "" \cf4 Then\cf2\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("\lang1036 Ninguna pel\'edcula seleccionada. O entonces su FireWall bloquea los resultados.\lang2057 ")\cf2\par
\tab\cf4 Return\cf2\par
\cf4 End\cf2\par
\par
\cf1 // MODE DEBUG : Verify URL (must be deactivate in the final version of the script)\cf2\par
\cf1 // ShellExecute("http://es.movies.yahoo.com/db" + Movie_ID + ".html")\cf2\par
\par
\cf1\lang1036 // Extraction du code Html de la page d\'e9sir\'e9e\cf2\par
\lang2057 HtmlCode = \cf5 GetMovie\cf2 (\cf3 MovieURLValue\cf2 ,"", "")\par
\cf4 If\cf2  HtmlCode = "" \cf4 Then\cf2\par
\tab\cf5\lang1036 UserErrorMessage\cf2 (\cf1 "No se encontr\'f3 esta p\'e1gina\cf2 .\cf1 "\cf2 )\par
\tab\cf4 Return\cf2\par
\cf4 End\par
\cf2\par
\cf1 //Recuperation des don\'e9es du film\par
\cf2\par
\cf1 // Titre original\par
\pard\sb100\sa100\cf3 MovieOriginalTitleValue\cf2  = \cf5 BetweenStrings\cf2  (HtmlCode, "\cf0\b\f1 T\'edtulo original" \cf2 , "</font>" )\par
\cf3\b0\f2\fs24 MovieOriginalTitleValue\cf2  = \cf5 BetweenStrings\cf2  (\cf3 MovieOriginalTitleValue\cf2  , """" , """")\par
\cf4 If\cf2  \cf3 MovieOriginalTitleValue\cf2  = "\cf1\f0\fs18\'04\cf2\f2\fs24 " \cf4 Then\cf2\par
\cf3\tab MovieOriginalTitleValue\cf2  = ""\cf0\par
\pard\cf4\f0\fs20 End\cf2\par
\par
\cf1\lang2057 //Origine Pays et Recuperation de l'annee\cf2\par
PaisAno is \cf4 String\cf2  = \cf5 BetweenStrings\cf2  (HtmlCode , "\cf0\lang1036\b\f1 Pa\'eds y a\'f1o\cf2 " , "</font>")\cf3\lang2057\b0\f0\par
\cf2\par
\cf3 MovieCountryValue\cf2 =\cf5 LinesAfter\cf2 (PaisAno, 1, "</b>")\par
\cf3 MovieCountryValue\cf2  = \cf5 FormatString\cf2  (\cf3 MovieCountryValue\cf2  , "1UC")\par
\cf3 MovieCountryValue\cf2  = \cf5 StringRefine\cf2  (\cf3 MovieCountryValue\cf2 )\par
\par
\cf1 YearValue i\cf2 s \cf4 String\cf2  \cf1 = \cf5 LinesAfter\cf2  (PaisAno , 2 , "</b>") \par
\cf3 MovieYearValue\cf2  = \cf5 BetweenStrings\cf2  (YearValue, "(" , ")" )\par
\par
\par
\cf1 //genre\cf2\par
\cf3 MovieFamilyValue\cf2  = \cf5 BetweenStrings \cf2 (HtmlCode, "\cf1 G\'e9nero:</b>&nbsp;\cf2 ", "</font>")\par
\cf1 //\cf3 MovieFamilyValue\cf1  = StringRefine (\cf3 MovieFamilyValue\cf1 )\cf2\par
\cf1 //\cf3 MovieFamilyValue\cf1  = StringMiddle (\cf3 MovieFamilyValue\cf1  , 1 , Length(\cf3 MovieFamilyValue\cf1 ) )\cf5\par
\cf2\par
\cf1\par
//dur\'e9e a transformer en minutes\cf2\par
\cf3 MovieDurationValue\cf1  = \cf5 BetweenStrings \cf2 (HtmlCode, "\cf1 Duraci\'f3n:</b>\cf2 ", "</font>")\par
\cf3 MovieDurationValue\cf1  =\cf2  \cf5 StringRefine\cf2  (\cf3 MovieDurationValue)\par
MovieDurationValue\cf1  =\cf2  \cf5 EliminateLetters\cf2  (\cf3 MovieDurationValue\cf2 )\par
\par
\cf1 //R\'e9sum\'e9\par
\cf3 MovieSummaryValue\cf2  \cf1 = \cf5 BetweenStrings\cf1  (HtmlCode , "\cf2 Sinopsis:</b>" \cf1 , "\cf2 </font>\cf1 ")\par
\cf3 MovieSummaryValue\cf1  = \cf5 StringRefine\cf1  (\cf3 MovieSummaryValue\cf1 )\par
\cf3 MovieSummaryValue\cf2  = \cf5 StringReplace\cf2  (\cf3 MovieSummaryValue\cf2  , \cf4\lang1036\f3 Charact\cf2 (13) + \cf4 Charact\cf2 (10) , "")\lang2057\f0\par
\par
\cf1 // Jaquette\cf2\par
\cf1 P\cf2 ictureID is \cf4 String\cf2  = \cf5 BetweenStrings\cf2  (HtmlCode , "\lang1036 <a href=""/fot/txt/\lang2057 " , ".html")\cf1\par
P\cf2 ictureID\cf1  = \cf5 GetPage\cf2 (\cf1 "http://es.movies.yahoo.com/fot/txt/" \cf2 ,\cf1  PictureID \cf2 ,\cf1  ".h\cf2 tml\cf1 ")\par
\cf2 Pict is \cf4 String\cf2  = \cf5 BetweenStrings\cf2  (PictureID , "http://eur.news1.yimg.com/" , ".jpg" )\par
\cf4 If\cf2  Pict = "\cf1\lang1036\fs18\'04\lang2057\fs20 "\cf2  \cf4 Then\cf2\par
\tab\cf3 MoviePictureValue\cf2  = ""\cf3\par
\cf4 Else\cf2\par
\tab\cf3 MoviePictureValue\cf2  = "http://eur.news1.yimg.com/" + Pict + ".jpg"\par
\cf4\lang1036 End\cf2\par
\par
\cf1 // Lien bande Annonce\par
\lang2057 //MovieTrailerValue = "http://www.cinemovies.fr/fiche_multimedia.php?IDfilm=" + \cf3 MovieIDValue\cf1\par
\cf2\par
\cf1\par
\lang1036 // R\'e9alisateur - Guionista\par
\pard\sb100\sa100\cf2\lang2057 ListRea is \cf4 String \cf2 = \cf5 BetweenStrings\cf2 (HtmlCode, "\cf1\lang1036 Director:</b>\cf2\lang2057 " , "\cf1\lang1036 <TR valign=\cf2\lang2057 ")\par
\pard NbRea is \cf4 Int \cf2 = \cf5 StringCounter\cf2  (ListRea , "<a href=")\par
\cf4 For\cf2  i = 2 TO NbRea + 1\par
\cf1\tab\cf2 Real1 is \cf4 String\cf2  = \cf5 StringExtraction\cf2  (ListRea , i , "<a href=")\par
\tab NomRea is \cf4 String\cf2  = \cf5 BetweenStrings\cf2  (Real1, """>" , "</a>")\par
\tab\cf4 If\cf1  N\cf2 omRea\cf1  = "\lang1036\fs18\'04\lang2057\fs20 " \cf4 Then\cf2\par
\tab\cf1\tab Nom\cf2 Rea\cf1  = ""\cf2\par
\tab\cf4 End\cf2\par
\cf5\tab AddMovieDirectors\cf1 (N\cf2 om\cf1 Rea)\cf2\par
\cf4\lang1036 End\cf2\par
\cf1\lang2057\par
\cf2\par
\cf1\par
// Scenariste - utiliser PersoCode\par
\pard\sb100\sa100\cf2 ListScena is \cf4 String \cf2 = \cf5 BetweenStrings\cf2 (HtmlCode, "\cf1\lang1036 Guionista:</b>\cf2\lang2057 " , "\cf1\lang1036 <TR valign=\cf2\lang2057 ")\par
\pard NbScena is \cf4 Int \cf2 = \cf5 StringCounter\cf2  (ListScena , "<a href=")\par
\cf4 For\cf2  i = 2 TO NbScena + 1\par
\cf1\tab\cf2 Scena is \cf4 String\cf2  = \cf5 StringExtraction\cf2  (ListScena , i , "<a href=")\par
\tab NomScena is \cf4 String\cf2  = \cf5 BetweenStrings\cf2  (Scena, """>" , "</a>")\par
\tab\cf4 If\cf1  N\cf2 omScena\cf1  = "\lang1036\fs18\'04\lang2057\fs20 " \cf4 Then\cf2\par
\tab\cf1\tab Nom\cf2 Scena\cf1  = ""\cf2\par
\tab\cf4 End\cf2\par
\cf5\tab AddMovieWriters\cf2 (NomScena)\par
\cf4\lang1036 End\cf5\lang2057\par
\cf2\par
\par
\cf1 // compositeur\par
\pard\sb100\sa100\cf2 ListCompo is \cf4 String \cf2 = \cf5 BetweenStrings\cf2 (HtmlCode, "\cf1\lang1036 Musica:</b>\cf2\lang2057 " , "\cf1\lang1036 <TR valign=\cf2\lang2057 ")\par
\pard NbCompo is \cf4 Int \cf2 = \cf5 StringCounter\cf2  (ListCompo , "<a href=")\par
\cf4 For\cf2  i = 2 TO NbCompo + 1\par
\cf1\tab\cf2 Compo is \cf4 String\cf2  = \cf5 StringExtraction\cf2  (ListCompo , i , "<a href=")\par
\tab NomCompo is \cf4 String\cf2  = \cf5 BetweenStrings\cf2  (Compo, """>" , "</a>")\par
\tab\cf4 If\cf1  N\cf2 omCompo\cf1  = "\lang1036\fs18\'04\lang2057\fs20 " \cf4 Then\cf2\par
\tab\cf1\tab Nom\cf2 Compo\cf1  = ""\cf2\par
\tab\cf4 End\cf2\par
\cf5\tab\lang1036 AddMovieComposers\cf2\lang2057 (NomCompo)\par
\cf4\lang1036 End\cf2\par
\cf1\par
// Acteurs - utiliser PersoCode\par
\pard\sb100\sa100\cf2\lang2057 ListAct is \cf4 String \cf2 = \cf5 BetweenStrings\cf2 (HtmlCode, "\cf1\lang1036 Actor / Actriz:\cf2\lang2057 " , "\cf1\lang1036 <TR valign=\cf2\lang2057 ")\par
\pard NbAct is \cf4 Int \cf2 = \cf5 StringCounter\cf2  (ListAct , "<a href=")\par
\cf4 For\cf2  i = 2 TO NbAct + 1\par
\cf1\tab\cf2 Acteur is \cf4 String\cf2  = \cf5 StringExtraction\cf2  (ListAct , i , "<a href=")\par
\tab NomActeur is \cf4 String\cf2  = \cf5 BetweenStrings\cf2  (Acteur, """>" , "</a>")\par
\tab\cf4 If\cf1  NomActeur = "\lang1036\fs18\'04\lang2057\fs20 " \cf4 Then\cf2\par
\tab\cf1\tab NomActeur = ""\cf2\par
\tab\cf4 End\cf2\par
\cf5\tab AddMovieActors\cf2  (NomActeur , "")\par
\cf4\lang1036 End\cf2\par
\cf1\par
// Gestion des erreurs ou manques d'informations sur le site d'Allocine apres cette ligne\par
\cf2\par
\cf4\lang2057 If\cf1  \cf3 MoviePictureValue\cf1  = "" \cf4 Then\cf2\par
\pard\sb100\sa100\cf1\tab message1 is \cf4 String\cf1  = "-\cf2  \cf0\lang1036\f2\fs24 ninguna imagen para esta pel\'edcula.\cf1\lang2057\f0\fs20 "\par
\pard\cf4 Else\cf2\par
\tab message1 = "Imagen -> OK"\par
\cf4 End\cf1\par
\cf2\par
\par
\pard\sb100\sa100\cf5\lang1036\fs18 UserInformationMessage\cf2  ("\cf0\f2\fs24 se cre\'f3 la ficha \cf2\f0\fs18 : " + CR + CR + message1 )\lang2057\fs20\par
\pard\cf1 CreateMovie ()\cf2\par
\par
\cf1\lang1036 // Fin du Script Yahoo Cine Espana V1.01 JUIN J\'e9rome\cf2\par
\cf0\par
\f3\par
\cf1\f0\fs8\par
}