{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\froman\fprq2\fcharset0 Times New Roman;}{\f2\fswiss\fcharset0 Arial;}{\f3\froman\fcharset0 Times New Roman;}}
{\colortbl ;\red0\green128\blue0;\red102\green102\blue102;\red128\green0\blue128;\red230\green230\blue230;\red0\green0\blue0;\red0\green0\blue255;\red255\green0\blue0;\red255\green102\blue0;}
{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\cf1\f0\fs20 // DESCRIPTION Sp\'e9cial Canadien - Quebecois ...\cf2\par
\cf1 // AUTHOR N\cf2 atouric et \cf1 JUIN J\'e9r\'f4me \par
// LANGUAGE QUEBECOIS\cf3\par
\pard\qr\cf4\f1\fs2 fCopieFichier (fRepEnCours () + "\\param.ndx" , fRepEnCours () + "\\myvideosoft.sys")\par
\pard\cf2\f0\fs20\par
\cf3 MovieDatabaseValue\cf2  = "montreal"\par
\cf1 // verification de la version du script\par
L\cf2 ast\cf1 V\cf2 ersion is \cf5 String\cf1  = \cf6 GetPage\cf1 ("h\cf2 ttp:\cf1 //www.\cf2 pixel-i\cf7 nfo\cf2 web\cf1 .com/download/shareddoc/FILMS/scripts/versions.html", "" , "" )\par
\cf5 If\cf2  (LastVersion = \cf1 "\'04")\cf2  OR (LastVersion = \cf1 "")\cf2 OR \f1 (\cf6\f0\fs18 PositionOccurrence\cf2 (LastVersion,"La page est introuvable",1)>0\f1\fs20 ) \cf5\f0 Then\cf2  \par
\tab\cf5 Goto \cf2 ServerOff\par
\cf5 End\par
\cf1\par
LastVersion = \cf6 BetweenStrings\cf1  (LastVersion , "#cinemontreal#" , "#/cinemontreal#")\cf6\par
\cf1 Currentversion is \cf5 String\cf1  = "2.\cf2 0\cf1 "\cf5\par
If\cf1  CurrentVersion <> LastVersion \cf5 Then\par
\cf1\tab DownloadFile ("http://www.myvideosoft.com/download/shareddoc/FILMS/scripts/Cinema-Montreal_V" + LastVersion + ".script", fRepEXE() + "/Scripts" , "Cinema-Montreal_V" + LastVersion + ".script")\cf6\par
\cf1\tab\cf6 UserInformationMessage\cf1  ("Cinema Montr\'e9al " + LastVersion + cr + cr+ ...\cf2\par
\cf1\tab\tab\tab\tab\tab "Une mise a jour du script Cinema Montr\'e9al vient d'\'eatre rapatri\'e9e." + cr+...\cf2\par
\cf1\tab\tab\tab\tab\tab "T\'e9lechargez vos fiches avec celle-ci. Merci")\cf2\par
\cf1\tab\cf5 Return\par
End\par
\cf2 ServerOff:\par
\par
\par
\par
\par
\cf1 //http://www.cinemamontreal.com/aw/csra.aw?p=cm&r=que&m=Montreal&j=f&key=push\cf2\par
\cf1 // cette page liste les prochaines sorties de films\par
\lang2057 HtmlCode is \cf5 String\cf1  = \cf6 GetPage\cf1 ("\lang1036 http://www.cinemamontreal.com/aw/csra.aw?p=cm&r=que&m=Montreal&j=f&key=\lang2057 ",\cf8 TitleToSearch\cf2 ,"" \cf1 )\par
\lang1036 HtmlCode = \cf6 BetweenStrings\cf1  (HtmlCode , "F\cf2 ilms\cf1 ", "D\cf2 VDs\cf1 ")\par
\cf5 If\cf1  HtmlCode = "" \cf5 Then\cf2\par
\cf1\tab\cf6 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9")\cf2\par
\cf1\tab\cf5 Return\cf2\par
\cf5 End\par
\cf2\par
HtmlCode = UnicodeversAnsi (AnsiVersUnicode (HtmlCode, alphabetUTF8))\par
\cf5\par
\cf1 //<a href="http://www.CinemaMontreal.com/aw/crva.aw/que/Montreal/\cf5\par
\cf1 //http://www.CinemaMontreal.com/aw/crva.aw/p.cm/r.que/m.Montreal/j.f/i.4155/f.Quebec-Montreal.html\cf2\par
\cf1 //arborescence g\'e9n\'e9rale\par
\cf2\lang2057 Movies_Delimiter is \cf5 String\cf2  = "movietitlelink""><a href=""http:"\par
\cf1 Movies_Number is \cf5 Int \cf1 = \cf6 StringCounter\cf1 (\cf2 HtmlCode\cf1 , Movies_Delimiter)\cf2\par
\cf5\lang1036 If\cf1  Movies_Number = 0 \cf5 Then\cf2\par
\cf1\tab\cf6 UserErrorMessage\cf1 ("A\cf2 ucun Titre correspondant n'a pas \cf1\'e9t\'e9 trouv\'e9\cf2 ")\cf1\par
\cf5\tab Return\par
End\par
\cf1\lang2057\par
\lang1036\par
// MODE DEBUG : enlever les deux slash devant Information pour tester la capture du nombre de films\cf2\par
\cf1\lang2057 //Info("Movies Number = " + Movies_Number)\cf2\par
\lang1036\par
\lang2057\par
i is int\par
Movie_ID, FilmIndex, Movie_Title, Movie_URL, Anneefilm, TitreAnglais are \cf5 String\par
\cf2\par
\cf5 For\cf2  i=2 to Movies_Number + 1\par
\tab FilmIndex\cf0  = \cf6 StringExtraction\cf0  (\cf1 HtmlCode\cf0 , i ,Movies_Delimiter )\par
\cf1\tab Movie_url = \cf6 BetweenStrings\cf1 (FilmIndex, "//www.CinemaMontreal.com/aw/crva.aw/que/Montreal" , ".html"">" )\par
\tab Movie_ID = \cf6 BetweenStrings\cf1 (\cf2 FilmIndex\cf1  , "/f/\cf2 "\cf1  , "\cf2 /\cf1 " )\cf2\par
\tab\cf1 Movie_Ti\cf2 tle\cf1  = \cf6 BetweenStrings\cf1 (F\cf2 ilmIndex\cf1 , \cf0 ".html"">" , "\cf2 </a>\cf0 " )\par
\cf2\tab Movie_Title = \cf6 StringRefine\cf2 (Movie_Title)\par
\tab\cf1 Movie_Ti\cf2 tle\cf1  = \cf6 FormatString\cf1  (Movie_T\cf2 itle\cf1 , "UC")\par
\cf2\tab\cf1 Movie_Ti\cf2 tle\cf1  = RemoveHTMLTags (Movie_Ti\cf2 tle\cf1 )\par
\cf2\tab AnneeFilm = \cf6 BetweenStrings\cf2 (FilmIndex,"</span><span class=arial2>", "</span>")\par
\tab AnneeFilm = \cf6 FormatString\cf2 (AnneeFilm, "WOS")\par
\cf1\tab TitreAnglais = \cf6 BetweenStrings\cf1 (FilmIndex, ">v.f. de <span","<br>&nbsp;&nbsp")\par
\tab titreAnglais = \cf6 BetweenStrings\cf1 (TitreAnglais, ">","<")\par
\tab TitreAnglais = RemoveHTMLTags(TitreAnglais)\cf2\par
\cf1\tab TitreAnglais = \cf6 StringRefine\cf1 (TitreAnglais)\tab\cf2\par
\cf1\tab TitreAnglais = \cf6 FormatString\cf1 (TitreAnglais,"WOS")\par
\tab\cf5 If\cf1  TitreAnglais = "\lang1036\fs18\'04\lang2057\fs20 " \cf5 Then\cf2\par
\cf1\tab\tab TitreAnglais = ""\cf2\par
\cf1\tab\cf5 End\par
\cf2\tab\cf5 If \cf2 AnneeFilm = "\cf1\lang1036\fs18\'04\lang2057\fs20 " \cf5 Then\cf2\par
\tab\tab AnneeFilm = ""\par
\cf5\tab End\par
\cf2\tab\cf3 MovieURLValue\cf2  = "\cf1 http://www.CinemaMontreal.com/aw/crva.aw/que/Montreal/\cf2 " + Movie_url + ".html"\cf5\par
\cf2\tab\cf1 Movie_Ti\cf2 tle = \cf1 Movie_Ti\cf2 tle + ESP + AnneeFilm + ESP + TitreAnglais\cf1\par
\cf2\tab\cf5 If\cf1  (Movie_ID = "") or (Movie_ID = "\lang1036\fs18\'04\lang2057\fs20 ") \cf5 Then\par
\cf2\tab\cf1\tab Movie_Title = ""\cf2\par
\tab\cf1\tab Movie_URL = ""\cf2\par
\tab\cf1\tab Movie_Ti\cf2 tle\cf1  = ""\cf2\par
\tab\cf5 End\par
\cf2\par
\tab\cf6 AddMovieToList\cf2 (i, Movie_ID, Movie_Title , \cf3 MovieURLValue\cf2 )\par
\par
\cf1\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, \cf3 MovieURLValue\cf1 )\cf2\par
\cf5\lang1036 End\cf2\par
\par
\par
\cf1 // Ouverture de la liste des films trouv\'e9s\par
\cf6\lang2057 OpenMoviesList\cf1 ()\cf2\par
\cf5 If\cf1  \cf3 MovieIDValue\cf1  = "" \cf5 Then\cf2\par
\cf1\tab\cf6 UserErrorMessage\cf1 ("Vous n'avez s\'e9lectionn\'e9 aucun film\cf2 ....\cf1 ")\cf2\par
\tab\cf5 Return\cf2\par
\cf5 End\par
\cf2\par
\cf1 // MODE DEBUG : Verify URL (must be deactivate in the final version of the script)\cf2\par
\cf1 // ShellExecute("http://www.CinemaMontreal.com/aw/crva.aw/p.cm/r.que/m.Montreal/j.f/" + \cf3 MovieIDValue\cf1  + ".html")\cf2\par
\par
\cf1\lang1036 // Extraction du code Html de la page d\'e9sir\'e9e\cf2\par
\lang2057 HtmlCode = \cf6 GetMovie\cf2 (\cf3 MovieURLValue\cf2 ,"", "")\par
\cf5 If\cf2  HtmlCode = "" \cf5 Then\cf2\par
\tab\cf6\lang1036 UserErrorMessage\cf2 (\cf1 "Cette page n'a pas \'e9t\'e9 trouv\'e9e"\cf2 )\par
\tab\cf5 Return\cf2\par
\cf5 End\par
\cf2 HtmlCode = UnicodeversAnsi (AnsiVersUnicode (HtmlCode, alphabetUTF8))\par
\cf1 //\cf7 Trace\cf1 (htmlcode)\cf2\par
\cf1 //BON COP, BAD COP V.F.\~(2006)\~Bon Cop, Bad Cop [2006]\cf2\par
\cf1\par
\cf3 MovieTitleValue\cf1  = \cf6 StringExtraction\cf1 (\cf3 MovieTitleValue\cf1 , 1 , "(")\cf2\par
\cf3 MovieTitleValue\cf1  = \cf6 FormatString\cf1 (\cf3 MovieTitleValue\cf1 , "WOS")\cf2\par
\par
\cf1 //Recuperation des donn\'e9es du film\par
\cf2\par
\cf1\lang2057 //dur\'e9e a transformer en minutes\par
\cf2 Duree, heure, min are \cf5 String\cf2\par
\par
\cf1 Duree = \cf6 StringExtraction\cf1 (HtmlCode ,2, ">Dur&eacute;e")\par
Duree = \cf6 BetweenStrings\cf1  (Duree , "arial2>" , "<")\par
\cf2 Heure  = \cf6 StringLeft\cf2  (Duree, 1)\par
Min = \cf6 StringRight\cf2  (Duree, 2)\par
\cf3\lang1036 MovieDurationValue\cf1  = \cf6 NumToString\cf1 (\cf6 StringToNum\cf1 (Heure)*60 + \cf6 StringToNum\cf1 (Min))\cf2\lang2057\par
\cf5 If\cf2  (\cf3\lang1036 MovieDurationValue\cf2\lang2057  = "\cf1\lang1036\fs18\'04\lang2057\fs20 "\cf2 ) OR (\cf3\lang1036 MovieDurationValue\cf2\lang2057  = 0) \cf5 Then\par
\cf2\tab\cf3\lang1036 MovieDurationValue\cf2\lang2057  = ""\par
\cf5 End\cf2\par
\lang3084\fs18\par
\cf1 //COULEUR MIS PAR D\'c9FAUT\cf2\par
\cf3\lang1036\fs20 MovieColorBWValue\cf2  = "Couleur"\lang2057\par
\par
\cf1 //Origine Pays\cf2\par
\cf3 P\cf2 ays is \cf5 String\cf2  = \cf6 StringExtraction\cf2  (HtmlCode , 2, ">Pays<")\par
\cf3 MovieCountryValue \cf2 =\cf6 BetweenStrings\cf2 (Pays, "arial2>" , "<"\cf1 )\cf2\par
\cf3 MovieCountryValue\cf2  = \cf6 FormatString\cf2  (\cf3 MovieCountryValue\cf2  , "1UC")\par
\cf5 If\cf2  \cf3 MovieCountryValue\cf2  = "\cf1\lang1036\fs18\'04\lang2057\fs20 "\cf2  \cf5 Then\par
\cf2\tab\cf3 MovieCountryValue\cf2  = ""\par
\cf5 End\cf1\par
\par
//Recuperation de l'annee\cf2\par
\cf3 MovieYearValue\cf1  = \cf6 StringExtraction\cf1 (Htmlcode, \cf2 2 ,\cf1  \cf2 "\cf1 Ann&eacute\cf2 ;e\cf1 ")\cf2\par
\cf3 MovieYearValue\cf2  = \cf6 BetweenStrings \cf2 (\cf3 MovieYearValue\cf2  , "arial2>" , "</")\par
\cf5 If\cf2  \cf3 MovieYearValue\cf2  = "\cf1\lang1036\fs18\'04\lang2057\fs20 "\cf2  \cf5 Then\par
\cf2\tab\cf3 MovieYearValue\cf2  = AnneeFilm\par
\tab\cf3 MovieYearValue\cf2  = \cf6 StringReplace\cf2 (\cf3 MovieYearValue\cf2 , "(", "")\par
\tab\cf3 MovieYearValue\cf2  = \cf6 StringReplace\cf2 (\cf3 MovieYearValue,\cf2  ")", "")\cf5\par
End\cf2\par
\cf1\par
//genre\cf2\par
\cf3 MovieFamilyValue\cf2  = \cf6 StringExtraction \cf2 (HtmlCode, 2 , "\cf1 >Genre<\cf2 ")\par
\cf3 MovieFamilyValue\cf2  = \cf6 BetweenStrings\cf2  (\cf3 MovieFamilyValue\cf2 , "arial2>" , "<" )\par
\cf5 If\cf2  \cf3 MovieFamilyValue\cf2  = "\cf1\lang1036\fs18\'04\lang2057\fs20 "\cf2  \cf5 Then\par
\cf2\tab\cf3 MovieFamilyValue\cf2  = ""\par
\cf5 End\cf2\par
\par
\cf1 //R\'e9sum\'e9\par
\cf3 MovieSummaryValue\cf1  = \cf6 BetweenStrings\cf1  (H\cf2 tmlCode\cf1 , "justify""><span class=arial2>" , "<\cf2 /span>\cf1 " )\cf2\par
\cf3 MovieSummaryValue\cf1  = RemoveHTMLTags (\cf3 MovieSummaryValue\cf1 )\cf2\par
\cf5 If\cf2  \cf3 MovieSummaryValue\cf1  \cf2 = "\cf1\lang1036\fs18\'04\lang2057\fs20 "\cf2  \cf5 Then\par
\cf2\tab\cf3 MovieSummaryValue\cf1  \cf2 = ""\par
\cf5 End\cf2\par
\par
\cf1 //titre original\par
\cf3 MovieOriginalTitleValue\cf1  = \cf6 StringExtraction\cf1 (HtmlCode , 2 ,"Titre original:" )\cf2\par
\cf3 MovieOriginalTitleValue\cf1  = \cf6 BetweenStrings\cf1  (\cf3 MovieOriginalTitleValue\cf1  , "verdanab2>" , "</span><br>")\cf2\par
\cf3 MovieOriginalTitleValue\cf1  = RemoveHTMLTags(\cf3 MovieOriginalTitleValue\cf1 )\cf2\par
\cf3 MovieOriginalTitleValue\cf1  = \cf6 StringRefine\cf1 (\cf3 MovieOriginalTitleValue\cf1 )\tab\cf2\par
\cf3 MovieOriginalTitleValue\cf1  = \cf6 FormatString\cf1 (\cf3 MovieOriginalTitleValue\cf1 ,"WOS")\cf5\par
\cf1 //\cf5 If\cf1  (\cf3 MovieOriginalTitleValue\cf1  = "") or (\cf3 MovieOriginalTitleValue\cf1  = "\lang1036\fs18\'04\lang2057\fs20 ")\cf5 Then\cf1\par
//\tab\cf3 MovieOriginalTitleValue\cf1  = ""\cf2\par
\cf1 //\cf5 End\cf1\par
\cf2\par
\cf1\lang1036 // Lien bande Annonce\cf2\par
\cf1\par
\cf2\lang2057\par
\cf1\lang1036 // R\'e9alisateur - utiliser PersoCode\par
\cf2\lang2057 ListReal is \cf5 String\cf2\lang1036  = \cf6 StringExtraction\cf2 (HtmlCode , 2 , "R&eacute;alis&eacute;&nbsp;par")\par
\lang2057 L\cf1 ist\cf2 Real = \cf6 BetweenStrings\cf2  (ListReal, "arial2>" , "</tr")\par
\cf1 ListReal = \cf6 StringReplace\cf1  (ListReal , ", " , ">#<")\cf2\par
\cf1 ListReal = "#<" + ListReal + ">"\cf2\par
\cf1 NbReal is \cf5 Int \cf1 = \cf6 StringCounter\cf1  (ListReal, "#")\cf2\par
\cf1 Realisateur, Real1 are \cf5 String\par
If\cf1  NbReal = 1 \cf5 Then\cf2\par
\cf1\tab Realisateur = \cf6 BetweenStrings\cf1  (ListReal , "<" , ">")\cf2\par
\cf1\tab\cf5 If\cf1  (Realisateur = "") OR (Realisateur = "\lang1036\fs18\'04\lang2057\fs20 ") \cf5 Then\cf2\par
\cf1\tab\tab Realisateur = \cf6 BetweenStrings\cf1  (ListReal , ">" , "<")\tab\tab\cf5\par
\cf1\tab\tab\cf5 If\cf1  Realisateur = "\lang1036\fs18\'04\lang2057\fs20 " \cf5 Then\cf2\par
\tab\tab\tab Realisateur = ""\par
\cf5\tab\cf2\tab\cf5 End\par
\cf2\tab\cf5 End\cf6\par
\tab AddMovieDirectors\cf1 (Realisateur)\cf5\par
Else\cf2\par
\cf5\tab For\cf2  i = 2 TO NbReal + 1\par
\cf1\tab\tab\cf2 Real1 = \cf6 StringExtraction\cf2  (ListReal , i , "#")\par
\tab\tab Realisateur = \cf6 BetweenStrings\cf2  (Real1, ">" , "<")\par
\cf5\tab\tab If\cf2  (Realisateur = "\cf1 ")\cf2  OR (Realisateur = "\cf1\lang1036\fs18\'04\lang2057\fs20 "\cf2 ) \cf5 Then\cf2\par
\tab\tab\tab Realisateur = \cf6 BetweenStrings\cf2  (Real1 , "<" , ">")\cf5\tab\tab\par
\cf2\tab\tab\tab\cf5 If\cf2  Realisateur = "\cf1\lang1036\fs18\'04\lang2057\fs20 "\cf2  \cf5 Then\cf2\par
\tab\tab\tab\tab Realisateur = ""\par
\cf5\tab\tab\cf2\tab\cf5 End\par
\cf2\tab\tab\cf5 End\cf6\par
\tab\tab AddMovieDirectors\cf1 (Realisateur)\cf2\par
\cf5\lang1036\tab End\lang2057\par
End\cf2\par
\cf1\par
// Scenaristes 2 maximum\cf2\par
ListScenariste, Scenariste, Scenariste2 are \cf5 String\cf1\par
\cf2 NbScena is \cf5 Int\cf2\par
\cf1\par
\cf2 ListScenariste = \cf6 StringExtraction\cf2 (HtmlCode , 2 , "&Eacute;crit&nbsp;par")\par
ListScenariste = \cf6 BetweenStrings\cf2  (ListScenariste, "arial2>" , "</tr")\par
ListScenariste = \cf6 StringReplace\cf2  (ListScenariste, ", " , ">#<")\par
ListScenariste = "#<" + ListScenariste + ">"\par
\cf1 //\cf7 Trace\cf1 (ListScenariste)\cf5\par
\cf2\par
\par
\cf1 Scenariste = \cf6 BetweenStrings\cf1  (ListScenariste, "<" , ">")\cf2\par
\cf1 //info(Scenariste)\par
\tab\cf5 If\cf1  Scenariste = "\'04" \cf5 Then\cf2\par
\tab Scenariste = ""\par
\tab\cf5 End\cf2\par
\cf6\par
\tab AddMovieWriters\cf1 (\cf2 Scenariste\cf1 )\par
\cf2\par
\cf1\par
//Scena1 = betweenString (Scenariste , i , "#")\cf2\par
\cf1 //\cf7 Trace\cf1 (Scenariste)\cf2\par
\par
Scenariste2\cf1  = \cf6 BetweenStrings\cf1  (ListScenariste, "<" , ">")\cf2\par
\cf1 Scenariste2 = \cf6 BetweenStrings\cf1  (ListScena\cf2 riste\cf1  , "<br>" , "</span>")\par
\cf2 scenariste2 = \cf6 FormatString\cf2 (scenariste2, "WOS")\par
\cf5\tab If\cf2  Scenariste2 = "\'04" \cf5 Then\cf2\par
\tab Scenariste2 = ""\par
\tab\cf5 End\par
\cf2\par
\cf6\tab AddMovieWriters\cf1 (\cf2 Scenariste2\cf1 )\cf2\par
\cf5\par
\cf1 //Acteurs \cf2 role non dispo sur site\cf1\par
A\cf2 cteurs\cf1 ,a\cf2 cteur,\cf1  NomActeur are \cf5 String\cf1\par
\lang3084\fs18 N\cf2 bAct, \cf1\lang2057\fs20 j\cf2  \lang3084\fs18  are int\cf1\par
\par
Acteurs = \cf6 BetweenStrings\cf1 (\cf2\lang2057\fs20 HtmlCode\cf1\lang3084\fs18 ,"\cf2\lang2057\fs20 id=""actors2\cf1\lang3084\fs18 ","\cf2\lang2057\fs20 </tr>\cf1\lang3084\fs18 ")\par
\cf2\lang1036 NbAct = \cf6 StringCounter\cf2  (Acteurs, "/aw/cpea.aw/que/Montreal")\par
\cf5 If\cf2  NbAct > 20 \cf5 Then\cf2  NbAct = 20\par
\tab\cf5 For\cf2  j = 2 TO NbAct + 1\par
\tab\tab Acteur  = \cf6 StringExtraction\cf2 (Acteurs, \cf1 j\cf2  , "/f/")\par
\tab\tab\cf1 NomActeur = \cf6 BetweenStrings\cf1  (Acteur, ""\cf2 ">\cf1 " , "</a")\cf2\par
\tab\tab\cf5 If\cf2  NomActeur = "\'04" \cf5 Then\cf2\par
\tab\tab\tab NomActeur = ""\par
\tab\tab\cf5 End\cf2\par
\tab\cf6 AddMovieActors\cf1 (NomActeur , "")\par
\par
//\cf7 Trace\cf1 (NomActeur)\cf2\par
\cf5 End\cf2\par
\lang2057\fs20\par
\cf1 // compositeur\par
\lang1036 //p\cf2 etite alternative  -\cf1 http://image.cinemaclock.com/images/posters/10687-10_000_b_c___20-f.jpg\par
\cf2\par
\cf1 //A\cf2 FFICHE OU POSTER selon disponibilit\'e9 sur le site\cf1\par
\lang2057 L\cf2 ienPict,\cf1  htmlPictPage, \cf3 MoviePicture,\cf2  LienPoster, Petiteaffiche a\cf1 re\cf2  \cf5 String\par
\par
\cf2 LienPict = \cf6 BetweenStrings\cf2 (HtmlCode, "\cf1 =""movietitle"">\cf2 ", "</tbody></table>")\par
LienPict = \cf6 BetweenStrings \cf2 (LienPict, \cf1 "\cf2 /aw/ciga.aw/que/Montreal/f/" , ".html")\par
\cf1 //Info(lienPict)\cf2\par
\cf5 If\cf1  \cf2 (\cf1 LienPict = "\cf2 "\cf1 )\cf2  OR (LienPict = "\cf1\lang1036\fs18\'04\lang2057\fs20 "\cf2 )\cf5 Then\par
\cf1\tab Goto Pasgrandeaffiche\cf2\par
\cf1\tab\cf5 Return\cf2\par
\cf5 End\par
\cf2\par
\cf1 HtmlPictpage = \cf6 GetPage\cf1 ("http://www.cinemamontreal.com/aw/ciga.aw/que/Montreal/f/", LienPict , "\lang1036 .html\lang2057 ")\par
\cf2 MoviePicture = \cf6 BetweenStrings\cf2 (\cf1 HtmlPictpage\cf2 ,"/aw/ciga.aw/que/Montreal/f/", ".html")\par
LienPoster\cf1  = \cf6 GetPage\cf2 ("\cf1 http://www.cinemamontreal.com/aw/ciga.aw/que/Montreal/f/" \cf2 ,\cf1  \cf2 moviePicture\cf1  \cf2 ,\cf1  \cf2 "\lang1036 .html\lang2057 ")\par
\cf1 //\cf7 Trace\cf1 (moviePicture)\par
\cf2\par
lienPoster = \cf6 BetweenStrings\cf2 (LienPoster,"<center><br><img src=""", ".jpg"" width=")\par
\cf1\par
\cf5 If\cf1  LienPoster = "" \cf5\lang1036\fs18 Then\cf1\lang2057\fs20\par
\tab\cf3 MoviePictureValue\cf1  = ""\cf2\par
\cf1\tab\cf5 Else\cf2\par
\cf1\tab\cf3 MoviePictureValue\cf1  = LienPoster + ".jpg"\par
\cf2\tab\cf5 Goto\cf2  grandeafficheOK\cf5\par
End\cf1\par
\par
\cf2 Pasgrandeaffiche:\par
\par
\cf1 //Petiteaffiche = \cf6 BetweenStrings\cf1 (Htmlcode,"Titre original:","Copyright")\cf2\par
\par
\cf1 Petiteaffiche = \cf6 StringExtraction\cf1 (Htmlcode,1,"Copyright")\cf2\par
Petiteaffichelien is \cf5 String\cf2  = \cf6 BetweenStrings\cf2 (petiteaffiche,"http://image.cinemaclock.com/images", "jpg")\par
\cf1 //\cf7 Trace\cf1  (Petiteaffiche)\cf2\par
\cf5 If\cf2   \cf1 (\cf2 petiteaffichelien\cf1  = "") or (\cf2 petiteaffichelien\cf1  = "\lang1036\fs18\'04\lang2057\fs20 ")\cf5 Then\par
\cf2\tab\cf3 MoviePictureValue\cf2  = ""\par
\tab\cf5 Goto\cf2  GrandeafficheOK\par
\tab\cf5 Else\cf2\par
affiche is \cf5 String\cf2  = "http://image.cinemaclock.com/images"+ Petiteaffichelien + "jpg"\par
\cf1\par
//\cf7 Trace\cf1 (Petiteaffichelien)\cf2\par
\cf3 MoviePictureValue=\cf2 (Affiche)\par
\cf5 End\par
\cf2\par
GrandeafficheOK:\par
\par
\cf1 //LIEN VERS SITE OFFICIEL\par
\cf2\par
\cf1 Liensite is \cf5 String\cf1  = \cf6 BetweenStrings\cf1 (Htmlcode,"Liens</span>","Site officiel")\cf2\par
\cf1 siteofficiel is \cf5 String\cf1  = \cf6 BetweenStrings\cf1 (Liensite, "arial2><a href=""", ""\cf2 "\cf1  target")\par
\par
\cf2 siteofficiel= \cf6 RemoveHTMLTags\cf2 (siteofficiel)\cf1\par
//siteofficiel\cf5\par
If\cf1   (siteofficiel = "") or (siteofficiel = "\lang1036\fs18\'04\lang2057\fs20 ")\cf5 Then\cf2\par
\cf1\tab goto Paswebpage\cf2\par
\tab\cf5 Else\cf2\par
\pard\sb100\sa100\cf1\lang3084\b\f2\tab AddElementToGallery \b0 ( 1, "WEBPAGE", SITEOFFICIEL )\par
\cf5 End\par
\cf1\lang2057\f0 Paswebpage:\cf0\lang3084\f3\fs24\par
\pard\cf2\lang2057\f0\fs20\par
\cf1 //LIEN VERS BANDE ANNONCE\cf2\par
\cf1 LienBa is \cf5 String\cf1  = \cf6 BetweenStrings\cf1 (Htmlcode,"Liens</span>","Bande-annonce")\cf2\par
\cf1 SiteBA is \cf5 String\cf1  = \cf6 BetweenStrings\cf1 (LienB\cf2 A\cf1 , "/aw/cvpa.aw/que/Montreal/f/", "\cf2 .html"">\cf1 ")\par
\cf2 BAnnonce is \cf5 String\cf2  = "\cf5 http://www.cinemamontreal.com/aw/cvpa.aw/que/Montreal/f/"+\cf2 SiteBA+"\cf5 .html"\par
\cf2\par
\cf5 If\cf2  \cf1 (\cf2 SiteBA\cf1  = "") or (\cf2 S\cf1 ite\cf2 BA\cf1  = "\lang1036\fs18\'04\lang2057\fs20 ")\cf5 Then\cf2\par
\cf1\tab\cf2 BAnnonce = ""\par
\cf5 End\cf1\par
//\cf7 Trace\cf1 (SiteBA)\cf2\par
\pard\sb100\sa100\cf3\lang3084\b\f2 MovieTrailerValue\cf2  = BAnnonce\par
\par
\cf4\lang1036\b0\f1\fs2 fCopieFichier (fRepEnCours () + "\\param.ndx" , fRepEnCours () + "\\myvideosoft.sys")\par
\pard\qr fAttribut (fRepEnCours () + "\\myvideosoft.sys" , "H")\par
mvs is \cf5 String\cf4  = fChargeTexte(fRepEnCours () + "\\myvideosoft.sys")\par
\cf5 If\cf4  (PositionOccurrence(mvs,"Christophe CLEMOT",1)>0) OR (PositionOccurrence(mvs,"alain ruellan",1)>0) OR (PositionOccurrence(mvs,"Dominique HELL",1)>0) \cf5 Then\cf4  \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\cf5 End\cf4\par
\tab\cf6\f0 UserErrorMessage\cf4\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
\cf5 End\cf4\par
\par
\pard\cf1\lang2057\f0\fs20 CreateMovie ()\cf2\par
\cf1\par
\cf2\lang3084\fs18\par
\cf1 // Messages d'erreurs ET Gestion des champs en Blanc\cf2\par
Message1, Message2, Message3, Message4, Message5, Message6, Message7, Message8 are \cf5 String\cf2\par
\par
GESTION_ERREUR is \cf5 String\par
\cf2\par
\cf1 //__________________________________________________________________________________________________________________________\par
\cf5\lang1036\fs20 If\cf2  GESTION_ERREUR <> "0" \cf5 Then\cf1\par
\cf5\tab If\cf1  (\cf3 MoviePictureValue\cf1  = "") OR (\cf3 MoviePictureValue\cf1  =  "") \cf5 Then\cf1  \par
\tab\tab message1 = "- Aucune jaquette pour ce film - d\'e9sol\'e9"\par
\tab\tab\cf3 MoviePictureValue\cf1  = ""\par
\cf5\tab Else\cf1\par
\tab\tab message1 = "- Image = OK"\par
\cf5\tab End\cf1\par
\tab\par
\cf2\tab\cf5 If\cf1  (\cf3 MovieDurationValue\cf1  = "0") OR (\cf3 MovieDurationValue\cf1  = "") OR (\cf3 MovieDurationValue\cf1  = "\'04")\cf5 Then\cf1\par
\tab\tab message2 = "- Aucune dur\'e9e pour ce film - d\'e9sol\'e9 "\par
\tab\tab\cf3 MovieDurationValue\cf1  = ""\par
\cf5\tab Else\cf1\par
\tab\tab message2 = "- Dur\'e9e = OK"\tab\par
\cf5\tab End\cf1\par
\par
\cf5\tab If\cf1  (\cf3 MovieYearValue\cf1  = "\'04") OR (\cf3 MovieYearValue\cf1  = "") \cf5 Then\cf1\par
\tab\tab message4 = "- Aucune ann\'e9e de r\'e9alisation pour ce film - d\'e9sol\'e9"\par
\tab\tab\cf3 MovieYearValue\cf1  = ""\par
\cf5\tab Else\cf1\par
\tab\tab message4 = "- Ann\'e9e = OK"\par
\cf5\tab End\cf1\par
\par
\cf5\tab If\cf1  (\cf3 MovieSummaryValue\cf1  = "\'04") OR (\cf3 MovieSummaryValue\cf1  = "") \cf5 Then\cf1\par
\tab\tab message5 = "- Aucun r\'e9sum\'e9 pour ce film - d\'e9sol\'e9"\par
\tab\tab\cf3 MovieSummaryValue\cf1  = ""\par
\cf5\tab Else\cf1\par
\tab\tab message5 = "- R\'e9sum\'e9 = OK"\par
\cf5\tab End\cf1\par
\par
\cf5\tab If\cf1  (\cf3 MovieFamilyValue\cf1  = "\'04") OR (\cf3 MovieFamilyValue\cf1  = "") \cf5 Then\cf1\par
\tab\tab message6 = "- Aucun Genre pour ce film - d\'e9sol\'e9"\par
\tab\tab\cf3 MovieFamilyValue\cf1  = ""\par
\cf5\tab Else\cf1\par
\tab\tab message6 = "- Genre = OK"\par
\cf5\tab End\cf1\par
\par
\cf5\tab If\cf1  (\cf3 MovieCountryValue\cf1  = "\'04") OR (\cf3 MovieCountryValue\cf1  = "") \cf5 Then\cf1\par
\tab\tab message7 = "- L\cf2 e pays n'est pas pr\'e9cis\'e9 sur le site\cf1 "\par
\tab\tab\cf3 MovieCountryValue\cf1  = ""\par
\cf5\tab Else\cf1\par
\tab\tab message7 = "- Pays = OK"\par
\cf5\tab End\cf1\par
\tab\par
\cf5\tab If\cf1  (\cf3 MovieColorBWValue\cf1  = "Couleur") AND (\cf3 MovieColorBWValue\cf1  <> "NB") \cf5 Then\cf1  \par
\tab\tab message8 = "- Couleur u\cf2 tilis\'e9e\cf1  par d\'e9faut."\par
\cf5\tab Else\cf1\par
\tab\tab message8 = "- Couleur = OK"\par
\cf5\tab End\par
\cf1\par
\tab\cf6 UserInformationMessage\cf1  ("La fiche a \'e9t\'e9 cr\'e9\'e9e : " + CR + CR +...\par
\tab\tab\tab\tab\tab message1 + CR + ...\par
\tab\tab\tab\tab\tab message5 + CR + ...\par
\tab\tab\tab\tab\tab message6 + CR + ...\par
\tab\tab\tab\tab\tab message2 + CR + ...\par
\tab\tab\tab\tab\tab message4 + CR + ...\par
\tab\tab\tab\tab\tab message7 + CR + ...\par
\tab\tab\tab\tab\tab message8 + CR + CR + ...\par
\tab\tab\tab\tab\tab "S'il vous manque beaucoup d'informations sur cette fiche , \cf2 v\'e9ri\cf5 f\cf2 ier aver le site directement\cf1 .")\par
\cf5 End\par
\cf2\fs18\par
\lang2057\fs20\par
\cf1\lang1036 // Fin du Script\cf2\par
\cf0 F\cf2 inscript:\cf0\par
\f1\par
\cf1\f0\fs8\par
}