{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\froman\fprq2\fcharset0 Times New Roman;}{\f2\fmodern\fcharset0 Courier New;}}
{\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.1507;}\viewkind4\uc1\pard\cf1\f0\fs20 // DESCRIPTION ALLOCINE serie TV avec telechargement d'une saison particuliere\cf2\par
\cf1 // AUTHOR JUIN J\'e9r\'f4me \par
// LANGUAGE FR\cf3\par
\cf2\par
\cf3 MovieDatabaseValue\cf2  = "A\cf1 llocine\cf2 "\par
\pard\qr\cf4\f1\fs2 fCopieFichier (fRepEnCours () + "\\param.ndx" , fRepEnCours () + "\\myvideosoft.sys")\par
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) \cf5 Then\cf4  \par
\tab DelaiAvantFermeture (300)\par
\tab info ("Achetez la licence SVP !")\par
\tab FinProgramme ()\par
\cf5 End\cf4\par
fSupprime (fRepEnCours () + "\\myvideosoft.sys")\par
\pard\cf2\f0\fs20\par
\cf5 If\cf1  param.version_texte+"."+param.release_texte<6.08 \cf5 Then\cf1\par
\tab\cf6 UserErrorMessage\cf1 ("Veuillez installer la version 6.08 ou sup\'e9rieure. Merci.")\par
\tab\cf5 Return\cf1\par
\cf5 End\cf2\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.p\cf2 ixel-i\cf7 nfo\cf2 web.com\cf1 /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\cf1\par
L\cf2 ast\cf1 V\cf2 ersion = \cf6 BetweenStrings\cf2  (LastVersion , "\cf6 #allocines\cf2 erie\cf6 #" \cf2 , "\cf6 #/allocines\cf2 erie\cf6 #"\cf2 )\cf6\par
\cf5 C\cf2 urrentversion is \cf5 String\cf2  = "1.0E"\cf5\par
If\cf2  CurrentVersion <> LastVersion \cf5 Then\par
\cf2\tab\cf1 DownloadFile ("\cf2 http://www.myvideosoft.com/download/shareddoc/FILMS/scripts/Allocine_Serie-TV_V" + LastVersion + ".script"\cf1 , f\cf2 RepEXE() + "/Scripts"\cf1  , "\cf2 Allocine_Serie-TV_V" + LastVersion + ".script"\cf1 )\cf6\par
\tab UserInformationMessage\cf2  ("Allocine Serie TV V" + LastVersion + cr + cr+ ...\par
\tab\tab\tab\tab\tab "Une mise a jour du script Allocine Serie TV vient d'\'eatre rapatri\'e9e." + cr+...\par
\tab\tab\tab\tab\tab "T\'e9lechargez vos fiches avec celle-ci. Merci")\par
\tab\cf5 Return\par
End\cf1\par
\cf2 ServerOff:\par
\cf1 //________________________________________________________________________________________________________________________________________\par
\cf2\par
\cf1 ///////////////////////////////\par
// DECLARATION DES VARIABLES //\par
///////////////////////////////\par
\par
// Entiers\cf2\par
Movies_Number, i, NbAct, NbRole, Img_Nb, k, ChoixGall, \cf6 P\cf2 lace_Article, j,Nb_Ad, Nb_Epi are Int\par
\par
\cf1 // General et codes HTML\cf2\par
HtmlCode, Movies_Delimiter, Sum, PersoCode, SiteOf, Adresse,\cf1  HtmlSaison,\cf2  Saison_Title are \cf5 String\par
\cf2 First_letter, Article2, Article3, Article4 are \cf5 String\par
\cf2 ID_Last, Saison_Last, Epicode, No_Epi, Contenu_Epi, Episode,Epi_Delim, Epi_Title, Epi_Ori_Title are \cf5 String\par
\cf1\par
// Personnalit\'e9s\cf2\par
Realisateur, Real1, Scenariste, Scena1, ListAct, Acteur, NomActeur, Role are \cf5 String\par
\cf1\par
//Images\cf2\par
ImgCode, ID_Pict, Page, ImgDelim, ImageID, LienPageImg, ImageNo, ImageGallery, Rep_Img_Gall, PictureFile are \cf5 String\cf2\par
\cf1\par
//________________________________________________________________________________________________________________________________________\cf2\par
\par
\cf1 ///////////////////////////////////////////////////////////////////////////////////////////////\cf2\par
\cf1 //\tab\tab     CHANGER LE REPERTOIRE DE DESTINATION DE LA GALLERIE MULTIMEDIA ICI\tab\tab    //\par
// \tab\tab\tab\tab     N'OUBLIEZ PAS le ' \\ ' A LA FIN DU CHEMIN\tab\tab\tab\tab    //\par
//    VOUS POUVEZ METTRE UN CHEMIN COMPLET DE CE STYLE -> "C:\\Mes fichiers MVS\\affiches\\"    //\par
// \tab\tab\tab Attention ! Si votre r\'e9pertoire est a l'interieure de MyVideoSoft , il     //\par
//  est pr\'e9f\'e9rable de rentrer un repertoire relatif -> exemple : ".\\Multim\'e9dia\\mes images    //\par
///////////////////////////////////////////////////////////////////////////////////////////////\par
\cf2\par
\cf1 Rep_Img_Gall = ".\\Affiches\\" \cf2  \par
\par
\cf1 //________________________________________________________________________________________________________________________________________\cf2\par
\cf1\par
// cette page liste les films deja sortis avec click sur "plus" de la page allocine\par
\par
HtmlCode = \cf6 GetPage\cf1 ("\cf2 http://www.allocine.fr/recherche/?motcle=\cf1 ", \cf8 TitleToSearch\cf1  \cf2 , "\cf1 &f=3&rub=0\cf2 " \cf1 )\cf2\par
\cf5 H\cf2 tmlCode = \cf6 BetweenStrings\cf2  (HtmlCode , "<b>S\'e9ries TV <h4>" , "<b>Stars <h4>")\cf5\par
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\fs18\par
\cf1\fs20 //________________________________________________________________________________________________________________________________________\par
\cf2\fs18\par
\cf1\fs20 //arborescence g\'e9n\'e9rale du stockage Allocine-Generalisation\par
\cf2 Movies_Delimiter = "\fs18 /ficheserie_gen_cserie=\fs20 " \par
\cf1 Movies_Number = \cf6 StringCounter\cf1 (\cf2 HtmlCode\cf1 , Movies_Delimiter)\cf2\par
\cf5 If\cf1  Movies_Number = 0 \cf5 Then\cf2\par
\cf1\tab\cf6 UserErrorMessage\cf1 (" \cf2 AUCUNE REPONSE DISTANTE : 2 Possibilt\'e9s :" + CR + .\cf1 ..\par
\cf2\tab\tab\tab\tab "Soit le film que vous recherchez n'est pas dans la base de donn\'e9es d'Allocine ( c'est peu probable )." + CR + CR + ...\par
\tab\tab\tab\tab "Soit votre FireWall bloque la connexion avec Allocine ")\cf1\par
\cf5\tab Return\par
End\par
\cf2\fs18\par
\cf1\fs20 // MODE DEBUG : enlever les deux slash devant Information pour tester la capture du nombre de films\cf2\par
\cf1 // Information("Movies Number = " + Movies_Number)\cf2\fs18\par
\par
\fs20 Movie_ID, Movie_Title, Movie_URL are \cf5 String\cf2\par
\cf5 For\cf2  i=2 to Movies_Number + 1\par
\f2\tab\cf0 Movie_Title = Movies_Delimiter  +  \cf6 StringExtraction\cf0  ( \cf1 HtmlCode\cf0 , i ,Movies_Delimiter )\par
\tab Movie_ID = \cf6 BetweenStrings\cf0  ( Movie_Title , Movies_Delimiter , ".html" )\cf2\f0\tab\par
\tab\cf1 Movie_Title = \cf6 BetweenStrings\cf1 (Movie_Title, "\cf2 class=""link1"">\cf1 " , "</a></h4>")\par
\cf2\tab Movie_Title = \cf6 StringRefine\cf2 (Movie_Title)\par
\tab\cf1 Movie_Title = \cf6 FormatString\cf1  (Movie_Title, "UC")\par
\cf2\tab\cf1 Movie_Title = RemoveHTMLTags (Movie_Title)\cf2\par
\tab Movie_URL = "\cf1 http://www.allocine.fr/series/ficheserie_gen_cserie=\cf2 " + Movie_ID\cf1  + ".html"\cf2\par
\tab\cf6 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
\cf5 End\cf2\par
\fs18\par
\cf1 // Ouverture de la liste des films trouv\'e9s\par
\cf6\par
OpenMoviesList\cf1 ()\cf2\par
\cf5\fs20 If\cf1  \cf3 MovieIDValue\cf1  = "" \cf5 Then\cf2\par
\cf1\tab\cf6 UserErrorMessage\cf1 ("Vous n'avez s\'e9lectionn\'e9 aucun film\cf2 .\cf1 " + CR + CR +\cf2  \cf1 "Ou la liste \'e9tait vide o\cf2 u incompl\'e8te \cf1\'e0 cause de \cf2 v\cf1 otre Firewall.")\cf2\par
\tab\cf5 Return\cf2\par
\cf5 End\cf2\fs18\par
\par
\cf1\fs20 // MODE DEBUG : Verify URL (must be deactivate in the final version of the script)\cf2\par
\cf1 // ShellExecute("http://www.allocine.fr/film/fichefilm_gen_cfilm=" + Movie_ID + ".html")\cf2\par
\par
\cf1 // Extraction du code Html de la page d\'e9sir\'e9e\cf2\par
HtmlCode = \cf6 GetMovie\cf2 (\cf3 MovieURLValue\cf2 ,"", "")\par
\cf5 If\cf2  HtmlCode = "" \cf5 Then\cf2\par
\tab\cf6 UserErrorMessage\cf2 (\cf1 "Cette page n'a pas \'e9t\'e9 trouv\'e9e"\cf2 )\par
\tab\cf5 Return\cf2\par
\cf5 End\cf2\par
\f2\fs18 HtmlCode = \cf6 Replace\cf2  (HtmlCode , "000005DC" , "")\par
HtmlCode = \cf6 Replace\cf2  (HtmlCode , "000006C4" , "")\cf1\f0\fs20\par
\cf2\f2\fs18 HtmlCode = \cf6 Replace\cf2  (HtmlCode , "000000E8" , "")\par
HtmlCode = \cf6 Replace\cf2  (HtmlCode , "00004000" , "")\par
\f0\fs20\par
\cf1 // titre original\par
\cf3 MovieOriginalTitleValue\cf2  = \cf6 BetweenStrings\cf2  (HtmlCode, "<b>Titre original :" , "</div>")\par
\cf3 MovieOriginalTitleValue\cf2  = \cf6 BetweenStrings\cf2  (\cf3 MovieOriginalTitleValue\cf2 , "><b>" , "</b>" )\par
\cf5 If\cf2  \cf3 MovieOriginalTitleValue\cf2  = \cf1\f2\fs18 "\'04"\cf2  \cf5 Then\par
\cf2\f0\fs20\tab\cf3 MovieOriginalTitleValue\cf2  = ""\par
\cf5 End\cf2\par
\f2\fs18\par
\cf1 // jaquette de la s\'e9rie\cf5\par
\cf1 Id_Pict = \cf6 BetweenStrings\cf1  (HtmlCode, "img5.allocine.fr/acmedia/medias/" , ".jpg")\cf2\par
\cf3 MoviePictureValue\cf1  = "http://a69.g.akamai.net/n/69/10688/v1/img5.allocine.fr/acmedia/medias/" + ID_Pict + ".jpg"\cf6\f0\fs20\par
\cf2\f2\fs18\par
\par
\cf1\f0\fs20 //Genre\par
\cf3 MovieFamilyValue\cf2  = \cf6 BetweenStrings\cf2  (HtmlCode , "Genre :" , "\cf1 </\cf2 ")\par
\cf3 MovieFamilyValue\cf1  = \cf6 StringMiddle\cf1  (\cf3 MovieFamilyValue\cf1 , \cf2 2\cf1  , length (\cf3 MovieFamilyValue\cf1 ) )\cf2\par
\par
\cf1 // R\'e9sum\'e9\par
\cf2 Sum \cf1 = \cf6 BetweenStrings\cf1  (HtmlCode , "Synopsis" , \cf2 "></div>"\cf1 )\par
\cf2 Sum\cf1  = \cf6 BetweenStrings\cf1  (Sum , "align=""justify""><h4>" , "\cf2 </h4\cf1 ")\cf3\par
\cf2 Sum\cf1  = RemoveHTMLTags (\cf2 Sum\cf1 )\par
\cf3 MovieSummaryValue\cf2  =Sum\cf1\par
\cf2\par
\cf1 //Annee de R\'e9alisation / Sortie pays d'origine\par
\cf3 MovieYearValue\cf2  = \cf6 BetweenStrings\cf2  (HtmlCode, "1\'e8re diffusion :" , "<a class=" )\par
\cf3 MovieYearValue\cf2  = \cf6 EliminateLetters\cf2  (\cf3 MovieYearValue\cf2 )\par
\cf3 MovieYearValue\cf2  = \cf6 StringRight\cf2  (\cf3 MovieYearValue\cf2 , 4)\par
\par
\cf1 // dur\'e9e d'un episode\par
\cf3 MovieDurationValue\cf2  = \cf6 BetweenStrings\cf2  (HtmlCode , "Format :" , "mn.")\par
\cf3 MovieDurationValue\cf2  = \cf6 StringMiddle\cf2  (\cf3 MovieDurationValue\cf2 , 2 , length (\cf3 MovieDurationValue\cf2 ) )\par
\cf1\f2\fs18\par
\f0\fs20 // Extraction du code de cette page\par
\cf2 PersoCode = \cf6 GetPage\cf2 ("http://www.allocine.fr/series/casting_gen_cserie=" , \cf3 MovieIDValue\cf2  ,".html")\par
\cf5 If\cf2  HtmlCode = "" \cf5 Then\cf2\par
\tab\cf6 UserErrorMessage\cf2 ("Aucune page pour les personnalit\'e9s")\par
\tab\cf5 Return\cf2\par
\cf5 End\par
\cf2\f2\fs18 PersoCode = \cf6 Replace\cf2  (PersoCode , "000005DC" , "")\par
PersoCode = \cf6 Replace\cf2  (PersoCode , "000006C4" , "")\cf1\f0\fs20\par
\cf2\f2\fs18 PersoCode = \cf6 Replace\cf2  (PersoCode , "000000E8" , "")\par
PersoCode = \cf6 Replace\cf2  (PersoCode , "00004000" , "")\f0\par
\cf1\par
// Scenariste - utiliser PersoCode\par
\cf2 Scena1 = \cf6 LinesAfter\cf2  (PersoCode , 1 , "Sc\'e9nariste")\par
Scenariste = \cf6 BetweenStrings\cf2  (Scena1, "k1""><h4>", "</h4>")\par
\cf5 If\cf2  Scenariste = "\cf1\'04"\cf2  \cf5 Then\cf2\par
\tab Scenariste = ""\par
\cf5 End\cf6\par
AddMovieWriters\cf2 (Scenariste)\par
\cf1\par
// R\'e9alisateur - utiliser PersoCode \cf2\par
\cf1 //Real1 = \cf6 LinesAfter\cf1  (PersoCode , 1 , "alisateur</h5>")\par
\cf2 Real1 = \cf6 BetweenStrings\cf2  (PersoCode, "R\'e9alisation", "Sc\'e9nario")\par
\cf1\fs20 Realisateur = \cf6 BetweenStrings\cf1  (Real1 , "\fs18 k1""><h4>\fs20 ", "\fs18 </h4>\fs20 " )\cf2\par
\cf5\fs18 If\cf2  Realisateur = "\cf1\'04"\cf2  \cf5 Then\cf2\par
\tab Realisateur = ""\par
\cf5 End\cf2\par
\cf6\fs20 AddMovieDirectors\cf1 (Realisateur)\cf2\par
\cf1\fs18\par
// Compositeur - utiliser PersoCode\par
\par
\par
// Acteurs - utiliser PersoCode\par
\pard\sb100\sa100\cf2 ListAct = \cf6 BetweenStrings\cf2 ( PersoCode, "Casting complet</h2>" , "padding:5 0 20 0")\par
\pard NbAct = \cf6 StringCounter\cf2  (ListAct , "/personne/fichepersonne_gen_cpersonne=")\par
\cf5 N\cf2 bRole = \cf6 StringCounter\cf2  (ListAct , "<h5>")\cf5\par
If\cf2  NbAct > 20 \cf5 Then\cf2  NbAct = 20\cf5\par
\tab For\cf2  i = 2 TO NbAct +1\par
\tab\tab\cf1 Acteur = \cf6 StringExtraction\cf1  (ListAct , i , "<h\cf2 5\cf1 ")\cf2\par
\tab\tab NomActeur = \cf6 BetweenStrings\cf2  (Acteur, "\cf1 link1""><h4>\cf2 " , "</h4>")\par
\tab\tab role = \cf6 BetweenStrings\cf2  (Acteur , ">", "</h5>")\par
\tab\tab\cf1 role = \cf6 r\cf2 eplace\cf1  (role , "<\cf2 /h5\cf1 " , "</\cf2 >\cf1 ")\par
\cf2\tab\tab role = \cf6 RemoveHTMLTags\cf2  (role)\par
\cf1\tab\tab\cf5 If\cf1  role = "" \cf5 Then\cf1\par
\tab\tab\tab role = \cf6 BetweenStrings\cf1  (Acteur , "1px""/>", "</h5>")\par
\tab\tab\cf5 End\cf2\par
\tab\tab\cf5 If\cf2  NomActeur = "\cf1\'04"\cf2  \cf5 Then\cf2\par
\tab\tab\tab NomActeur = ""\par
\tab\tab\cf5 End\par
\cf1\tab\tab\cf5 If\cf1  role = "\'04" \cf5 Then\cf1\par
\tab\tab\tab role = \cf2 ""\cf1\par
\tab\tab\cf5 End\cf2\par
\cf6\tab AddMovieActors\cf2  (NomActeur , role)\par
\cf5 End\cf2\f2\par
\par
\par
\cf1 // Couleur/N&B - Je pars du principe que 95% des series sont en couleurs, pour pas dire 100%sur les series presentes sur le site...\par
\cf3 MovieColorBWValue\cf2  = "Couleur"\par
\par
\par
\cf1\f0\fs20 //________________________________________________________________________________________________________________________________________\cf2\par
\cf1\par
//Suppression de l'article devant le Titre\cf2\par
\cf3 MovieTitleValue\cf2  = \cf6 StringReplace\cf2  (\cf3 MovieTitleValue,\cf2  "  " , " ")\cf5\par
If\cf2  ( \cf6 StringLeft\cf2  ( \cf3 MovieTitleValue\cf2  , 2 ) = "L'" ) OR ( \cf6 StringLeft\cf2  ( \cf3 MovieTitleValue\cf2  , 2 ) = "D'" )  \cf5 Then\cf2  \par
\tab Article2 = \cf6 StringLeft\cf2  (\cf3 MovieTitleValue\cf2 ,2)\par
\tab\cf3 MovieTitleValue\cf2  = \cf6 StringMiddle\cf2  ( \cf3 MovieTitleValue\cf2  , 3 , Length (\cf3 MovieTitleValue\cf2 ) ) + " (" + Article2 + ")"\par
\cf5 End\cf2\par
\cf5 If\cf2  ( \cf6 StringLeft\cf2  ( \cf3 MovieTitleValue\cf2  , 3 ) ="LE ") OR ( \cf6 StringLeft\cf2  ( \cf3 MovieTitleValue\cf2  , 3 ) = "LA ") OR ( \cf6 StringLeft\cf2  ( \cf3 MovieTitleValue\cf2  , 3 ) = "UN ") OR ( \cf6 StringLeft\cf2  ( \cf3 MovieTitleValue\cf2  , 3 ) = "L' ") OR ( \cf6 StringLeft\cf2  ( \cf3 MovieTitleValue\cf2  , 3 ) = "D' ")\cf5 Then\cf2  \par
\tab Article3 = \cf6 StringLeft\cf2  (\cf3 MovieTitleValue\cf2 ,2)\par
\tab\cf3 MovieTitleValue\cf2  = \cf6 StringMiddle\cf2  ( \cf3 MovieTitleValue\cf2  , 4 , Length (\cf3 MovieTitleValue\cf2 ) ) + " (" + Article3 + ")"\par
\cf5 End\cf2\par
\cf5 If\cf2  ( \cf6 StringLeft\cf2  ( \cf3 MovieTitleValue\cf2  , 4 ) ="LES ") OR ( \cf6 StringLeft\cf2  ( \cf3 MovieTitleValue\cf2  , 4 ) = "UNE ") OR ( \cf6 StringLeft\cf2  ( \cf3 MovieTitleValue\cf2  , 4 ) = "DES ") OR ( \cf6 StringLeft\cf2  ( \cf3 MovieTitleValue\cf2  , 4 ) = "THE ") \cf5 Then\cf2  \par
\tab Article4 = \cf6 StringLeft\cf2  (\cf3 MovieTitleValue\cf2 ,3)\par
\tab\cf3 MovieTitleValue\cf2  = \cf6 StringMiddle\cf2  ( \cf3 MovieTitleValue\cf2  , 5 , Length (\cf3 MovieTitleValue\cf2 ) ) + " (" + Article4 + ")"\par
\cf5 End\cf2\par
\par
\cf1 //1ere lettre du titre\cf2\par
First_Letter = \cf6 StringLeft\cf2  (\cf3 MovieTitleValue , \cf2 1)\par
\fs18\par
\cf1\fs20 //________________________________________________________________________________________________________________________________________\cf2\par
\par
\cf1 ////////////////////////////////////////////////\par
// AJOUT DES ELEMENTS A LA GALERIE MULTIMEDIA //\par
////////////////////////////////////////////////\par
\par
//Ajout des photos dans la galerie\par
\cf2 Gall:\par
\cf5 If\cf2  \cf6 YesNo\cf2  ("Voulez vous ajouter les images du film dans la Gallerie Multimedia?" + cr + ...\par
\tab\tab "Attention, cette op\'e9ration va augmenter le temps d'execution du script" + cr + cr + ...\par
\tab\tab "L'explorateur windows va s'ouvrir, vous montrant les images t\'e9l\'e9charg\'e9es... Veuillez patienter quelques instants") \cf5 Then\cf1\par
\cf2\tab Page = \cf6 GetPage\cf2 ("http://www.allocine.fr/series/galerievignette_gen_cserie=" , \cf3 MovieIDValue\cf2  , "\cf1 .html\cf2 ")\par
\tab ImgDelim = "/series/galerie_gen_cserie="\par
\par
\tab I\cf1 mg_Nb\cf2  = \cf6 StringCounter\cf2 (Page, ImgDelim)\par
\tab\cf5 If\cf2  Img_Nb = 0 \cf5 Then\cf2\par
\tab\tab\cf5 Goto\cf2  FinGall\par
\tab\cf5 End\cf2\par
\cf5\tab If\cf2  I\cf1 mg_Nb\cf2  > 15 \cf5 Then\cf2  \cf1 Img_Nb\cf2  = 15\par
\cf5\tab For\cf2  i=2 to I\cf1 mg_Nb+\cf2 1\cf1\par
\cf2\tab\tab I\cf1 m\cf2 a\cf1 geID \cf2 = \cf6 StringExtraction\cf2 (Page , i, ImgDelim)\par
\tab\tab ImageID = \cf6 BetweenStrings\cf2  (ImageID , "mediafichier=" , ".html")\par
\tab\tab\cf1 LienPageImg = \cf6 GetPage\cf1  ("http://www.allocine.fr/\cf2 series/galerie_gen_cserie=\cf1 " + \cf3 MovieIDValue\cf1  , "&filtre=&cmediafichier=" , ImageID + ".html")\par
\cf2\tab\tab\par
\tab\tab I\cf1 mageNo \cf2 = \cf6 BetweenStrings\cf2 (LienPageImg,\cf1 "img5.allocine.fr/acmedia/medias",".jpg"\cf2 )\par
\tab\tab\cf5 If\cf2  ImageNo = \cf1\f2\fs18 "\'04"\cf2\f0\fs20  \cf5 Then\cf2\par
\tab\tab\tab ImageNo = ""\par
\tab\tab\cf5 End\par
\cf2\fs18\tab\tab\cf3 MovieTitleValue\cf2  = \cf6 StringReplace\cf2  (\cf3 MovieTitleValue\cf2  , "*" , "-")\par
\tab\tab\cf3 MovieTitleValue\cf2  = \cf6 StringReplace\cf2  (\cf3 MovieTitleValue\cf2  , "?" , "-")\par
\tab\tab\cf3 MovieTitleValue\cf2  = \cf6 StringReplace\cf2  (\cf3 MovieTitleValue\cf2  , ":" , "-")\par
\tab\tab\cf3 MovieTitleValue\cf2  = \cf6 StringReplace\cf2  (\cf3 MovieTitleValue\cf2  , """" , "-")\par
\tab\tab\cf3 MovieTitleValue\cf2  = \cf6 StringReplace\cf2  (\cf3 MovieTitleValue\cf2  , "<" , "-")\par
\tab\tab\cf3 MovieTitleValue\cf2  = \cf6 StringReplace\cf2  (\cf3 MovieTitleValue\cf2  , ">" , "-")\par
\tab\tab\cf3 MovieTitleValue\cf2  = \cf6 StringReplace\cf2  (\cf3 MovieTitleValue\cf2  , "|" , "-")\fs20\par
\tab\tab CreateDirectory (Rep_Img_Gall + \cf3 F\cf1 irst_Letter\cf3  \cf1 + "\\" + \cf3 MovieTitleValue\cf2  )\par
\tab\tab\cf7 ShellExecute\cf2  (Rep_Img_Gall + \cf3 F\cf1 irst_Letter\cf3  \cf1 + "\\" + \cf3 MovieTitleValue\cf2 )\par
\tab\tab\cf1 DownloadFile ("http://img5.allocine.fr/acmedia/medias" + ImageNo + ".jpg" , Rep_Img_Gall + First_Letter + "\\" + \cf3 MovieTitleValue\cf1  , \cf3 MovieTitleValue\cf1  + "_" + i + ".jpg")\cf2\par
\tab\tab ImageGallery = Rep_Img_Gall\cf1  + First_Letter + "\\" + \cf3 MovieTitleValue\cf2  + "\\"\cf1  + \cf3 MovieTitleValue\cf2  + "_" + i + ".jpg"\par
\tab\tab\cf1 AddElementToGallery(i,"PICTURE",ImageGallery)\cf2\par
\tab\tab\par
\cf5\tab End\par
\cf2\par
\cf5 End\cf1\par
FinGall:\par
\par
// Ajout du lien vers le site Officiel du film\par
\cf2 SiteOf = \cf6 GetPage\cf2  ("http://www.allocine.fr/series/sites_gen_cserie=" , \cf3 MovieIDValue\cf2  , ".html")\par
SiteOf = \cf6 BetweenStrings\cf2  (SiteOf, "Sites</h2>" , "</table>")\par
Nb_Ad = \cf6 StringCounter\cf2  (SiteOf, "blank"">http:")\par
\cf5 For\cf2  j=2 to Nb_Ad+1\par
\cf5\tab A\cf2 dresse = \cf6 StringExtraction\cf2  (SiteOf , j , "blank"">http")\cf5\par
\cf2\tab\cf5 A\cf2 dresse = \cf6 BetweenStrings \cf2 (Adresse, ":" , "</a></h4>")\par
\f2\fs18\tab Adresse = \cf6 Replace\cf2  (Adresse , "000005DC" , "")\par
\tab Adresse = \cf6 Replace\cf2  (Adresse , "000006C4" , "")\cf1\f0\fs20\par
\cf2\f2\fs18\tab Adresse = \cf6 Replace\cf2  (Adresse , "000000E8" , "")\par
\tab Adresse = \cf6 Replace\cf2  (Adresse , "00004000" , "")\f0\fs20\par
\tab Adresse = "http:" + Adresse\cf5\par
\tab If\cf2  Adresse <> \cf1\fs18 "h\cf2 ttp:\cf1\f2\'04\f0 " \cf5 Then\cf6\fs20\par
\tab\tab\cf1 AddElementToGallery (\cf2 j\cf1 , "WEBPAGE" , A\cf2 dresse\cf1 )\cf2\par
\cf5\tab End\par
End\par
\cf2  \par
\par
\cf1 //________________________________________________________________________________________________________________________________________\lang2057\par
\cf0\lang1036\f1\fs24\par
\cf2\f2\fs18\par
\cf1 // recherche des saisons et affichage d'une liste pour le choix et le rappatriement des \'e9pisodes.\cf5\par
If\cf2  \cf6 YesNo\cf2  ("Les \cf7 In\cf5 for\cf2 mations g\'e9n\'e9rales de la s\'e9rie ont \'e9t\'e9 r\'e9cup\'e9r\'e9es."+ cr + ...\par
\tab\tab "Voulez vous lancer la recherche pour une saison pr\'e9cise?") \cf5 Then\cf2\par
\tab\cf5 Goto\cf2  Saison\par
\cf5 Else\cf2\par
\tab\cf5 Goto\cf2  Finscript\par
\cf5 End\cf2\par
\par
Saison:\par
\cf1\f0\fs20 HtmlS\cf2 aison\cf1  = \cf6 GetPage\cf2 ("\cf1 http://www.allocine.fr/series/episodes_gen_cserie=\cf2 " , \cf3 MovieIDValue\cf2  ,".html")\par
\cf1 HtmlSaison = \cf6 BetweenStrings\cf1  (HtmlSaison, "Choisir une saison" , "<b>Acteurs principaux" )\cf2\par
\cf1 Movies\cf2 _Delimiter = "/\fs18 episodes_gen_csaison=\fs20 " \par
\cf1 Movies_Number = \cf6 StringCounter\cf1 (HtmlS\cf2 aison\cf1 , Movies_Delimiter)\cf2\par
\cf5 If\cf1  Movies_Number = 0 \cf5 Then\cf2\par
\tab\cf5 Goto\cf2  Finscript\cf5\par
\pard\nowidctlpar End\cf1\lang2057\par
\pard\par
\cf5\lang1036 For\cf2  i=2 to Movies_Number + 1\par
\f2\tab\cf0 S\cf2 aison\cf0 _Title = Movies_Delimiter  +  \cf6 StringExtraction\cf0  (\cf1\f0 HtmlS\cf2 aison\cf0\f2 , i ,Movies_Delimiter )\par
\tab Movie_ID = \cf6 BetweenStrings\cf0  (S\cf2 aison\cf0 _Title , Movies_Delimiter , ".html" )\cf2\f0\tab\par
\cf1\tab\cf2 Saison_Title = \cf6 BetweenStrings\cf2  (Saison_Title, "class=""link1"">" , "</a>")\cf1\par
\tab\cf0\f2 S\cf2 aison\cf0 _Title\cf1\f0  = \cf3 MovieTitleValue\cf1  + " - Saison " + \cf0\f2 S\cf2 aison\cf0 _Title\cf2\f0\par
\tab\cf0\f2 S\cf2 aison\cf0 _Title\cf2\f0  = \cf6 StringRefine\cf2 (\cf0\f2 S\cf2 aison\cf0 _Title\cf2\f0 )\par
\tab\cf0\f2 S\cf2 aison\cf0 _Title\cf1\f0  = \cf6 FormatString\cf1  (\cf0\f2 S\cf2 aison\cf0 _Title\cf1\f0 , "UC")\par
\tab Saison_Title = RemoveHTMLTags (Saison_Title)\par
\cf2\tab Movie_URL = "\cf1 http://www.allocine.fr/series/episodes_gen_csaison=\cf2 " + Movie_ID\cf1  + ".html"\cf2\par
\tab\cf6 AddMovieToList\cf2 (i, Movie_ID, \cf0\f2 S\cf2 aison\cf0 _Title\cf2\f0 , Movie_URL)\par
\par
\cf5 End\cf2\par
\tab\cf1 Saison_\cf2 L\cf1 ast = \cf6 BetweenStrings\cf1  (HtmlS\cf2 aison\cf1 , "color:D20000"">" , "</h2>" )\par
\cf2\tab\cf1 Saison_\cf2 L\cf1 ast = \cf6 FormatString\cf1  (Saison_Last, "UC")\par
\cf2\tab Saison_Last = \cf6 RemoveHTMLTags\cf2  (Saison_Last)\par
\cf1\tab Saison_Last = \cf3 MovieTitleValue\cf1  + " - " + Saison_Last\cf2\par
\tab\cf6 AddMovieToList\cf1 (Movies_Number+2 , \cf3 MovieIDValue\cf1 , Saison_last, "http://www.allocine.fr/series/\cf2 episodes_gen_cserie=\cf1 " + \cf3 MovieIDValue\cf1  + ".html")\cf2\par
\cf1\par
\cf2\fs18\par
\cf1 // Ouverture de la liste des saisons trouv\'e9es\par
\cf6 OpenMoviesList\cf1 ()\cf2\par
\cf5\fs20 If\cf1  \cf3 MovieIDValue\cf1  = "" \cf5 Then\cf2\par
\cf1\tab\cf6 UserErrorMessage\cf1 ("Vous n'avez s\'e9lectionn\'e9 aucune s\cf2 aison.\cf1 " + CR + CR +\cf2  \cf1 "Ou a\cf2 lors, \cf1 la liste \'e9tait vide\cf2 , incompl\'e8te, ou ne vous satisfaisait pas\cf1 .")\cf2\par
\tab\cf5 Goto\cf2  Finscript\par
\cf5 End\cf2\fs18\par
\par
\cf1\fs20 // Extraction du code Html de la page d\'e9sir\'e9e\cf2\par
\cf1 HtmlS\cf2 aison = \cf6 GetPage\cf2 (\cf3 MovieURLValue\cf1  \cf2 ,\cf1  \cf2 ""\cf1  \cf2 ,\cf1  ""\cf2 )\par
\cf5 If\cf2  HtmlSaison = "" \cf5 Then\cf2\par
\tab\cf6 UserErrorMessage\cf2 (\cf1 "Cette page n'a pas \'e9t\'e9 trouv\'e9e"\cf2 )\par
\tab\cf5 Goto\cf2  Finscript\par
\cf5 End\cf2\par
\cf1\f2\fs18\par
// Recherche des \'e9pisodes pour ajouter au r\'e9sum\'e9 g\'e9n\'e9ral\cf2\par
\cf1\f0\fs20 HtmlS\cf2 aison\f2\fs18  = \cf6 BetweenStrings\cf2  (\cf1\f0\fs20 HtmlS\cf2 aison\f2\fs18 , "Liste des \'e9pisodes" , "<h4><b>Saisons :</b>")\par
Epi_Delim = "#000000""><b>"\par
Nb_Epi = \cf6 StringCounter\cf2  (\cf1\f0\fs20 HtmlS\cf2 aison\f2\fs18 , Epi_Delim)\par
\par
HtmlSaison = \cf6 Replace\cf2  (HtmlSaison , "000005DC" , "")\par
HtmlSaison = \cf6 Replace\cf2  (HtmlSaison , "000006C4" , "")\par
HtmlSaison = \cf6 Replace\cf2  (HtmlSaison , "000000E8" , "")\par
HtmlSaison = \cf6 Replace\cf2  (HtmlSaison , "00004000" , "")\par
\par
\cf5 For\cf2  k=2 to Nb_Epi+1\par
\tab Epicode = Epi_Delim + \cf6 StringExtraction\cf2  (\cf1\f0\fs20 HtmlS\cf2 aison\f2\fs18 , k , Epi_Delim)\par
\tab No_Epi = \cf6 BetweenStrings\cf2  (Epicode, Epi_Delim , "</b></h4>")\par
\tab Epi_Title = \cf6 LinesAfter\cf2  (Epicode, 1, "color:gray" )\par
\tab Epi_Ori_title = \cf6 BetweenStrings\cf2  (Epicode , "Titre original :" , "\cf1 </h4></div>\cf2 ")\par
\tab Epi_Ori_Title = \cf6 StringRefine\cf2  (Epi_Ori_Title) \par
\tab Epi_Ori_Title = \cf6 RemoveHTMLTags\cf2  (Epi_Ori_Title)\par
\tab Contenu_Epi = \cf6 BetweenStrings\cf2  (Epicode, "\cf1 Titre original\cf2 " , "\cf1 padding:5 0 5 0\cf2 ")\par
\cf1\tab Contenu_Epi = \cf6 BetweenStrings\cf1  (Contenu_Epi, "0""><h4>" , "</h4></div>")\par
\tab Contenu_Epi = RemoveHTMLTags (Contenu_Epi)\cf2\par
\tab\cf5 If\cf2  Epi_Title = \cf1 "\'04"\cf2  \cf5 Then\cf2\par
\tab\tab Epi_Title = ""\par
\tab\cf5 End\cf2\par
\tab\cf5 If\cf2  Epi_Ori_Title = \cf1 "\'04"\cf2  \cf5 Then\cf2\par
\tab\tab Epi_Ori_Title = ""\par
\cf5\tab End\cf2\par
\tab\cf5 If\cf2  (Contenu_Epi = \cf1 "\'04"\cf2 ) OR (Contenu_Epi = \cf1 ""\cf2 ) \cf5 Then\cf2\par
\tab\tab Contenu_Epi = "Le t\'e9l\'e9chargement de ce r\'e9sum\'e9 a echou\'e9, ou bien, il n'y a pas de r\'e9sum\'e9 pour cet \'e9pisode. D\'e9sol\'e9."\par
\tab\cf5 End\cf2\par
\tab Episode = No_Epi + " : " + Epi_Title + Epi_Ori_Title + CR + Contenu_Epi + CR\cf1\par
\tab\cf3 MovieSummaryValue\cf1  = \cf3 MovieSummaryValue\cf1  + C\cf2 R \cf1 + \cf2 Episode \par
\cf5 End\par
\cf2\par
Finscript:\par
\cf6\f0\fs20 UserInformationMessage\cf2  ("La fiche " + \cf3 MovieTitleValue\cf2  + " est cr\'e9\'e9e.")\cf7\par
ShellExecute\cf1  ("http://images.google.fr/images?q=" + \cf3 MovieTitleValue\cf1  + "&hl=fr&lr=&sa=N&tab=wi")\cf2\par
\cf1 CreateMovie ()\par
\cf2\par
\f2\fs18\par
\cf1 // Fin du Script Allocine pour les Series TV. Allocine_Serie-TV_V1.0C --- Par JUIN J\'e9r\'f4me le 10-12-2005\f0\fs20\par
}