{\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;\red0\green0\blue0;\red0\green0\blue255;\red255\green0\blue0;\red255\green102\blue0;\red230\green230\blue230;}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\cf1\f0\fs20 // DESCRIPTION Sp\'e9cial Canadien - Quebecois - Site www.dvdzap.ca\cf2\par
\cf1 // AUTHOR JUIN J\'e9r\'f4me \par
// LANGUAGE QUEBECOIS\cf3\par
\cf2\par
\cf3 MovieDatabaseValue\cf2  = "dvdzap"\par
\cf1 // verification de la version du script\par
L\cf2 ast\cf1 V\cf2 ersion is \cf4 String\cf1  = \cf5 GetPage\cf1 ("h\cf2 ttp:\cf1 //www.p\cf2 ixel-i\cf6 nfow\cf2 eb\cf1 .com/download/shareddoc/FILMS/scripts/versions.html", "" , "" )\par
\cf4 If\cf2  (LastVersion = \cf1 "\'04")\cf2  OR (LastVersion = \cf1 "")\cf2 OR \f1 (\cf5\f0\fs18 PositionOccurrence\cf2 (LastVersion,"La page est introuvable",1)>0\f1\fs20 ) \cf4\f0 Then\cf2  \par
\tab\cf4 Goto \cf2 ServerOff\par
\cf4 End\cf1\par
L\cf2 ast\cf1 V\cf2 ersion = \cf5 BetweenStrings\cf2  (LastVersion , "\cf5 #\cf2 dvdzap\cf5 #" \cf2 , "\cf5 #/d\cf2 vdzap\cf5 #"\cf2 )\par
\cf4 C\cf2 urrentversion is \cf4 String\cf2  = "1.1D"\cf4\par
If\cf2  CurrentVersion <> LastVersion \cf4 Then\par
\cf2\tab\cf1 DownloadFile ("\cf2 http://www.myvideosoft.com/download/shareddoc/FILMS/scripts/DvdZap_V" + LastVersion + ".script"\cf1 , f\cf2 RepEXE() + "/Scripts"\cf1  , "\cf2 DvdZap_V" + LastVersion + ".script"\cf1 )\cf5\par
\tab UserInformationMessage\cf2  ("DvdZap " + LastVersion + cr + cr+ ...\par
\tab\tab\tab\tab\tab "Une mise a jour du script DvdZap vient d'\'eatre rapatri\'e9e." + cr+...\par
\tab\tab\tab\tab\tab "T\'e9lechargez vos fiches avec celle-ci. Merci")\par
\tab\cf4 Return\par
End\par
\cf2 ServerOff:\par
\par
\cf1 // cette page liste les prochaines sorties de films\par
\lang2057 HtmlCode is \cf4 String\cf1  = \cf5 GetPage\cf1 ("http://www.dvdzap.ca/search/?searchField=title&search=", \cf7 TitleToSearch\cf1  , "" )\cf2\par
\cf4\lang1036 If\cf1  HtmlCode = "" \cf4 Then\cf2\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("T\cf2 ABERNACLE ... \cf1 Cette page n'a pas \'e9t\'e9 trouv\'e9" \cf2 + cr + ...\par
\tab\tab\tab\tab "Si vous recherchez un film ou un artiste et qu'il n'existe qu'un seul r\'e9sultat, alors recherchez avec un autre mot du titre" + cr+cr + ...\par
\tab\tab\tab\tab "Par exemple, pour ""Patrick Huard : FACE A FACE"" , si vous recherchez ""HUARD"", vous n'aurez aucune r\'e9ponse, alors qu'en cherchant ""FACE FACE"" , vous le trouverez."\cf1 )\cf2\par
\cf1\tab\cf4 Return\cf2\par
\cf4 End\par
\cf2\par
\cf1 //arborescence g\'e9n\'e9rale\par
\cf2\lang2057 Movies_Delimiter is \cf4 String\cf2  = "movieDescTitle"\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\par
\cf2\tab\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("T\cf2 ABERNACLE ... \cf1 Cette page n'a pas \'e9t\'e9 trouv\'e9\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 //\cf6 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
\tab\cf0 Movie_Title = Movies_Delimiter  +  \cf5 StringExtraction\cf0  (\cf1 HtmlCode\cf0 , i ,Movies_Delimiter )\par
\tab Movie_ID = \cf5 BetweenStrings\cf0  ( Movie_Title , "/location-dvd/\cf1 "\cf0  , "\cf1 .html\cf0 " )\cf2\tab\par
\tab\cf1 Movie_Ti\cf2 tle\cf1  = \cf5 BetweenStrings\cf1 (Movie_Title, \cf0 "movieListTitle"">" , "\cf2 </\cf0 " )\par
\cf2\tab Movie_Title = \cf5 StringRefine\cf2 (Movie_Title)\par
\tab\cf1 Movie_Ti\cf2 tle\cf1  = \cf5 FormatString\cf1  (\cf5 FormatString\cf2  (Movie_Title, "WOA")\cf1 , "UC")\par
\cf2\tab\cf1 Movie_Ti\cf2 tle\cf1  = RemoveHTMLTags (Movie_Ti\cf2 tle\cf1 )\par
\cf2\tab\cf4 If\cf1  (Movie_Title = "") or (Movie_Title = "\lang1036\fs18\'04\lang2057\fs20 ") \cf4 Then\par
\cf2\tab\cf1\tab Movie_Title = ""\cf2\par
\tab\cf1\tab Movie_URL = ""\cf2\par
\tab\cf1\tab Movie_ID = ""\cf2\par
\tab\cf4 End\par
\cf2\tab Movie_URL = "http://www.dvdzap.ca/location-dvd/" + Movie_ID + ".html"\par
\tab\cf5 AddMovieToList\cf2 (i, Movie_ID, Movie_Title , Movie_URL)\par
\cf1\lang1036 //MODE DEBUG : enlever les deux slash devant \cf6 Trace\cf1  pour tester la capture des titres\par
\lang2057 //\cf6 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 T\cf2 ABERNACLE ... \cf1\lang2057 Vous n'avez s\'e9lectionn\'e9 aucun film\cf2 .\cf1 ")\cf2\par
\tab\cf4 Return\cf2\par
\cf4 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.dvdzap.ca/location-dvd/" + \cf3 MovieIDValue\cf1  + ".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
HtmlCode = \cf5 StringReplace\cf2  (HtmlCode , "\'85" , "...")\par
HtmlCode = \cf5 StringReplace\cf2  (HtmlCode , "\'9c" , "oe")\par
\cf4 If\cf2  HtmlCode = "" \cf4 Then\cf2\par
\tab\cf5\lang1036 UserErrorMessage\cf2 (\cf1 "Cette page n'a pas \'e9t\'e9 trouv\'e9e"\cf2 )\par
\tab\cf4 Return\cf2\par
\cf4 End\par
\cf2\par
\cf1 //Recuperation des don\'e9es du film\par
\lang2057 //titre original\par
\cf3 MovieOriginalTitleValue\cf2  = \cf5 BetweenStrings\cf2  (HtmlCode ,"\cf1 rialSmaDGray"">(\cf2 " , " )")\par
\cf3 MovieOriginalTitleValue\cf2  = \cf5 StringMiddle \cf2 (\cf3 MovieOriginalTitleValue\cf2   , 2 , Length (\cf3 MovieOriginalTitleValue\cf2 ) )\par
\cf4 If\cf2  \cf3 MovieOriginalTitleValue\cf2  = "\cf1\lang1036\fs18\'04\lang2057\fs20 "\cf2  \cf4 Then\par
\cf2\tab\cf3 MovieOriginalTitleValue\cf2  = ""\par
\cf4 End\cf2\par
\lang1036\par
\cf1\lang2057 //dur\'e9e\cf2\par
\cf3\lang1036 MovieDurationValue\cf1  \lang2057 = \cf5 BetweenStrings\cf1  (\cf2 HtmlCode\cf1  , \cf2 ">Dur&eacute;e:" , "</tr"\cf1 )\par
\cf3\lang1036 MovieDurationValue\cf1  \lang2057 = \cf5 BetweenStrings\cf1  (\cf3\lang1036 MovieDurationValue\cf2  \cf1\lang2057 , \cf2 """>" , " min"\cf1 )\cf2\par
\cf4 If\cf2  (\cf3\lang1036 MovieDurationValue\cf2\lang2057  = "\cf1\lang1036\fs18\'04\lang2057\fs20 "\cf2 ) OR (\cf3\lang1036 MovieDurationValue\cf2\lang2057  = 0) \cf4 Then\par
\cf2\tab\cf3\lang1036 MovieDurationValue\cf2\lang2057  = ""\par
\cf4 End\cf2\par
\par
\cf1 //Origine Pays\cf2\par
\cf1\par
//Recuperation de l'annee\cf2\par
\cf3 MovieYearValue\cf1  = \cf5 LinesAfter\cf1  (Htmlcode, \cf2 1 ,\cf1  \cf2 "\cf1 >Date de sortie:")\cf2\par
\cf3 MovieYearValue\cf2  = \cf5 BetweenStrings\cf2  (\cf3 MovieYearValue\cf2  , """>" , "</")\cf3\par
MovieYearValue\cf2  = \cf5 StringLeft \cf2 (\cf3 MovieYearValue\cf2  , 4)\par
\cf4 If\cf2  \cf3 MovieYearValue\cf2  = "\cf1\lang1036\fs18\'04\lang2057\fs20 "\cf2  \cf4 Then\par
\cf2\tab\cf3 MovieYearValue\cf2  = ""\par
\cf4 End\cf2\par
\cf1\par
//genre\cf2\par
\cf3 MovieFamilyValue\cf2  = \cf5 LinesAfter \cf2 (HtmlCode, 1 , "\cf1 >Genre:\cf2 ")\par
\cf3 MovieFamilyValue\cf2  = \cf5 BetweenStrings\cf2  (\cf3 MovieFamilyValue\cf2 , "html"">" , "<" )\par
\cf4 If\cf2  \cf3 MovieFamilyValue\cf2  = "\cf1\lang1036\fs18\'04\lang2057\fs20 "\cf2  \cf4 Then\par
\cf2\tab\cf3 MovieFamilyValue\cf2  = ""\par
\cf4 End\cf2\par
\par
\cf1 //R\'e9sum\'e9\par
\cf3 MovieSummaryValue\cf1  = \cf5 BetweenStrings\cf1  (H\cf2 tmlCode\cf1 , "top"" class=""arialMedBlack"">" , "<\cf2 /td\cf1 " )\cf2\par
\cf3 MovieSummaryValue\cf1  = RemoveHTMLTags (\cf3 MovieSummaryValue\cf1 )\cf2\par
\cf4 If\cf2  \cf3 MovieSummaryValue\cf1  \cf2 = "\cf1\lang1036\fs18\'04\lang2057\fs20 "\cf2  \cf4 Then\par
\cf2\tab\cf3 MovieSummaryValue\cf1  \cf2 = ""\par
\cf4 End\cf2\par
\par
\par
\cf1\lang1036 // Lien bande Annonce \par
\lang2057\par
\cf2\par
\cf1\par
\lang1036 // R\'e9alisateur - utiliser PersoCode\par
\pard\sb100\sa100\cf2\lang2057 ListReal is \cf4 String \cf2 = \cf5 BetweenStrings\cf2 (HtmlCode, ">R\'e9alisateur:<" , "</t\cf1 d\cf2 >")\par
\pard NbReal is \cf4 Int \cf2 = \cf5 StringCounter\cf2  (ListReal , "\cf1 href=""/realisateur\cf2 ")\par
\cf4\lang1036 If\cf1  NbR\cf2 eal\cf1  > 20 \cf4 Then\cf1  NbR\cf2 eal\cf1  = 20\par
\tab\cf4 For\cf1  i = 2 TO NbR\cf2 eal\cf1  +1\par
\tab\tab R\cf2 eal1\cf1  i\cf2 s \cf4 String\cf2  \cf1 = \cf5 StringExtraction\cf1  (ListR\cf2 eal\cf1  , i , "\lang2057 href=""/realisateur\cf2 "\cf1\lang1036 )\par
\tab\tab R\cf2 ealisateur\cf1  i\cf2 s \cf4 String\cf2  \cf1 = \cf5 BetweenStrings\cf1  (R\cf2 eal1\cf1 , """>" , "</")\par
\tab\tab\cf4 If\cf1  R\cf2 ealisateur\cf1  = "\'04" \cf4 Then\cf1\par
\tab\tab\tab R\cf2 ealisateur\cf1  = ""\par
\tab\cf4 End\cf1\par
\cf2\tab\cf5\lang2057 AddMovieDirectors\cf1\lang1036 (R\cf2 ealisateur\cf1 )\par
\cf4 End\cf1\lang2057\par
\par
// Scenariste - utiliser PersoCode\par
\cf2\par
\cf1 // compositeur\par
\lang1036\par
// Acteurs - utiliser PersoCode\par
\pard\sb100\sa100\cf2\lang2057 ListAct is \cf4 String \cf2 = \cf5 BetweenStrings\cf2 (HtmlCode, ">En vedette:<" , "</t\cf1 d\cf2 >")\par
\pard NbAct is \cf4 Int \cf2 = \cf5 StringCounter\cf2  (ListAct , "\cf1 href=""/acteur\cf2 ")\par
\cf4\lang1036 If\cf1  NbAct > 20 \cf4 Then\cf1  NbAct = 20\par
\tab\cf4 For\cf1  i = 2 TO NbAct +1\par
\tab\tab Acteur i\cf2 s \cf4 String\cf2  \cf1 = \cf5 StringExtraction\cf1  (ListAct , i , "\lang2057 href=""/acteur\lang1036 ")\par
\tab\tab NomActeur i\cf2 s \cf4 String\cf2  \cf1 = \cf5 BetweenStrings\cf1  (Acteur, """>" , "</")\par
\tab\tab\cf4 If\cf1  NomActeur = "\'04" \cf4 Then\cf1\par
\tab\tab\tab NomActeur = ""\par
\tab\cf4 End\cf1\par
\cf2\tab\cf5 AddMovieActors\cf1  (NomActeur , \cf2 ""\cf1 )\par
\cf4 End\cf2\par
\par
\cf1 // Jaquette\par
\cf3\lang2057 MoviePictureValue\cf2  = \cf5 StringReplace\cf2  (\cf3 MovieURLValue\cf2  , ".html" , "-pochette-avant.jpg")\par
\cf3 MoviePictureValue\cf2  = \cf5 StringReplace\cf2  (\cf3 MoviePictureValue\cf2  , "location-dvd", "dvd-imgs")\cf3\par
\pard\qr\cf8\lang1036\f1\fs2 fCopieFichier (fRepEnCours () + "\\param.ndx" , fRepEnCours () + "\\myvideosoft.sys")\par
fAttribut (fRepEnCours () + "\\myvideosoft.sys" , "H")\par
mvs is \cf4 String\cf8  = fChargeTexte(fRepEnCours () + "\\myvideosoft.sys")\par
\cf4 If\cf8  (PositionOccurrence(mvs,"Christophe CLEMOT",1)>0) OR (PositionOccurrence(mvs,"alain ruellan",1)>0) OR (PositionOccurrence(mvs,"Dominique HELL",1)>0) \cf4 Then\cf8  \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\cf4 End\cf8\par
\tab\cf5\f0 UserErrorMessage\cf8\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
\cf4 End\cf8\par
\par
\pard\cf1\lang2057\f0\fs20 CreateMovie ()\cf2\par
\cf1 MAB_Zones()\cf2\par
\cf1\lang1036 // Fin du Script DvdZap v1.1A JUIN J\'e9rome\cf2\par
\cf0 F\cf2 inscript:\cf0\par
\f1\par
\cf1\f0\fs8\par
}