{\rtf1\ansi\ansicpg1252\deff0\deflang3084{\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;}
{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\cf1\lang1036\f0\fs20 // DESCRIPTION Avec R\'e9sum\'e9,dur\'e9e,pays,ann\'e9e,genre affiche, acteurs+role,(25) real+scen+compo, liens vers site, trailer et site officiel lorsque dispo\cf2\par
\cf1 // AUTHOR Natouric\par
// LANGUAGE FR ET QC\lang3084\fs18\par
\cf3 MovieDatabaseValue\cf2  = "Cin\'c9motion"\par
\par
\cf1\lang1036\fs20 // verification de la version du script\par
//LastVersion is \cf4 String\cf1  = \cf5 GetPage\cf1 ("http://pixel-infoweb.com/download/shareddoc/FILMS/scripts/versions.html", "" , "" )\par
//\cf4 If\cf1  (LastVersion = "\'04") OR (LastVersion = "")OR \f1 (\f0\fs18 PositionOccurrence(LastVersion,"La page est introuvable",1)>0\f1\fs20 ) \cf4\f0 Then\cf1  \cf2\par
\cf1 //\tab Goto ServerOff\cf2\par
\cf1 //\cf4 End\cf1\par
//LastVersion = \cf5 BetweenStrings\cf1  (LastVersion , "#Cinemotions#" , "#/Cinemotions#")\cf5\par
\cf1 //Currentversion is \cf4 String\cf1  = "2.0"\cf4\par
\cf1 //\cf4 If\cf1  (CurrentVersion <> LastVersion) AND (LastVersion <> "\'04") \cf4 Then\par
\cf1 //\tab DownloadFile ("http://pixel-infoweb.com/download/shareddoc/FILMS/scripts/Cinemotions_v" + LastVersion + ".script", fRepEXE() + "/Scripts" , "Cinemotions_v" + LastVersion + ".script")\cf5\par
\cf1 //\tab UserInformationMessage ("Cinemotions_v" + LastVersion + cr + cr+ ...\cf2\par
\cf1 //\tab\tab\tab\tab\tab "Une mise a jour du script Allocine 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 Return\cf4\par
\cf1 //\cf4 End\par
\cf1 //ServerOff:\cf5\par
\cf1\lang3084\fs18 //\cf2\par
\par
\cf1 ///////////////////////////\par
//Champs de  Myvideosoft///\tab\par
//////////////////////////\cf2\par
\cf1\par
//\cf3 MovieURLValue\cf1  : Adresse URL du film\cf2\par
\cf1 //\cf3 MovieIDValue\cf1  : Identifiant du film sur le site Internet.\cf2\par
\cf1 //\cf3 MovieTitleValue\cf1  : Titre du film.\cf2\par
\cf1 //\cf3 MovieOriginalTitleValue\cf1  : Titre original du film.\cf2\par
\cf1 //\cf3 MovieFamilyValue\cf1  : Genre du film.\cf2\par
\cf1 //\cf3 MovieYearValue\cf1  : Ann\'e9e de r\'e9alisation du film.\cf2\par
\cf1 //\cf3 MovieCountryValue\cf1  : Pays d'origine du film.\cf2\par
\cf1 //\cf3 MovieDurationValue\cf1  : Dur\'e9e du film.\cf2\par
\cf1 //\cf3 MovieColorBWValue\cf1  : Couleur ou NB.\cf2\par
\cf1 //\cf3 MovieSummaryValue\cf1  : R\'e9sum\'e9 du film.\cf2\par
\cf1 //\cf3 MoviePictureValue\cf1  : URL de l'image ou nom du fichier image.\cf2\par
\cf1 //MovieTrailerValue : URL de la Vid\'e9o ou nom du ficheri vid\'e9o.\par
//\cf5 AddMovieDirectors\cf1  (Nom)\cf0\par
\cf1 //\cf5 AddMovieWriters\cf1  (Nom)\cf0\par
\cf1 //\cf5 AddMovieComposers\cf1  (Nom)\cf0\par
\cf1 //\cf5 AddMovieActors\cf1  (Nom, R\'f4le)\par
//______________________________________________________________________________\par
///////////////////////////////\cf2\par
\cf1 // DECLARATION DES VARIABLES //\cf2\par
\cf1 ///////////////////////////////\cf2\par
\cf1 // Entiers\cf2\par
Movies_Number, V_complete, i,r, s,c, NbReal, NbScn, NbAct, NbRole, NbCompo, PasImgAllo, Img_Nb, k, NoBA_COC, PresenceBA_COC, ChoixGall, Place_Article are Int\par
\par
\cf1 // General et codes HTML\cf2\par
HtmlCode, RemoveCode, Movies_Delimiter, Tmps, Heure, Min, YearValue, Sum, BloCouleur, Color1, Color2, 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
\cf1 // Personnalit\'e9s\cf2\par
ListReal, Real1, Realisateur, Scenariste, Scena1, Compositeur, Compo1, ListScn,listcompo, ListAct, Acteur, NomActeur, Role, Prod1, Producteur are \cf4 String\cf2\par
\par
//Images\par
ImgCode, ID_Pict, Pages, Page1, Page2, ImgDelim, ImageID, LienPageImg, ImageNo, ImageGallery, Rep_Img_Gall, PictureFile, HtmlCodeMov are \cf4 String\par
\cf2\par
//PROCEDURE Download Fichier (URL, Dossier, Nom_Fichier)\par
ResAppel is booleen\par
Page_html is \cf4 String\cf2\par
IdFichier, ResEcriture are int\par
\par
\cf1 // Messages d'erreurs (voir suite pour definition detaill\'e9 des message\cf2\par
Message1, Message2, Message3, Message4, Message5, Message6, Message7, Message8 are \cf4 String\cf2\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
\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    //\cf2\par
\cf1 /////////////////////////////////////////////////////////////////////////////////////////////\cf2\par
\par
Rep_Img_Gall = ".\\affiches\\"\par
\par
\cf1 //________________________________________________________________________________________________________________________________________\cf2\par
\par
\cf1 //\'c9tape 1 : cette page liste les films deja sortis avec click sur "plus" de la page cinemotions\par
//g\cf2 et page : \cf1 http://www.cinemotions.com/recherche/matrix.html\par
\cf6\par
\cf1 HtmlCode = \cf5 GetPage\cf1 ("http://www.cinemotions.com/recherche/" ,\cf7 TitleToSearch\cf1 ,".html")\cf2\par
\cf4 If\cf1  HtmlCode = "" \cf4 Then\cf2\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9")\cf2\par
\cf1\tab\cf4 Return\cf2\par
\cf4 End\cf2\par
\cf1 //______________________________________________________\cf2\par
//arborescence g\'e9n\'e9rale du stockage -Generalisation \par
\cf1 Movies_Delimiter = "<table border=""0"" width=""99%"" cellspacing=""1"" cellpadding=""1"" bgcolor=#ffffff>\cf2 "\par
\cf1 //Movies_Delimiter = "<TD valign=middle  align=middle width=""80"">"\par
\cf2\par
Movies_Number = \cf5 StringCounter\cf2 (HtmlCode, \cf1 Movies_Delimiter\cf2 )\par
\par
\cf4 If\cf2  Movies_Number = 0 \cf4 Then\cf2\par
\tab PasFilm:\par
\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 ( c'est peu probable )." + CR + CR + ...\par
\tab\tab\tab\tab "Soit votre FireWall bloque la connexion avec cinemotion " + CR + "Un probl\'e8me avec Norton Internet Security \'e0 \'e9t\'e9 d\'e9t\'e9ct\'e9." + CR + ...\par
\tab\tab\tab\tab "VOICI MA SOLUTION : Antivir (gratuit) et FireWall Sunbelt(gratuit)" + CR+ ... \par
\tab\tab\tab\tab "SI VOUS AVEZ EFFECTUEZ BEAUCOUP DE RECHERCHER VIA LE SITE, CONNECTEZ-VOUS AU SITE DE CIN\'c9MOTION VIA VOTRE NAVIGATEUR" + CR +...\par
\tab\tab\tab\tab "ENTREZ LE CODE AFFICH\'c9 POUR D\'c9VEROUILLER LA NAVIGATION! ILS N'AIMENT PAS PARTAGER LEUR DON\'c9\'c9ES :(.")\par
\tab\cf4 Return\cf2\par
\cf4 End\par
\cf2\par
\cf1 // MODE DEBUG : enlever les deux slash devant Information pour tester la capture du nombre de films \cf2\par
\cf1 //Info("Nombre de films trouv\'e9s = " + Movies_Number)\par
\par
\cf2 TitreOriginal, AnneeFilm, RealisationDe,SommaireActeurs, DetailsSuppl,RemoveDetailsSuppl are \cf4 String\cf2\par
\par
\cf1\par
Movie_ID, Movie_title, Movie_URL are \cf4 String\par
\cf1\par
\cf4 For\cf1  i=2\cf2  \cf1 to Movies_Number \cf2 + 1\cf1\par
Movie_Title =\cf2  \cf5 StringExtraction\cf1 (HtmlCode, i ,Movies_Delimiter \cf2 )\par
\cf1 //\cf6 Trace\cf1 (Movie_title)\cf2\par
\cf1 Movie_ID = \cf5 BetweenStrings \cf1 (M\cf2 ovie_\cf1 Title,\cf2 "modules/Films/fiche/" , "/" \cf1 )\par
\cf2 TitreOriginal = \cf5 BetweenStrings\cf1 (M\cf2 ovie_\cf1 Title,"\cf2 <br><font class=noir>" , "<br><font"\cf1 )\par
TitreOriginal = \cf5 StringReplace\cf1  (TitreOriginal, CR,"")\cf2\par
\cf1 TitreOriginal = \cf5 StringReplace\cf1  (TitreOriginal, "</font>","")\cf2\par
TitreOriginal = \cf5 FormatString\cf2 (TitreOriginal,\cf1  "WOS"\cf2 )\par
TitreOriginal = \cf5 FormatString\cf2  (TitreOriginal, "UC")\par
\cf1 TitreOriginal = RemoveHTMLTags(TitreOriginal)\cf2\par
AnneeFilm = \cf5 BetweenStrings\cf2 (\cf1 Movie_Title\cf2 ,"</font>", "\cf1 <td width=68 align=center>\cf2 ")\par
AnneeFilm = \cf5 BetweenStrings\cf2 (AnneeFilm,"<br><font class=noir>", "\cf1 -\cf2 ")\par
\cf1 AnneeFilm = \cf5 FormatString\cf1 (anneefilm, "WOS")\cf6\par
A\cf2 nneeFilm = "("+\cf6 A\cf2 nneeFilm+")"\par
RealisationDe = \cf5 BetweenStrings \cf1 (M\cf2 ovie_\cf1 Title,"R&eacute;alisation :\cf2 ", ">avec")\par
RealisationDe = \cf5 BetweenStrings \cf1 (\cf2 RealisationDe\cf1 ,"status='\cf2 ", "'; ")\par
RealisationDe\cf1  = \cf5 RemoveHTMLTags \cf2 (RealisationDe)\par
RealisationDe\cf1  = \cf5 FormatString\cf1 (\cf2 RealisationDe\cf1 , "WOS")\par
\cf2 SommaireActeurs = \cf5 BetweenStrings\cf1 (Movie_Title,\cf2 "avec","Correspondance / recherche :&nbsp;")\par
SommaireActeurs = \cf5 RemoveHTMLTags(\cf2 SommaireActeurs)\par
\cf1 SommaireActeurs = \cf5 StringReplace\cf1 (SommaireActeurs\cf2 , CR , ""\cf1 )\par
SommaireActeurs = \cf5 StringReplace\cf1 (SommaireActeurs\cf2 , TAB , ""\cf1 )\par
\cf2 SommaireActeurs = \cf5 FormatString(\cf2 SommaireActeurs,"WOS")\par
DetailsSuppl\cf1  = \cf2 " \cf1 [\cf2 " + \cf6 A\cf2 nneeFilm + " " + \cf1 TitreOriginal + \cf2 " : DE " + RealisationDe \cf1 + " \cf2 avec "+ SommaireActeurs + "]\cf1 "\par
//\cf6 Trace\cf1 (SommaireActeurs)\par
Movie_Title = \cf5 BetweenStrings\cf1 (Movi\cf2 e_\cf1 Title\cf2 ,"modules/Films/fiche/" \cf1 , ".html")\par
Movie_Title = \cf5 BetweenStrings\cf2  \cf1 (Movi\cf2 e_\cf1 Title\cf2 ,"/" \cf1 , ".html")\cf2\par
Movie_Title = \cf5 FormatString\cf2  (Movie_Title, "UC")\par
Movie_Title = \cf5 StringReplace\cf2  (Movie_Title, "-"," ")\par
Movie_Title = \cf5 FormatString\cf2  (Movie_Title, "WOA")\par
\cf1 Movie_Title = RemoveHTMLTags (Movie_Title)\par
Movie_URL = "http://www.cinemotions.com/modules/Films/fiche/" + Movie_ID + ""\par
Movie_Title\cf2  = \cf1 Movie_Title\cf2  + DetailsSuppl\par
\cf4\par
If\cf2  (Movie_ID = "") OR (Movie_ID = "\'04") OR (Movie_Title = CR) OR (Movie_Title = "\'04")\cf4 Then\cf2\par
\tab Goto Pas_Add\par
\cf4 Else\cf2\tab\par
\tab\cf5 AddMovieToList\cf2 (i,Movie_ID,Movie_Title,Movie_URL)\par
\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
\cf1 //\cf6 Trace\cf1 (Movie_ID, Movie_Title, Movie_URL)\cf2\par
\cf4 End\cf2\par
\par
\cf1 // Ouverture de la liste des films trouv\'e9s\cf2\par
\cf5 OpenMoviesList\cf2 ()\par
\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 \'e0 cause de votre 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
\cf1 //\cf6 ShellExecute\cf1 ("<A HREF=""/modules/Films/fiche/=" + Movie_ID + ".html")\cf2\par
\cf1 // Extraction du code Html de la page d\'e9sir\'e9e\cf2\par
HtmlCode = \cf5 GetMovie\cf2 (\cf3 MovieURLValue\cf2 ,"", "")\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\par
\cf2\par
\par
RemoveDetailsSuppl = \cf5 BetweenStrings\cf2 (\cf3 MovieTitleValue\cf2 ,"[","]")\par
\cf3 MovieTitleValue\cf2  = \cf5 StringReplace\cf2 (\cf3 MovieTitleValue\cf2 ,RemoveDetailsSuppl, "")\par
\cf3 MovieTitleValue\cf2  = \cf5 StringReplace\cf2 (\cf3 MovieTitleValue\cf2 ,"[", "")\par
\cf3 MovieTitleValue\cf2  = \cf5 StringReplace\cf2 (\cf3 MovieTitleValue\cf2 ,"]", "")\cf1\par
//\cf6 Trace\cf1 (\cf3 MovieTitleValue\cf1 )\par
\par
//Suppression de l'article devant le Titre\cf2\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
\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  , "/", "")\par
\cf3 MovieTitleValue\cf2  = \cf5 StringReplace\cf2  (\cf3 MovieTitleValue\cf2  , "-", " ")\par
\cf1\par
// Titre\cf2\par
\cf1 //1ere lettre du titre\par
First_Letter = \cf5 StringLeft\cf1  (\cf3 MovieTitleValue\cf1  , 1)\par
\cf4 If\cf1  (0<=First_Letter<=9) \cf4 Then\cf1\par
\tab First_Letter = "0a9"\cf2\par
\cf4 End\par
\cf3 MovieColorBWValue\cf1  = "Couleur\cf2 "\par
\cf4\par
\cf1 //R\'e9sum\'e9\cf2\par
Sum = \cf5 BetweenStrings\cf2  (HtmlCode , "L'histoire de" , "</fieldset>")\par
\cf3 s\cf2 um = \cf5 BetweenStrings\cf2  (Sum , "<font class=""link6"">" , "</font>")\par
\cf3\lang1036\fs20 MovieSummaryValue\cf2  = sum\par
\cf3 MovieSummaryValue\cf1\lang3084\fs18  = \cf5 RemoveHTMLTags\cf2\lang1036\fs20 (\cf3 MovieSummaryValue\cf2 )\lang3084\fs18\par
\cf4 If\cf2  \cf3 MovieSummaryValue\cf2  = "\'04" \cf4 Then\cf2\par
\tab\cf3 MovieSummaryValue\cf2  = ""\par
\cf4 End\cf2\par
\cf1\lang1036\fs20\par
//dur\'e9e a transformer en minutes\par
Tmps\cf4\lang3084\fs18  = \cf5 BetweenStrings\cf4  (HtmlCode, "cinemotions.com/images/genres/titre_horloge.jpg" , "com/images/genres/titre_manote.jpg" )\par
\cf1\lang1036\fs20 Tmps\cf4\lang3084\fs18  = \cf5 BetweenStrings\cf2  \cf4 (\cf1\lang1036\fs20 Tmps\cf4\lang3084\fs18 , "><font class=""link6""><b>\cf2 "\cf4  , "\cf2 </b></font>&nbsp;</TD>\cf4 ")\par
\cf1\lang1036\fs20 Heure = \cf5 StringLeft\cf1 (Tmps, 1 )\par
Min = \cf5 StringMiddle\cf1 (Tmps, 3 , Length(Tmps))\par
\cf3 MovieDurationValue\cf1  = \cf5 NumToString\cf1 (\cf5 StringToNum\cf1 (Heure)*60 + \cf5 StringToNum\cf1 (Min))\par
\lang3084\fs18\par
Genre,\cf2  Genredel, pays, paysdel are \cf4 String\par
\cf2 genre = \cf5 BetweenStrings\cf2  (htmlcode,\cf1 "<div id=""Menu_Boutique"" class=""dropmenudiv_b" ,\cf2  "\cf1 genres/titre_horloge.jpg")\par
genre = \cf5 BetweenStrings\cf1 (genre,"<H1 style=""color:","</TABLE>" )\par
Genre = \cf5 StringReplace\cf1 (Genre, TAB,"")\par
genredel= \cf5 BetweenStrings\cf1 (genre, "<TR valign=""bottom"" style=""height:20;"">" , "/font>")\par
genredel= \cf5 LinesAfter\cf1  (genredel, 2 , "=""2""")\par
Genredel = \cf5 FormatString\cf1 (Genredel,"WOS")\par
Genredel = \cf5 StringReplace\cf1 (Genredel, "/",",")\par
genredel = \cf5 BetweenStrings\cf1 (genredel, "-", "-")\par
Genredel = \cf5 FormatString\cf1 (Genredel,"WOS")\par
\cf2 genredel = \cf5 StringReplace\cf2 (genredel,"Science", "Science-Fiction")\par
GENREDEL = \cf5 RemoveHTMLTags\cf2  (GENREDEL)\cf6\par
\cf3 MovieFamilyValue\cf1 = genrede\cf2 l\par
\cf4 If\cf1  \cf3 MovieFamilyValue\cf1  = "\'04" \cf4 Then\par
\cf1\tab\cf3 MovieFamilyValue\cf1  = ""\cf3\par
\cf4 End\par
\par
\cf1 Pa\cf2 ys = \cf5 BetweenStrings\cf2  (htmlcode,\cf1 "<div id=""Menu_Boutique"" class=""dropmenudiv_b" ,\cf2  "\cf1 genres/titre_horloge.jpg")\par
\cf2 Pays \cf1 = \cf5 BetweenStrings\cf1 (\cf2 pays\cf1 ,"<H1 style=""color:","</TABLE>" )\par
Pays = \cf5 StringReplace\cf1 (pays, TAB,"")\par
P\cf2 ays\cf1 del = \cf5 BetweenStrings\cf1 (P\cf2 ays\cf1 , "<TR valign=""bottom"" style=""height:20;"">" , "/font>")\par
P\cf2 aysdel = \cf5 StringReplace\cf2  \cf1 (p\cf2 aysdel\cf1 , CR,"")\par
Paysdel = \cf5 BetweenStrings\cf1 (Paysdel,"=""2""","\cf2 h\cf1 ")\cf2\par
\cf1 Paysdel = \cf5 StringReplace\cf1  (paysdel," ","")\par
Paysdel = \cf5 StringReplace\cf1 (Paysdel, "/",",")\par
Paysdel = \cf5 EliminateNumbers\cf1 (Paysdel)\par
p\cf2 aysdel = \cf5 BetweenStrings\cf2  (paysdel, ">-", "-")\cf1\par
Paysdel = \cf5 FormatString\cf1 (Paysdel,"WOS")\par
\cf5 p\cf2 aysdel = \cf5 StringReplace\cf2  (paysdel, "Etats","Etats-Unis")\par
\cf5 p\cf2 aysdel = \cf5 StringReplace\cf2  (paysdel, "G.","G.-B.")\par
\cf5 p\cf2 aysDEL = \cf5 RemoveHTMLTags\cf2  (\cf5 p\cf2 aysDEL)\par
\cf3 MovieCountryValue\cf2  = paysdel\cf4\par
If \cf3 MovieCountryValue\cf4  = "\'04" Then\par
\tab\cf3 MovieCountryValue\cf4  = \cf2 ""\cf3\par
\cf4 End\par
\cf1\par
\cf4 //Titre original\par
\cf3 MovieOriginalTitleValue\cf4  = \cf5 BetweenStrings\cf4  (HtmlCode, "<TITLE>" , "</TITLE>" )\par
\cf3 MovieOriginalTitleValue\cf4  = \cf5 BetweenStrings\cf4 (\cf3 MovieOriginalTitleValue\cf4 , "\cf2 [\cf4 " , "\cf2 ]\cf4 " )\par
\cf3 MovieOriginalTitleValue\cf2  = \cf5 FormatString\cf2  (\cf3 MovieOriginalTitleValue\cf2 , "1UC")\cf4\par
If \cf3 MovieOriginalTitleValue\cf4  ="\'04" Then\par
\tab\cf3 MovieOriginalTitleValue\cf4  = \cf3 MovieTitleValue\par
\cf4 End\par
\cf1 //Ann\'e9e\cf4\par
\cf3 MovieYearValue\cf2  \cf4 = \cf5 BetweenStrings\cf4  (HtmlCode, "<TITLE>" , "</TITLE>" )\par
\cf3 MovieYearValue\cf4  = \cf5 BetweenStrings\cf4 (\cf3 MovieYearValue\cf4 , "\cf2 (\cf4 " , "\cf1 )\cf4 " )\par
If \cf3 MovieYearValue\cf4  ="\'04" Then\par
\tab\cf3 MovieYearValue\cf4  = ""\cf2\par
\cf4 End\par
\cf2\par
\cf1 //CASTING\par
\cf2 TechnikU\cf1 RL\cf2  is \cf4 String\cf2  = \cf5 BetweenStrings\cf1 (htmlcode,"\cf2 <div id=""Menu_Distribution"" class=""dropmenudiv_b"">","<div id=""Menu_Media"" class=""dropmenudiv_b"" style=" \cf1 )\cf2\par
\cf1 Technikurl = \cf5 BetweenStrings\cf1  (TechnikURL,"Acteurs</a>","Techniciens</a>")\par
Technikurl\cf2  = \cf5 BetweenStrings\cf2  (\cf1 Technikurl\cf2 ,"<a href=""http://www.","\cf1 /technique.html\cf2 "">")\cf1\par
Technikurl = "http://www." + TechnikURL + "/technique.html"\cf2\par
\cf1 listT\cf2 ech is \cf4 String\cf2  \cf1 = \cf5 GetMovie\cf1 (\cf2 TechnikU\cf1 RL\cf2 ,"",\cf1 "")\cf2\par
\cf1 listt\cf2 ech\cf1  = \cf5 BetweenStrings\cf1 (listt\cf2 ech\cf1 ,"<BODY>","</BODY>")\par
\cf2\par
\cf1 // R\'e9alisateur - utiliser \cf2\par
\cf1 ListReal = \cf5 BetweenStrings\cf1  (listt\cf2 ech\cf1  , "<b>R\'e9alisation</B></font>" , "><b>Ecriture</B></font>")\par
\cf2 NbReal = \cf5 StringCounter\cf2  (ListReal , "/Artistes/fiche/")\par
\cf4 If\cf2  NbReal > 5 \cf4 Then\cf2  NbReal = 5\par
\tab\cf4 For\cf2  r = 2 TO NbReal +1\par
\tab\tab Real1 = \cf5 StringExtraction\cf2  (ListReal , r , "/modules/Artistes/fiche/")\par
\tab\tab Realisateur = \cf5 BetweenStrings\cf2  (\cf1 Real1\cf2 , "/" ,".html")\par
\tab\tab Realisateur = RemoveHTMLTags (Realisateur)\par
\tab\tab Realisateur = \cf5 StringReplace\cf2 (realisateur, "-"," ")\par
\tab\tab\cf4 If\cf2  (Realisateur <> "\'04") AND (Realisateur <> "")\cf4 Then\cf2\par
\tab\tab\tab\cf5 AddMovieDirectors\cf2 (Realisateur)\par
\tab\tab\cf4 End\cf2\par
\cf4 End\cf2\par
\par
\cf1 // Scenariste - utiliser \cf2\par
ListScn = \cf5 BetweenStrings\cf2 (\cf1 listt\cf2 ech, \cf1 "><b>Ecriture</B></font>"\cf2 , "<b>Production</B></font>")\par
NbScn = \cf5 StringCounter\cf2  (ListScn , "modules/Artistes/fiche/")\par
\cf4 If\cf2  NbScn > 5 \cf4 Then\cf2  NbScn = 5\par
\tab\cf4 For\cf2  s = 2 TO NbScn +1\par
\tab\tab Scena1 = \cf5 StringExtraction\cf2  (ListScn , s , "modules/Artistes/fiche/")\par
\tab\tab Scenariste = \cf5 BetweenStrings\cf2  (Scena1, "/", ".html")\par
\tab\tab Scenariste = \cf5 RemoveHTMLTags\cf2 (Scenariste)\par
\tab\tab scenariste = \cf5 StringReplace\cf2 (scenariste, "-"," ")\par
\tab\tab\cf4 If\cf2  (Scenariste <> "\'04") AND (Scenariste <> "") \cf4 Then\cf2\par
\tab\tab\tab\cf5 AddMovieWriters\cf2 (Scenariste)\par
\tab\tab\cf4 End\cf2\par
\cf4 End\par
\cf2\par
\cf1 // Musique - utiliser Compositeur, Compo1, \cf2\par
Listcompo = \cf5 BetweenStrings\cf2 (\cf1 listt\cf2 ech, \cf1 "<b>Musique</B></font>"\cf2 , "<b>Costumes</B></font>")\par
\cf1 //\cf6 Trace\cf1  (listcompo)\cf2\par
Nbcompo = \cf5 StringCounter\cf2  (Listcompo , "modules/Artistes/fiche/")\par
\cf4 If\cf2  Nbcompo > 10 \cf4 Then\cf2  Nbcompo = 10\par
\tab\cf4 For\cf2  c = 2 TO Nbcompo +1\par
\tab\tab Compo1 = \cf5 StringExtraction\cf2  (Listcompo , c , "modules/Artistes/fiche/")\par
\tab\tab Compositeur = \cf5 BetweenStrings\cf2  (Compo1, "/", ".html")\par
\tab\tab Compositeur = \cf5 RemoveHTMLTags\cf2 (Compositeur)\par
\tab\tab compositeur = \cf5 StringReplace\cf2 (compositeur,"-"," ")\par
\tab\tab\cf4 If\cf2  (Compositeur <> "\'04") AND (Compositeur <> "") \cf4 Then\cf2\par
\tab\tab\tab\cf5 AddMovieComposers\cf2 (Compositeur)\par
\tab\tab\cf4 End\cf2\par
\cf4 End\cf2\par
\cf4\par
\cf1\lang1036\fs20 //recuperation du lien pour la Bande Annonce\par
\cf2\lang3084\fs18 Trailerurl, TrailerUrlId are \cf4 String\par
\cf2 Trailerurl= \cf5 GetMovie\cf2 (\cf3 MovieURLValue\cf2 ,"", "")\par
Trailerurl = \cf5 BetweenStrings\cf2 (Trailerurl, "En savoir plus sur ", "tous les titres")\par
TrailerUrlID = \cf5 BetweenStrings\cf2 (Trailerurl, "/video/", """><IMG SRC=""http://www.extra")\par
\cf1 //\cf6 Trace\cf1 (trailerUrlId)\cf2\par
Scraptoremove is \cf4 String\cf2  \par
scraptoremove = \cf5 StringExtraction\cf2  (TrailerUrlID, 2, """")\par
\lang1036\fs20 TrailerURLvalue is \cf4 String\cf2  = \cf5 StringReplace\cf2 (TrailerURLID, scraptoremove ,"")\par
TrailerURLvalue = \cf5 RemoveHTMLTags\cf2 (TrailerURLvalue)\cf6\par
\cf1 //\cf6 Trace\cf1 (scraptoremove)\par
MovieTrailerValue = "\lang3084\fs18 http://www.cinemotions.com/media/video/\lang1036\fs20 " + \cf2 TrailerURLvalue\cf1\lang3084\fs18\par
\cf2\par
\cf4 If\cf2  TrailerUrlID = "\'04" \cf4 Then\cf2\par
\tab\tab\tab\cf3\lang1036\fs20 MovieTrailerValue\cf2\lang3084\fs18  = ""\par
\tab\tab\cf4 End\cf1\par
\cf2\par
\cf1 //Site Officiel : <a href="http://www.oceans13-lefilm.com/" target=SiteOff class=link10><b>www\par
\cf2 CastingU\cf1 RL\cf2  is \cf4 String\cf2  = \cf5 BetweenStrings\cf1 (htmlcode,"\cf2 <div id=""Menu_Distribution"" class=""dropmenudiv_b"">","<div id=""Menu_Media"" class=""dropmenudiv_b"" style=" \cf1 )\cf2\par
Castingurl = \cf5 BetweenStrings\cf2  (castingURL,"<a href=""http://www.","/artistique.html"">")\cf1\par
\cf2 castingurl = "http://www." + castingurl + "/artistique.html"\cf1\par
listact= \cf5 GetMovie\cf1 (c\cf2 astingurl,"",\cf1 "")\cf2\par
\cf1 listact = \cf5 BetweenStrings\cf1 (listact,"<BODY>","</BODY>")\cf2\par
ListAct = \cf5 BetweenStrings\cf2 (listact, "Distribution Artistique de " , "<font class=""link9"">Fiche cr")\par
NbAct = \cf5 StringCounter\cf2  (ListAct ,"modules/Artistes/fiche/")\par
\cf4 If\cf2  NbAct > 25 \cf4 Then\cf2  NbAct = 25\par
\tab\cf4 For\cf2  i = 2 TO NbAct +1\par
\tab\tab Acteur = \cf5 StringExtraction\cf2  (ListAct , i , "modules/Artistes/fiche")\par
\tab\tab NomActeur = \cf5 BetweenStrings\cf2  (Acteur ,"=""window.status=''"">", "</A>")\par
\cf4\tab\cf2\tab Role = \cf5 BetweenStrings\cf2  (Acteur,"arial"" size=""2"">", "</font>")\par
\tab\tab\cf4 If\cf2  RECUP_ROLES<> "0" \cf4 Then\cf2\par
\tab\tab\cf4 End\cf2\par
\tab\tab NomActeur = RemoveHTMLTags (NomActeur)\par
\tab\tab\cf4 If\cf2  NomActeur = "\'04" \cf4 Then\cf2\par
\tab\tab\tab NomActeur = ""\par
\tab\tab\cf4 End\cf2\par
\tab\tab\cf4 If\cf2  role = "\'04" \cf4 Then\cf2\par
\tab\tab\tab role = ""\par
\tab\tab\cf4 End\cf2\par
\tab\cf5 AddMovieActors\cf2  (NomActeur , role)\par
\cf4 End\par
\cf2\par
\cf1 //ImgURL pour trouver l'adresse du lien \cf2 de laffiche\par
\cf1 Img\cf2 URL \cf1 is \cf4 String\cf1  = \cf5 BetweenStrings\cf1  (\cf2 HtmlCode,\cf1  "\cf2 L'AFFICHE</h1>&nbsp;\cf1 " , "\cf2 ="""" border=""0"" height=""200"" width=""150"">")\par
\cf1 ImgURL = \cf5 BetweenStrings\cf1  (ImgURL, "<A HREF=""http://www.cinemotions.com/modules/Films/fiche/" , "html""><IMG ")\cf2\par
\cf1 ImgCode = "http://www.cinemotions.com/modules/Films/fiche/"+ ImgURL \cf2 + \cf1 "\cf2 " +"\cf1 .html"\par
I\cf2 mgPage is \cf4 String \cf2 = \cf5 GetMovie\cf2 (imgcode,"","")\par
Imgpage = \cf5 BetweenStrings\cf2 (ImgPage, "<A name=""artistique"">","Tous droits r\'e9serv\'e9s</font><br")\cf1\par
ID_Pict = \cf5 BetweenStrings\cf1 (\cf2 ImgPage\cf1  , "www.cinemotions.net/data/films/" , ".jpg")\par
\cf3 MoviePictureValue\cf1  = "http://www.cinemotions.net/data/films/"\cf2 +id_pict+\cf1 ".jpg"\par
\par
//site officiel du film\cf2\par
Adresse,\cf1  adresseurl, adresseurlid\cf2  \cf1 are\cf2  \cf4 String\cf2\par
nb_ad, u are int\cf1\par
\cf2 siteof = \cf5 GetMovie\cf2 (\cf3 MovieURLValue\cf2 ,"" ,"")\cf1\par
\cf2 SiteOf = \cf5 BetweenStrings\cf1 (s\cf2 iteof\cf1 ,"<b>En savoir plus sur", "tous les titres&nbsp;</b>" )\cf2\par
Nb_Ad = \cf5 StringCounter\cf2  (SiteOf,"Site Officiel")\par
\cf4 For\cf2  u = 2 to Nb_Ad+1\par
\tab Adresse = \cf5 StringExtraction\cf2  (SiteOf , u , "\cf1 Site Officiel\cf2 ")\par
\tab adresse = \cf5 BetweenStrings\cf2 (adresse,\cf1 "<a href=""\cf2 ", "</b></a><br>")\par
\cf1\tab\cf2 adresseurlid\cf1  = \cf5 BetweenStrings\cf1  (adresse,\cf2 "\cf1 http://", "target=")\par
\cf2\tab adresseurlid = \cf5 StringReplace\cf2 (adresseurlid,"""","")\cf1\par
//\cf6 Trace\cf1 (adresse)\par
//Info(adresseurlid)\par
\tab Adresseurl = "http://" + adresseurlid\cf2\par
\cf4 If\cf2  Adresse <> "\'04" \cf4 Then\cf2\par
\tab AddElementToGallery (u, "WEBPAGE" , Adresseurl)\par
\cf4 End\cf2\par
\cf4 End\par
\cf2\par
\cf1 //VERIFICATION DES TITRE REP\'c9TORI\'c9S SUR LE SITE\par
\cf2 TitreT\cf1 ous\cf2 index ,Titre\cf1 Tous\cf2 value are \cf4 String\cf2  \par
\par
TitreT\cf1 ous\cf2 index = \cf5 GetMovie\cf2 (\cf3 MovieURLValue\cf2 ,"" ,"")\par
\cf1 Titre\cf2 TousV\cf1 alue = \cf5 StringExtraction\cf1 (TitreTousindex, 2, "tous les titres")\par
Titre\cf2 TousV\cf1 alue =  \cf5 BetweenStrings\cf1 (TitreTousvalue, "</b></font></legend>\cf2 "\cf1 , "TD align=""center"">")\par
\cf2 T\cf1 itreT\cf2 ousV\cf1 alue = \cf5 RemoveHTMLTags\cf2  (\cf1 TitreTousvalue\cf2 )\par
T\cf1 i\cf2 treTous\cf1 Value\cf2  = \cf5 StringReplace\cf2 (T\cf1 i\cf2 treTous\cf1 Value\cf2 ,"\cf1 (titre original\cf2 )","\cf1 "\cf2 )\par
T\cf1 i\cf2 treTous\cf1 Value\cf2  = \cf5 StringReplace\cf2 (T\cf1 i\cf2 treTous\cf1 Value\cf2 ,"\cf1 (premier titre)\cf2 ","\cf1 "\cf2 )\par
T\cf1 i\cf2 treTous\cf1 Value\cf2  = \cf5 StringReplace\cf2 (T\cf1 i\cf2 treTous\cf1 Value\cf2 ,"(titre DVD)","\cf1 "\cf2 )\par
T\cf1 itreT\cf2 ousV\cf1 alue =\cf2  \cf5 StringReplace\cf2 (T\cf1 i\cf2 treTous\cf1 Value\cf2 , TAB, "")\par
\cf1 T\cf2 itreTousValue = \cf5 StringReplace\cf2 (T\cf1 i\cf2 treTousValue,CR, "")\par
\cf1 T\cf2 itreTousValue = \cf5 StringReplace\cf2 (T\cf1 i\cf2 treTous\cf1 Value\cf2 ,")",")"+CR)\par
T\cf1 i\cf2 treTous\cf1 Value\cf2  = \cf5 StringReplace\cf2 (T\cf1 i\cf2 treTous\cf1 Value\cf2 ,"\cf1 &nbsp;\cf2 ","\cf1 "\cf2 )\par
T\cf1 i\cf2 treTous\cf1 Value = \cf5 StringReplace\cf1 (TitreTousValue,"Soci&eacute;t&eacute;s",\cf2  "\cf5 Soci\'e9t\'e9s\cf2 "\cf1 )\cf2\par
\cf4\par
If\cf2  T\cf1 i\cf2 treTous\cf1 Value\cf2  = "" \cf4 Then\cf2\par
\tab\cf4 Goto\cf2  pasautretitretrouve\par
\cf4\tab Else\cf2  \par
\cf5\lang1036\fs20 UserInformationMessage \cf1 (\lang3084\fs18 "Les titres r\cf2 e\cf1 trouv\'e9s p\cf2 ar pays sur le site \cf1 sont list\'e9\cf2 s\cf1  ci-dessous :\cf2 " +cr+\cf1  CR+.\cf2 ..\par
\cf1 Titretousvalue)\cf2\par
\cf4 End\par
\cf2\par
pasautretitretrouve:\par
\cf1\par
\cf2\par
\cf1 //Cr\'e9ation de la fiche\cf2\par
\cf1 CreateMovie()\cf2\par
\cf1\par
//__________________________________________________________________________________________________________________________\par
\cf4\lang1036\fs20 If\cf2  GESTION_ERREUR <> "0" \cf4 Then\cf1\par
\cf4\tab If\cf1  (\cf3 MoviePictureValue\cf1  = "\lang3084\fs18 http://www.cinemotions.net/data/films/\lang1036\fs20\'04.jpg") OR (\cf3 MoviePictureValue\cf1  =  "") \cf4 Then\cf1  \par
\tab\tab message1 = "- Aucune jaquette Grand Format pour ce film - d\'e9sol\'e9"\par
\tab\tab\cf3 MoviePictureValue\cf1  = ""\par
\cf4\tab Else\cf1\par
\tab\tab message1 = "- Image = OK"\par
\cf4\tab End\cf1\par
\tab\par
\cf2\tab\cf4 If\cf1  (\cf3 MovieDurationValue\cf1  = "0") OR (\cf3 MovieDurationValue\cf1  = "") OR (\cf3 MovieDurationValue\cf1  = "\'04")\cf4 Then\cf1\par
\tab\tab message2 = "- Aucune dur\'e9e pour ce film - d\'e9sol\'e9 "\par
\tab\tab\cf3 MovieDurationValue\cf1  = ""\par
\cf4\tab Else\cf1\par
\tab\tab message2 = "- Dur\'e9e = OK"\tab\par
\cf4\tab End\cf1\par
\par
\cf4\tab If\cf1  (\cf3 MovieYearValue\cf1  = "\'04") OR (\cf3 MovieYearValue\cf1  = "") \cf4 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
\cf4\tab Else\cf1\par
\tab\tab message4 = "- Ann\'e9e = OK"\par
\cf4\tab End\cf1\par
\par
\cf4\tab If\cf1  (\cf3 MovieSummaryValue\cf1  = "\'04") OR (\cf3 MovieSummaryValue\cf1  = "") \cf4 Then\cf1\par
\tab\tab message5 = "- Aucun r\'e9sum\'e9 pour ce film - d\'e9sol\'e9"\par
\tab\tab\cf3 MovieSummaryValue\cf1  = ""\par
\cf4\tab Else\cf1\par
\tab\tab message5 = "- R\'e9sum\'e9 = OK"\par
\cf4\tab End\cf1\par
\par
\cf4\tab If\cf1  (\cf3 MovieFamilyValue\cf1  = "\'04") OR (\cf3 MovieFamilyValue\cf1  = "") \cf4 Then\cf1\par
\tab\tab message6 = "- Aucun Genre pour ce film - d\'e9sol\'e9"\par
\tab\tab\cf3 MovieFamilyValue\cf1  = ""\par
\cf4\tab Else\cf1\par
\tab\tab message6 = "- Genre = OK"\par
\cf4\tab End\cf1\par
\par
\cf4\tab If\cf1  (\cf3 MovieCountryValue\cf1  = "\'04") OR (\cf3 MovieCountryValue\cf1  = "") \cf4 Then\cf1\par
\tab\tab message7 = "- Aucun pays pour ce film - d\'e9sol\'e9"\par
\tab\tab\cf3 MovieCountryValue\cf1  = ""\par
\cf4\tab Else\cf1\par
\tab\tab message7 = "- Pays = OK"\par
\cf4\tab End\cf1\par
\tab\par
\cf4\tab If\cf1  (\cf3 MovieColorBWValue\cf1  <> "Couleur") AND (\cf3 MovieColorBWValue\cf1  <> "NB") \cf4 Then\cf1  \par
\tab\tab message8 = "- Couleur ou  N-B n'a pas \'e9t\'e9 renseign\'e9."\par
\cf4\tab Else\cf1\par
\tab\tab message8 = "- Couleur = OK"\par
\cf4\tab End\par
\cf1\par
\tab\cf5 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 , alors recommencez sans votre Firewall.")\par
\cf4 End\par
\cf2\lang3084\fs18\par
\par
\cf0\lang1036\par
\par
}