{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}} {\colortbl ;\red0\green128\blue0;\red102\green102\blue102;\red128\green0\blue128;\red0\green0\blue0;\red0\green0\blue255;\red255\green0\blue0;\red255\green102\blue0;} {\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\cf1\lang3084\f0\fs18 // DESCRIPTION ALLO-CINE S\'c9RIETV - Script rappatriant les fiches de s\'e9rie incluant le casting "par saison", les liens web vers sites officiels etc.\cf2\par \cf1 // AUTHOR JUIN J\'e9rome - NATOURIC\cf2\par \cf1 // LANGUAGE FR\cf2\par \par \cf3 MovieDatabaseValue\cf2 = "Allocine"\par \cf4 If\cf2 param.version_texte+"."+param.release_texte<6.08 \cf4 Then\cf2\par \tab\cf5 UserErrorMessage\cf2 ("Veuillez installer la version 6.08 ou sup\'e9rieure. Merci.")\par \tab\cf4 Return\cf2\par \cf4 End\cf2\par \par \cf1 // verification de la version du script\cf2\par LastVersion is \cf4 String\cf2 = \cf5 GetPage\cf2 ("http://pixel-infoweb.com/download/shareddoc/FILMS/scripts/versions.html", "" , "" )\par \cf4 If\cf2 (LastVersion = "\'04") OR (LastVersion = "")OR (PositionOccurrence(LastVersion,"La page est introuvable",1)>0) \cf4 Then\cf2 \par \cf1\tab Goto ServerOff\cf2\par \cf4 End\cf2\par LastVersion = \cf5 BetweenStrings\cf2 (LastVersion , "#Allocine_Serie-TV#" , "#/Allocine_Serie-TV#")\par Currentversion is \cf4 String\cf2 = "4.0C"\par \cf4 If\cf2 (CurrentVersion <> LastVersion) AND (LastVersion <> "\'04") \cf4 Then\cf2\par \cf1\tab DownloadFile ("http://pixel-infoweb.com/download/shareddoc/FILMS/scripts/Allocine_Serie-TV_V" + LastVersion + ".script", fRepEXE() + "/Scripts" , "Allocine_Serie-TV_V" + LastVersion + ".script")\cf2\par \cf1\tab\cf5 UserInformationMessage\cf1 ("Allocine_Serie-TV" + LastVersion + cr + cr+ ...\cf2\par \cf1\tab\tab\tab\tab\tab "Une mise a jour du script Allocine_Serie-TV 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\cf4 Return\cf2\par \cf4 End\cf2\par ServerOff:\par \par \par \cf1 //________________________________________________________________________________________________________________________________________\cf2\par \cf1 ///////////////////////////////\cf2\par \cf1 // DECLARATION DES VARIABLES //\cf2\par \cf1 ///////////////////////////////\cf2\par \par \cf1 // Entiers\cf2\par Movies_Number, V_complete, i, PasImgAllo, Img_Nb, k,c, NoBA_cinefil, NoBA_COC, PresenceBA_COC, ChoixGall, Place_Article are Int\par \par \cf1 // General et codes HTML\cf2\par HtmlCode,\cf1 Epiurl\cf2 , RemoveCode, Movies_Delimiter, Tmps, Heure, Min, YearValue, Sum, PersoCode, HtmlBA_COC, SiteOf are \cf4 String\cf2\par First_letter, Article2, Article3, Article4, Annee_index, Original_index, Remove_index are \cf4 String\cf2\par RemoveHTML, Public_allocine, Public_cinefil, Page_cinefil are int\par \par \par \par //Images\par ImgCode, ID_Pict, Pages, Page1, Page2, ImgDelim, ImageID, LienPageImg, ImageNo, ImageGallery, Rep_Img_Gall, PictureFile, HtmlCodeMov are \cf4 String\cf2\par \par \cf1 // Bandes annonces\cf2\par \par //PROCEDURE DownloadFichier (URL, Dossier, Nom_Fichier)\par ResAppel is booleen\par Page_html is \cf4 String\cf2\par IdFichier,Nb_Ad,ResEcriture are int\par \par \cf1 // Messages d'erreurs\cf2\par Message1, Message2, Message3, Message4, Message5, Message6, Message7, Message8 are \cf4 String\cf2\par \par \cf1 // Variables pour fichier Allocine_Config.txt\cf2\par Defaut_Config is \cf4 String\cf2\par VERSION, GALLERIE, VERIF_AFFICHE,VOIR_IMAGE_GALERIE, CHOIX_BA, POPUP, PERSO_BLOC, RECUP_ROLES, GESTION_ERREUR are \cf4 String\cf2\par TEMPO is int\par \par \cf1 //________________________________________________________________________________________________________________________________________\cf2\par \par \cf1 ///////////////////////////////////////////////////////////////////////////////////////////////\cf2\par \cf1 // CHANGER LE REPERTOIRE DE DESTINATION DE LA GALERIE MULTIMEDIA ET DE LA BANDE ANNONCE ICI //\cf2\par \cf1 // \tab\tab\tab\tab N'OUBLIEZ PAS le ' \\ ' A LA FIN DU CHEMIN\tab\tab\tab\tab //\cf2\par \cf1 ///////////////////////////////////////////////////////////////////////////////////////////////\cf2\par \par Rep_Img_Gall = ".\\affiches\\"\par //Rep_BA = ".\\Bandes Annonces\\"\par \par \cf1 //________________________________________________________________________________________________________________________________________\cf2\par \par //GESTION DU FICHIER DE CONFIGURATION PAR DEFAUT DU SCRIPT (Allocine_Config.txt)\par \cf1 // fichier \'e0 placer dans le repertoire "Scripts" de MVS\cf2\par Defaut_Config = fChargeTexte(".\\Scripts\\Allocine_Config.txt")\par \cf4 If\cf2 (Defaut_config <> "") AND (Defaut_config <> "\'04") \cf4 Then\cf2\par \tab Defaut_Config = \cf5 BetweenStrings\cf2 (Defaut_Config, "//DEBUT//", "//FIN//")\par \tab Defaut_Config = \cf5 StringReplace\cf2 (Defaut_Config, " ", "")\par \tab VERSION = \cf5 BetweenStrings\cf2 (Defaut_Config, "VERSION=", \cf4 Charact\cf2 (13))\par \tab GALLERIE = \cf5 BetweenStrings\cf2 (Defaut_Config, "GALLERIE=", \cf4 Charact\cf2 (13))\par \tab VERIF_AFFICHE = \cf5 BetweenStrings\cf2 (Defaut_Config, "VERIF_AFFICHE=", \cf4 Charact\cf2 (13))\par \tab VOIR_IMAGE_GALERIE = \cf5 BetweenStrings\cf2 (Defaut_Config, "VOIR_IMAGE_GALERIE=", \cf4 Charact\cf2 (13))\par \tab\cf4 If\cf2 VOIR_IMAGE_GALERIE = "\'04" \cf4 Then\cf2 \cf1 // A supprimer pour la prochaine version d'Allocine\cf2\par \tab\tab Goto Recharge_TXT\par \tab\cf4 End\cf2\par \tab CHOIX_BA = \cf5 BetweenStrings\cf2 (Defaut_Config, "CHOIX_BA=", \cf4 Charact\cf2 (13))\par \tab POPUP = \cf5 BetweenStrings\cf2 (Defaut_Config, "POPUP=", \cf4 Charact\cf2 (13))\par \tab TEMPO = \cf5 BetweenStrings\cf2 (Defaut_Config, "TEMPO=", \cf4 Charact\cf2 (13))\par \tab PERSO_BLOC = \cf5 BetweenStrings\cf2 (Defaut_Config, "PERSO_BLOC=", \cf4 Charact\cf2 (13))\par \tab RECUP_ROLES = \cf5 BetweenStrings\cf2 (Defaut_Config, "RECUP_ROLES=", \cf4 Charact\cf2 (13))\par \tab GESTION_ERREUR = \cf5 BetweenStrings\cf2 (Defaut_Config, "GESTION_ERREUR=", \cf4 Charact\cf2 (13))\par \cf4 Else\cf2\par Recharge_TXT:\par \tab DownloadFile ("http://pixel-infoweb.com/download/shareddoc/FILMS/scripts/Allocine_Config.txt", fRepEXE() + "/Scripts" , "Allocine_Config.txt")\par \tab\cf5 UserInformationMessage\cf2 ("Un fichier de configuration 'Allocine_Config.txt' vient d'\'eatre t\'e9l\'e9charg\'e9 dans le r\'e9pertoire :" +cr+cr +...\par \tab\tab\tab\tab\tab fRepExe() + "\\Scripts" + cr + cr + ...\par \tab\tab\tab\tab\tab "Modifiez le \'e0 votre convenance pour affichez ou non les diff\'e9rentes questions que vous pose le script." + cr+cr + ...\par \tab\tab\tab\tab\tab "Le script va s'arreter pour prendre en compte ce changement, veuillez enregistrer ce ficher, puis relancer le script.")\par \tab\cf6 ShellExecute\cf2 (fRepEXE() + "\\Scripts\\Allocine_Config.txt")\par \tab\cf4 Return\cf2\par \cf4 End\cf2\par \par \par \cf1 //______________________________________________________________________________________________________\cf2\par \cf1 // cette page liste les films deja sortis avec click sur "plus" de la page allocine http://www.allocine.fr/recherche/?q=ncis\cf2\par HtmlCode = \cf5 GetPage\cf2 ("http://www.allocine.fr/recherche/6/?q=", \cf7 TitleToSearch\cf2 , "" )\par HtmlCode = \cf5 BetweenStrings\cf2 (HtmlCode , "" , "")\par \cf4 If\cf2 HtmlCode = "" \cf4 Then\cf2\par \tab\cf5 UserErrorMessage\cf2 ("Cette page n'a pas \'e9t\'e9 trouv\'e9")\par \tab\cf4 Return\cf2\par \cf4 End\cf2\par //\cf6 Trace\cf2 (HtmlCode)\par \par \par HtmlCode = UnicodeversAnsi (AnsiVersUnicode (HtmlCode, alphabetUTF8))\par \par \par \cf1 //______________________________________________________________________________________________________\cf2\par \par //arborescence g\'e9n\'e9rale du stockage Allocine-Generalisation\par \cf1 // \cf2\par Movies_Delimiter = "vertical-align:middle;"\par Movies_Number = \cf5 StringCounter\cf2 (HtmlCode, Movies_Delimiter)\par \cf4 If\cf2 Movies_Number = 0 \cf4 Then\cf2\par \tab\cf5 UserErrorMessage\cf2 (" AUCUNE REPONSE DISTANTE : 2 Possibilt\'e9s :" + CR + ...\par \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 ")\par \tab\cf4 Return\cf2\par \cf4 End\cf2\par \par \cf1 // MODE DEBUG : enlever les deux slash devant Information pour tester la capture du nombre de films\cf2\par //\cf6 Trace\cf2 ("Movies Number = " + Movies_Number)\par \par \par Movie_ID, Movie_Title, Movie_URL are \cf4 String\cf2\par \cf4 For\cf2 i=2 to Movies_Number + 1\par \tab Movie_Title = Movies_Delimiter + \cf5 StringExtraction\cf2 ( HtmlCode, i ,Movies_Delimiter )\par \tab Movie_ID = \cf5 BetweenStrings\cf2 ( Movie_Title , "gen_cserie=" , ".html" )\par \tab Original_index = \cf5 BetweenStrings\cf2 ( Movie_Title, "alt='", "' />" )\par \tab Movie_Title = \cf5 BetweenStrings\cf2 (Movie_Title, "style=""margin" , "
")\par \tab Movie_Title = \cf5 LinesAfter\cf2 (Movie_Title, 1 , "gen_cserie=")\par \tab Movie_Title = RemoveHTMLTags (\cf5 StringRefine\cf2 (\cf5 FormatString\cf2 (\cf5 FormatString\cf2 (\cf5 FormatString\cf2 (Movie_Title, "WOA"), "WOS"), "UC")))\par \tab\cf4 If\cf2 Original_index = "\'04" \cf4 Then\cf2\par \tab\tab Original_index = ""\par \tab\cf4 Else\cf2\par \tab\tab Original_Index = Original_index\par \tab\cf4 End\cf2\par \tab\cf4 If\cf2 (Annee_index = "") and (Original_index = "")\cf4 Then\cf2\par \tab\cf4 Else\cf2\par \tab\tab Movie_Title = \cf5 StringRefine\cf2 (Movie_Title + " (" + Original_index+")")\par \tab\cf4 End\cf2\par \tab Movie_Title = RemoveHTMLTags (Movie_Title)\par \tab Movie_URL = "http://www.allocine.fr/series/ficheserie_gen_cserie=" + Movie_ID + ".html"\par \tab\cf4 If\cf2 (Movie_ID = "") OR (Movie_ID = "\'04") OR (Movie_Title = CR) OR (Movie_Title = "\'04")\cf4 Then\cf2\par \tab\tab Goto Pas_Add\par \tab\cf4 Else\cf2\tab\par \tab\tab\cf5 AddMovieToList\cf2 (i, Movie_ID, Movie_Title, Movie_URL)\par \tab\cf4 End\cf2\par Pas_Add:\par \par //MODE DEBUG : enlever les deux slash devant \cf6 Trace\cf2 pour tester la capture des titres\par //\cf6 Trace\cf2 (Movie_ID, Movie_Title, Movie_URL)\par \par \cf4 End\cf2\par \par \cf1 // Ouverture de la liste des films trouv\'e9s\cf2\par \par \cf5 OpenMoviesList\cf2 ()\par \cf4 If\cf2 \cf3 MovieIDValue\cf2 = "" \cf4 Then\cf2\par \tab\cf5 UserErrorMessage\cf2 ("Vous n'avez s\'e9lectionn\'e9 aucun film." + CR + CR + "Ou la liste \'e9tait vide ou incompl\'e8te ou tout simplement v\'e9rifier Firewall.")\par \tab\cf4 Return\cf2\par \cf4 End\cf2\par \par \cf1 // MODE DEBUG : Verify URL (must be deactivate in the final version of the script)\cf2\par //\cf6 ShellExecute\cf2 (\cf3 MovieURLValue\cf2 )\par \par \cf1 // Extraction du code Html de la page d\'e9sir\'e9e\cf2\par HtmlCode = \cf5 GetMovie\cf2 (\cf3 MovieURLValue\cf2 ,"", "")\par HtmlCode = \cf5 BetweenStrings\cf2 (HtmlCode, "" )\par \cf4 If\cf2 HtmlCode = "" \cf4 Then\cf2\par \tab\cf5 UserErrorMessage\cf2 ("Cette page n'a pas \'e9t\'e9 trouv\'e9e")\par \tab\cf4 Return\cf2\par \cf4 End\cf2\par \par HtmlCode = \cf5 StringReplace\cf2 (HtmlCode , "05DC" , "")\par HtmlCode = \cf5 StringReplace\cf2 (HtmlCode , "06C4" , "")\par HtmlCode = \cf5 StringReplace\cf2 (HtmlCode , "00E8" , "")\par HtmlCode = \cf5 StringReplace\cf2 (HtmlCode , "4000" , "")\par \par \par \cf1 // Recuperation des donn\'e9es du film - Genre-Origine...\cf2\par \par \cf1 // Titre\cf2\par \cf1 // Suppression de l'index "ann\'e9e" et "titre original" dans le titre\cf2\par Remove_index = \cf5 BetweenStrings\cf2 (\cf3 MovieTitleValue\cf2 , "(", ")")\par \cf3 MovieTitleValue\cf2 = \cf5 StringReplace\cf2 (\cf3 MovieTitleValue\cf2 , "(" + Remove_index + ")", "")\par //Suppression de l'article devant le Titre\par \cf3 MovieTitleValue\cf2 = \cf5 StringReplace\cf2 (\cf3 MovieTitleValue\cf2 , " " , " ")\par \cf4 If\cf2 ( \cf5 StringLeft\cf2 ( \cf3 MovieTitleValue\cf2 , 2 ) = "L'" ) OR ( \cf5 StringLeft\cf2 ( \cf3 MovieTitleValue\cf2 , 2 ) = "D'" ) \cf4 Then\cf2 \par \tab Article2 = \cf5 StringLeft\cf2 (\cf3 MovieTitleValue\cf2 ,2)\par \tab\cf3 MovieTitleValue\cf2 = \cf5 StringMiddle\cf2 ( \cf3 MovieTitleValue\cf2 , 3 , Length (\cf3 MovieTitleValue\cf2 ) ) + " (" + Article2 + ")"\par \cf4 End\cf2\par \cf4 If\cf2 ( \cf5 StringLeft\cf2 ( \cf3 MovieTitleValue\cf2 , 3 ) ="LE ") OR ( \cf5 StringLeft\cf2 ( \cf3 MovieTitleValue\cf2 , 3 ) = "LA ") OR ( \cf5 StringLeft\cf2 ( \cf3 MovieTitleValue\cf2 , 3 ) = "UN ") OR ( \cf5 StringLeft\cf2 ( \cf3 MovieTitleValue\cf2 , 3 ) = "L' ") OR ( \cf5 StringLeft\cf2 ( \cf3 MovieTitleValue\cf2 , 3 ) = "D' ")\cf4 Then\cf2 \par \tab Article3 = \cf5 StringLeft\cf2 (\cf3 MovieTitleValue\cf2 ,2)\par \tab\cf3 MovieTitleValue\cf2 = \cf5 StringMiddle\cf2 ( \cf3 MovieTitleValue\cf2 , 4 , Length (\cf3 MovieTitleValue\cf2 ) ) + " (" + Article3 + ")"\par \cf4 End\cf2\par \cf4 If\cf2 ( \cf5 StringLeft\cf2 ( \cf3 MovieTitleValue\cf2 , 4 ) ="LES ") OR ( \cf5 StringLeft\cf2 ( \cf3 MovieTitleValue\cf2 , 4 ) = "UNE ") OR ( \cf5 StringLeft\cf2 ( \cf3 MovieTitleValue\cf2 , 4 ) = "DES ") OR ( \cf5 StringLeft\cf2 ( \cf3 MovieTitleValue\cf2 , 4 ) = "THE ") \cf4 Then\cf2 \par \tab Article4 = \cf5 StringLeft\cf2 (\cf3 MovieTitleValue\cf2 ,3)\par \tab\cf3 MovieTitleValue\cf2 = \cf5 StringMiddle\cf2 ( \cf3 MovieTitleValue\cf2 , 5 , Length (\cf3 MovieTitleValue\cf2 ) ) + " (" + Article4 + ")"\par \cf4 End\cf2\par \par \cf1 // Suppression des caracteres joker\cf2\par \cf3 MovieTitleValue\cf2 = \cf5 StringReplace\cf2 (\cf3 MovieTitleValue\cf2 , "*" , "-")\par \cf3 MovieTitleValue\cf2 = \cf5 StringReplace\cf2 (\cf3 MovieTitleValue\cf2 , "?" , "-")\par \cf3 MovieTitleValue\cf2 = \cf5 StringReplace\cf2 (\cf3 MovieTitleValue\cf2 , ":" , "-")\par \cf3 MovieTitleValue\cf2 = \cf5 StringReplace\cf2 (\cf3 MovieTitleValue\cf2 , """" , "-")\par \cf3 MovieTitleValue\cf2 = \cf5 StringReplace\cf2 (\cf3 MovieTitleValue\cf2 , "<" , "-")\par \cf3 MovieTitleValue\cf2 = \cf5 StringReplace\cf2 (\cf3 MovieTitleValue\cf2 , ">" , "-")\par \cf3 MovieTitleValue\cf2 = \cf5 StringReplace\cf2 (\cf3 MovieTitleValue\cf2 , "|" , "-")\par \cf3 MovieTitleValue\cf2 = \cf5 StringReplace\cf2 (\cf3 MovieTitleValue\cf2 , "/" , "-")\par \cf3 MovieTitleValue\cf2 = \cf5 StringReplace\cf2 (\cf3 MovieTitleValue\cf2 , "\\" , "-")\par \cf3 MovieTitleValue\cf2 = \cf5 StringReplace\cf2 (\cf3 MovieTitleValue\cf2 , "&" , "et")\par \cf3 MovieTitleValue\cf2 = \cf5 StringReplace\cf2 (\cf3 MovieTitleValue\cf2 , "05DC" , "")\par \cf3 MovieTitleValue\cf2 = \cf5 StringReplace\cf2 (\cf3 MovieTitleValue\cf2 , "06C4" , "")\par \cf3 MovieTitleValue\cf2 = \cf5 StringReplace\cf2 (\cf3 MovieTitleValue\cf2 , "00E8" , "")\par \cf3 MovieTitleValue\cf2 = \cf5 StringReplace\cf2 (\cf3 MovieTitleValue\cf2 , "4000" , "")\par \par //1ere lettre du titre\par First_Letter = \cf5 StringLeft\cf2 (\cf3 MovieTitleValue\cf2 ,1)\par \cf4 If\cf2 (0<=First_Letter<=9) \cf4 Then\cf2\par \tab First_Letter = "0a9"\par \cf4 End\cf2\par \cf1 // titre original absent remplacer par le titre \cf2\par \cf3 MovieOriginalTitleValue\cf2 = \cf5 BetweenStrings\cf2 (HtmlCode, "Titre original :" , "
")\par \cf3 MovieOriginalTitleValue\cf2 = \cf5 FormatString\cf2 (\cf3 MovieOriginalTitleValue\cf2 , "WOS")\par \cf4 If\cf2 \cf3 MovieOriginalTitleValue\cf2 = "\'04" \cf4 Then\cf2\par \tab\cf3 MovieOriginalTitleValue\cf2 = \cf3 MovieTitleValue\cf2\par \cf4 End\cf2\par \par \par \cf1 // affiche de la s\'e9rie\cf2\par \par //Id_Pict = \cf5 BetweenStrings\cf2 (HtmlCode, "img5.allocine.fr/acmedia/medias/" , ".jpg")\par //\cf3 MoviePictureValue\cf2 = "\par \par //lister les genres; maximum deux sur meme ligne.\par \par ListGenre, Genre1, Genre2, Genre are \cf4 String\cf2\par \par ListGenre = \cf5 BetweenStrings\cf2 (HtmlCode, "Genre :" , "Synopsis")\par ListGenre = \cf5 StringReplace\cf2 (ListGenre , "05DC" , "")\par ListGenre = \cf5 StringReplace\cf2 (ListGenre , "06C4" , "")\par ListGenre = \cf5 StringReplace\cf2 (ListGenre , "00E8" , "")\par ListGenre = \cf5 StringReplace\cf2 (ListGenre , "4000" , "")\par ListGenre\cf1 = \cf5 StringReplace\cf1 (\cf2 ListGenre\cf1 , \cf4 Charact\cf1 (13), "")\cf2\par ListGenre\cf1 = \cf5 StringReplace\cf1 (\cf2 ListGenre\cf1 , \cf4 Charact\cf1 (10), "")\cf2\par ListGenre = UnicodeversAnsi (AnsiVersUnicode (ListGenre, alphabetUTF8))\par //Genre 1\par \tab Genre1 = \cf5 BetweenStrings\cf2 (ListGenre,"-", "," )\par \tab Genre1 = \cf5 BetweenStrings\cf2 (genre1,">", "<")\par \tab Genre1 = RemoveHTMLTags (Genre1)\par \tab Genre1 = \cf5 FormatString\cf2 (Genre1 , "WOS")\par \tab\cf4 If\cf2 genre1 = "\'04"\cf4 Then\par \tab G\cf1 enre1 = ""\cf2\par \cf4\tab End\cf2\par \par \cf1 //\cf6 Trace\cf1 (Genre1)\cf2\par \tab Genre2 = \cf5 BetweenStrings\cf2 (ListGenre,",","" )\par \tab Genre2 = \cf5 BetweenStrings\cf2 (Genre2, ">" ,"<")\par \tab Genre2 = RemoveHTMLTags (Genre2)\par \tab Genre2 = \cf5 FormatString\cf2 (Genre2, "WOS")\par \cf4\tab If\cf2 Genre2 = "\'04"\cf4 Then\par \cf2\tab\cf1 genre2 = ""\cf2\par \cf4\tab End\cf2\par \cf1 //\cf6 Trace\cf1 (Genre2)\cf2\par \cf4 If\cf2 genre1 = "\'04"\cf4 Then\par \tab G\cf1 enre\cf2 \cf1 = ""\cf2\par \cf4 End\par If\cf2 Genre1 <> "\'04" \cf4 Then\cf2\par genre1 = \cf5 StringReplace\cf2 (genre1, ",","")\par \cf4 g\cf2 enre = Genre1\par \cf4 End\par \cf2\par \cf4\par If\cf2 Genre2 <> "\'04"\cf4 Then\cf2\par \tab Genre = genre1 + "," + ESP + genre2\par \cf4 End\cf2\par \par \cf3 MovieFamilyValue\cf2 = Genre\par \par \cf4 If\cf2 \cf3 MovieFamilyValue\cf2 = "\'04" \cf4 Then\cf2\par \tab\cf3 MovieFamilyValue\cf2 = ""\par \cf4 End\cf2\par \par //Origine Pays\par Country ,Country1, Country2, ListCountry are \cf4 String\cf2\par \par ListCountry = \cf5 BetweenStrings\cf2 (HtmlCode, "Titre original :" , "Genre :")\par ListCountry = UnicodeversAnsi (AnsiVersUnicode (ListCountry, alphabetUTF8))\par \par ListCountry = \cf5 FormatString\cf2 (ListCountry, "1UC")\par //Country1\par Country1 = \cf5 BetweenStrings\cf2 (ListCountry,"/film/tous/pays-",",")\par Country1 = \cf5 BetweenStrings\cf2 (Country1, ">", "<")\par Country1 =\cf5 FormatString\cf2 (Country1 , "WOS")\par Country1 = RemoveHTMLTags(Country1)\par //Country2\par Country2 = \cf5 BetweenStrings\cf2 (ListCountry, "," , "Genre :")\par Country2 = \cf5 BetweenStrings\cf2 (Country2, ">", "<")\par Country2 =\cf5 FormatString\cf2 (Country2 , "WOS")\par Country2 = RemoveHTMLTags(Country2)\par \par \cf4 If\cf2 Country2 <> "\'04" \cf4 Then\cf2\par \tab Country = Country1 + "," + Country2\par \cf4 End\cf2\par \cf4 If\cf2 Country2 = "\'04" \cf4 Then\cf2 \par \tab Country = Country1\par \cf4 End\cf2\par \par \cf4 If\cf2 Country2 <> "\'04" \cf4 Then\cf2\par \tab Country = Country1 + "," + ESP + Country2\par \cf4 End\cf2\par Country = \cf5 FormatString\cf2 (Country,"1UC")\par \cf3 MovieCountryValue\cf2 = Country\par \par \cf4 If\cf2 \cf3 MovieCountryValue\cf2 = "\'04" \cf4 Then\cf2\par \cf3 MovieCountryValue\cf2 = ""\par \cf4 End\cf2\par \par \par \cf1 // R\'e9sum\'e9\cf2\par Sum = \cf5 BetweenStrings\cf2 (HtmlCode , "Synopsis : " , "

")\par Sum = RemoveHTMLTags (Sum)\par Sum = UnicodeversAnsi (AnsiVersUnicode (Sum, alphabetUTF8))\par \cf3 MovieSummaryValue\cf2 = Sum\par \par \cf1 // Couleur/N&B - 95% des series sont en couleurs, pour pas dire 100% sur les series presentes sur le site...\cf2\par \cf3 MovieColorBWValue\cf2 = "Couleur"\par \par Saison:\par HtmlSeason, Season_Delimiter, Season_ID, Season_Title, SeasonTitleZone, Season_URL are \cf4 String\cf2\par S, Season_Number are Int\par \cf1 //http://www.allocine.fr/series/ficheserie-232/saisons/\cf2\par HtmlSeason = \cf5 GetPage\cf2 ("\cf1 http://www.allocine.fr/series/ficheserie-\cf2 ",\cf3 MovieIDValue\cf2 ,"\cf1 /saisons/\cf2 ")\par HtmlSeason = UnicodeversAnsi (AnsiVersUnicode (HtmlSeason, alphabetUTF8))\par \cf1 HtmlSeason = \cf5 BetweenStrings\cf1 (HtmlSeason,"
","Ann\'e9e de production :")\cf2\par \par \cf4 If\cf2 HtmlSeason = "" \cf4 Then\cf2\par \tab\cf5 UserErrorMessage\cf2 ("Aucune Saison n'a \'e9t\'e9 trouv\'e9, c'est tres peu probable")\par \tab\cf4 Return\cf2\par \cf4 End\cf2\par \par HtmlSeason = \cf5 StringReplace\cf2 (HtmlSeason , "05DC" , "")\par HtmlSeason = \cf5 StringReplace\cf2 (HtmlSeason , "06C4" , "")\par HtmlSeason = \cf5 StringReplace\cf2 (HtmlSeason , "00E8" , "")\par HtmlSeason = \cf5 StringReplace\cf2 (HtmlSeason , "4000", "")\par \par \par //TEST LE REPATRIEMENT DE LA PAGE LISTANT LES SAISONS\par \cf1 //\cf6 Trace\cf1 (HtmlSeason)\cf2\par \par //Choix de la saison\par Season_Zone is \cf4 String \cf2 = \cf5 StringExtraction\cf2 (HtmlSeason, \cf1 2\cf2 ,"Saison :")\par \cf1 //\cf6 Trace\cf1 (season_zone)\par \cf2\par Season_Delimiter = "\cf1 /series/ficheserie-\cf2 " + \cf3 MovieIDValue\cf2 +"/saison-"\par Season_Number = \cf5 StringCounter\cf2 (Season_Zone, Season_Delimiter)\par \cf4 If\cf2 Season_Number = 0 \cf4 Then\cf2\par \tab Goto Finscript\par \cf4 End\par For\cf2 S=2 to Season_Number+1\par \tab Season_Title = \cf5 StringExtraction\cf2 (Season_Zone, S ,"/saison")\par \tab Season_ID = \cf5 BetweenStrings\cf2 (Season_Title,"-","/"">")\par \tab Season_Title = \cf5 LinesAfter\cf2 (Season_Title,2,">")\par \tab Season_Title = RemoveHTMLTags(season_title)\par \tab Season_Title = \cf5 FormatString\cf2 (Season_Title, "WOA")\par \tab Season_Title = \cf5 FormatString\cf2 (Season_Title, "WOS")\par \tab Season_title = \cf5 FormatString\cf2 (Season_Title, "UC")\par \tab Season_Title = "SAISON "+ Season_Title\par \tab season_title = \cf3 MovieTitleValue\cf2 + "- " + season_title\par \cf1 //Info(season_Id)\cf2\par \cf1 //Info(season_title)\cf2\par Season_URL = "\cf1 http://www.allocine.fr/series/ficheserie-\cf2 " + \cf3 MovieIDValue\cf2 + "/saison-" + Season_ID\par \par \tab\cf5 AddMovieToList\cf2 (s, Season_ID, Season_Title, Season_URL)\par \cf4 End\cf2\par \cf3 MovieTitleValue\cf2 = Season_Title\par \par \cf1 // Ouverture de la Liste des saisons trouv\'e9es \cf2\par \cf5 OpenMoviesList\cf2 ()\par \par \cf4 If\cf2 \cf3 MovieIDValue\cf2 = "" \cf4 Then\cf2\par \tab\cf5 UserErrorMessage\cf2 ("Oups! o_O"," D\'e9sol\'e9"," mais cette page n'est pas accessible...")\par \tab Goto Finscript\par \cf4 End\cf2\par \par SeasonPage is \cf4 String\cf2\par SeasonPage = \cf5 GetMovie\cf2 (\cf3 MovieURLValue\cf2 ,"" ,"")\par \par \par \cf1 // Ajout du lien vers sites officiels et de fans de la s\'e9rie\cf2\par //http://www.allocine.fr/series/ficheserie-3584/sites-officiels-fans/?cseriesseason=6430\par Adresse, siteofPage, siteofurl are \cf4 String\cf2\par u is int\par \par siteofpage = \cf5 GetMovie\cf2 (\cf3 MovieURLValue\cf2 ,"" ,"")\par SiteofPage= \cf5 BetweenStrings\cf2 (siteofpage,"","")\par SiteofPage = UnicodeversAnsi (AnsiVersUnicode (SiteofPage, alphabetUTF8))\par SiteofPage= \cf5 BetweenStrings\cf2 (siteofpage,">Pour aller plus loin","Secrets de tournage")\par \par SiteOfPage = \cf5 BetweenStrings\cf2 (SiteofPage, "Sites officiels, de fans")\par //\cf6 Trace\cf2 (SiteOfPage)\par SiteOfURL = "http://www.allocine.fr/" + Siteofpage\par SiteOf = \cf5 GetPage\cf2 (SiteOfURL,"","")\par siteof = \cf5 BetweenStrings\cf2 (Siteof,""," ")\par Siteof = UnicodeversAnsi (AnsiVersUnicode (Siteof, alphabetUTF8))\par siteof = \cf5 BetweenStrings\cf2 (Siteof,"sites officiels et de fans de la s\'e9rie","")\par Nb_Ad = \cf5 StringCounter\cf2 (SiteOf, "target=""_blank")\par \cf4 For\cf2 u = 2 to Nb_Ad+1\par \tab Adresse = \cf5 StringExtraction\cf2 (SiteOf , u , "

")\par \tab Adresse = \cf5 BetweenStrings\cf2 (Adresse, "=""lighten"">" , "")\par \cf4 If\cf2 Adresse <> "\'04" \cf4 Then\cf2\par \tab AddElementToGallery (u, "WEBPAGE" , Adresse)\par \cf4 End\cf2\par \cf4 End\cf2\par //Info(adresse)\par \par //Annee de production de la saison\par \cf3 MovieYearValue\cf2 = \cf5 BetweenStrings\cf2 (SeasonPage, "" , "" )\par \cf3 MovieYearValue\cf2 = UnicodeversAnsi (AnsiVersUnicode (\cf3 MovieYearValue\cf2 , alphabetUTF8))\par \cf3 MovieYearValue\cf2 = \cf5 StringReplace\cf2 (\cf3 MovieYearValue\cf2 , "05DC" , "")\par \cf3 MovieYearValue\cf2 = \cf5 StringReplace\cf2 (\cf3 MovieYearValue\cf2 , "06C4" , "")\par \cf3 MovieYearValue\cf2 = \cf5 StringReplace\cf2 (\cf3 MovieYearValue\cf2 , "00E8" , "")\par \cf3 MovieYearValue\cf2 = \cf5 StringReplace\cf2 (\cf3 MovieYearValue\cf2 , "4000" , "")\par \cf3 MovieYearValue\cf2 = \cf5 BetweenStrings\cf2 (\cf3 MovieYearValue\cf2 , "Ann\'e9e de production :", " - ")\par \cf3 MovieYearValue\cf2 = \cf5 BetweenStrings\cf2 (\cf3 MovieYearValue\cf2 ,"/series/toutes/annee-","/"">")\par \cf3 MovieYearValue\cf2 = \cf5 FormatString\cf2 (\cf3 MovieYearValue\cf2 , "WOS")\par \cf3 MovieYearValue\cf2 = \cf5 StringLeft\cf2 (\cf3 MovieYearValue\cf2 ,4)\par \cf3 MovieYearValue\cf2 = \cf5 EliminateLetters\cf2 (\cf3 MovieYearValue\cf2 )\par \cf3 MovieYearValue\cf2 = RemoveHTMLTags (\cf3 MovieYearValue\cf2 )\par \par \cf1 // Dur\'e9e d'un episode \cf2\par \cf3 MovieDurationValue\cf2 = \cf5 BetweenStrings\cf2 (HtmlCode , " Format :" , "mn")\par \cf3 MovieDurationValue\cf2 = \cf5 StringMiddle\cf2 (\cf3 MovieDurationValue\cf2 , 2 , length (\cf3 MovieDurationValue\cf2 ) )\par \par //\cf6 Trace\cf2 (\cf3 MovieYearValue\cf2 )\par //Info(\cf3 MovieYearValue\cf2 )\par \par \cf1 //////////CASTING/////////////////////CASTING/////////////////////CASTING/////////////////////CASTING/////////////////////CASTING/////////// PAR SAISON!\cf2\par //obtenir la fin de l'adresse de la sa s\'e9rie et de la Saison via le movie\par \cf1 // Personnalit\'e9s\cf2\par ListAct, Acteur, NomActeur, Role are \cf4 String\cf2\par CastingPage, Scenario, Scenariste_Delimiter,Scenariste ,Realisation, Realisateur_Delimiter, Realisateur are \cf4 String\cf2\par r,w,R\'e9alisateur_Number,p, Scenariste_Number,NbAct,NbRole are int\par \cf1 //-- /series/casting_gen_cserie=3213.html?cseriesseason=5585">plus...\cf2\par \par CastingPage = \cf5 BetweenStrings\cf2 (SeasonPage, "" , "")\par CastingPage = \cf5 BetweenStrings\cf2 (CastingPage, " Avec : ", "plus...")\par CastingPage = \cf5 BetweenStrings\cf2 (CastingPage, "/series/casting_gen_cserie=", "'>")\par \cf1 //CastingPage = CastingPage + "?cseriesseason="\cf2\par \cf1 //\cf6 Trace\cf1 (CastingPage)\cf2\par \par PersoCode = \cf5 GetPage\cf2 ("http://www.allocine.fr/series/casting_gen_cserie=", CastingPage , \cf3 "\cf1 "\cf2 )\par PersoCode = \cf5 BetweenStrings\cf2 (persocode, "" ,"")\par PersoCode = UnicodeversAnsi (AnsiVersUnicode (PersoCode, alphabetUTF8))\par \par PersoCode = \cf5 StringReplace\cf2 (PersoCode , "05DC" , "")\par PersoCode = \cf5 StringReplace\cf2 (PersoCode , "06C4" , "")\par PersoCode = \cf5 StringReplace\cf2 (PersoCode , "00E8" , "")\par PersoCode = \cf5 StringReplace\cf2 (PersoCode , "4000" , "")\par \cf1 //\cf6 Trace\cf1 (PersoCode)\cf2\par \par \cf4 If\cf2 PersoCode = "" \cf4 Then\cf2\par \tab\cf5 UserErrorMessage\cf2 ("Aucune page pour les personnalit\'e9s, n'a pu etre rappatri\'e9e")\par \cf4 End\cf2\par \par \cf1 // Scenaristes\cf2\par Scenario= \cf5 BetweenStrings\cf2 (PersoCode,"

Sc\'e9nario

","" )\par Scenariste_Delimiter = "/personne/fichepersonne"\par Scenariste_Number = \cf5 StringCounter\cf2 (Scenario, Scenariste_Delimiter)\par \cf4 If\cf2 Scenariste_Number > 10 \cf4 Then\cf2 Scenariste_Number = 10\par \cf4 For\cf2 W = 2 to Scenariste_Number+1\par \tab Scenariste = \cf5 StringExtraction\cf2 (Scenario, W ,Scenariste_Delimiter)\par \tab Scenariste = \cf5 LinesAfter\cf2 (scenariste, 1 ,"gen_cpersonne=")\par \tab Scenariste = \cf5 FormatString\cf2 (Scenariste, "WOS" )\par Scenariste = RemoveHTMLTags (Scenariste)\par \cf4 If\cf2 Scenariste = "\'04" \cf4 Then\cf2\par \tab Scenariste = ""\par \cf4 End\cf2\par \cf5 AddMovieWriters\cf2 (Scenariste)\par \cf4 End\cf2\par \par Realisation = \cf5 BetweenStrings\cf2 (PersoCode,"

R\'e9alisation

","

Sc\'e9nario

" )\par Realisateur_Delimiter = "/personne/fichepersonne"\par Realisateur_Number = \cf5 StringCounter\cf2 (Realisation, Realisateur_Delimiter)\par \cf4 If\cf2 Realisateur_Number > 10 \cf4 Then\cf2 Realisateur_Number = 10\par \cf4 For\cf2 r = 2 to Realisateur_Number+1\par \tab Realisateur = \cf5 StringExtraction\cf2 (Realisation, r ,Realisateur_Delimiter)\par \tab Realisateur = \cf5 LinesAfter\cf2 (Realisateur, 1 ,"gen_cpersonne=")\par \tab Realisateur = \cf5 FormatString\cf2 (Realisateur, "WOS" )\par \tab Realisateur = RemoveHTMLTags (Realisateur)\par \cf4 If\cf2 Realisateur = "\'04" \cf4 Then\cf2\par \tab Realisateur = ""\par \cf4 End\cf2\par \cf5 AddMovieDirectors\cf2 (Realisateur)\par \cf4 End\cf2\par \par \cf1 // Compositeur Non diponible via allocin\'e9 s\'e9rie-tv\cf2\par \par //Acteurs Par Saison Acteurs r\'e9currents non pris en compte \tab\par \par ListAct = \cf5 BetweenStrings\cf2 ( PersoCode, "

Acteurs r\'e9guliers" , "Acteurs r\'e9currents

")\par NbAct = \cf5 StringCounter\cf2 (ListAct , "
")\par \cf4 If\cf2 NbAct > 20 \cf4 Then\cf2 NbAct = 20\par \cf4 For\cf2 p = 2 TO NbAct +1\par \tab Acteur = \cf5 StringExtraction\cf2 (ListAct, p , "
")\par \tab NomActeur = \cf5 BetweenStrings\cf2 (Acteur, "")\par \tab NomActeur = \cf5 BetweenStrings\cf2 (Acteur, ".html"">","<")\par \tab NomActeur= \cf5 StringReplace\cf2 (NomActeur,"\'04","")\par \tab NomActeur = RemoveHTMLTags(NomActeur)\par \tab NomActeur = \cf5 FormatString\cf2 (NomActeur,"WOS")\par \tab\cf4 If\cf2 RECUP_ROLES<> "0" \cf4 Then\cf2\par \tab Role = \cf5 StringExtraction\cf2 (ListAct,p,"R\'f4le")\par \tab Role = \cf5 BetweenStrings\cf2 (Role,":","<")\par \tab Role = RemoveHTMLTags(Role)\tab\par \tab role = \cf5 StringReplace\cf2 (role,CR,"")\par \tab role = \cf5 StringReplace\cf2 (role,Tab,"")\par \tab Role = \cf5 FormatString\cf2 (Role,"WOS")\par \tab Role = \cf5 StringReplace\cf2 (Role,"\'04","")\par \par \cf4 End\cf2\par \cf4 If\cf2 NomActeur = "\'04" \cf4 Then\cf2\par \tab NomActeur = ""\par \cf4 End\cf2\par \cf4 If\cf2 role = "\'04" \cf4 Then\cf2\par \tab role = ""\par \cf4 End\cf2\par \par \par \cf5 AddMovieActors\cf2 (NomActeur,role)\par \cf4 End\cf2\par \par //Recherche des \'e9pisodes pour ajouter au r\'e9sum\'e9 g\'e9n\'e9ral\par \par \par \cf1 // recherche des saisons et affichage d'une liste pour le choix et le rappatriement des \'e9pisodes.\cf2\par \par \par \cf4 If\cf2 YesNo ("La liste des \'e9pisodes va etre rappatri\'e9e. Vous pouvez choisir entre la version liste d'\'e9pisodes Seulement" + cr + ...\par \tab\tab "qui comprend le n\'b0 des \'e9pisodes et le titre Francophone ou la version compl\'e8te qui comprend les r\'e9sum\'e9s par \'e9pisode incluant les titres originaux" +cr + cr + ...\par \tab\tab "Alors ? ..Quelle version pr\'e9f\'e9rerez-vous? D\'e9sirez-vous la version compl\'e8te?....")\cf4 Then\cf2\par \tab Goto Version_compl\'e8te\par \cf4 Else\cf2\par \tab Goto Episodes_Seulement\par \cf4 End\cf2\par \par \par \cf1 //****episode seulement***episode seulement***///\'c9pisode seulement***\'c9pisode seulement***///\cf2\par \par Episodes_Seulement :\par EpisodesPage is \cf4 String\cf2 = \cf5 GetMovie\cf2 (\cf3 MovieURLValue\cf2 ,"" ,"")\par EpisodesPage = \cf5 BetweenStrings\cf2 (EpisodesPage,"" , "")\par EpisodesPage = UnicodeversAnsi (AnsiVersUnicode (EpisodesPage, alphabetUTF8))\par EpisodesPage = \cf5 StringReplace\cf2 (EpisodesPage , "05DC" , "")\par EpisodesPage = \cf5 StringReplace\cf2 (EpisodesPage , "06C4" , "")\par EpisodesPage = \cf5 StringReplace\cf2 (EpisodesPage , "00E8" , "")\par EpisodesPage = \cf5 StringReplace\cf2 (EpisodesPage , "4000" , "")\par EpisodesPage= \cf5 BetweenStrings\cf2 (Episodespage,"Les \'e9pisodes de la saison " , "Voir cette saison")\par //\cf6 Trace\cf2 (episodespage)\par \par Epi_Delim is \cf4 String\cf2 = "Episode "\par Nb_Epi is \cf4 Int \cf2 = \cf5 StringCounter\cf2 (episodespage, Epi_Delim)\par \cf4 For\cf2 k = 2 to Nb_Epi+1\par \tab No_Epi is \cf4 String\cf2 = \cf5 StringExtraction\cf2 (EpisodesPage, k , "Episode&")\par \tab No_epi = \cf5 BetweenStrings\cf2 (No_epi, ";",":")\par \tab No_epi = \cf5 FormatString\cf2 (No_epi, "WOS")\par \tab No_epi = \cf5 StringReplace\cf2 (No_epi, CR,"")\par \tab No_epi = \cf5 StringReplace\cf2 (No_epi, TAB,"")\par \tab no_epi = \cf5 StringReplace\cf2 (no_epi,ESP,"")\par \tab\cf4 If\cf2 no_epi = "\'04" \cf4 Then\cf2\par \tab\tab no_epi = ""\par \tab\cf4 End\cf2\par \tab Epi_Title is \cf4 String\cf2 = \cf5 StringExtraction\cf2 (EpisodesPage, k ,"Episode ")\par \tab Epi_title = \cf5 BetweenStrings\cf2 (Epi_Title,":" ,"")\par \tab Epi_Title = \cf5 FormatString\cf2 (Epi_Title, "WOS")\par \tab\cf4 If\cf2 Epi_Title = "\'04" \cf4 Then\cf2\par \tab\tab Epi_Title = ""\par \tab\cf4 End\cf2\par \par Epi_Title = No_Epi + esp+ "-"+Esp+ Epi_title\par \par \cf3 MovieSummaryValue\cf2 = \cf3 MovieSummaryValue\cf2 +CR+ Epi_Title\par \par \cf4 End\cf2\par Goto Finscript\par \par \cf1 //Info (Epi_Title)\cf2\par \par \cf1 //****Version_compl\'e8te: avec r\'e9sum\'e9 et titre original***Version_compl\'e8te: avec r\'e9sum\'e9 et titre original***Version_compl\'e8te: avec r\'e9sum\'e9 et titre original***///\cf2\par Version_compl\'e8te:\par \par EpisodesPage2 is \cf4 String\cf2 = \cf5 GetMovie\cf2 (\cf3 MovieURLValue\cf2 ,"" ,"")\par EpisodesPage2 = \cf5 BetweenStrings\cf2 (EpisodesPage2,"" , "")\par EpisodesPage2 = UnicodeversAnsi (AnsiVersUnicode (EpisodesPage2, alphabetUTF8))\par EpisodesPage2 = \cf5 StringReplace\cf2 (EpisodesPage2 , "05DC" , "")\par EpisodesPage2 = \cf5 StringReplace\cf2 (EpisodesPage2 , "06C4" , "")\par EpisodesPage2 = \cf5 StringReplace\cf2 (EpisodesPage2 , "00E8" , "")\par EpisodesPage2 = \cf5 StringReplace\cf2 (EpisodesPage2 , "4000" , "")\par \par EpisodesPage2 = \cf5 BetweenStrings\cf2 (Episodespage2,"Les \'e9pisodes de la saison " , "
")\par Epi_Delim2 is \cf4 String\cf2 = "totalwidth hpadding10l tal"">"\par Nb_Epi2 is \cf4 Int \cf2 = \cf5 StringCounter\cf2 (EpisodesPage2, Epi_Delim2)\par //Info(Nb_Epi2)\par \cf4 For\cf2 C = 2 to Nb_Epi2+1\par \tab EpiurlA is \cf4 String\cf2 = \cf5 StringExtraction\cf2 (EpisodesPage2, C , Epi_Delim2)\par \tab Epiurl = \cf5 BetweenStrings\cf2 (EpiurlA, "" ,"")\par \tab Epi_Title2= \cf5 BetweenStrings\cf2 (Epi_Title2, "pisode" ," - AlloCin")\par \tab Epi_Ori_title is \cf4 String\cf2 = \cf5 BetweenStrings\cf2 (Epicode,"Titre original :" ,"" , "