{\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;\red128\green0\blue128;\red102\green102\blue102;\red0\green0\blue0;\red0\green0\blue255;\red255\green102\blue0;\red255\green0\blue0;\red230\green230\blue230;}
{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\cf1\f0\fs20 // DESCRIPTION ALLOCINE avec grandes Images et photos du film - Merci a Cyril G. et Natouric\par
// AUTHOR JUIN Jerome\par
// LANGUAGE FR\par
\cf2 MovieDatabaseValue\cf1 = "Allocine"\par
\par
//________________________________________________________________________________________________________________________________________\par
///////////////////////////////\par
// DECLARATION DES VARIABLES //\par
///////////////////////////////\par
\par
// Entiers\par
Movies_Number, V_complete, i, N\cf3 bReal, \cf1 N\cf3 bScn, \cf1 NbAct, NbRole, PasImgAllo, Img_Nb, k, NoBA_cinefil, NoBA_COC, PresenceBA_COC, ChoixGall, Place_Article are Int\par
\par
// General et codes HTML\par
HtmlCode, HtmlCode0, HtmlCode1, R\cf3 emoveCode,\cf1 Movies_Delimiter, Tmps, Heure, Min, YearValue, Sum, BloCouleur, Color1, Color2, PersoCode, HtmlBA_COC, SiteOf are \cf4 String\cf1\par
First_letter, Article2, Article3, Article4,\cf3 Annee_index, Original_index, Remove_index\cf1 are \cf4 String\par
\cf3\fs18 RemoveHTML, \fs20 Public_allocine, Public_cinefil, Page_cinefil are int\cf1\par
\par
// Personnalit\'e9s\par
L\cf3 istReal, Real1, \cf1 Realisateur, Scenariste, Scena1, Compositeur, Compo1, L\cf3 istScn, \cf1 ListAct, Acteur, NomActeur, Role,\cf3 Prod1, Producteur\cf1 are \cf4 String\cf1\par
\par
//Images\par
ImgCode, ID_Pict, Pages, Page1, Page2, ImgDelim, ImageID, LienPageImg, ImageNo, ImageGallery, Rep_Img_Gall, PictureFile,\cf3 HtmlCodeMov\cf1 are \cf4 String\cf1\par
\par
// Bandes annonces\par
\cf3\par
\cf1 //PROCEDURE DownloadFichier (URL, Dossier, Nom_Fichier)\cf3\par
\cf1 ResAppel is booleen\par
Page_html is \cf4 String\cf3\par
\cf1 IdFichier, ResEcriture are int\cf3\par
\par
\cf1 // Messages d'erreurs\par
\cf3 Message1, Message2, Message3, Message4, Message5, Message6, Message7, Message8 are \cf4 String\cf3\par
\par
\cf1 // Variables pour fichier Allocine_Config.txt\par
\cf3 Defaut_Config i\cf1 s\cf3 \cf4 String\cf1\par
\cf3 VERSION, GALLERIE, VERIF_AFFICHE,VOIR_IMAGE_GALERIE, CHOIX_BA, POPUP, PERSO_BLOC, RECUP_ROLES, GESTION_ERREUR are \cf4 String\cf1\par
T\cf3 EMPO is int\cf1\par
\par
//________________________________________________________________________________________________________________________________________\par
\par
///////////////////////////////////////////////////////////////////////////////////////////////\par
// CHANGER LE REPERTOIRE DE DESTINATION DE LA GALERIE MULTIMEDIA ET DE LA BANDE ANNONCE ICI //\par
// \tab\tab\tab\tab N'OUBLIEZ PAS le ' \\ ' A LA FIN DU CHEMIN\tab\tab\tab\tab //\par
///////////////////////////////////////////////////////////////////////////////////////////////\par
\par
Rep_Img_Gall = ".\\affiches\\"\par
//Rep_BA = ".\\Bandes Annonces\\"\par
\par
//________________________________________________________________________________________________________________________________________\par
\par
// S\'e9lection de la version d'allocin\'e9 \'e0 utiliser (Light ou Compl\'e8te) \'e0 partir du fichier .txt\cf4\par
If\cf1 VERSION = "1" \cf4 Then\cf3\par
\cf1\tab V_complete = 1\cf3\par
\cf4 Else\cf3\par
\cf1\tab V_complete = ""\cf3\par
\cf4 End\par
\cf1 // Activation de la fermeture temporis\'e9e des fen\'eatres\cf3\par
\cf4 If\cf3 POPUP = "1" \cf4 Then\cf3\par
\tab\lang2057 D\'e9laiAvantFermeture (T\cf1 EMPO\cf3 )\lang1036\par
\cf4 End\cf3\par
\par
\cf1 //________________________________________________________________________________________________________________________________________\par
\cf3\par
\cf1\par
// cette page liste les films deja sortis avec click sur "plus" de la page allocine\par
HtmlCode0 = \cf5 GetPage\cf1 ("http://www.allocine.fr/recherche/1/?p=\cf3 1\cf1 &q=", \cf6 TitleToSearch\cf1 , "" )\par
HtmlCode0 = \cf5 BetweenStrings\cf1 (HtmlCode0 , "ciser votre recherche" , "Films
")\par
\cf4 If\cf1 HtmlCode0 = "" \cf4 Then\cf1\par
\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9")\par
\tab\cf4 Return\cf1\par
\cf4 End\cf1\par
\par
// cette page liste les prochaines sorties de films\par
HtmlCode1 = \cf5 GetPage\cf1 ("http://www.allocine.fr/recherche/1/?p=2&q=", \cf6 TitleToSearch\cf1 , "" )\par
HtmlCode1 = \cf5 BetweenStrings\cf1 (HtmlCode1 , "ciser votre recherche" , "Films
")\par
\par
HtmlCode = HtmlCode0 + HtmlCode1\par
\cf3 HtmlCode = UnicodeversAnsi (AnsiVersUnicode (HtmlCode, alphabetUTF8))\par
\par
\cf1 //________________________________________________________________________________________________________________________________________\par
\par
//arborescence g\'e9n\'e9rale du stockage Allocine-Generalisation\par
Movies_Delimiter = "vertical-align:middle;" \par
Movies_Number = \cf5 StringCounter\cf1 (HtmlCode, Movies_Delimiter)\par
\cf4 If\cf1 Movies_Number = 0 \cf4 Then\cf1\par
\tab PasFilm:\par
\tab\cf5 UserErrorMessage\cf1 (" 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 " + CR + "Un probl\'e8me avec Norton Internet Security \'e0 \'e9t\'e9 d\'e9t\'e9ct\'e9." + CR + ...\par
\tab\tab\tab\tab "Le modem / Routeur WIfi Wanadoo pose probl\'e8me \'e9galement" + CR + CR + CR + ...\par
\tab\tab\tab\tab "D\'e9sactivez votre FireWall provisoirement pour v\'e9rifier s'il est responsable" + cr + cr + ...\par
\tab\tab\tab\tab "VOICI MA SOLUTION : Antivirus Avast (gratuit) et FireWall Kerio 4 (gratuit)- Ca vous evitera de r\'e9investir et vous serez bien mieux prot\'e9g\'e9.")\par
\tab\cf4 Return\cf1\par
\cf4 End\cf1\par
\par
// MODE DEBUG : enlever les deux slash devant Information pour tester la capture du nombre de films\par
// Information("Movies Number = " + Movies_Number)\par
\par
Movie_ID, Movie_Title, Movie_URL are \cf4 String\cf1\par
\cf4 For\cf1 i=2 to Movies_Number + 1\par
\tab Movie_Title = Movies_Delimiter + \cf5 StringExtraction\cf1 ( HtmlCode, i ,Movies_Delimiter )\par
\tab Movie_ID = \cf5 BetweenStrings\cf1 ( Movie_Title , "\cf3 gen_cfilm="\cf1 , ".html" )\cf3\par
\tab Original_index = \cf5 BetweenStrings\cf3 ( Movie_Title, "alt='", "' />" )\cf1\par
\cf3\tab Annee_index = \cf5 LinesAfter\cf3 ( Movie_Title, 3 , "class=""fs11""")\par
\tab\cf1 Annee_index = \cf5 FormatString\cf1 (\cf5 RemoveHTMLTags\cf1 \cf3 (Annee_Index)\cf1 , \cf3 "WOS"\cf1 )\par
\cf3\tab ReaDe is \cf4 String\cf3 = \cf5 BetweenStrings\cf3 (Movie_Title, "class=""fs11"">", "/fs11 -->")\par
\tab\cf1 //ReaDe = \cf5 StringReplace\cf1 (Movie_Title , \cf4 Charact\cf1 (10) , "")\par
\cf3\tab ReaDe = \cf5 BetweenStrings\cf3 (ReaDe, "
", "br />")\par
\cf1\tab Reade = \cf5 BetweenStrings\cf1 (ReaDe , "de " , "<")\par
\tab Reade = RemoveHTMLTags (Reade)\par
\cf3\tab\cf1 Movie_Title = \cf5 BetweenStrings\cf1 (Movie_Title, "style=""margin" , "
")\par
\tab Movie_Title\cf3 = \cf5 LinesAfter\cf3 (Movie_Title, 1 , "fichefilm_gen_cfilm=")\par
\cf1\tab Movie_Title = \cf5 RemoveHTMLTags\cf1 (\cf5 StringRefine\cf1 (\cf5 FormatString\cf1 (\cf5 FormatString\cf1 (\cf5 FormatString\cf1 (Movie_Title, "WO\cf3 A\cf1 "), "WOS"), "UC")))\par
\par
\cf3\tab\cf1 //Longueur is \cf4 Int \cf1 = \cf5 StringLength\cf1 (Movie_Title)\cf3\par
\tab\cf1 //Lg is \cf4 Int \cf3\par
\cf4\tab\cf1 //\cf4 For\cf1 Lg=1 to Longueur\cf3\par
\tab\cf1 //\tab If PositionOccurrence (Movie_Title , " " , 1) = 1 Then\cf3\par
\tab\cf1 //\tab\tab Movie_Title = StringRight(Movie_Title , Longueur -lg)\par
\cf3\tab\cf1 //\tab End\cf4\par
\cf1\tab //\cf4 End\par
\cf3\par
\cf1\tab\cf4 If\cf3 Annee_index = "\cf1\'04\cf3 " OR Annee_index = "" \cf4 Then\cf3\par
\tab\tab Annee_index = ""\tab\tab\par
\tab\cf4 Else\cf3\par
\tab\tab Annee_index = Annee_index + " - "\par
\tab\cf4 End\par
\cf3\tab\cf4 If\cf3 Original_index = "\cf1\'04\cf3 " \cf4 Then\cf3\par
\tab\tab Original_index = ""\par
\tab\cf4 Else\cf3\par
\tab\tab Original_Index = Original_index + " - "\par
\tab\cf4 End\par
\cf3\tab\cf4 If\cf3 ReaDe = "\cf1\'04\cf3 " OR ReaDe = "" \cf4 Then\cf3\par
\tab\tab ReaDe = ""\par
\tab\cf4 Else\cf3\par
\tab\tab ReaDe = "de " + ReaDe\par
\tab\cf4 End\par
\cf1\tab\cf4 If\cf3 (Annee_index = "") and (Original_index = "") and (ReaDe = "") \cf4 Then\par
\cf3\tab\cf4 Else\cf3\par
\tab\tab\cf1 Movie_Title = \cf5 StringRefine\cf1 (Movie_Title \cf3 + " (" + Original_index + Annee_index + ReaDe + ")")\par
\tab\cf4 End\par
\cf1\tab Movie_Title = RemoveHTMLTags (Movie_Title)\par
\tab Movie_URL = "http://www.allocine.fr/film/fichefilm_gen_cfilm=" + Movie_ID + ".html"\par
\tab\cf4 If\cf1 (Movie_ID = "") OR (Movie_ID = "\'04") OR (Movie_Title = C\cf3 R\cf1 ) OR (Movie_Title = "\'04") \cf4 Then\cf1\par
\tab\tab Goto Pas_Add\par
\tab\cf4 Else\cf1\tab\par
\tab\tab\cf5 AddMovieToList\cf1 (i, Movie_ID, Movie_Title, Movie_URL)\par
\tab\cf4 End\cf1\par
Pas_Add:\par
\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)\par
\par
\cf4 End\cf1\par
\par
// Ouverture de la liste des films trouv\'e9s\par
\cf5 OpenMoviesList\cf1 ()\par
\par
\par
\cf4 If\cf1 \cf2 MovieIDValue\cf1 = "" \cf4 Then\cf1\par
\tab\cf5 UserErrorMessage\cf1 ("Vous n'avez s\'e9lectionn\'e9 aucun film." + CR + CR + "Ou la liste \'e9tait vide ou incompl\'e8te \'e0 cause de votre Firewall.")\par
\tab\cf4 Return\cf1\par
\cf4 End\cf1\par
\par
// MODE DEBUG : Verify URL (must be deactivate in the final version of the script)\par
// ShellExecute("http://www.allocine.fr/film/fichefilm_gen_cfilm=" + Movie_ID + ".html")\par
\par
// Extraction du code Html de la page d\'e9sir\'e9e\par
HtmlCode = \cf5 GetMovie\cf1 (\cf2 MovieURLValue\cf1 ,"", "")\par
\cf4 If\cf1 HtmlCode = "" \cf4 Then\cf1\par
\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9e")\par
\tab\cf4 Return\cf1\par
\cf4 End\cf1\par
\par
\cf3 HtmlCode = UnicodeversAnsi (AnsiVersUnicode (HtmlCode, alphabetUTF8))\par
\par
\cf1 //________________________________________________________________________________________________________________________________________\par
\par
//////////////////////////////////\par
// Version complete ou light ? //\par
//////////////////////////////////\par
\cf4 If\cf3 (VERSION = "") OR (VERSION = "\cf1\'04\cf3 ") \cf4 Then\cf1\par
\cf4\tab If\cf1 YesNo ("Voulez vous utiliser la version COMPLETE d'Allocine ?"+cr +cr +..."\par
\tab\tab\tab "Cette version comprend la recherche des images dans la Galerie Multim\'e9dia ?") \cf4 Then\cf1\par
\tab\tab V_complete = 1\par
\cf4\tab Else\cf1\par
\tab\tab V_complete = 0\par
\cf4\tab End\par
End\cf3\par
\cf1\par
//________________________________________________________________________________________________________________________________________\par
\par
\cf3\par
\cf1\par
// Recuperation des donn\'e9es du film - Annee-Genre-Origine...\par
// Titre\par
// Suppression de l'index "ann\'e9e" et "titre original" dans le titre\par
\cf3 Remove_index = \cf5 BetweenStrings\cf3 (\cf2 MovieTitleValue\cf3 , " (", ")")\cf1\par
\cf2 MovieTitleValue\cf3 = \cf5 StringReplace\cf3 (\cf2 MovieTitleValue\cf3 , " (" + Remove_index + ")", "")\par
\cf1\par
//Suppression de l'article devant le Titre\par
\cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , " " , " ")\par
\cf4 If\cf1 ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 2 ) = "L'" ) OR ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 2 ) = "D'" ) \cf4 Then\cf1 \par
\tab Article2 = \cf5 StringLeft\cf1 (\cf2 MovieTitleValue\cf1 ,2)\par
\tab\cf2 MovieTitleValue\cf1 = \cf5 StringMiddle\cf1 ( \cf2 MovieTitleValue\cf1 , 3 , Length (\cf2 MovieTitleValue\cf1 ) ) + " (" + Article2 + ")"\par
\cf4 End\cf1\par
\cf4 If\cf1 ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 3 ) ="LE ") OR ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 3 ) = "LA ") OR ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 3 ) = "UN ") OR ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 3 ) = "L' ") OR ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 3 ) = "D' ")\cf4 Then\cf1 \par
\tab Article3 = \cf5 StringLeft\cf1 (\cf2 MovieTitleValue\cf1 ,2)\par
\tab\cf2 MovieTitleValue\cf1 = \cf5 StringMiddle\cf1 ( \cf2 MovieTitleValue\cf1 , 4 , Length (\cf2 MovieTitleValue\cf1 ) ) + " (" + Article3 + ")"\par
\cf4 End\cf1\par
\cf4 If\cf1 ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 4 ) ="LES ") OR ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 4 ) = "UNE ") OR ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 4 ) = "DES ") OR ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 4 ) = "THE ") \cf4 Then\cf1 \par
\tab Article4 = \cf5 StringLeft\cf1 (\cf2 MovieTitleValue\cf1 ,3)\par
\tab\cf2 MovieTitleValue\cf1 = \cf5 StringMiddle\cf1 ( \cf2 MovieTitleValue\cf1 , 5 , Length (\cf2 MovieTitleValue\cf1 ) ) + " (" + Article4 + ")"\par
\cf4 End\cf1\par
\par
// Suppression des caracteres joker\par
\cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , "*" , "-")\par
\cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , "?" , "-")\par
\cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , ":" , "-")\par
\cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , """" , "-")\par
\cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , "<" , "-")\par
\cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , ">" , "-")\par
\cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , "|" , "-")\par
\cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , "/" , "-")\par
\cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , "\\" , "-")\par
\cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , "\cf3 &\cf1 " , "\cf3 et\cf1 ")\par
\par
//1ere lettre du titre\par
First_Letter = \cf5 StringLeft\cf1 (\cf2 MovieTitleValue\cf1 , 1)\par
\cf4 If\cf1 (0<=First_Letter<=9) \cf4 Then\cf1\par
\tab First_Letter = "0a9"\par
\cf4 End\cf1\par
\par
// Travail sur Titre Allocine pour la suite\par
MovieTitleAllocineValue is \cf4 String\cf1 = \cf2 MovieTitleValue\par
\cf1\par
\pard\nowidctlpar\fs18 // Elimination des caract\'e8re 00004000 ...\cf3\par
RemoveHTML\cf4 \cf3 = \cf5 StringCounter\cf3 (\cf0 H\cf3 tmlCode, "0000")\par
\cf4 If\cf3 RemoveHTML >= 1 \cf4 Then\par
\cf3\tab RemoveCode = \cf5 StringExtraction\cf3 (\cf0 H\cf3 tmlCode, 2, "0000")\par
\tab RemoveCode = \cf5 StringLeft\cf3 (RemoveCode, 4)\par
\tab\cf0 H\cf3 tmlCode = \cf5 StringReplace\cf3 (HtmlCode, RemoveCode, "1111")\par
\pard\cf4 End\cf3\fs20\par
\pard\nowidctlpar\cf0\fs18 H\cf3 tmlCode = \cf5 StringReplace\cf3 (HtmlCode, "00001111", "")\par
\pard\tab\tab\fs20\par
\cf1 //Titre original //Titre original : The Matrix revolutions
\par
\cf2 MovieOriginalTitleValue\cf1 = \cf5 BetweenStrings\cf1 (HtmlCode, "Titre original :" , "" )\par
\cf2 MovieOriginalTitleValue\cf1 = \cf5 BetweenStrings\cf1 (\cf2 MovieOriginalTitleValue\cf1 , "" , "" )\par
\cf4 If\cf1 \cf2 MovieOriginalTitleValue\cf1 ="\'04" \cf4 Then\cf1\par
\tab\cf2 MovieOriginalTitleValue\cf1 = ""\par
\cf4 End\cf1\par
\par
// Public\par
//HtmlCode = \cf5 StringExtraction\cf1 (HtmlCode, 1, "Synopsis")\par
\cf3 Public_allocine\cf4 \cf3 = \cf5 BetweenStrings\cf3 (HtmlCode, "Interdit aux moins de", " ans")\par
\cf1 //Info("Interdit aux moins de " + Public_allocine + " ans")\cf3\par
\cf1\par
//dur\'e9e a transformer en minutes //Dur\'e9e : 2h 8min.
\par
Tmps = \cf5 BetweenStrings\cf1 (HtmlCode, "Dur\'e9e :", "min" )\par
\cf3 Tmps = \cf5 FormatString\cf3 (Tmps , "WOS")\cf1\par
Heure = \cf5 StringLeft\cf1 (Tmps, 1 )\par
Min = \cf5 StringMiddle\cf1 (Tmps, 3 , Length(Tmps))\par
\cf2 MovieDurationValue\cf1 = \cf5 NumToString\cf1 (\cf5 StringToNum\cf1 (Heure)*60 + \cf5 StringToNum\cf1 (Min))\par
\par
//Origine Pays\par
\cf2 MovieCountryValue\cf1 = \cf5 BetweenStrings\cf1 (HtmlCode, "film/tous/pays", "/\cf3 a>\cf1 ")\par
\cf2 MovieCountryValue\cf1 = \cf5 BetweenStrings\cf1 (\cf2 MovieCountryValue\cf1 , "\cf3 >\cf1 ", "<")\par
//\cf2 MovieCountryValue\cf1 = \cf5 StringMiddle\cf1 (\cf2 MovieCountryValue\cf1 , 2 , Length(\cf2 MovieCountryValue\cf1 ) )\par
\cf2 MovieCountryValue\cf1 = \cf5 FormatString\cf1 (\cf2 MovieCountryValue\cf1 , "1UC")\par
\cf4 If\cf3 \cf2 MovieCountryValue\cf1 = "\'04" \cf4 Then\par
\cf3\tab\cf2 MovieCountryValue\cf1 \cf3 = ""\par
\cf4 End\par
\cf1\par
//Recuperation de l'annee //Ann\'e9e de production : 2002
\par
\cf2 MovieYearValue\cf1 = \cf5 BetweenStrings\cf1 (Htmlcode, \cf3 "\cf1 ?year=" , "'")\par
\cf4 If\cf3 (\cf2 MovieYearValue \cf1 = "\'04")\cf3 \cf4 Then\cf1\par
\cf4\tab\cf2 MovieYearValue\cf1 = \cf5 "\cf3 "\cf4\par
End\cf1\par
\par
//genre //Genre : Science fiction
\par
\cf2 MovieFamilyValue\cf1 = \cf5 BetweenStrings\cf1 (HtmlCode, "Genre :" , "/a>")\par
\cf2 MovieFamilyValue\cf1 = \cf5 BetweenStrings\cf1 (\cf2 MovieFamilyValue\cf1 , "\cf3 /' >"\cf1 , "<\cf3 "\cf1 )\par
\cf2 MovieFamilyValue\cf1 = \cf5 FormatString\cf1 (\cf2 MovieFamilyValue\cf1 , "1UC" )\par
\cf4 If\cf3 \cf2 MovieFamilyValue\cf1 = "\'04" \cf4 Then\par
\cf3\tab\cf2 MovieFamilyValue\cf1 =\cf3 ""\par
\cf4 End\par
\cf1\par
\par
//R\'e9sum\'e9\par
\cf2 MovieSummaryValue\cf1 = \cf5 BetweenStrings\cf1 (H\cf3 tmlCode\cf1 , "Synopsis :" , "\cf1 ")\par
\cf2 MovieSummaryValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieSummaryValue\cf1 ,RC, "")\cf2\par
MovieSummaryValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieSummaryValue\cf1 ,\cf4 Charact\cf1 (13), "")\par
\cf2 MovieSummaryValue\cf1 = RemoveHTMLTags (\cf2 MovieSummaryValue\cf1 )\par
\cf4 If\cf1 \cf2 MovieSummaryValue\cf1 = "\'04" \cf4 Then\par
\cf1\tab\cf2 MovieSummaryValue\cf1 = ""\cf3\par
\cf4 End\cf1\par
\par
// Critiques spectateurs\par
\cf4 If\cf3 PERSO_BLOC <> "0" \cf4 Then\cf1\par
\cf3\tab Critik is \cf4 String\cf3 = \cf5 BetweenStrings\cf3 (HtmlCode, "