{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\froman\fprq2\fcharset0 Times New Roman;}{\f2\fnil\fcharset0 MS Shell Dlg;}{\f3\fswiss\fprq2\fcharset0 Arial;}}
{\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.1503;}\viewkind4\uc1\pard\cf1\f0\fs20 // DESCRIPTION Script pour Cin\'e9fil.com - avec Grandes images - Bande-annonces - pas de Genre\par
\lang1033 // AUTHOR JUIN J\'e9r\'f4me\par
// LANGUAGE FR\cf2\par
\cf3\par
\cf2 MovieDatabaseValue\cf3  = "Cinefil"\par
\cf4\lang1036 If\cf1  param.version_texte+"."+param.release_texte<6.08 \cf4 Then\cf1\par
\tab\cf5 UserErrorMessage\cf1 ("Veuillez installer la version 6.08 ou sup\'e9rieure. Merci.")\par
\tab\cf4 Return\cf1\par
\cf4 End\cf1\par
\cf3\par
\cf1 // verification de la version du script\par
L\cf3 ast\cf1 V\cf3 ersion is \cf4 String\cf1  = \cf5 GetPage\cf1 ("h\cf3 ttp:\cf1 //www.pixel-infoweb.com/download/shareddoc/FILMS/scripts/versions.html", "" , "" )\par
\cf4 If\cf3  (LastVersion = \cf1 "\'04")\cf3  OR (LastVersion = \cf1 "")\cf3 OR \f1 (\cf5\f0\fs18 PositionOccurrence\cf3 (LastVersion,"La page est introuvable",1)>0\f1\fs20 ) \cf4\f0 Then\cf3  \par
\tab\cf4 Goto \cf3 ServerOff\par
\cf4 End\cf1\par
L\cf3 ast\cf1 V\cf3 ersion = \cf5 BetweenStrings\cf3  (LastVersion , "\cf5 #c\cf3 inefil\cf5 #" \cf3 , "\cf5 #/c\cf3 inefil\cf5 #"\cf3 )\cf5\par
\cf4 C\cf3 urrentversion is \cf4 String\cf3  = "1.2A"\cf4\par
If\cf3  CurrentVersion <> LastVersion \cf4 Then\par
\cf3\tab\cf1 DownloadFile ("\cf3 http://www.myvideosoft.com/download/shareddoc/FILMS/scripts/Cinefil_V" + LastVersion + ".script"\cf1 , f\cf3 RepEXE() + "/Scripts"\cf1  , "\cf3 Cinefil_V" + LastVersion + ".script"\cf1 )\cf5\par
\tab UserInformationMessage\cf3  ("Cinefil V" + LastVersion + cr + cr+ ...\par
\tab\tab\tab\tab\tab "Une mise a jour du script Cinefil vient d'\'eatre rapatri\'e9e." + cr+...\par
\tab\tab\tab\tab\tab "T\'e9lechargez vos fiches avec celle-ci. Merci")\par
\tab\cf4 Return\par
End\cf3\lang1033\par
ServerOff:\par
\par
\cf1\lang1036\f2 //___________________________________________________________________________________________________________________________________________________________________________\cf3\lang2057\f0\par
\cf1\lang1033 //***************************//\par
// DECLARATION DES VARIABLES //\cf3\par
\cf1 //***************************//\par
\cf4\lang1036\f2 C\cf3 ode1, code2, \cf4 C\cf3 odePage, \cf4 C\cf3 ast\cf4   \cf3 are\cf4  Boolean\cf1\lang1033\f0\par
\cf3 HtmlCode1, HtmlCode2, HtmlCode,Movies_Delimiter,Movie_ID, Movie_Title, Movie_URL, \cf1\lang1036 HtmlCodeMov\cf3\lang1033  are \cf4 String\par
\cf1\lang1036 Article2\cf3 , Article3, Article4 are \cf4 String\par
\cf1\fs18 InfoTech,\cf3  MessagePays, ChaineDuree, \cf1\fs20 Heure\cf3 , \cf1 Min,\cf3  \cf1\fs18 Picture, \fs20 Picture_File\fs18  \cf3 are\cf1  \cf4 String\cf3\par
\cf1\fs20 L\cf3 istDirector, \cf1 Directors\cf3 , NomDirect, \lang2057 ListAct, Acteur, NomActeur, role, \lang1036\f2 Casting \f0 are \cf4 String\par
\cf2\fs18 B\cf3 AMpegHQ, BAMpeg, \cf2 B\cf3 AWmv, \cf2 B\cf3 ARp are \cf4 String\cf3\lang1033\fs20\par
\cf1 Movies_Number,\cf3  i, k, \cf1\lang1036 N\cf3 b_direct, \lang2057 NbAct\cf1\lang1033  \cf3 are\cf1  \cf4 Int\par
\cf1\lang1036\f2 //___________________________________________________________________________________________________________________________________________________________________________\cf3\lang2057\f0\par
\lang1033\par
\cf1\lang1036 // Extraction du code HTML de la page de recherche\cf3\par
\cf4\f2 C\cf3 ode1\cf4  = HTTPRequ\'eate("\cf5\ul http://www.cinefil.com/cinefil2005/CFM_Recherches/filmsGRIS.cfm?pages=\cf3 1\cf5 &lachaine2=\cf4\ulnone " \cf3 + \cf6 TitleToSearch\cf4 )\cf3\par
\cf4 If C\cf3 ode1\cf4  = Vrai Then\cf3\par
\tab\cf4 H\cf3 tmlCode1= \cf4 HTTPDonneR\'e9sultat()\par
\lang1033\f0 End\cf3\par
\cf4\lang1036\f2 C\cf3 ode2\cf4  = HTTPRequ\'eate("\cf5\ul http://www.cinefil.com/cinefil2005/CFM_Recherches/filmsGRIS.cfm?pages=\cf3 2\cf5 &lachaine2=\cf4\ulnone " \cf3 + \cf6 TitleToSearch\cf4 )\cf3\par
\cf4 If C\cf3 ode2\cf4  = Vrai Then\cf3\par
\tab\cf4 H\cf3 tmlCode2 = \cf4 HTTPDonneR\'e9sultat()\par
\lang1033\f0 End\cf1\par
\cf3\par
\cf1 // Concatener les 2pages de recherche\par
\cf3 HtmlCode = HtmlCode1 + HtmlCode2\cf1\par
\cf4\lang1036 If\cf1  HtmlCode = "" \cf4 Then\cf3\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9")\cf3\par
\cf1\tab\cf4 Return\cf3\par
\cf4 End\par
\par
\cf3\lang2057 HtmlCode = replace (HtmlCode , "<b>" , "<B>")\par
HtmlCode = replace (HtmlCode , "</b>" , "</B>")\par
HtmlCode = replace (HtmlCode , "<a>" , "<A>")\par
HtmlCode = replace (HtmlCode , "</a>" , "</A>")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\'ae\lang2057 " , "\lang1033\'ee\lang2057 ")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\'a9\lang2057 " , "\'e9")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\'a8\lang2057 " , "\'e8")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\'aa\lang2057 " , "\'e8")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\'b4\lang2057 " , "\'f4")\cf1\lang1033\par
\cf3\lang2057 HtmlCode = replace (HtmlCode , "\lang1033\'c3\lang2057 " , "\'e0")\cf1\lang1033\par
//Recherche des films dans ce code\par
\cf3\par
Movies_Delimiter = "/fichefilm.cfm?ref=\f3 "\f0\par
\cf1 Movies_Number\cf4  \cf1 = \cf5 StringCounter\cf1 (\cf3 HtmlCode\cf1 , Movies_Delimiter)\cf3\par
\cf4\lang1036 If\cf1  Movies_Number = 0 \cf4 Then\cf3\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("\cf3 Aucun film trouv\'e9 , ou alors votre FireWall bloque les r\'e9sultats")\cf1\par
\cf4\tab Return\par
End\cf3\lang1033\par
\par
\cf4 For\cf3  i=2 to Movies_Number + 1\par
\cf0\tab Movie_Title = Movies_Delimiter\cf3  \cf0 +  \cf5 StringExtraction\cf0  ( \cf1 HtmlCode\cf0 , i ,Movies_Delimiter )\tab\par
\tab Movie_ID = \cf5 BetweenStrings\cf0  ( Movie_Title , M\cf3 ovies_Delimiter\cf0  , "'\cf3  TITLE\cf0 " )\cf3\tab\par
\cf0\tab\cf3 Movie_Title = \cf5 BetweenStrings\cf3 (Movie_Title, "TITLE=""" , """>")\par
\tab Movie_Title = \cf5 StringRefine\cf3 (Movie_Title)\par
\tab Movie_Title = \cf5 FormatString\cf3  (Movie_Title, "UC")\par
\tab Movie_Title = \cf5 RemoveHTMLTags\cf3  (Movie_Title)\par
\tab\cf1 Movie_URL = "http://www.cinefil.com/\cf3 cinefil2005\cf1 /FicheFilm.cfm?ref=" + \cf2 Movie_ID\cf3\par
\tab\cf5 AddMovieToList\cf1 (i, Movie_ID, Movie_Title,\cf3  \cf1 Movie_URL)\par
\lang1036 //\tab Trace(Movie_ID, Movie_Title, Movie_URL)\cf3\lang1033\par
\cf4 End\par
\cf3\lang1036\fs18\par
\cf1 // Ouverture de la liste des films trouv\'e9s\par
\cf5\lang1033 OpenMoviesList\cf1 ()\cf3\par
\cf4\fs20 If\cf1  \cf2 MovieIDValue\cf1  = "" \cf4 Then\cf3\par
\cf1\tab\cf5\lang1036 UserErrorMessage\cf1 ("Vous n'avez s\'e9lectionn\'e9 aucun film")\cf3\par
\cf1\tab\cf4\lang1033 Return\cf3\par
\cf4 End\par
\cf3\lang1036\par
\par
\cf1 // Extraction du code Html de la page d\'e9sir\'e9e seulement pour le cas ou il existe une liste de films\cf3\par
\cf4\f2 C\cf3 odePage\cf4  = HTTPRequ\'eate\cf3  (\cf2 MovieURLValue\cf4 )\cf3\par
\cf4 If C\cf3 odePage\cf4  = Vrai Then\cf3\par
\tab\cf4 H\cf3 tmlCode = \cf4 HTTPDonneR\'e9sultat()\par
\f0 Else\cf3\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9")\par
\cf3\tab\cf4 Return\cf3\par
\cf4\lang1033 End\par
\cf3\par
\lang2057 HtmlCode = replace (HtmlCode , "<b>" , "<B>")\par
HtmlCode = replace (HtmlCode , "</b>" , "</B>")\par
HtmlCode = replace (HtmlCode , "<a>" , "<A>")\par
HtmlCode = replace (HtmlCode , "</a>" , "</A>")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\'ae\lang2057 " , "\lang1033\'ee\lang2057 ")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\'a9\lang2057 " , "\'e9")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\'a8\lang2057 " , "\'e8")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\'aa\lang2057 " , "\'e8")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\'b4\lang2057 " , "\'f4")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\lang2057 " , "\'e0")\lang1033\par
\par
\cf1\lang1036\fs18 // Titre du film en francais\cf3\par
\cf2 MovieTitleValue\cf3  = \cf5\lang1033\fs20 BetweenStrings\cf3  (HtmlCode,"rouge16""><B>" , "</B>")\par
\cf2\lang1036\fs18 MovieTitleValue\cf1\lang1033\fs20  = \cf5 FormatString\cf1  (\cf2\lang1036\fs18 MovieTitleValue\cf1\lang1033\fs20 , "WOA")\cf3\par
\cf2\lang1036\fs18 MovieTitleValue\cf1\lang1033\fs20  = \cf5 FormatString\cf1  (\cf2\lang1036\fs18 MovieTitleValue\cf1\lang1033\fs20 , "UC")\par
\cf3\par
\cf1\lang1036 //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\cf3\lang1033\par
\par
\cf4\lang1036\fs18 If\cf3  \cf2 MovieTitleValue =\cf3  "\cf1\'04"\cf3  \cf4 Then\cf3\par
\tab\cf2 MovieTitleValue\cf3  = Movie_Title\par
\cf4 End\cf3\par
\par
\cf1 // Titre original\par
\cf2 MovieOriginalTitleValue\cf3  = \cf5 BetweenStrings\cf3  (HtmlCode , "Titre original : " , "</B>" )\par
\cf2 MovieOriginalTitleValue\cf3  = \cf5 RemoveHTMLTags\cf3  (\cf2 MovieOriginalTitleValue\cf3 )\par
\cf2 MovieOriginalTitleValue\cf3  = \cf5 StringMiddle\cf3  (\cf2 MovieOriginalTitleValue\cf3  , 2 , Length(\cf2 MovieOriginalTitleValue\cf3 ) )\cf4\par
If\cf1  \cf2 MovieOriginalTitleValue\cf1  = "\'04" \cf4 Then\cf3\par
\cf1\tab\cf2 MovieOriginalTitleValue\cf1  = ""\cf3\par
\cf4 End\cf3\par
\par
\par
\cf1 // R\'e9sum\'e9\par
\cf2 MovieSummaryValue\cf1  = \cf5 BetweenStrings\cf1  (HtmlCode , "Description"" CONTENT="\cf3 "\cf1 " , """>")\cf3\par
\cf2 MovieSummaryValue\cf1  = RemoveHTMLTags (\cf2 MovieSummaryValue\cf1 )\par
\cf3\par
\cf1 // recuperation des donn\'e9es techniques\cf3\par
\cf1 InfoTech = \cf5 BetweenStrings\cf1  (HtmlCode , "Cinefil/DrapeauxPa" , "\cf3 rouge16"">\cf1 ")\cf3\par
\cf7 Info\cf3 Tech = replace (\cf7 Info\cf3 Tech , "&nbsp;" , "-")\par
\par
\cf1 // Pays\cf3\par
\cf2 MovieCountryValue\cf3  = \cf5 BetweenStrings\cf3  (\cf7 Info\cf3 tech ,"\cf1 ys/"\cf3  , ".gif'")\cf1  \par
\cf2 MovieCountryValue\cf3  = \cf5 FormatString\cf3  (\cf2 MovieCountryValue\cf3  ,"1UC")\cf4\par
If\cf3  \cf2 MovieCountryValue\cf3  =\cf2  \cf3 "\cf1\'04"\cf3  \cf4 Then\cf3\par
\tab MessagePays = "Desol\'e9 mais le pays d'origine n'a pas \'e9t\'e9 trouv\'e9"\par
\tab\cf2 MovieCountryValue\cf3  = ""\par
\cf4 End\par
\cf3\par
\cf1 //Ann\'e9e\par
\cf2 MovieYearValue\cf3  = \cf5 BetweenStrings\cf3  (\cf7 Info\cf3 Tech , "\cf1 smallnoir"">--\cf3 " , "- <" )\cf1\par
\par
// Duree\par
\cf3 ChaineDuree = \cf5 BetweenStrings\cf3  (\cf7 Info\cf3 Tech, "- <font class=""smallnoir"">--" , "-")\par
\cf1\fs20 Heure = \cf5 StringLeft\cf3 (ChaineDuree ,1 )\par
\cf1 Min = \cf5 StringMiddle\cf1 (C\cf3 haineDuree\cf1 , \cf3 3\cf1  , \cf3 Length(\fs18 ChaineDuree\fs20 )\cf1 )\cf3\par
\cf2 MovieDurationValue\cf1  = \cf5 NumToString\cf1 (\cf5 StringToNum\cf1 (Heure)*60 + \cf5 StringToNum\cf1 (Min))\fs18\par
\cf3\par
\cf1 // Genre : Plutot compliqu\'e9 a trouver\par
\cf3\par
a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12 are \cf1 Int\par
\cf3 a1 = \cf5 StringCounter\cf3  (HtmlCode , "action")\par
a2 = \cf5 StringCounter\cf3  (HtmlCode , "animation")\par
a3 = \cf5 StringCounter\cf3  (HtmlCode , "aventures")\par
a4 = \cf5 StringCounter\cf3  (HtmlCode , "com\'e9die")\par
a5 = \cf5 StringCounter\cf3  (HtmlCode , "dessin anim\'e9")\par
a6 = \cf5 StringCounter\cf3  (HtmlCode , "Dramatique")\par
a7 = \cf5 StringCounter\cf3  (HtmlCode , "fantastique")\par
a8 = \cf5 StringCounter\cf3  (HtmlCode , "guerre")\par
a9 = \cf5 StringCounter\cf3  (HtmlCode , "grand spectacle")\par
a10 = \cf5 StringCounter\cf3  (HtmlCode , "science fiction")\par
a11 = \cf5 StringCounter\cf3  (HtmlCode , "thriller")\par
a12 = \cf5 StringCounter\cf3  (HtmlCode , "western")\par
\par
\cf4 If\cf3  a1 <> 0 \cf4 Then\cf3\par
\tab\cf2 MovieFamilyValue\cf3  = "Action"\par
\cf4 End\cf3\par
\cf4 If\cf3  a2 <> 0 \cf4 Then\cf3\par
\tab\cf2 MovieFamilyValue\cf3  = "Animation"\par
\cf4 End\cf3\par
\cf4 If\cf3  a3 <> 0 \cf4 Then\cf3\par
\tab\cf2 MovieFamilyValue\cf3  = "Aventures"\par
\cf4 End\cf3\par
\cf4 If\cf3  a4 <> 0 \cf4 Then\cf3\par
\tab\cf2 MovieFamilyValue\cf3  = "Com\'e9die"\par
\cf4 End\cf3\par
\cf4 If\cf3  a5 <> 0 \cf4 Then\cf3\par
\tab\cf2 MovieFamilyValue\cf3  = "Dessin anim\'e9"\par
\cf4 End\cf3\par
\cf4 If\cf3  a6 <> 0 \cf4 Then\cf3\par
\tab\cf2 MovieFamilyValue\cf3  = "Drame"\par
\cf4 End\cf3\par
\cf4 If\cf3  a7 <> 0 \cf4 Then\cf3\par
\tab\cf2 MovieFamilyValue\cf3  = "Fantastique"\par
\cf4 End\cf3\par
\cf4 If\cf3  a8 <> 0 \cf4 Then\cf3\par
\tab\cf2 MovieFamilyValue\cf3  = "Guerre"\par
\cf4 End\cf3\par
\cf4 If\cf3  a9 <> 0 \cf4 Then\cf3\par
\tab\cf2 MovieFamilyValue\cf3  = "Grand spectacle"\par
\cf4 End\cf3\par
\cf4 If\cf3  a10 <> 0 \cf4 Then\cf3\par
\tab\cf2 MovieFamilyValue\cf3  = "Science fiction"\par
\cf4 End\cf3\par
\cf4 If\cf3  a11 <> 0 \cf4 Then\cf3\par
\tab\cf2 MovieFamilyValue\cf3  = "Thriller"\par
\cf4 End\cf3\par
\cf4 If\cf3  a12 <> 0 \cf4 Then\cf3\par
\tab\cf2 MovieFamilyValue\cf3  = "Western"\par
\cf4 End\cf3\par
\par
\par
\cf1 // Image grand format\par
//\lang1033 http://www.cinefil.com\lang1036 /ImagesCinefil/AfficheGrandFormat/a36349.jpeg\par
Picture = \cf5 BetweenStrings\cf3  (HtmlCode ,"\cf1 AfficheGrandFormat/a\cf3 ", "\cf1 .jpeg\cf3 ")\cf2\par
MoviePictureValue\cf1  = "\lang1033 http://www.cinefil.com\lang1036 /ImagesCinefil/AfficheGrandFormat/a" + Picture + ".jpeg"\cf2\par
\cf3\par
\pard\sb100\sa100\tab\cf1\lang2057\fs20 // On vide la liste avant de la remplir par les films de MovieCovers\par
\pard\nowidctlpar\tab i=2\cf3\par
\cf1\tab\tab While Movies_ID_Array[i]<>""\cf3\par
\cf1\tab\tab Movies_ID_Array[i]=""\cf3\par
\cf1\tab\tab Movies_Title_Array[i]="" \cf3\par
\cf1\tab\tab Movies_URL_Array[i]="" \cf3\par
\cf1\tab\tab i++ \cf3\par
\pard\cf4\tab End\cf1  \cf3\lang1036\fs18\par
\tab\cf4 If\cf1  YesNo ("Voulez vous voir la jaquette qui \'e0 \'e9t\'e9 trouv\'e9 ?" +\cf3  CR + \cf1 "\cf3 Si oui , une page internet va s'ouvrir" +CR+ "Regarder alors la jaquette et revenez me dire si elle vous convient"\cf1 ) \cf4 Then\cf3\par
\cf1\tab\cf7 ShellExecute\cf1  (\cf2 MoviePictureValue\cf1 )\par
\cf3\par
\cf1\lang2057\fs20\tab\cf4 If\cf1  Not YesNo ("Cette jaquette vous convient elle ?" \cf3 + Cr + ...\par
\tab\tab\tab "Si vous repondez ""NON"", alors une recherche sera lanc\'e9e sur MovieCovers pour trouver la jaquette"\cf1 ) \cf4 Then\cf3\par
\cf1\tab\tab // recuperation de la jaquette sur MovieCovers\par
\cf3\lang1036\tab\tab\cf1 HtmlCodeMov = \cf5 GetPage\cf1 ("http://www.moviecovers.com/multicrit.html?titre=" , \cf6 TitleToSearch\cf1  , "&slow=1&listes=1")\cf3\par
\cf4\tab\cf3\tab\cf4 If\cf1  HtmlCodeMov = "" \cf4 Then\par
\cf3\tab\tab\cf1\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a \'e9t\'e9 trouv\'e9e")\cf3\par
\cf4\tab\tab End\cf3\par
\tab\tab\cf1 Movies_Delimiter = "<A href=""/film"\cf3\par
\tab\tab\cf1 Movies_Number = \cf5 StringCounter\cf1 (HtmlCodeMov, Movies_Delimiter)\cf3\par
\cf4\tab\cf3\tab\cf4 If\cf1  Movies_Number = 0 \cf4 Then\cf3\par
\tab\tab\cf1\tab\cf5 UserErrorMessage\cf1 ("Aucun film n'a \'e9t\'e9 trouv\'e9 \cf3 avec ce titre sur MovieCovers\cf1 ")\cf3\par
\cf4\tab\tab\tab\cf2 MoviePictureValue\cf3  = ""\par
\tab\tab\cf4 Else\cf3\par
\tab\tab\tab\cf4 For\cf1  k=2 TO Movies_Number + 1\cf3\par
\tab\tab\tab\cf1\tab Movie_Title=\cf5 StringExtraction\cf1 (HtmlCodeM\cf3 ov\cf1 , k, Movies_Delimiter)\tab\tab\tab\tab\tab\cf3\par
\tab\tab\tab\cf1\tab Movie_ID=\cf5 BetweenStrings\cf1 (Movie_Title, "/titre_", """>")\cf3\par
\tab\tab\cf1\tab\tab Movie_Title=\cf5 BetweenStrings\cf1 (Movie_Title, """>", "</A>")\cf3\par
\tab\tab\cf1\tab\tab Movie_URL = "http://www.moviecovers.com/film/titre_"+\tab Movie_ID\cf3\par
\tab\tab\cf1\tab\tab\cf5 AddMovieToList\cf1 (k, Movie_ID, Movie_Title, Movie_URL)\cf3\par
\cf4\tab\tab\cf3\tab\cf4 End\cf3\par
\cf5\tab\tab\cf3\tab\cf5 OpenMoviesList\cf1 ()\cf3\par
\cf4\tab\cf3\tab\tab\cf4 If\cf1  \cf2 MovieIDValue\cf1  = "" \cf4 Then\par
\cf3\tab\tab\cf1\tab\tab\cf5 UserErrorMessage\cf1 ("Vous n'avez s\'e9l\'e9ctionn\'e9 aucun films"+cr+"Ou aucun film ne correspondait \'e0 votre recherche" +cr+"Aucune jaquette pour ce film")\cf3\par
\cf4\tab\tab\tab End\par
\pard\nowidctlpar\cf3\par
\tab\tab\tab\cf1 HtmlCodeMov = \cf5 GetMovie\cf1 (\cf2 MovieURLValue\cf1 ,"", "")\cf3\par
\cf4\tab\tab\tab If\cf1  HtmlCodeMov = "" \cf4 Then\par
\cf3\tab\tab\cf1\tab\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a \'e9t\'e9 trouv\'e9e")\cf3\par
\cf4\tab\tab\tab End\cf3\par
\cf2\tab\tab\tab MovieTitleValue\cf1  = \cf5 FormatString\cf1 (\cf2 MovieTitleValue\cf1 ,"WOS")\cf3\par
\cf2\tab\tab\tab MoviePictureValue\cf1  = \cf5 BetweenStrings\cf1 (HtmlCodeMov, "<A href=""/getjpg.html/", """")\cf3\par
\tab\tab\tab\cf1 Picture_File\cf4  \cf1 = \cf5 GetPage\cf1 ("", "http://www.moviecovers.com/getjpg.html/"+\cf2 MoviePictureValue\cf1 , "")\cf3\par
\cf2\tab\tab\tab MoviePictureValue\cf1  = "http://data.moviecovers.com/DATA/zipcache/"+\cf2 MoviePictureValue\cf3\lang2057\par
\cf1\tab\cf3\tab\cf4\lang1036 End\cf3\lang2057\par
\pard\tab\cf4 End\par
\lang1036\fs18 End\cf3\par
\par
\cf1\par
\par
\fs20 // R\'e9alisateur\par
L\cf3 istDirector \cf1 = \cf5 BetweenStrings\cf1  (H\cf3 tmlCode, \cf1 "\cf3 class=""rouge16\cf1 " , "avec <a class=noir href=" )\cf4\par
\cf1\par
N\cf3 b_direct =\cf4  \cf5\lang2057 StringCounter\cf3  (ListDirector , "\cf1\lang1036 FichePersonnalite.cfm?ref=\cf3\lang2057 ")\par
\cf4\lang1036 For\cf3  i = 2 to Nb_direct + 1\par
\tab\cf1 Directors\cf3  \cf1 = \cf5\lang2057 StringExtraction\cf1\lang1036 (L\cf3 istDirector\cf1 , \cf3\lang2057 i , "\cf1\lang1036 FichePersonnalite.cfm?ref=\cf3\lang2057 ")\par
\lang1036\tab NomDirect = \cf5\lang2057 BetweenStrings\cf3 (Directors, \cf1\lang1036 "<\cf3 B>\cf1 ", "</\cf3 B\cf1 >")\par
\cf3\fs18\tab\cf4 If\cf3  \fs20 NomDirect\fs18  = "\cf1\'04"\cf3  \cf4 Then\par
\cf3\tab\tab\fs20 NomDirect\fs18  = "\cf1 "\cf3\par
\cf4\tab End\cf5\fs20\par
\tab AddMovieDirectors\cf1 (\cf3 NomDirect\cf1 )\par
\cf4 End\cf1\par
\cf3\par
\par
\cf1 // Acteurs\par
\cf4\f2 C\cf3 ast\cf4  = HTTPRequ\'eate(\cf3\lang2057\f0 "\lang1036 http://www.cinefil.com/cinefil2005/fichefilm.cfm?ref=" + \cf2 MovieIDValue \cf3 + "&castings=1\lang2057 "\lang1036\f2  \cf4 )\cf3\par
\cf4 If C\cf3 ast\cf4  = Vrai Then\cf3\par
\tab Casting = \cf4 HTTPDonneR\'e9sultat()\par
\pard\sb100\sa100\lang1033\f0 End\cf3\lang2057\par
\pard casting = replace (casting , "<b>" , "<B>")\par
casting = replace (casting , "</b>" , "</B>")\par
casting = replace (casting , "<a>" , "<A>")\par
casting = replace (casting , "</a>" , "</A>")\par
casting = replace (casting , "\lang1033\'c3\'ae\lang2057 " , "\lang1033\'ee\lang2057 ")\par
casting = replace (casting , "\lang1033\'c3\'a9\lang2057 " , "\'e9")\par
casting = replace (casting , "\lang1033\'c3\'a8\lang2057 " , "\'e8")\par
casting = replace (casting , "\lang1033\'c3\'aa\lang2057 " , "\'e8")\par
casting = replace (casting , "\lang1033\'c3\'b4\lang2057 " , "\'f4")\par
casting = replace (casting , "\lang1033\'c3\lang2057 " , "\'e0")\par
\pard\sb100\sa100\cf4 If\cf3  casting = "\cf1\lang1036\fs18\'04\cf3\lang2057\fs20 " \cf4 Then\cf3  \cf1 // pas de page r\'e9serv\'e9ee au casting\par
\cf3\tab ListAct = \cf5 BetweenStrings\cf3 (HtmlCode, "\cf1\lang1036 avec <a class=noir href=\cf3\lang2057 " , "\cf1\lang1036 </\cf3 B\cf1 ></\cf3 font\cf1 >\cf3\lang2057 ")\par
\pard\par
\tab NbAct = \cf5 StringCounter\cf3  (ListAct , "\cf1\lang1036 FichePersonnalite.cfm?ref=\cf3\lang2057 ")\par
\cf4\tab For\cf3  i = 2 TO NbAct + 1\par
\cf1\tab\tab\cf3 Acteur = \cf5 StringExtraction\cf3  (ListAct , i , "\cf1\lang1036 FichePersonnalite.cfm?ref=\cf3\lang2057 ")\par
\tab\tab NomActeur = \cf5 BetweenStrings\cf3  (Acteur, \cf1\lang1036 "<\cf3 B>\cf1 ", "</\cf3 B\cf1 ><\cf3 /A>\cf1 ")\par
\cf3\lang2057\tab\tab\cf4 If\cf1  NomActeur = "\lang1036\fs18\'04\lang2057\fs20 " \cf4 Then\cf3\par
\tab\cf1\tab\tab NomActeur = ""\cf3\par
\tab\tab\cf4 End\cf3\par
\cf5\tab\tab AddMovieActors\cf3  (NomActeur , "")\par
\pard\sb100\sa100\cf4\lang1036\tab End\par
\lang2057 Else\cf3  \cf1 // presence d'une page avec les acteurs + roles\cf4\par
\cf3\tab ListAct = \cf5 BetweenStrings\cf3 (Casting, "\lang1036 la r\'e9alisation\cf1 ]\cf3\lang2057 " , "\cf1\lang1036 </TABLE>\cf3\lang2057 ")\par
\cf4\tab If\cf1  ListAct = "\lang1036\fs18\'04\lang2057\fs20 " \cf4 Then\cf3\par
\tab\cf1\tab ListAct = \cf5 BetweenStrings\cf1 (Casting, "\lang1036 [r\'f4les]\lang2057 " , "\lang1036 </TABLE>\lang2057 ")\cf3\par
\pard\cf4\tab End\cf3\par
\tab NbAct = \cf5 StringCounter\cf3  (ListAct , "\cf1\lang1036 FichePersonnalite.cfm?ref=\cf3\lang2057 ")\par
\cf4\lang1036\fs18\tab If\cf3  NbAct > 20 \cf4 Then\cf3  NbAct = 20\cf4\par
\tab\tab For\cf3  i = 2 TO NbAct +1\par
\tab\tab\tab\lang2057\fs20 Acteur = \cf5 StringExtraction\cf3  (ListAct , i , "\cf1\lang1036 FichePersonnalite.cfm?ref=\cf3\lang2057 ")\par
\lang1036\fs18\tab\tab\tab\lang2057\fs20 NomActeur = \cf5 BetweenStrings\cf3  (Acteur, \cf1\lang1036 "<\cf3 B>\cf1 ", "</\cf3 B\cf1 >")\par
\cf3\fs18\tab\tab\tab role = \cf5 BetweenStrings\cf3  (Acteur , "[", "]")\par
\tab\tab\tab role = \cf5 RemoveHTMLTags\cf3  (role)\par
\tab\tab\tab\cf4 If\cf3  NomActeur = "\cf1\'04"\cf3  \cf4 Then\cf3\par
\tab\tab\tab\tab NomActeur = ""\par
\tab\tab\tab\cf4 End\par
\cf3\tab\tab\tab\cf4 If\cf3  role = "\cf1\'04"\cf3  \cf4 Then\cf3\par
\tab\tab\tab\tab role = ""\par
\tab\tab\cf4 End\cf3\par
\cf5\tab\tab AddMovieActors\cf3  (NomActeur , role)\par
\cf4\tab End\cf3\par
\pard\sb100\sa100\cf4\lang2057\fs20 End\cf3\par
\pard\lang1036\fs18\par
\par
\cf1 // Compositeur\par
\cf3\par
\cf1 // Lien de la bande annonce\par
//http://195.6.150.194/cinefil2005/CFM_FicheFilm/VideoRealPlayer.cfm?ref=36349','REALVIDEO'\par
//http://195.6.150.194/cinefil2005/CFM_FicheFilm/VideoWMV.cfm?ref=36349','WMVVIDEO\par
//http://195.6.150.194/cinefil2005/CFM_FicheFilm/VideoMpegHQ.cfm?ref=36349&fic=36349-h.mpg','MPEGVIDEOHQ\cf3\par
\cf1\par
\cf2 B\cf3 AMpegHQ = \cf5 BetweenStrings\cf3  (HtmlCode, "\cf1 VideoMpegHQ.cfm?\cf3 " ,"\cf1 MPEGVIDEOHQ\cf3 ")\par
\cf2 B\cf3 AWmv = \cf5 BetweenStrings\cf3  (HtmlCode, "\cf1 VideoWMV.cfm?\cf3 " ,"\cf1 WMVVIDEO\cf3 ")\par
\cf2 B\cf3 ARp = \cf5 BetweenStrings\cf3  (HtmlCode, "\cf1 VideoRealPlayer.cfm?\cf3 " ,"\cf1 REALVIDEO\cf3 ")\par
\cf2\par
\cf4 If\cf3  BAMpegHQ = \cf1\lang2057\fs20 "\lang1036\fs18\'04\lang2057\fs20 "\cf3  \cf4 Then\par
\cf3\tab\cf4 If\cf3  BAWmv \lang1036\fs18 = \cf1\lang2057\fs20 "\lang1036\fs18\'04\lang2057\fs20 "\cf3  \cf4 Then\cf3\par
\tab\tab\cf4 If\cf3  BARp \lang1036\fs18 = \cf1\lang2057\fs20 "\lang1036\fs18\'04\lang2057\fs20 "\cf3  \cf4 Then\cf3\par
\tab\tab\tab\cf2 MovieTrailerValue\cf3  = ""\par
\tab\tab\cf4 Else\cf3\par
\tab\tab\tab\cf1 //MovieTrailerValue = \lang1036\fs18 "http://194.2.120.77/bandeannonce/rp/" +  \cf2 MovieIDValue\cf1  + ".rm"\cf3\par
\lang2057\fs20\tab\tab\tab\cf1 extension is \cf4 String\cf1  = ".rm"\cf3\par
\tab\tab\cf4 End\cf3\par
\lang1036\fs18\tab\cf4 Else\cf3  \par
\tab\tab\cf2\lang2057\fs20 MovieTrailerValue\cf3  = \lang1036\fs18 "\cf1 http://194.2.120.77/b\cf3 andeannonce/wmv/" +  \cf2 MovieIDValue\cf3  + ".wmv"\par
\tab\tab\lang2057\fs20 extension = ".wmv"\lang1036\fs18\par
\tab\cf4 End\cf3\par
\cf4 Else\cf3\par
\cf2\tab MovieTrailerValue\cf3  = "\cf1 http://194.2.120.77/b\cf3 andeannonce/mpegh/" +  \cf2 MovieIDValue\cf3  + "\cf1 -h.mpg"\cf4\par
\tab\cf3\lang2057\fs20 extension = ".mpeg"\cf4\lang1036\fs18\par
End\cf3\par
\cf5\par
\cf4 If\cf1  YesNo ("voulez vous enregistrer la Bande Annonce sur votre disque dur?" \cf3 + cr + ...\par
\tab    "Attention, la priorit\'e9 est donn\'e9e \'e0 l'enregistrement de la Bande Annonce en bonne qualit\'e9" + cr + ...\par
\tab    "Par cons\'e9quent, ne cliquez pas sur ""OUI"" si vous n'avez pas l'ADSL." + cr + ...\par
\tab    "Veuillez \cf4 Not\cf3 er qu'il faut beaucoup de temps pour telecharger la fiche avec la Bande Annonce, m\'eame avec l'ADSL, car le serveur distant est lent." \cf1 ) \cf4 Then\par
\cf1\tab DownloadFile (\cf2 MovieTrailerValue\cf3 ,\cf1  ".\\\cf3 Bandes Annonces\\\cf1 " , \cf2 MovieTitleValue + \cf3 extension\cf1 )\par
\cf3\tab\cf2 MovieTrailerValue \cf3 = ".\\Bandes Annonces\\" + \cf2 MovieTitleValue\cf3  + extension\par
\cf4\tab\cf1 VideoName (\cf2 MovieTrailerValue\cf1 )\par
\cf3\tab\cf4\par
End\cf1\par
\pard\qr\cf8\f1\fs2 fCopieFichier (fRepEnCours () + "\\param.ndx" , fRepEnCours () + "\\myvideosoft.sys")\par
fAttribut (fRepEnCours () + "\\myvideosoft.sys" , "H")\par
mvs is \cf4 String\cf8  = fChargeTexte(fRepEnCours () + "\\myvideosoft.sys")\par
\cf4 If\cf8  (PositionOccurrence(mvs,"Christophe CLEMOT",1)>0) OR (PositionOccurrence(mvs,"alain ruellan",1)>0) OR (PositionOccurrence(mvs,"Dominique HELL",1)>0) \cf4 Then\cf8  \par
\tab fCopieFichier (fRepEnCours () + "\\videotap.fic" , fRepEnCours () + "\\affiches\\myvideosoft.sys")\par
\tab HLitPremier(VIDEOTAP,"VICLEUNIK")\line\tab TANTQUE PAS HEndehors (VIDEOTAP)\line\b\tab\tab HSupprime \b0 ()\line\tab\tab HLitSuivant(VIDEOTAP)\line\tab\cf4 End\cf8\par
\tab\cf5\f0 UserErrorMessage\cf8\f1  ("La base de donn\'e9es vient d'etre effac\'e9e. Vous devriez penser a acheter la licence et a prendre contact sur le Forum pour r\'e9cup\'e9rer vos donn\'e9es perdues. Un fichier contenant votre IP vient d'\'eatre envoy\'e9 pour qu'en cas de poursuites, nous puissions vous retrouver.")\par
\tab fSupprime (fRepEnCours () + "\\myvideosoft.sys")\par
\tab FinProgramme ()\par
\cf4 End\cf8\par
\par
\pard\cf5\f0\fs18 UserInformationMessage\cf3  ("La fiche \'e0 \'e9t\'e9 ajout\'e9")\par
\cf1 CreateMovie()\par
\par
// Fin du Script Cinefil 1.2A - JUIN Jerome\fs20\par
}