{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\fmodern\fcharset0 Courier New;}}
{\colortbl ;\red0\green128\blue0;\red102\green102\blue102;\red128\green0\blue128;\red0\green0\blue0;\red0\green0\blue255;\red255\green102\blue0;\red255\green0\blue0;}
\viewkind4\uc1\pard\cf1\f0\fs20 // DESCRIPTION Pellicola con grande immagine \cf2\par
\cf1 // AUTHOR JUIN J\'e9r\'f4me \par
// LANGUAGE ITALIANO\cf3\par
\cf2\par
\cf3 MovieDatabaseValue\cf2  = "Trovacinema"\par
\par
\cf1 // MODE DEBUG: enlever le double slash pour verifier que votre adresse de recherche est correcte.\cf2\par
\cf1 // ShellExecute("http://www.allocine.fr/recherche/default.html?motcle=" + TitleToSearch)\cf2\fs18\par
\fs20\par
\cf1 // cette page liste les prochaines sorties de films\par
HtmlCode is \cf4 String\cf1  = \cf5 GetPage\cf1 ("\cf2 http://www.capital.it/trovacinema/cerca.jsp?textfield=\cf1 ", \cf6 TitleToSearch\cf1  \cf2 , "\cf0\fs18 &select=film\cf2\fs20 " \cf1 )\cf2\par
\cf4 If\cf1  HtmlCode = "" \cf4 Then\cf2\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("N\cf2 essuna risposta per questo titolo\cf1 ")\cf2\par
\cf1\tab\cf4 Return\cf2\par
\cf4 End\par
\cf0\f1\par
\cf2\f0\fs18\par
\cf1\fs20 //arborescence g\'e9n\'e9rale du stockage Allocine-Generalisation\par
\cf2 Movies_Delimiter is \cf4 String\cf2  = "<a href=""/trovacinema/scheda_film.jsp?idContent=" \par
\cf1 Movies_Number is \cf4 Int \cf1 = \cf5 StringCounter\cf1 (\cf2 HtmlCode\cf1 , Movies_Delimiter)\cf2\par
\cf4 If\cf1  Movies_Number = 0 \cf4 Then\cf2\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("N\cf2 essuna risposta per questo titolo\cf1 ")\cf2\par
\cf1\tab\cf4 Return\cf2\par
\cf4 End\par
\cf2\fs18\par
\fs20 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
\f1\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 , """ class=" )\cf2\f0\tab\par
\tab\cf1 Movie_Title = \cf5 BetweenStrings\cf1 (Movie_Title, "\cf0\f1 "">\cf1\f0 " , "</a></td>")\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://www.capital.it/trovacinema/scheda_film.jsp?idContent=\cf2 " + Movie_ID\par
\tab\cf5 AddMovieToList\cf2 (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)\cf2\par
\cf4 End\cf2\par
\fs18\par
\cf1 // Ouverture de la liste des films trouv\'e9s\par
\cf5 OpenMoviesList\cf1 ()\cf2\par
\cf4\fs20 If\cf1  \cf3 MovieIDValue\cf1  = "" \cf4 Then\cf2\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("\cf2 Non averte scelto alcuna pellicola\cf1 ")\cf2\par
\tab\cf4 Return\cf2\par
\cf4 End\par
\cf2\fs18\par
\cf1\fs20 // MODE DEBUG : Verify URL (must be deactivate in the final version of the script)\cf2\par
\cf1 // ShellExecute("http://www.kataweb.it/cinema/scheda_film.jsp?idContent=118768" + Movie_ID)\cf2\par
\par
\cf1 // Extraction du code Html de la page d\'e9sir\'e9e\cf2\par
HtmlCode = \cf5 GetMovie\cf2 (\cf3 MovieURLValue\cf2 ,"", "")\par
\cf4 If\cf2  HtmlCode = "" \cf4 Then\cf2\par
\tab\cf5 UserErrorMessage\cf2 (\cf1 "N\cf2 essuna risposta per questo titolo\cf1 "\cf2 )\par
\tab\cf4 Return\cf2\par
\cf4 End\par
\cf2\fs18\par
\cf1 // recup\'e9ration des donn\'e9es\par
\cf3 MovieSummaryValue\cf2  = \cf5 BetweenStrings\cf2  (HtmlCode, "<span class=""vrd-13-n"">" , "</span>")\par
\par
\cf3\fs20 MovieYearValue\cf2  = \cf5 BetweenStrings\cf2  (\cf1 HtmlCode\cf2  , "\cf1 Anno: </span>\cf2 " , "\cf1 </span><br>\cf2 " )\par
\cf3 MovieYearValue\cf1  = RemoveHTMLTags (\cf3 MovieYearValue\cf1 )\par
\cf4 If\cf2  \cf3 MovieYearValue\cf2  = "\cf1\fs18\'04\cf2 " \cf4 Then\cf2\par
\fs20\tab MessageYear is \cf4 String\cf2  = "Nessun anno \cf4 for\cf2 nito \cf7 In\cf4 for\cf2 mazioni nel sito"\par
\tab\cf3 MovieYearValue\cf2  =""\par
\cf4 Else\par
\cf2\tab MessageYear = "Anno -> OK"\cf4\par
End\cf2\par
\fs18\par
\cf3\fs20 MovieDurationValue\cf2  = \cf5 BetweenStrings\cf2  (\cf1 HtmlCode\cf2  , "\cf1 D\cf2 urata\cf1 : </span>\cf2 " , "'\cf1 </span><br>\cf2 " )\par
\cf3 MovieDurationValue\cf1  = RemoveHTMLTags (\cf3 MovieDurationValue\cf1 )\par
\cf4 If\cf2  \cf3 MovieDurationValue\cf2  = "\cf1\fs18\'04\cf2 " \cf4 Then\cf2\par
\fs20\tab MessageDuree is \cf4 String\cf2  = "Nessun durata \cf4 for\cf2 nito \cf7 In\cf4 for\cf2 mazioni nel sito"\par
\tab\cf3 MovieDurationValue\cf2  =""\par
\cf4 Else\cf2\par
\tab MessageDuree = "Durata -> OK"\cf4\par
End\cf2\par
\fs18\par
\cf3\fs20 MovieFamilyValue\cf2  = \cf5 BetweenStrings\cf2  (\cf1 HtmlCode\cf2  , "\cf1 G\cf2 enere\cf1 : </span>\cf2 " , "," )\par
\cf3 MovieFamilyValue\cf1  = RemoveHTMLTags (\cf3 MovieFamilyValue\cf1 )\par
\cf4 If \cf3 MovieFamilyValue\cf2  = "\cf1\fs18\'04\cf2 " \cf4 Then\par
\cf2\tab MessageGenre is \cf4 String\cf2  = \fs20 "Nessun genere \cf4 for\cf2 nito \cf7 In\cf4 for\cf2 mazioni nel sito"\fs18\par
\cf1\fs20\tab\cf3 MovieFamilyValue\cf2  =""\par
\cf4 Else\cf2\par
\tab MessageGenre = "Genere -> OK"\cf4\par
End\cf1\par
\par
//<span class="arl-14-b">Nazione: </span><span class="arl-14-n">Stati Uniti d'America</span><br>\cf2\par
\cf3 Country\cf2  is \cf4 String\cf2  = \cf5 BetweenStrings\cf2  (HtmlCode , "\cf1 >Nazione:\cf2 " , "<br>")\par
\cf3 MovieCountryValue\cf2  = \cf5 BetweenStrings\cf2  (Country, """>" , "</span>")\par
\cf4 If \cf3 MovieCountryValue\cf2  = "\cf1\fs18\'04\cf2 " \cf4 Then\par
\cf2\tab MessagePays is \cf4 String\cf2  = \fs20 "Nessun nazione \cf4 for\cf2 nito \cf7 In\cf4 for\cf2 mazioni nel sito"\fs18\par
\cf1\fs20\tab\cf3 MovieCountryValue\cf2  =""\par
\cf4 Else\cf2\par
\tab MessagePays = "Nazione -> OK"\cf4\par
End\cf2\par
\par
\cf1\fs18 //acteurs\par
\pard\sb100\sa100\cf2 ListAct is \cf4 String \cf2 = \cf5 BetweenStrings\cf2 (\cf1 HtmlCode\cf2 , "c\cf1 ont cast\cf2 " , "cont multimedi\cf1 a\cf2 ")\par
\pard NbAct is \cf4 Int \cf2 = \cf5 StringCounter\cf2  (ListAct , "\cf1 scheda_personaggio.jsp?idContent=\cf2 ")\par
\cf4 For\cf2  i = 2 TO NbAct + 1\par
\tab Acteur is \cf4 String\cf2  = \cf5 StringExtraction\cf2  (ListAct , i , "\cf1 scheda_personaggio.jsp?idContent=\cf2 ")\par
\tab NomActeur is \cf4 String\cf2  = \cf5 BetweenStrings\cf2  (Acteur, ""\cf1 ">\cf2 " , "\cf1 </a>\cf2 ")\par
\tab\cf4 If\cf2  NomActeur = "\cf1\'04"\cf2  \cf4 Then\cf2\par
\tab\tab NomActeur = ""\par
\tab\cf4 End\cf2\par
\cf5\tab AddMovieActors\cf2  (NomActeur , "")\par
\cf4 End\cf2\fs20\par
\par
\cf1 //compositeur\par
\cf2 Compo is \cf4 String\cf2  = \cf5 LinesAfter\cf2  (HtmlCode, 3 , \fs18 "Musiche: </span>")\cf1\fs20\par
\cf5\fs18 C\cf2 ompositeur is \cf4 String\cf2  = \cf5 BetweenStrings\cf2  (Compo, """>" , "</a>")\par
Compositeur = \cf5 RemoveHTMLTags\cf2  (Compositeur)\cf5\par
\cf4 If\cf1  Compositeur = \fs20 "\fs18\'04" \cf4 Then\cf2\par
\cf1\tab Compositeur =""\cf2\par
\cf4 End\cf5\par
AddMovieComposers\cf2 (Compositeur)\cf1\fs20\par
\cf2\fs18\par
\par
\cf1 //Realisateur\par
\fs20 Real\cf2 1\cf1  is \cf4 String\cf1  = \cf5 LinesAfter\cf1  (HtmlCode, \cf2 3\cf1  , "Regia:")\par
\cf2\fs18 Realisat is \cf4 String\cf2  = \cf5 BetweenStrings\cf2  (Real1, """>" , "</a>")\par
Realisat = \cf5 RemoveHTMLTags\cf2  (Realisat)\cf5\par
\cf4 If\cf1  \cf2 Realisat\cf1  = \fs20 "\fs18\'04" \cf4 Then\cf2\par
\cf1\tab\cf2 Realisat\cf1  =""\cf2\par
\cf4 End\cf5\par
AddMovieDirectors\cf2 (Realisat)\cf1\fs20\par
\cf2\fs18\par
\cf1 //Sceneggiatura:\par
\fs20 Scena\cf2 1\cf1  is \cf4 String\cf1  = \cf5 LinesAfter\cf1  (HtmlCode, \cf2 3\cf1  , "\fs18 Sceneggiatura:\fs20 ")\par
\fs18 Scenarist\cf2  is \cf4 String\cf2  = \cf5 BetweenStrings\cf2  (\cf1 Scena1\cf2 , """>" , "</a>")\par
\cf1 Scenarist\cf2  = \cf5 RemoveHTMLTags\cf2  (\cf1 Scenarist\cf2 )\cf5\par
\cf4 If\cf1  Scenarist = \fs20 "\fs18\'04" \cf4 Then\cf2\par
\cf1\tab Scenarist =""\cf2\par
\cf4 End\cf5\par
AddMovieWriters\cf2 (\cf1 Scenarist\cf2 )\par
\par
\par
PageImg is \cf4 String\cf2  = \cf5 GetPage\cf2 ("http://www.capital.it/trovacinema/scheda_locandina.jsp?idContent=" \cf1 ,\cf2  \cf3 MovieIDValue \cf1 , ""\cf3 )\cf2\par
\cf1 Img_ID is \cf4 String\cf1  = \cf5 BetweenStrings\cf1 (PageImg, "field_name=Image&id=", """")\cf2\par
\cf3 MoviePictureValue\cf1  = "\cf2 http://www.capital.it/trovacinema/\cf1 rendercmsfield.jsp?field_name=Image&id=" + Img_ID\par
\cf2\par
\cf4 If \cf3 MoviePictureValue\cf1  = "\cf2 http://www.capital.it/trovacinema/\cf1 rendercmsfield.jsp?field_name=Image&id=\'04" \cf4 Then\cf2\par
\tab MessageImg is \cf4 String\cf2  = "Nessun'immagine grande \cf4 For\cf2 mato"\par
\tab\cf3 MoviePictureValue\cf2  = ""\par
\cf4 Else\cf2\par
\tab MessageImg = "Immagine -> OK"\par
\cf4 End\cf2\par
\cf0\par
\cf2\par
\par
\cf5 UserInformationMessage\cf2  ("La pellicola \'e8 stata crea" + CR + CR + "Ecco alcuni risultati : " + CR + CR + MessageImg + CR + MessageYear + CR + MessageDuree + CR + MessageGenre \cf1 + CR + MessagePays\cf2 )\par
\cf1 CreateMovie ()\par
\cf2\par
\par
\cf1 // Fin du script - Trovacinema v1.01 - JUIN Jerome\cf2\par
\cf0\par
}