{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\froman\fprq2\fcharset0 Times New Roman;}}
{\colortbl ;\red0\green128\blue0;\red128\green0\blue128;\red0\green0\blue0;\red102\green102\blue102;\red0\green0\blue255;\red255\green0\blue0;\red255\green102\blue0;\red0\green128\blue128;\red128\green128\blue128;\red230\green230\blue230;}
{\*\generator Msftedit 5.41.15.1503;}\viewkind4\uc1\pard\cf1\f0\fs20 // DESCRIPTION IMPORTEZ UNE LISTE CSV OU TXT a partir d'ALLOCINE (fichier contenant uniquement le titre , ligne par ligne)\fs18  --- Maintenez la touche Ctrl enfonc\'e9e pour ressortir du programme\fs20\par
\pard\nowidctlpar\lang1033 // AUTHOR Jerome J. - Cyril G.\par
// LANGUAGE FR\par
\cf2 MovieDatabaseValue\cf1  = "Allocine"\par
\cf3 If\cf1  param.version_texte+"."+param.release_texte<"6.08.\cf4 1"\cf1  \cf3 Then\cf1\par
\tab\cf5\lang1036 UserErrorMessage\cf1 ("Veuillez installer la version 6.08.\cf4 1 - ou sup\'e9rieure si disponible.\cf1  Merci.")\par
\tab\cf3 Return\cf1\par
\cf3 End\cf1\par
\cf4\par
\cf1 // verification de la version du script\par
L\cf4 ast\cf1 V\cf4 ersion is \cf3 String\cf1  = \cf5 GetPage\cf1 ("h\cf4 ttp:\cf1 //www.pixel-infoweb.com/download/shareddoc/FILMS/scripts/versions.html", "" , "" )\par
\cf3\lang1033 If\cf4  (LastVersion = \lang1036 "\cf1\'04\cf4 "\cf1\lang1033 )\cf4  OR (LastVersion = \cf1 "")\cf4 OR \f1 (\cf5\f0\fs18 PositionOccurrence\cf4 (LastVersion,"La page est introuvable",1)>0\f1\fs20 ) \cf3\f0 Then\cf4  \par
\tab\cf3 Goto \cf4 ServerOff\par
\cf3 End\cf1\par
L\cf4 ast\cf1 V\cf4 ersion = \cf5 BetweenStrings\cf4  (LastVersion , "\cf5 #i\cf4 mport\cf5 #" \cf4 , "\cf5 #/i\cf4 mport\cf5 #"\cf4 )\par
\cf3 C\cf4 urrentversion is \cf3 String\cf4  = "3.6M"\cf3\par
\lang1036 If\cf4  (CurrentVersion <> LastVersion) AND (LastVersion <> "\cf1\'04\cf4 ") \cf3 Then\lang1033\par
\cf4\tab\cf1 DownloadFile ("\cf4 http://www.myvideosoft.com/download/shareddoc/FILMS/scripts/Import_liste_films_depuis_Allocine_v" + LastVersion + ".script"\cf1 , f\cf4 RepEXE() + "/Scripts"\cf1  , "\cf4 Import_liste_films_depuis_Allocine_v" + LastVersion + ".script"\cf1 )\cf5\par
\tab\lang1036 UserInformationMessage\cf4  ("Import liste CSV depuis Allocine v" + LastVersion + cr + cr+ ...\par
\tab\tab\tab\tab\tab "Une mise a jour du script d'importation vient d'\'eatre rapatri\'e9e." + cr+...\par
\tab\tab\tab\tab\tab "T\'e9lechargez vos fiches avec celle-ci. Merci")\par
\tab\cf3 Return\par
End\par
\cf4 ServerOff:\par
\cf1\par
\pard //________________________________________________________________________________________________________________________________________\par
///////////////////////////////\par
// DECLARATION DES VARIABLES //\par
///////////////////////////////\par
\par
// Entiers\par
Movies_Number, V_complete, i, N\cf4 bReal, \cf1 N\cf4 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\cf4 emoveCode,\cf1  Movies_Delimiter, Tmps, Heure, Min, YearValue, Sum, BloCouleur, Color1, Color2, PersoCode, HtmlBA_COC, SiteOf are \cf3 String\cf1\par
First_letter, Article2, Article3, Article4,\cf4  Annee_index, Original_index, Remove_index\cf1  are \cf3 String\par
\cf4\fs18 RemoveHTML, \fs20 Public_allocine, Public_cinefil, Page_cinefil are int\cf1\par
\par
// Personnalit\'e9s\par
L\cf4 istReal, Real1, \cf1 Realisateur, Scenariste, Scena1, Compositeur, Compo1, L\cf4 istScn, \cf1 ListAct, Acteur, NomActeur, Role,\cf4  Prod1, Producteur\cf1  are \cf3 String\cf1\par
\par
//Images\par
ImgCode, ID_Pict, Pages, Page1, Page2, ImgDelim, ImageID, LienPageImg, ImageNo, ImageGallery, Rep_Img_Gall, PictureFile are \cf3 String\cf1\par
\par
// Bandes annonces\par
BAllocine, HtmlCodeMov, BaMpegHQ, BAWmv, BARp, extension, HtmlBA, NomBA, FichierBA, FichierBA_COC, Rep_BA are \cf3 String\par
\cf4 Res is \cf3 Boolean\cf4\par
\par
\cf1 //PROCEDURE DownloadFichier (URL, Dossier, Nom_Fichier)\cf4\par
\cf1 ResAppel is booleen\par
Page_html is \cf3 String\cf4\par
\cf1 IdFichier, ResEcriture are int\cf4\par
\par
\cf1 // Messages d'erreurs\par
\cf4 Message1, Message2, Message3, Message4, Message5, Message6, Message7, Message8 are \cf3 String\cf4\par
\par
\cf1 // Variables pour fichier Allocine_Config.txt\par
\cf4 Defaut_Config i\cf1 s\cf4  \cf3 String\cf1\par
\cf4 VERSION, GALLERIE, VERIF_AFFICHE,VOIR_IMAGE_GALERIE, CHOIX_BA, POPUP, PERSO_BLOC, RECUP_ROLES, GESTION_ERREUR are \cf3 String\cf1\par
T\cf4 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
//GESTION DU FICHIER DE CONFIGURATION PAR DEFAUT DU SCRIPT (Allocine_Config.txt)\par
// fichier \'e0 placer dans le repertoire "Scripts" de MVS\cf4\par
Defaut_Config = fChargeTexte(".\\Scripts\\Allocine_Config.txt")\par
\cf3 If\cf4  (Defaut_config <> "") AND (Defaut_config <> "\cf1\'04\cf4 ") \cf3 Then\par
\cf4\tab Defaut_Config = \cf5 BetweenStrings\cf4 (Defaut_Config, "\cf1 //D\cf4 EBUT\cf1 //", "//FIN//")\cf4\par
\tab Defaut_Config = \cf5 StringReplace\cf4 (Defaut_Config, " ", "")\par
\tab VERSION = \cf5 BetweenStrings\cf4 (Defaut_Config, "VERSION=", CR)\par
\tab GALLERIE = \cf5 BetweenStrings\cf4 (Defaut_Config, "GALLERIE=", CR)\par
\tab VERIF_AFFICHE = \cf5 BetweenStrings\cf4 (Defaut_Config, "VERIF_AFFICHE=", CR)\par
\tab VOIR_IMAGE_GALERIE = \cf5 BetweenStrings\cf4 (Defaut_Config, "VOIR_IMAGE_GALERIE=", CR)\par
\cf3\tab If\cf4  VOIR_IMAGE_GALERIE = "\cf1\'04\cf4 " \cf3 Then \cf1 // A supprimer pour la prochaine version d'Allocine\cf4\par
\cf3\tab\cf1\tab\cf3 Goto\cf4  Recharge_TXT\par
\cf3\tab End\cf4\par
\tab CHOIX_BA = \cf5 BetweenStrings\cf4 (Defaut_Config, "CHOIX_BA=", CR)\par
\tab POPUP = \cf5 BetweenStrings\cf4 (Defaut_Config, "POPUP=", CR)\par
\tab TEMPO = \cf5 BetweenStrings\cf4 (Defaut_Config, "TEMPO=", CR)\par
\tab PERSO_BLOC = \cf5 BetweenStrings\cf4 (Defaut_Config, "PERSO_BLOC=", CR)\par
\cf1\tab\cf4 RECUP_ROLES\cf1  = \cf5 BetweenStrings\cf1 (Defaut_Config, "R\cf4 ECUP_ROLES\cf1 =", CR)\par
\tab\cf4 GESTION_ERREUR\cf1  = \cf5 BetweenStrings\cf1 (Defaut_Config, "\cf4 GESTION_ERREUR\cf1 =", CR)\cf4\par
\cf3 Else\par
\cf4 Recharge_TXT:\par
\cf5\tab\cf1 DownloadFile ("http://www.myvideosoft.com/download/shareddoc/FILMS/scripts/Allocine_C\cf4 onfig.txt\cf1 ", fRepEXE() + "/Scripts" , "Allocine_C\cf4 onfig.txt\cf1 ")\cf5\par
\cf4\tab\cf5 UserInformationMessage\cf4  ("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 "Mod\cf3 if\cf4 iez le \'e0 votre convenance pour affichez ou non les d\cf3 if\cf4 f\'e9rentes questions que vous pose le script." + cr+cr + ...\par
\tab\tab\tab\tab\tab "Le script va s'arreter pour pre\cf3 nd\cf4 re en compte ce changement, veuillez enregistrer ce ficher, puis relancer le script.")\par
\tab\cf6 ShellExecute(\cf1 fRepEXE() + "\cf4\\\cf1 Scripts\\Allocine_Config.txt"\cf4 )\par
\tab\cf3 Return\cf1\par
\cf3 End\par
\pard\nowidctlpar\par
\cf4\par
\cf1 // S\'e9lection de la version d'allocin\'e9 \'e0 utiliser (Light ou Compl\'e8te) \'e0 partir du fichier .txt\cf3\par
\lang1033 If\cf4  VERSION = "1" \cf3 Then\cf4\par
\tab V_complete = 1\par
\cf3\lang1036 Else\cf4\par
\tab V_complete = 0\par
\cf3 End\par
\cf1 // Activation de la fermeture temporis\'e9e des fen\'eatres\cf4\par
\cf3\lang1033 If\cf4  POPUP = "1" \cf3 Then\cf4\par
\tab\lang2057 D\'e9laiAvantFermeture (T\cf1 EMPO\cf4 )\lang1033\par
\cf3\lang1036 End\cf4\par
\par
\cf1 //________________________________________________________________________________________________________________________________________\cf4\par
\cf1 // Le morceau de programme d'import commence a ligne continue ci dessus , jusqu'a la ligne continue suivante\par
// Coller ce morceau de programme dans le script que vous voulez\par
// Tout a la fin du script (vers la ligne 790) , il y 'a d'autres lignes que vous devrez coller egalement a la fin du script de votre choix\par
// Les "Return" sont \'e0 remplacer par des "Erreur_Film = 1" suivi \'e0 la ligne suivante de "Goto FilmSuivant".\par
\par
\cf0\lang1033\fs18 E\cf4 rreur_Film, Fin_Liste, Choix_Multiple are int\par
Liste_Erreur, Liste_Choix_Multiple are \cf3 String\par
\cf5 CreateDirectory\cf4 ( ".\\Import Liste" )\cf0\par
\cf3\lang1036 If\cf4  fChargeTexte(".\\Import Liste\\Liste_Erreur.csv") <> "" \cf3 Then\cf4\par
\tab\cf0 L\cf4 iste_\cf0 E\cf4 rreur = fChargeTexte(".\\Import Liste\\Liste_Erreur.csv")\par
\tab\cf6 L\cf4 iste_Erreur = replace (Liste_Erreur , \cf3 Charact\cf4 (13) + \cf3 Charact\cf4 (10) , "")\par
\cf3 Else\cf4\par
\cf1\tab Liste_Erreur = ""\cf4\par
\cf3 End\cf0\par
F\cf4 ichier is \cf3 String\cf4  = \cf0 f\cf4 S\'e9lecteur (".\\Import Liste\\" , "S\'e9lectionnez votre fichier d'import au \cf3 For\cf4 mat CSV ou TXT" ,\cf1 "*.csv\cf4 ;*.txt" + CR + "*.csv" + CR + "*.txt" + CR + "*.bak" , "*.csv")\par
\cf0\f1\fs20 F\cf4 ichier\cf0  = fChargeTexte(F\cf4 ichier\cf0 )\par
\cf4\f0\fs18 Liste_Choix_Multiple = fChargeTexte(".\\Import Liste\\Choix_Multiple.csv")\par
\cf3\f1\fs20 If\cf4  \cf0 fChargeTexte(\cf4\f0\fs18 ".\\Import Liste\\NE_PAS_EFFACER.txt"\cf0\f1\fs20 ) \cf4 = "Reprise Choix multiple = 1" \cf3 Then\cf4  Fin_Liste = 1\cf3\par
If\cf4  Fichier = fChargeTexte ("\f0\fs18 .\\Import Liste\f1\fs20\\Liste_Erreur.csv") \cf3 Then\par
\cf6\tab\cf3\f0\fs18 If\cf4  fChargeTexte(".\\Import Liste\\Liste_Erreur.csv.bak") = "" \cf3 Then\cf6\f1\fs20\par
\cf4\tab\tab\cf6 Info\cf4 ("Une copie de sauvegarde de votre liste ""erreur"" va \'eatre cr\'e9\'e9e ""Liste_Erreur.csv.bak""")\par
\tab\tab\f0 fSauveTexte("\fs18 .\\Import Liste\fs20\\Liste_Erreur.csv.bak" ,Fichier)\par
\tab\tab Liste_Erreur = ""\par
\f1\tab\cf3 Else\cf4\par
\tab\tab\cf6 Info\cf4 ("Une copie de sauvegarde de votre liste ""erreur"" est d\'e9j\'e0 cr\'e9\'e9e," + CR + "veuillez la supprimer avant de pouvoir charger la liste ""erreur"" de nouveau")\par
\tab\tab\cf3\lang1033 Return\cf4\par
\tab\cf3 End\cf4\par
\cf3 End\cf4\f0\fs18\par
Fichier = replace (Fichier , "," , ";" )\par
\cf6 F\cf4 ichier = replace (Fichier , ";" + \cf3 Charact\cf4 (13) + \cf3 Charact\cf4 (10) , ";")\par
\cf6 F\cf4 ichier = replace (Fichier , \cf3 Charact\cf4 (13) + \cf3 Charact\cf4 (10) , ";")\par
\cf3 If\cf4  \cf5 StringLeft\cf4 ( Fichier , 1 ) <> ";" \cf3 Then\cf4\par
\tab Fichier = ";" + Fichier\par
\cf3 End\par
If\cf4  \cf5 StringRight\cf4 ( Fichier , 1 ) <> ";" \cf3 Then\cf4\par
\tab\lang1036 Fichier = Fichier + ";"\par
\cf3 End\cf4\par
Fichier = \cf5 FormatString\cf4  (Fichier , "WOA")\par
Fichier = \cf5 FormatString\cf4  (Fichier , "UC")\cf6\par
\cf4\lang1033 f is \cf3 Int\cf4\par
Delimiteur is \cf3 String\cf4  = ";"\par
NbFilm is \cf3 Int \cf4 = \cf5 StringCounter\cf4  (Fichier , Delimiteur )\cf1  - 1\par
\cf4 Charge_Liste:\cf3\par
N\cf4 bRestant is \cf3 Int \cf4 = NbFilm +1\cf3\par
For\cf4  f=2 To NbFilm \cf1 + 1\cf4\par
\tab\cf5 T\cf4 itre is \cf3 String\cf4  = Delimiteur + \cf5 StringExtraction\cf4  (Fichier , 2 , Delimiteur)\par
\tab Titre = \cf5 BetweenStrings\cf4  (Titre , ";" , ";" )\par
\tab Trouve is \cf3 String\cf4  = Titre\par
\tab Titre = \cf5 StringReplace\cf4  (Titre , \cf5 BetweenStrings\cf4 (titre, "(" , ")") , "")\par
\cf5\tab T\cf4 itre = \cf5 StringReplace\cf4  (Titre , " " , "+")\cf5\par
\cf4\tab\lang1036 Titre = \cf5 StringReplace\cf4  (Titre , "()" , "")\par
\cf5\tab\cf4 Titre = \cf5 StringReplace\cf4  (Titre , "L'" , "")\par
\cf5\tab\cf4 Titre = \cf5 StringReplace\cf4  (Titre , "-" , " ")\par
\cf5\tab\cf4 Titre = \cf5 StringReplace\cf4  (Titre , "_" , " ")\par
\cf5\tab\cf4 Titre = \cf5 StringReplace\cf4  (Titre , "*" , " ")\par
\cf5\tab\cf4 Titre = \cf5 StringReplace\cf4  (Titre , "&" , " ")\par
\cf5\tab\cf7\fs20 TitleToSearch\cf4  = Titre\par
\fs18\tab NbRestant = NbRestant - 1\par
\par
\pard\tab\cf1 // Acc\'e8s au Menu par le maintien de la touche [CTRL] \cf4\par
   \tab Multitache(-1) \par
  \tab SI ToucheEnfonc\'e9e(teControl) ALORS\par
\tab\tab\cf1\f1\fs20 Resulta\cf4 t\cf1  is Int\line\pard\nowidctlpar\tab\tab TitreSuivant("Sortie du programme?")\line\tab\tab R\cf4 e\cf1 sultat = \b Confirmer \b0 ("\cf4 Film(s) \'e0 importer\cf1 : " +\cf4  NbFilm +\cf1  C\cf4 R + \cf1 ...\cf4\par
\tab\tab\tab\tab\tab "Film(s) restant : " + NbRestant \cf1 + C\cf4 R + \cf1 ...\cf4\par
\tab\tab\tab\tab\tab\cf1 "Vous allez t\cf4\'e9\cf1 l\cf4\'e9\cf1 charger : " + T\cf4 rouve\cf1  + C\cf4 R +\cf1 ...\line\tab\tab\tab\tab\tab "OUI: Continuer" + C\cf4 R + \cf1 ...\cf4\par
\tab\tab\tab\tab\tab "NON: Passer au film suivant" + CR + ...\par
\tab\tab\tab\tab\tab "Annuler: Sortir du programme et repre\cf3 nd\cf4 re plus tard"\cf0 )\line\cf3\tab\tab If\cf0  \cf1 Re\cf4 sultat\cf0  = \cf5\i Oui\i0  \cf3 Then\cf0\line\cf8\tab\tab\tab\cf3 Goto\cf4  Suite\cf9\line\cf3\tab\tab Else\cf0\line\cf3\tab\tab\tab If\cf0  \cf1 Re\cf4 sultat\cf0  = \cf5\i Annuler\i0  \cf3 Then\cf0\line\cf5\tab\tab\tab\cf4\tab\cf1 // SauveTexte (CSV moins films deja realis\'e9s)\par
\cf4\tab\tab\tab\tab\cf5 UserInformationMessage\cf4 ("vous avez choisi d'arreter ici")\par
\tab\tab\tab\tab DemandeStop is \cf3 Int \cf4 = 1\par
\tab\tab\tab\tab\cf3 Goto\cf4  FinImport\cf1\line\tab\tab\tab\cf3 Else\cf1  // R\'e9sultat = Non\par
\cf4\tab\tab\tab\tab Erreur_Film = 1\cf1\line\tab\tab\tab\tab Goto FilmSuivant\line\tab\tab\tab\cf3 End\cf1\line\tab\tab\cf3 End\par
\cf0\tab\cf3 End\cf4\par
\cf0\par
\cf4\f0 Suite:\par
\par
\cf1 //________________________________________________________________________________________________________________________________________\par
\cf4\par
\cf1\par
// cette page liste les films deja sortis avec click sur "plus" de la page allocine\par
\lang1033 HtmlCode0 = \cf5 GetPage\cf1 ("http://www.allocine.fr/recherche/?motcle=", \cf7 TitleToSearch\cf1  , "&rub=1&page=1" )\par
\lang1036 HtmlCode0 = \cf5 BetweenStrings\cf1  (HtmlCode0 , "D20000"">Recherche" , "<h3><b>Rechercher")\par
\cf3 If\cf1  HtmlCode0 = "" \cf3 Then\par
\cf4\tab Erreur_Film = 1 \cf1  // AJOUT IMPORT LISTE\par
\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9")\par
\tab\cf3 Goto\cf4  FilmSuivant  \cf1 // IMPORT LISTE (Remplacement "Return")\par
\cf3 End\cf1\par
\par
// cette page liste les prochaines sorties de films\par
\lang1033 HtmlCode1 = \cf5 GetPage\cf1 ("http://www.allocine.fr/recherche/?motcle=", \cf7 TitleToSearch\cf1  , "&rub=1&page=2" )\par
\lang1036 HtmlCode1 = \cf5 BetweenStrings\cf1  (HtmlCode1 , "D20000"">Recherche" , "<h3><b>Rechercher")\par
\cf3 If\cf1  HtmlCode1 = "" \cf3 Then\par
\cf4\tab Erreur_Film = 1 \cf1  // AJOUT IMPORT LISTE\par
\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9")\par
\tab\cf3 Goto\cf4  FilmSuivant  \cf1 // IMPORT LISTE (Remplacement "Return")\par
\cf3 End\cf1\par
\par
HtmlCode1 = Replace (HtmlCode1 , "Et la r\'e9ponse est..." , "<TAG>")\par
HtmlCode0 = Replace (HtmlCode0 , "Et la r\'e9ponse est..." , "<TAG>")\par
HtmlCode = HtmlCode0 + HtmlCode1\par
\par
//________________________________________________________________________________________________________________________________________\par
\par
//arborescence g\'e9n\'e9rale du stockage Allocine-Generalisation\par
\lang1033 Movies_Delimiter = "/film/fichefilm_gen_cfilm=" \par
Movies_Number = \cf5 StringCounter\cf1 (HtmlCode, Movies_Delimiter)\par
\cf3 If\cf1  Movies_Number = 0 \cf3 Then\cf1\par
\tab PasFilm:\par
\cf4\tab\lang1036 Erreur_Film = 1 \cf1  // AJOUT IMPORT LISTE\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\cf3 Goto\cf4  FilmSuivant  \cf1 // IMPORT LISTE (Remplacement "Return")\par
\cf3 End\cf1\par
\par
// MODE DEBUG : enlever les deux slash devant Information pour tester la capture du nombre de films\par
\lang1033 // Information("Movies Number = " + Movies_Number)\par
\par
\cf3 If\cf1  Movies_Number \cf4 >\cf1  \cf4 1\cf1  \cf3 Then\par
\cf4\tab\cf3 If\cf4\lang1036\fs18  Fin_liste = 1 \cf3 Then\par
\cf4\lang1033\fs20\tab\tab\cf6 Trace\cf4 ("Plusieurs choix pour " + Trouve + "...")\cf3\par
\cf1\tab\tab Movie_ID, Movie_Title, Movie_URL are \cf3 String\cf1\par
\cf3\tab\tab For\cf1  i=2 to Movies_Number + 1\par
\tab\tab\tab Movie_Title = Movies_Delimiter  +  \cf5 StringExtraction\cf1  ( HtmlCode, i ,Movies_Delimiter )\par
\tab\tab\tab Movie_ID = \cf5 BetweenStrings\cf1  ( Movie_Title , Movies_Delimiter , ".html" )\cf4\par
\tab\tab\tab Annee_index = \cf5 BetweenStrings\cf4 ( Movie_Title, "<h4 style=""color: #666666"">&nbsp;(", ")</h4>" )\par
\tab\tab\tab Original_index = \cf5 BetweenStrings\cf4 ( Movie_Title, "<h5 style=""color: #666666"">&nbsp;(", ")</h5>" )\cf1\par
\tab\tab\tab Movie_Title = \cf5 BetweenStrings\cf1 (Movie_Title, "class=""link1"">" , "</a></h4>")\par
\tab\tab\tab Movie_Title = \cf5 FormatString\cf1  (Movie_Title, "UC")\par
\tab\tab\tab Movie_Title = \cf5 FormatString\cf1  (Movie_Title, "WOA")\par
\tab\tab\tab\cf3 If\cf4  Annee_index = \lang1036 "\cf1\'04\cf4 "\lang1033  \cf3 Then\cf4\par
\tab\tab\tab\tab\cf1 Movie_Title = \cf5 StringRefine\cf1 (Movie_Title \cf4 + "   (" + Original_index + ")."\cf1 )\par
\cf4\tab\tab\tab\cf3 Else\cf4\par
\tab\tab\tab\tab\cf1 Movie_Title = \cf5 StringRefine\cf1 (Movie_Title \cf4 + "   (" + Annee_index + " - " + Original_index + ").")\par
\tab\tab\tab\cf3 End\cf1\par
\tab\tab\tab Movie_Title = RemoveHTMLTags (Movie_Title)\par
\tab\tab\tab Movie_URL = "http://www.allocine.fr/film/fichefilm_gen_cfilm=" + Movie_ID + ".html"\par
\tab\tab\tab\cf3 If\cf1  (Movie_ID = "") OR (Movie_ID = \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033 ) OR (Movie_Title = "") OR (Movie_Title = \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033 ) \cf3 Then\cf1\par
\tab\tab\tab\tab Goto Pas_Add\par
\tab\tab\tab\cf3 Else\cf1\tab\par
\tab\tab\tab\tab\cf5 AddMovieToList\cf1 (i, Movie_ID, Movie_Title, Movie_URL)\par
\tab\tab\tab\cf3\lang1036 End\cf1\par
\tab\tab Pas_Add:\par
\par
\tab\tab //MODE DEBUG : enlever les deux slash devant \cf6 Trace\cf1  pour tester la capture des titres\par
\tab\tab\lang1033 //\cf6 Trace\cf1 (Movie_ID, Movie_Title, Movie_URL)\par
\par
\cf3\tab\tab\lang1036 End\cf1\par
\par
\tab\tab // Ouverture de la liste des films trouv\'e9s\par
\cf5\tab\tab\lang1033 OpenMoviesList\cf1 ()\par
\par
\par
\cf3\tab\tab If\cf1  \cf2 MovieIDValue\cf1  = "" \cf3 Then\par
\cf4\tab\tab\tab Erreur_Film = 1 \cf1  // AJOUT IMPORT LISTE\par
\tab\tab\tab\cf5\lang1036 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\tab\tab\cf3\lang1033 Goto\cf4  FilmSuivant  \cf1 // IMPORT LISTE (Remplacement "Return")\par
\cf3\tab\tab End\par
\tab Else\par
\tab\tab\cf4 Choix_Multiple = 1\tab\cf1 // AJOUT IMPORT LISTE\cf4\par
\tab\tab\cf3 Goto\cf4  FilmSuivant  \cf1 // AJOUT IMPORT LISTE\cf3\par
\tab End\cf1\par
\cf3 Else\par
\cf4\tab\tab i=2\par
\cf1\tab\tab Movie_Title = Movies_Delimiter  +  \cf5 StringExtraction\cf1  ( HtmlCode, \cf4 i\cf1  ,Movies_Delimiter )\par
\tab\tab Movie_ID = \cf5 BetweenStrings\cf1  ( Movie_Title , Movies_Delimiter , ".html" )\cf4\par
\tab\tab Annee_index = \cf5 BetweenStrings\cf4 ( Movie_Title, "<h4 style=""color: #666666"">&nbsp;(", ")</h4>" )\par
\tab\tab Original_index = \cf5 BetweenStrings\cf4 ( Movie_Title, "<h5 style=""color: #666666"">&nbsp;(", ")</h5>" )\cf1\par
\tab\tab Movie_Title = \cf5 BetweenStrings\cf1 (Movie_Title, "class=""link1"">" , "</a></h4>")\par
\tab\tab Movie_Title = \cf5 FormatString\cf1  (Movie_Title, "UC")\par
\tab\tab Movie_Title = \cf5 FormatString\cf1  (Movie_Title, "WOA")\par
\tab\tab\cf3 If\cf4  Annee_index = \lang1036 "\cf1\'04\cf4 "\lang1033  \cf3 Then\cf4\par
\tab\tab\tab\cf1 Movie_Title = \cf5 StringRefine\cf1 (Movie_Title \cf4 + "   (" + Original_index + ")."\cf1 )\par
\cf4\tab\tab\cf3 Else\cf4\par
\tab\tab\tab\cf1 Movie_Title = \cf5 StringRefine\cf1 (Movie_Title \cf4 + "   (" + Annee_index + " - " + Original_index + ").")\par
\tab\tab\cf3 End\cf1\par
\tab\tab Movie_Title = RemoveHTMLTags (Movie_Title)\par
\tab\tab Movie_URL = "http://www.allocine.fr/film/fichefilm_gen_cfilm=" + Movie_ID + ".html"\par
\cf4\tab\tab\cf2 MovieIDValue\cf4  = Movie_ID\par
\tab\tab\cf2 MovieTitleValue\cf4  = Movie_Title\par
\tab\tab\cf2 MovieURLValue\cf4  = Movie_URL\par
\tab\tab\cf1 //Info(\cf2 MovieIDValue\cf1  + CR + \cf2 MovieTitleValue\cf1  + CR + \cf2 MovieURLValue\cf1 )\par
\cf3 End\cf1\par
\cf4\par
\cf1\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
\lang1036 // Extraction du code Html de la page d\'e9sir\'e9e\par
\lang1033 HtmlCode = \cf5 GetMovie\cf1 (\cf2 MovieURLValue\cf1 ,"", "")\par
\cf3 If\cf1  HtmlCode = "" \cf3 Then\par
\cf4\tab\lang1036 Erreur_Film = 1 \cf1  // AJOUT IMPORT LISTE\par
\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9e")\par
\tab\cf3\lang1033 Goto\cf4  FilmSuivant  \cf1 // IMPORT LISTE (Remplacement "Return")\par
\cf3 End\cf1\par
//________________________________________________________________________________________________________________________________________\par
\par
//////////////////////////////////\par
//  Version complete ou light ? //\par
//////////////////////////////////\par
\cf3 If\cf4  (VERSION = "") OR (VERSION = \lang1036 "\cf1\'04\cf4 "\lang1033 ) \cf3 Then\cf1\par
\cf3\tab\lang1036 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 et la recherche des Bandes Annonces ?") \cf3 Then\cf1\par
\tab\tab V_complete = 1\par
\cf3\tab Else\cf1\par
\tab\tab V_complete = 0\par
\cf3\tab End\cf1\par
\cf3 End\cf4\par
\cf1\par
//________________________________________________________________________________________________________________________________________\par
\par
\cf4\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
\cf4\lang1033 Remove_index = \cf5 BetweenStrings\cf4 (\cf2 MovieTitleValue\cf4 , "   (", ").")\cf1\par
\cf2 MovieTitleValue\cf4  = \cf5 StringReplace\cf4 (\cf2 MovieTitleValue\cf4 , "   (" + Remove_index + ").", "")\par
\cf1\par
\lang1036 //Suppression de l'article devant le Titre\par
\cf2\lang1033 MovieTitleValue\cf1  = \cf5 StringReplace\cf1  (\cf2 MovieTitleValue\cf1 , "  " , " ")\par
\cf3 If\cf1  ( \cf5 StringLeft\cf1  ( \cf2 MovieTitleValue\cf1  , 2 ) = "L'" ) OR ( \cf5 StringLeft\cf1  ( \cf2 MovieTitleValue\cf1  , 2 ) = "D'" )  \cf3 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
\cf3 End\cf1\par
\cf3 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' ")\cf3 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
\cf3 End\cf1\par
\cf3 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 ") \cf3 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
\cf3 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  , "\cf4 &\cf1 " , "\cf4 et\cf1 ")\par
\par
//1ere lettre du titre\par
First_Letter = \cf5 StringLeft\cf1  (\cf2 MovieTitleValue\cf1  , 1)\par
\cf3 If\cf1  (0<=First_Letter<=9) \cf3 Then\cf1\par
\tab First_Letter = "0a9"\par
\cf3\lang1036 End\cf1\par
\par
// Travail sur Titre Allocine pour la suite\par
\lang1033 MovieTitleAllocineValue is \cf3 String\cf1  = \cf2 MovieTitleValue\par
\cf1\par
\fs18 // Elimination des caract\'e8re 00004000 ...\cf4\par
RemoveHTML\cf3  \cf4 = \cf5 StringCounter\cf4 (\cf0 H\cf4 tmlCode, "0000")\par
\cf3 If\cf4  RemoveHTML >= 1 \cf3 Then\par
\cf4\tab RemoveCode = \cf5 StringExtraction\cf4 (\cf0 H\cf4 tmlCode, 2, "0000")\par
\tab RemoveCode = \cf5 StringLeft\cf4 (RemoveCode, 4)\par
\tab\cf0 H\cf4 tmlCode = \cf5 StringReplace\cf4 (HtmlCode, RemoveCode, "1111")\par
\cf3 End\cf4\fs20\par
\cf0\fs18 H\cf4 tmlCode = \cf5 StringReplace\cf4 (HtmlCode, "00001111", "")\par
\tab\tab\fs20\par
\cf1 //Titre original //<h4>Titre original : <i>The Matrix revolutions</i></h4><br />\par
\cf2 MovieOriginalTitleValue\cf1  = \cf5 BetweenStrings\cf1  (HtmlCode, "Titre original : <i>" , "</i>" )\par
\cf3 If\cf1  \cf2 MovieOriginalTitleValue\cf1  =\cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033  \cf3 Then\cf1\par
\tab\cf2 MovieOriginalTitleValue\cf1  = ""\par
\cf3 End\cf1\par
\tab\par
//dur\'e9e a transformer en minutes //<h4>Dur\'e9e : 2h 8min.</h4>&nbsp;\par
Tmps = \cf5 BetweenStrings\cf1 (HtmlCode, "<h4>Dur\'e9e :", "min" )\par
Tmps = \cf5 StringMiddle\cf1  (Tmps, 2 , Length(Tmps) )\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, "<h4>Film", ".</h4>&nbsp")\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
\cf3 If\cf4  \cf2 MovieCountryValue\cf1  = \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033  \cf3 Then\par
\cf4\tab\cf2\lang1036 MovieCountryValue\cf1  \cf4 = ""\par
\cf3 End\cf4\par
\cf1\par
//Recuperation de l'annee //<h4>Ann\'e9e de production : 2002</h4>\par
\lang1033 YearValue = \cf5 BetweenStrings\cf1  (Htmlcode, "<h4>Ann\'e9e de production :" , "</")\par
\cf2 MovieYearValue\cf1  = \cf5 StringRight\cf1  (YearValue ,4)\cf3\par
If\cf4  (YearValue \cf1 = \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033 )\cf4  OR (\cf2 MovieYearValue \cf1 = \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033 )\cf4  \cf3 Then\cf1\par
\tab YearValue = \cf5 BetweenStrings\cf1  (Htmlcode, "<h4>Ann\'e9e de production :" , "</h4>")\par
\cf3\tab\cf2 MovieYearValue\cf1  = \cf5 StringMiddle\cf1  (YearValue , 2 , Length (YearValue) )\cf3\par
End\cf1\par
\par
\par
//genre //<h4>Genre : Science fiction</h4>\par
\cf2 MovieFamilyValue\cf1  = \cf5 BetweenStrings\cf1  (HtmlCode, "<h4>Genre :" , "</h4>")\par
\cf2 MovieFamilyValue\cf1  = \cf5 BetweenStrings\cf1  (\cf2 MovieFamilyValue\cf1  , "link1"">\cf4 "\cf1  , "</\cf4 "\cf1  )\par
\cf2 MovieFamilyValue\cf1  = \cf5 FormatString\cf1  (\cf2 MovieFamilyValue\cf1  , "1UC" )\par
\cf3 If\cf4  \cf2 MovieFamilyValue\cf1  = \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033  \cf3 Then\par
\cf4\tab\cf2 MovieFamilyValue\cf1  =\cf4  ""\par
\cf3 End\par
\cf1\par
\par
//R\'e9sum\'e9\par
Sum = \cf5 BetweenStrings\cf1  (HtmlCode , "Synopsis" , "></div>")\par
\cf2 MovieSummaryValue\cf1  = \cf5 BetweenStrings\cf1  (Sum , "padding:10 0 0 0"">" , "</h4")\par
\cf2 MovieSummaryValue\cf1  = \cf5 StringReplace\cf1  (\cf2 MovieSummaryValue\cf1  ,\cf4 RC\cf1 , "")\cf2\par
MovieSummaryValue\cf1  = \cf5 StringReplace\cf1  (\cf2 MovieSummaryValue\cf1  ,\cf3 Charact\cf1 (13\cf4 )\cf1 , "")\par
\cf2 MovieSummaryValue\cf1  = RemoveHTMLTags (\cf2 MovieSummaryValue\cf1 )\par
\cf3 If\cf4  \cf2 MovieSummaryValue\cf1  = \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033  \cf3 Then\par
\cf1\tab\cf2\lang1036 MovieSummaryValue\cf1  =\cf4  ""\par
\cf3 End\cf1\par
\par
// Couleur ou N&B\par
BloCouleur = \cf5 BetweenStrings\cf1  (HtmlCode, "Fiche Technique</b" , "b>Forum de")\par
\lang1033 Color1 = \cf5 StringCounter\cf1  (blocouleur, "Couleur")\par
Color2 = \cf5 StringCounter\cf1  (blocouleur , "N&B")\par
\cf3 If\cf1  Color1 <> 0 \cf3 Then\cf1  \par
\tab\cf2 MovieColorBWValue\cf1  = "Couleur"\par
\cf3 End\cf1\par
\cf3 If\cf1  Color2 <> 0 \cf3 Then\cf1\par
\tab\cf2 MovieColorBWValue\cf1  = "NB"\par
\cf3 End\par
If\cf4  \cf2 MovieColorBWValue\cf1  = \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033  \cf3 Then\par
\cf2\tab MovieColorBWValue\cf1  \cf4 = ""\par
\cf3\lang1036 End\cf1\par
\par
// Ajout du lien vers le site Officiel du film\par
\lang1033 SiteOf = \cf5 BetweenStrings\cf1  (HtmlCode, "h4>Site officiel" , "<b>Site officiel")\par
SiteOf = \cf5 BetweenStrings\cf1  (SiteOf , "href=""" , """" )\par
\cf3 If\cf1  SiteOf <> \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033  \cf3 Then\cf1\par
\tab AddElementToGallery (1, "WEBPAGE" , SiteOf)\par
\cf3 Else\cf1\par
\tab SiteOf = ""\par
\cf3\lang1036 End\cf1\par
// On garde la possibilit\'e9 de l'ID Allocine pour les utilisations BA et images\par
\lang1033 MovieIDAllocineValue is \cf3 String\cf1  = \cf2 MovieIDValue\par
\cf4\par
\pard\cf1\lang1036 // Critiques spectateurs\par
\cf3 If\cf4  PERSO_BLOC <> "0" \cf3 Then\cf1\par
\cf4\tab Critik is \cf3 String\cf4  = \cf5 BetweenStrings\cf4  (HtmlCode, "<b>Critiques Spectateurs</" , "etoile_0.g\cf3 if\cf4 ")\par
\cf3\tab Not\cf4 Moy is \cf3 String\cf4  = \cf5 BetweenStrings\cf4  (Critik , "Note moyenne" , "/h4>")\par
\cf3\tab N\cf4 bMoy is \cf3 String\cf4  = \cf5 BetweenStrings\cf4  (\cf3 Not\cf4 Moy , "/>" , "<")\cf3\par
\tab Not\cf4 Moy = \cf5 BetweenStrings\cf4  (\cf3 Not\cf4 Moy , "etoile_" , """\cf3 ")\cf4\par
\cf3\tab If\cf4  \cf3 Not\cf4 Moy = \cf1 "\'04"\cf4  \cf3 Then\cf4\par
\tab\tab\cf3 Not\cf4 Moy = ""\par
\cf3\tab Else\par
\cf4\tab\cf3\tab Not\cf4 Moy = "\cf3 Not\cf4 e moyenne : " + \cf3 Not\cf4 Moy + "/4" + NbMoy + CR\par
\cf3\tab End\cf4\par
\tab etoile4 is \cf3 String\cf4  = \cf5 BetweenStrings\cf4  (Critik , "note=4.html" , "</a>")\par
\tab etoile4 = \cf5 BetweenStrings\cf4  (etoile4 , ">Les " , " critiques")\par
\cf3\tab If\cf4  etoile4 = \cf1 "\'04"\cf4  \cf3 Then\cf4\par
\tab\tab etoile4 = ""\par
\cf3\tab Else\cf4\par
\tab\tab etoile4 = "4 \'e9toiles (" + etoile4 + " ), "\par
\cf3\tab End\cf4\par
\par
\tab etoile3 is \cf3 String\cf4  = \cf5 BetweenStrings\cf4  (Critik , "note=3.html" , "</a>")\par
\tab etoile3 = \cf5 BetweenStrings\cf4  (etoile3 , ">Les" , "critiques")\par
\cf3\tab If\cf4  etoile3 = \cf1 "\'04"\cf4  \cf3 Then\cf4\par
\tab\tab etoile3 = ""\par
\cf3\tab Else\cf4\par
\tab\tab etoile3 = "3 \'e9toiles (" + etoile3 + "), "\par
\cf3\tab End\cf4\par
\tab etoile2 is \cf3 String\cf4  = \cf5 BetweenStrings\cf4  (Critik , "note=2.html" , "</a>")\par
\tab etoile2 = \cf5 BetweenStrings\cf4  (etoile2 , ">Les" , "critiques")\par
\cf3\tab If\cf4  etoile2 = \cf1 "\'04"\cf4  \cf3 Then\cf4\par
\tab\tab etoile2 = ""\par
\cf3\tab Else\cf4\par
\tab\tab etoile2 = "2 \'e9toiles (" + etoile2 + "), "\par
\cf3\tab End\cf4\par
\tab etoile1 is \cf3 String\cf4  = \cf5 BetweenStrings\cf4  (Critik , "note=1.html" , "</a>")\par
\tab etoile1 = \cf5 BetweenStrings\cf4  (etoile1 , ">Les" , "critiques")\par
\cf3\tab If\cf4  etoile1 = \cf1 "\'04"\cf4  \cf3 Then\cf4\par
\tab\tab etoile1 = ""\par
\cf3\tab Else\cf4\par
\tab\tab etoile1 = "1 \'e9toile (" + etoile1 + "), "\par
\cf3\tab End\cf4\par
\tab etoile0 is \cf3 String\cf4  = \cf5 BetweenStrings\cf4  (Critik , "note=0.html" , "</a>")\par
\tab etoile0 = \cf5 BetweenStrings\cf4  (etoile0 , ">Les" , "critiques")\par
\cf3\tab If\cf4  etoile0 = \cf1 "\'04"\cf4  \cf3 Then\cf4\par
\tab\tab etoile0 = ""\par
\cf3\tab Else\cf4\par
\tab\tab etoile0 = "Mauvais film (" +etoile0 + ")"\par
\cf3\tab End\cf4\par
\cf5\par
\cf4\tab Critik = \cf3 Not\cf4 Moy + etoile4 + etoile3 + etoile2 + etoile1 + etoile0\par
\cf3 End\cf4\par
\par
\cf1 // Public\par
\cf4 HtmlCode = \cf5 StringExtraction\cf4 (HtmlCode, 1, "<b>Synopsis</b>")\cf1\par
\cf4 Public_allocine\cf3  \cf4 = \cf5 BetweenStrings\cf4 (HtmlCode, "Interdit aux moins de ", " ans")\par
\cf1 // Info("Interdit aux moins de " + Public_allocine + " ans")\cf4\par
\cf1\par
\pard\nowidctlpar HtmlCode = ""\cf4\par
\cf1\par
\pard //________________________________________________________________________________________________________________________________________\par
\par
// Pour trouver les informations acteurs- realisteur... , chercher dans le code de la page :http://www.allocine.fr/film/casting_gen_cfilm= \par
\par
// recuperation du lien pour la Bande Annonce\par
BAllocine = "http://www.allocine.fr/film/video_gen_cfilm=" + \cf2 MovieIDValue\cf1  + ".html"\par
\par
\par
// Extraction du code de cette page\par
PersoCode = \cf5 GetPage\cf1 ("http://www.allocine.fr/film/casting_gen_cfilm=" , \cf2 MovieIDValue\cf1  ,".html")\par
\cf3 If\cf1  PersoCode = "" \cf3 Then\cf1\par
\tab\cf5 UserErrorMessage\cf1 ("Aucune page pour les personnalit\'e9s")\par
\cf3 End\par
\cf4\par
\pard\nowidctlpar\cf1\fs18 // Elimination des caract\'e8re 00004000 ...\cf4\par
RemoveHTML = \cf5 StringCounter\cf4 (PersoCode, "0000")\par
\cf3 If\cf4  RemoveHTML >= 1 \cf3 Then\par
\cf4\tab RemoveCode = \cf5 StringExtraction\cf4 (PersoCode, 2, "0000")\par
\tab RemoveCode = \cf5 StringLeft\cf4 (RemoveCode, 4)\par
\tab\cf0 H\cf4 tmlCode = \cf5 StringReplace\cf4 (PersoCode, RemoveCode, "1111")\par
\pard\cf3 End\cf4\fs20\par
\fs18 PersoCode= \cf5 StringReplace\cf4 (HtmlCode, "00001111", "")\fs20\par
\cf3\par
\cf1 // R\'e9alisateur - utiliser PersoCode \par
L\cf4 ist\cf1 Real = \cf5 BetweenStrings\cf1  (PersoCode , "R\'e9alisateur" \cf4 , "</table>"\cf1 )\par
\cf4 NbReal = \cf5 StringCounter\cf1  (List\cf4 Real\cf1  , "/personne/fichepersonne_gen_cpersonne=")\par
\pard\nowidctlpar\cf3 If\cf1  N\cf4 bReal\cf1  > 5 \cf3 Then\cf1  NbR\cf4 eal\cf1  = 5\par
\tab\cf3 For\cf1  i = 2 TO NbR\cf4 eal\cf1  +1\par
\tab\tab R\cf4 eal\cf1 1 = \cf5 StringExtraction\cf1  (List\cf4 Real\cf1  , i , "<a href")\par
\tab\tab R\cf4 ealisateur\cf1  = \cf5 BetweenStrings\cf1  (R\cf4 eal1\cf1 , "link1"">" , "</")\par
\tab\tab Realisateur = RemoveHTMLTags (Realisateur)\par
\tab\tab\cf3 If\cf1  (R\cf4 ealisateur\cf1  <> "\'04")\cf4  \cf1 AND\cf4  (Realisateur \cf1 <>\cf4  "")\cf3 Then\cf1\par
\tab\tab\tab\cf5 AddMovieDirectors\cf1 (Realisateur)\par
\cf3\tab\cf4\tab\cf3 End\par
End\cf4\par
\pard\cf1\par
\pard\nowidctlpar // Scenariste - utiliser PersoCode\par
List\cf4 Scn\cf1  = \cf5 BetweenStrings\cf1 ( PersoCode, "<b>Sc\'e9nario" , "</table>")\par
NbS\cf4 cn\cf1  = \cf5 StringCounter\cf1  (List\cf4 Scn\cf1  , "/personne/fichepersonne_gen_cpersonne=")\par
\cf3 If\cf1  NbS\cf4 cn\cf1  > 5 \cf3 Then\cf1  NbS\cf4 cn\cf1  = 5\par
\tab\cf3 For\cf1  i = 2 TO NbS\cf4 cn\cf1  +1\par
\tab\tab Scena1 = \cf5 StringExtraction\cf1  (List\cf4 Scn\cf1  , i , "<a href")\par
\tab\tab Scenariste = \cf5 BetweenStrings\cf1  (Scena1, "link1"">" , "</")\par
\tab\cf4\tab\cf1 Scenariste = RemoveHTMLTags (Scenariste\cf4 )\cf1\par
\tab\tab\cf3 If\cf1  (Scenariste \cf4 <>\cf1  "\'04")\cf4  AND (Scenariste <> "") \cf3 Then\cf1\par
\tab\tab\tab\cf5 AddMovieWriters\cf1 (Scenariste)\par
\tab\tab\cf3 End\cf1\par
\cf3 End\cf4\par
\pard\cf1\par
// Compositeur - utiliser PersoCode\par
Compo1 = \cf5 LinesAfter\cf1  (PersoCode , 1 , "Compositeur")\par
Compositeur = \cf5 BetweenStrings\cf1  (Compo1, "link1"">", "</")\par
Compositeur = RemoveHTMLTags (Compositeur\cf4 )\cf1\par
\cf3 If\cf1  (Compositeur \cf4 <>\cf1  "\'04")\cf4  AND (Compositeur <> "")\cf1  \cf3 Then\cf1\par
\cf4\tab\cf5 AddMovieComposers\cf1 (Compositeur)\par
\cf3 End\cf1\par
\par
// Acteurs - utiliser PersoCode\par
ListAct = \cf5 BetweenStrings\cf1 ( PersoCode, "<b>Acteurs" , "</table>")\par
\cf3 If\cf4  ListAct = \cf1 "\'04" \cf3 Then\cf1\par
\tab ListAct = \cf5 BetweenStrings\cf1 ( PersoCode, "<b>Acteur(s)" , "<b>Sc\'e9nario")\par
\cf3 End\cf1\par
L\cf4 istAct = \cf5 StringReplace\cf4  (ListAct, RC , "")\cf1\par
L\cf4 istAct = \cf5 StringReplace\cf4  (ListAct, \cf3 Charact\cf4 (13) , "")\par
\cf1 NbAct = \cf5 StringCounter\cf1  (ListAct , "/personne/fichepersonne_gen_cpersonne=")\par
\cf3 If\cf1  NbAct > 20 \cf3 Then\cf1  NbAct = 20\par
\tab\cf3 For\cf1  i = 2 TO NbAct +1\par
\tab\tab Acteur = \cf5 StringExtraction\cf1  (ListAct , i , "background-color")\par
\tab\cf4\tab\cf3 If\cf4  RECUP_ROLES<> "0" \cf3 Then\cf1\par
\tab\tab\tab role = \cf5 BetweenStrings\cf1  (Acteur, ""\cf4 "><h5>\cf1 " , "</h5")\par
\cf4\tab\tab\tab\cf1 role\cf4  = \cf5 RemoveHTMLTags\cf4  (role)\par
\tab\tab\cf3 End\cf1\par
\tab\tab\cf4 NomActeur\cf1  = \cf5 BetweenStrings\cf1  (Acteur , "link1"">", "</")\par
\tab\tab\cf4 NomActeur \cf1 = RemoveHTMLTags (N\cf4 omActeur\cf1 )\par
\tab\tab\cf3 If\cf1  NomActeur = "\'04" \cf3 Then\cf1\par
\tab\tab\tab NomActeur = ""\par
\tab\tab\cf3 End\cf1\par
\tab\tab\cf3 If\cf1  role = "\'04" \cf3 Then\cf1\par
\tab\tab\tab role = ""\par
\tab\tab\cf3 End\cf1\par
\tab\cf5 AddMovieActors\cf1  (NomActeur , role)\par
\cf3 End\cf1\par
\par
// Producteur\par
\cf3 If\cf4  PERSO_BLOC <> "0" \cf3 Then\cf1\par
\tab P\cf4 rod1\cf1  = \cf5 LinesAfter\cf1  (PersoCode , 1 , "<h5>Producteur")\par
\tab P\cf4 roducteur\cf1  = \cf5 BetweenStrings\cf1  (P\cf4 rod\cf1 1, "link1"">", "</")\par
\cf4\tab Producteur = "Producteur: " + Producteur\cf1\par
\cf3\tab If\cf1  P\cf4 roducteur\cf1  = "P\cf4 roducteur: \cf1\'04" \cf3 Then\cf1\par
\tab\tab P\cf4 roducteur\cf1  = ""\par
\cf3\tab End\par
End\cf1\par
\pard\nowidctlpar PersoCode =""\cf4\par
\cf1\par
// Recuperation de la jaquette grand format\par
\lang1033 ImgCode = \cf5 GetPage\cf1  ("http://www.allocine.fr/film/galerie_gen_cfilm=" , \cf2 MovieIDValue\cf1  , ".html")\par
ID_Pict = \cf5 BetweenStrings\cf1  (Imgcode , "img5.allocine.fr/acmedia/medias" , ".jpg")\par
\cf2 MoviePictureValue\cf1  = "img5.allocine.fr/acmedia/medias" + ID_Pict + ".jpg"\par
\cf3 If\cf1  \cf2 MoviePictureValue\cf1  = "img5.allocine.fr/acmedia/medias_.jpg" \cf3 Then\cf1\par
\tab\lang1036 PasImgAllo = 1\par
\tab\cf5 UserInformationMessage\cf1  ("Il n'y a ni jaquette, ni image sur Allocine." + cr + "Une recherche va \'eatre lanc\'e9e sur Moviecovers.")\par
\tab GoTo ImgMoviecovers\par
\cf3 End\cf1\par
\par
\lang1033 //________________________________________________________________________________________________________________________________________\par
\par
\cf3 If\cf4  VER\cf3 I\cf4 F_AFFICHE <> "0" \cf3 Then\par
\tab If\cf4  VER\cf3 IF\cf4 _AFFICHE = "1" \cf3 Then\cf4\par
\tab\tab\cf3\lang1036 Goto\cf4  Voir_affiche\par
\cf3\tab End\cf1\par
\cf3\tab If\cf1  YesNo ("Voulez vous voir la jaquette qui a \'e9t\'e9 trouv\'e9e ?" + CR + "Si oui , une page internet va s'ouvrir EN ARRIERE PLAN" +CR+ ...\par
\tab\tab\tab "Regardez alors la jaquette et revenez me dire si elle vous convient") \cf3 Then\par
\cf4\tab Voir_affiche:\cf1\par
\tab\tab\cf6 ShellExecute\cf1  ("http://www.allocine.fr/film/galerie_gen_cfilm=" + \cf2 MovieIDValue\cf1  + "&filtre=&page=1.html")\par
\par
\tab\tab\cf3\lang1033 If\cf1  Not YesNo ("\cf6 Information\cf1  UTILISATEUR :"+cr+  ...\par
\tab\tab\tab\tab\lang1036 "CLIQUEZ SUR 'OUI' SI LA JAQUETTE VOUS CONVIENT." + cr + ...\par
\tab\tab\tab\tab "Si vous r\'e9pondez NON, une recherche sera lanc\'e9e sur Moviecovers") \cf3 Then\cf1\par
\tab\tab\tab\par
\tab\tab // recuperation de la jaquette sur MovieCovers\par
\tab ImgMovieCovers:\par
\tab\tab // On vide la liste avant de la remplir par les films de MovieCovers\par
\tab\tab\lang1033 i=2\par
\tab\tab While Movies_ID_Array[i]<>""\par
\tab\tab\tab Movies_ID_Array[i]=""\par
\tab\tab\tab Movies_Title_Array[i]="" \par
\tab\tab\tab Movies_URL_Array[i]="" \par
\tab\tab\tab i++ \par
\tab\tab\cf3 End\cf4\par
\tab\tab\cf2 MovieIDValue\cf4 = ""\cf1  \par
\tab\tab\tab HtmlCodeMov = \cf5 GetPage\cf1 ("http://www.moviecovers.com/multicrit.html?titre=" , \cf7 TitleToSearch\cf1  , "&slow=1&listes=1")\par
\tab\tab\tab\cf3\lang1036 If\cf1  HtmlCodeMov = "" \cf3 Then\cf1\par
\tab\tab\tab\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a \'e9t\'e9 trouv\'e9e")\par
\tab\tab\tab\cf3\lang1033 End\cf1\par
\tab\tab\tab Movies_Delimiter = "<A href=""/film"\par
\tab\tab\tab Movies_Number = \cf5 StringCounter\cf1 (HtmlCodeMov, Movies_Delimiter)\par
\tab\tab\tab\cf3\lang1036 If\cf1  Movies_Number = 0 \cf3 Then\cf1\par
\tab\tab\tab\tab\cf5 UserErrorMessage\cf1 ("Aucun film n'a \'e9t\'e9 trouv\'e9 avec ce titre sur MovieCovers." \cf4 + CR + \tab "Une recherche va maintenant \'eatre lanc\'e9e sur le f\cf3 or\cf4 um."\cf1 )\par
\par
\cf4\tab\tab\tab\tab Recherche_f\cf3 or\cf4 um:\par
\tab\tab\tab\tab\cf1 // Ajout recherche affiche sur le forum MovieCovers si aucune affiche n'est trouv\'e9e sur MovieCovers\par
\cf4\tab\tab\tab\tab\cf1\lang1033 HtmlCodeMov = \cf5 GetPage\cf1 ("http://www.moviecovers.com/forum/search.html?forum=MovieCovers&query=" , \cf7 TitleToSearch\cf1  , "")\par
\tab\tab\tab\tab\cf3\lang1036 If\cf1  HtmlCodeMov = "" \cf3 Then\cf1\par
\tab\tab\tab\tab\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a \'e9t\'e9 trouv\'e9e")\par
\tab\tab\tab\tab\cf3\lang1033 End\cf1\par
\tab\tab\tab\tab Movies_Delimiter = "<A href=""\cf4 /forum/fil\cf1 "\par
\tab\tab\tab\tab Movies_Number = \cf5 StringCounter\cf1 (HtmlCodeMov, Movies_Delimiter)\par
\tab\tab\tab\tab\cf3\lang1036 If\cf1  Movies_Number = 0 \cf3 Then\cf1\par
\tab\tab\tab\tab\tab\cf5 UserErrorMessage\cf1 ("Aucun film n'a \'e9t\'e9 trouv\'e9 avec ce titre sur l\cf4 e f\cf3 or\cf4 um de \cf1 MovieCovers.")\par
\tab\tab\tab\tab\tab\cf2\lang1033 MoviePictureValue\cf1  = ""\par
\tab\tab\tab\tab\cf3 Else\cf1\par
\par
\tab\tab\tab\tab\tab\cf3 For\cf1  k=2 TO Movies_Number + 1\par
\tab\tab\tab\tab\tab\tab Movie_Title=\cf5 StringExtraction\cf1 (HtmlCodeMov, k, Movies_Delimiter)\par
\tab\tab\tab\tab\tab\tab Movie_ID=\cf5 BetweenStrings\cf1 (Movie_Title, "&tid=", """>")\par
\tab\tab\tab\tab\tab\tab Movie_Title=\cf5 BetweenStrings\cf1 (Movie_Title, """>", "</A>")\par
\cf4\tab\tab\tab\tab\tab\tab Movie_Title=\cf5 StringReplace\cf4 (Movie_Title, "&Egrave;", "E")\par
\tab\tab\tab\tab\tab\tab Movie_Title=\cf5 StringReplace\cf4 (Movie_Title, "&Eacute;", "E")\par
\tab\tab\tab\tab\tab\tab Movie_Title=\cf5 StringReplace\cf4 (Movie_Title, "&Ecirc;", "E")\par
\tab\tab\tab\tab\tab\tab Movie_Title=\cf5 StringReplace\cf4 (Movie_Title, "&amp;", " ET ")\cf1\par
\tab\tab\tab\tab\tab\tab Movie_URL = "http://www.moviecovers.com/forum/fil.html?forum=MovieCovers&tid=" +\cf4  \cf1 Movie_ID\par
\tab\tab\tab\tab\tab\tab\cf5 AddMovieToList\cf1 (k, Movie_ID, Movie_Title, Movie_URL)\par
\tab\tab\tab\tab\tab\cf3\lang1036 End\cf1\par
\tab\tab\tab\tab\tab\cf5 OpenMoviesList\cf1 ()\par
\tab\tab\tab\tab\tab\cf3 If\cf1  \cf2 MovieIDValue\cf1  = "" \cf3 Then\cf1\par
\tab\tab\tab\tab\tab\tab\cf5 UserErrorMessage\cf1 ("Vous n'avez s\'e9l\'e9ctionn\'e9 aucun film."+cr+"Ou aucun film ne correspondait \'e0 votre recherche" +cr+"Aucune jaquette pour ce film")\par
\tab\tab\tab\tab\tab\cf3\lang1033 End\cf1\par
\tab\tab\tab\tab\tab HtmlCodeMov = \cf5 GetMovie\cf1 (\cf2 MovieURLValue\cf1 ,"", "")\par
\tab\tab\tab\tab\tab\cf3 If\cf1  HtmlCodeMov = "" \cf3 Then\cf1\par
\tab\tab\tab\tab\tab\tab\cf5\lang1036 UserErrorMessage\cf1 ("Cette page n'a \'e9t\'e9 trouv\'e9e")\par
\tab\tab\tab\tab\tab\cf3\lang1033 End\par
\cf4\tab\tab\tab\tab\tab\cf2 MovieTitleValue\cf1  = \cf5 FormatString\cf1 (\cf2 MovieTitleValue\cf1 ,"WOS")\par
\tab\tab\tab\tab\tab\cf2 MoviePictureValue\cf1  = \cf5 BetweenStrings\cf1 (HtmlCodeMov, "HREF=""/getjpg.html/", """")\par
\tab\tab\tab\tab\tab PictureFile = \cf5 GetPage\cf1 ("", "http://www.moviecovers.com/getjpg.html/" + \cf2 MoviePictureValue\cf1 , "")\par
\tab\tab\tab\tab\tab\cf2 MoviePictureValue\cf1  = "http://data.moviecovers.com/DATA/zipcache/" + \cf2 MoviePictureValue\cf1\par
\tab\tab\tab\tab\cf3\lang1036 End\par
\cf4\tab\tab\tab\tab\cf1 // Fin de la boucle de recherche sur le forum\par
\tab\tab\tab\cf3\lang1033 Else\cf1\par
\tab\par
\tab\tab\tab\tab\cf3 For\cf1  k=2 TO Movies_Number + 1\par
\tab\tab\tab\tab\tab Movie_Title=\cf5 StringExtraction\cf1 (HtmlCodeMov, k, Movies_Delimiter)\par
\tab\tab\tab\tab\tab Movie_ID=\cf5 BetweenStrings\cf1 (Movie_Title, "/titre_", """>")\par
\cf4\tab\tab\tab\tab\tab Annee_index=\cf5 BetweenStrings\cf4 (Movie_Title, "> (", ")")\cf1\par
\tab\tab\tab\tab\tab Movie_Title=\cf5 BetweenStrings\cf1 (Movie_Title, """>", "</A>")\par
\cf4\tab\tab\tab\tab\tab Movie_Title= Movie_Title + "   (" + Annee_index + ")"\cf1\par
\tab\tab\tab\tab\tab Movie_URL = "http://www.moviecovers.com/film/titre_"+\tab Movie_ID\par
\tab\tab\tab\tab\tab\cf5 AddMovieToList\cf1 (k, Movie_ID, Movie_Title, Movie_URL)\par
\tab\tab\tab\tab\cf3\lang1036 End\cf1\par
\tab\tab\tab\tab\cf5 OpenMoviesList\cf1 ()\par
\tab\tab\tab\tab\cf3 If\cf1  \cf2 MovieIDValue\cf1  = "" \cf3 Then\cf1\par
\tab\tab\tab\tab\tab\cf5 UserErrorMessage\cf1 ("Vous n'avez s\'e9l\'e9ctionn\'e9 aucun film."+cr+"Ou aucun film ne correspondait \'e0 votre recherche" +cr+"Aucune jaquette pour ce film"+\cf4 cr+cr+"Une recherche va maintenant \'eatre lanc\'e9e sur le f\cf3 or\cf4 um." \cf1 )\par
\tab\tab\tab\tab\tab Goto Recherche_forum\par
\cf4\tab\tab\tab\tab\cf3 End\cf1\par
\par
\tab\tab\tab\tab HtmlCodeMov = \cf5 GetMovie\cf1 (\cf2 MovieURLValue\cf1 ,"", "")\par
\tab\tab\tab\tab\cf3 If\cf1  HtmlCodeMov = "" \cf3 Then\cf1\par
\tab\tab\tab\tab\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a \'e9t\'e9 trouv\'e9e")\par
\tab\tab\tab\tab\cf3 End\par
\cf4\tab\tab\tab\tab\cf1 // Suppression de l'index "ann\'e9e" dans le titre\par
\cf4\tab\tab\tab\tab\lang1033 Remove_index = \cf5 BetweenStrings\cf4 (\cf2 MovieTitleValue\cf4 , "   (", ")")\cf1\par
\cf2\tab\tab\cf4\tab\tab\cf2 MovieTitleValue\cf4  = \cf5 StringReplace\cf4 (\cf2 MovieTitleValue\cf4 , "   (" + Remove_index + ")", "")\par
\tab\tab\tab\tab\cf1 //\par
\tab\tab\tab\tab\cf2 MovieTitleValue\cf1  = \cf5 FormatString\cf1 (\cf2 MovieTitleValue\cf1 ,"WOS")\par
\tab\tab\tab\tab\cf2 MoviePictureValue\cf1  = \cf5 BetweenStrings\cf1 (HtmlCodeMov, "<A href=""/getjpg.html/", """")\par
\tab\tab\tab\tab PictureFile = \cf5 GetPage\cf1 ("", "http://www.moviecovers.com/getjpg.html/" + \cf2 MoviePictureValue\cf1 , "")\par
\tab\tab\tab\tab\cf2 MoviePictureValue\cf1  = "http://data.moviecovers.com/DATA/zipcache/" + \cf2 MoviePictureValue\cf1\par
\tab\tab\tab\cf3 End\cf1\par
\tab\tab\cf3 End\cf1\par
\cf3\tab End\cf1\par
\tab HtmlCodeMov = ""\par
\cf3 End\par
\cf1\par
//________________________________________________________________________________________________________________________________________\par
\par
\par
\lang1036 ////////////////////////////////////////////////\par
// AJOUT DES ELEMENTS A LA GALERIE MULTIMEDIA //\par
\lang1033 ////////////////////////////////////////////////\par
\par
\cf3 If\cf1  (V_complete = 1)  AND Not(PasImgAllo = 1) \cf3 Then\cf1\par
\tab Goto Gall\par
\cf3 Else\cf1\par
\tab Goto FinGall\par
\cf3 End\cf1\par
\par
\lang1036 //Ajout des photos dans la galerie\par
\lang1033 Gall:\par
\cf3 If\cf4  GALLERIE <> "0" \cf3 Then\par
\cf4\tab\cf3 If\cf4  GALLERIE = "1" \cf3 Then\cf4\par
\tab\tab\cf3\lang1036 Goto\cf4  Import_Gallerie\par
\tab\cf3 End\cf4\par
\cf3\tab If\cf1  YesNo ("Voulez vous ajouter les images du film dans la Galerie Multimedia?" + cr + ...\par
\tab\tab\tab "Attention, cette op\'e9ration va augmenter le temps d'execution du script" + cr + cr + ...\par
\tab\tab\tab "L'explorateur windows va s'ouvrir, vous montrant les images t\'e9l\'e9charg\'e9es... Veuillez patienter quelques instants") \cf3 Then\par
\cf1\par
\tab I\cf4 mport_Gallerie:\par
\cf1\tab\tab Page1 = \cf5 GetMovie\cf1 ("http://www.allocine.fr/film/galerievignette_gen_cfilm=" , MovieIDAllocineValue , "&filtre=&page=1.html")\par
\tab\tab Page2 = \cf5 GetMovie\cf1 ("http://www.allocine.fr/film/galerievignette_gen_cfilm=" , MovieIDAllocineValue , "&filtre=&page=2.html")\par
\tab\tab Pages = Page1 + Page2\par
\tab\tab\lang1033 ImgDelim = "/film/galerie_gen_cfilm="\par
\tab\tab Img_Nb = \cf5 StringCounter\cf1 (Pages, ImgDelim)\par
\tab\tab\cf3 If\cf1  Img_Nb = 0 \cf3 Then\cf1\par
\tab\tab\tab Goto FinGall\par
\tab\tab\cf3 End\cf1\par
\tab\tab\cf3 If\cf1  Img_Nb > 31 \cf3 Then\cf1  Img_Nb = 31\par
\tab\tab Num is \cf3 Int \cf1 = 1\par
\tab\tab\cf3 For\cf1  i=2 to Img_Nb+1\par
\tab\tab\tab ImageID = \cf5 StringExtraction\cf1 (Pages , i, ImgDelim)\par
\tab\tab\tab ImageID = \cf5 BetweenStrings\cf1  (ImageID , "mediafichier=" , ".html")\par
\tab\tab\tab LienPageImg = \cf5 GetPage\cf1  ("http://www.allocine.fr/film/galerie_gen_cfilm=" + MovieIDAllocineValue , "&filtre=&cmediafichier=" , ImageID + ".html")\par
\tab\tab\tab ImageNo = \cf5 BetweenStrings\cf1 (LienPageImg,"img5.allocine.fr/acmedia/medias",".jpg")\par
\tab\tab\tab\cf3 If\cf1  ImageNo = \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033  \cf3 Then\cf1\par
\tab\tab\tab\tab ImageNo = ""\par
\tab\tab\tab\cf3 End\cf1\par
\tab\tab\tab CreateDirectory (Rep_Img_Gall + First_Letter + "\\" + MovieTitleAllocineValue )\par
\pard\lang1036\tab\cf4\tab\tab\cf3 If\cf4  VOIR_IMAGE_GALERIE = "1" \cf3 Then\cf4\par
\tab\cf1\tab\tab\tab\cf6 ShellExecute\cf1  (Rep_Img_Gall + First_Letter + "\\" + MovieTitleAllocineValue)\par
\pard\nowidctlpar\cf4\tab\tab\tab\cf3 End\cf1\lang1033\par
\tab\tab\tab\lang1036 //PROCEDURE DownloadFichier (URL, Dossier, Nom_Fichier)\par
\tab\tab\tab ResAppel = Faux\par
\tab\tab\tab Page_html = ""\par
\tab\tab\tab ResAppel = HTTPRequ\'eate("http://img5.allocine.fr/acmedia/medias" + ImageNo + ".jpg")\par
\tab\tab\tab\cf3 If\cf1  ResAppel = Vrai \cf3 Then\cf1\par
\tab\tab\tab\tab Page_html= HTTPDonneR\'e9sultat()\par
\tab\tab\tab\cf3 Else\cf1\par
\tab\tab\tab\tab Erreur("Server down")\par
\tab\tab\tab\cf3 End\cf1\par
\tab\tab\tab // Cr\'e9ation d'un fichier externe\par
\tab\tab\tab\lang1033 IdFichier = fOuvre(Rep_Img_Gall + First_Letter + "\\" + MovieTitleAllocineValue + "\\" + MovieTitleAllocineValue + "_" + Num + ".jpg" ,  foCr\'e9ation)\par
\tab\tab\tab\cf3 If\cf1  IdFichier <> -1 \cf3 Then\cf1\par
\tab\tab\tab\tab ResEcriture = fEcrit(IdFichier, Page_html)\par
\tab\tab\tab\tab\cf3 If\cf1  ResEcriture <> -1 \cf3 Then\cf1\par
\tab\tab\tab\tab\cf3 Else\cf1\par
\tab\tab\tab\tab\tab Info("File Not found"+ErreurInfo(errMessage))\par
\tab\tab\tab\tab\cf3 End\cf1\par
\tab\tab\tab\cf3 Else\cf1\par
\tab\tab\tab\tab Info("File Not found"+ErreurInfo(errMessage))\par
\tab\tab\tab\cf3 End\cf1\par
\tab\tab\tab fFerme (IdFichier)\par
\par
\tab\tab\tab ImageGallery = Rep_Img_Gall + First_Letter + "\\" + MovieTitleAllocineValue + "\\" + MovieTitleAllocineValue + "_" + Num + ".jpg"\par
\tab\tab\tab AddElementToGallery(i+Num,"PICTURE",ImageGallery)\par
\tab\tab\tab Num++\par
\tab\tab\tab ChoixGall = 1\par
\tab\tab\cf3 End\cf1\par
\cf3\tab Else\cf1\par
\cf3\tab End\cf1\par
\cf3 End\cf1\par
FinGall:\par
\par
Pages = ""\par
//________________________________________________________________________________________________________________________________________\par
\par
\cf3 If\cf1  V_complete = 1 \cf3 Then\cf1\par
\tab Goto BA\par
\cf3 Else\cf1\par
\tab Goto FinBA\par
\cf3 End\cf1\par
\par
\lang1036 ///////////////////////////////////////////////////\par
// Gestion des bandes annonces sur site distants //\par
\lang1033 ///////////////////////////////////////////////////\par
BA:\par
\cf3 If\cf4  C\cf1 H\cf4 OIX\cf1 _BA\cf4  = "0" \cf3 Then\cf4\par
\tab\cf3 Goto\cf4  FinBA\par
\cf3 Else\cf4\par
\tab\cf3 If\cf4  (C\cf1 H\cf4 OIX\cf1 _BA\cf4  = "1") OR (C\cf1 H\cf4 OIX\cf1 _BA\cf4  = "HQ") \cf3 Then\cf4\par
\tab\tab\cf3 Goto\cf4  BA_Cinefil\par
\tab\cf3 End\cf4\par
\tab\cf3 If\cf4  C\cf1 H\cf4 OIX\cf1 _BA\cf4  = "2" \cf3 Then\cf4\par
\tab\tab\cf3 Goto\cf4  BA_COC\par
\tab\cf3 End\cf4\par
\cf3 End\cf4\tab\cf1\par
\cf3\lang1036 If\cf1  YesNo ("voulez vous enregistrer la Bande Annonce sur votre disque dur?" + cr + ...\par
\tab    "Veuillez noter qu'il faut beaucoup de temps pour telecharger la fiche avec la Bande Annonce, m\'eame avec l'ADSL." ) \cf3 Then\cf1\par
\par
\tab\cf3 If\cf1  YesNo ("Voulez vous la Bande Annonce sur Cinefil.com?" + cr + ...\par
\tab\tab    "Si vous cliquez sur ""OUI"" alors la recherche sera faite sur cinefil," + cr + ...\par
\tab\tab    "Si vous cliquez sur ""NON"" alors la recherche sera faite sur commeaucinema")\par
\tab\lang1033 ///////////////////////\par
\tab // Video sur cinefil //\par
\tab ///////////////////////\par
\tab BA_Cinefil:\par
\tab i=3\par
\tab While Movies_ID_Array[i]<>""\par
\tab\tab Movies_ID_Array[i]=""\par
\tab\tab Movies_Title_Array[i]="" \par
\tab\tab Movies_URL_Array[i]="" \par
\tab\tab i++ \par
\tab\cf3 End\cf1\par
\par
\tab //Procedure de remplacement \cf5 GetPage\cf1\par
\cf4\tab Res = HTTPRequ\'eate("http://www.cinefil.com/cinefil2005/CFM_Recherches/films.cfm?pages=1&lachaine2=" + \cf7 TitleToSearch\cf4 )\par
\tab\cf3\lang1036 If\cf4  Res = Vrai \cf3 Then\cf4\par
\tab\tab HtmlCode\cf1  \cf4 = \cf1 HTTPDonneR\'e9sultat()\cf4\par
\tab\cf3\lang1033 End\cf1\par
\tab\cf3 If\cf1  HtmlCode = "" \cf3 Then\cf1\par
\tab\tab NoBA_Cinefil = 1\par
\tab\tab\cf3\lang1036 If\cf1  NoBA_COC = 1 \cf3 Then\cf1\par
\tab\tab\tab\cf5 UserInformationMessage\cf1 ("D\'e9sol\'e9, mais il n'y a aucune BA sur Cinefil ET Commeaucinema.")\par
\tab\tab\tab Goto FinBA\tab\tab\tab\par
\tab\tab\cf3 Else\cf1\par
\tab\tab\tab\cf3 If\cf1  YesNo ("Pas de Bande Annonce pour cette recherche" +CR+CR+ "Voulez Vous lancer la recherche sur Commeaucinema ?") \cf3\lang1033 Then\cf1\par
\tab\tab\tab\tab Goto BA_COC\par
\tab\tab\tab\cf3 Else\cf1\par
\tab\tab\tab\tab Goto FinBA\tab\par
\tab\tab\tab\cf3 End\cf1\par
\tab\tab\cf3 End\cf1\tab\tab\par
\tab\cf3 End\cf1\par
\tab Movies_Delimiter = "/fichefilm.cfm?ref="\par
\tab Movies_Number = \cf5 StringCounter\cf1 (HtmlCode, Movies_Delimiter)\par
\tab\cf3 If\cf1  Movies_Number = 0 \cf3 Then\cf1\par
\tab\tab NoBA_Cinefil = 1\par
\tab\tab\cf3\lang1036 If\cf1  NoBA_COC = 1 \cf3 Then\cf1\par
\tab\tab\tab\cf5 UserInformationMessage\cf1 ("D\'e9sol\'e9, mais il n'y a aucune BA sur Cinefil ET Commeaucinema.")\par
\tab\tab\tab Goto FinBA\tab\tab\tab\par
\tab\tab\cf3 Else\cf1\par
\tab\tab\tab\cf3 If\cf1  YesNo ("Pas de Bande Annonce pour cette recherche" +CR+CR+ "Voulez Vous lancer la recherche sur Commeaucinema ?") \cf3\lang1033 Then\cf1\par
\tab\tab\tab\tab Goto BA_COC\par
\tab\tab\tab\cf3 Else\cf1\par
\tab\tab\tab\tab Goto FinBA\tab\par
\tab\tab\tab\cf3 End\cf1\par
\tab\tab\cf3 End\cf1\tab\tab\par
\tab\cf3 End\cf1\par
\par
\tab\cf3 For\cf1  i=2 to Movies_Number + 1\par
\tab\tab Movie_Title = "\cf4 <font class=noir>"\cf1  +  \cf5 StringExtraction\cf1  ( HtmlCode, i ,"\cf4 <font class=noir>"\cf1  )\tab\par
\tab\tab Movie_ID = \cf5 BetweenStrings\cf1  ( Movie_Title , Movies_Delimiter , "' TITLE" )\par
\tab\tab\cf4 Annee_index = \cf5 BetweenStrings\cf4 ( Movie_Title, "[", "]" )\cf1\par
\tab\tab Movie_Title = \cf5 BetweenStrings\cf1 (Movie_Title, "TITLE=""" , """>")\par
\tab\tab Movie_Title = \cf5 StringRefine\cf1 (Movie_Title)\par
\tab\tab Movie_Title = \cf5 FormatString\cf1  (Movie_Title, "UC")\par
\cf4\tab\tab\cf3 If\cf4  Annee_index <> \lang1036 "\cf1\'04\cf4 "\lang1033  \cf3 Then\cf4\par
\tab\tab\tab\cf1 Movie_Title = \cf5 StringRefine\cf1 (Movie_Title \cf4 + "   (" + Annee_index + ")")\par
\tab\tab\cf3 End\cf1\par
\tab\tab Movie_Title = RemoveHTMLTags (Movie_Title)\par
\tab\tab Movie_URL = "http://www.cinefil.com/cinefil2005/FicheFilm.cfm?ref=" + Movie_ID\par
\tab\tab\cf5 AddMovieToList\cf1 (i, Movie_ID, Movie_Title, Movie_URL)\par
\tab\cf3 End\cf1\par
\par
\tab\cf3 If\cf1  Movies_Number <> 0 \cf3 Then\cf1\par
\tab\tab\cf5 OpenMoviesList\cf1 ()\par
\tab\cf3 End\cf1\par
\tab\cf3 If\cf1  \cf2 MovieIDValue\cf1  = "" \cf3 Then\cf1\par
\tab\tab NoBA_Cinefil = 1\par
\tab\tab\cf3\lang1036 If\cf1  NoBA_COC = 1 \cf3 Then\cf1\par
\tab\tab\tab\cf5 UserInformationMessage\cf1 ("D\'e9sol\'e9, mais il n'y a aucune BA sur Cinefil ET Commeaucinema.")\par
\tab\tab\tab Goto FinBA\tab\tab\tab\par
\tab\tab\cf3 Else\cf1\par
\tab\tab\tab\cf3 If\cf1  YesNo ("Pas de Bande Annonce pour cette recherche" +CR+CR+ "Voulez Vous lancer la recherche sur Commeaucinema ?") \cf3\lang1033 Then\cf1\par
\tab\tab\tab\tab Goto BA_COC\par
\tab\tab\tab\cf3 Else\cf1\par
\tab\tab\tab\tab Goto FinBA\tab\par
\tab\tab\tab\cf3 End\cf1\par
\tab\tab\cf3 End\cf1\tab\tab\par
\tab\cf3 End\par
\cf1\tab //Procedure de remplacement \cf5 GetMovie\cf1\par
\cf4\tab Res = HTTPRequ\'eate(\cf2 MovieURLValue\cf4 )\par
\tab\cf3 If\cf4  Res = Vrai \cf3 Then\cf4\par
\tab\tab HtmlCode\cf1  \cf4 = \cf1 HTTPDonneR\'e9sultat()\cf4\par
\tab\cf3 End\cf1\par
\cf4\tab\cf3 If\cf1  HtmlCode = "" \cf3 Then\cf1\par
\tab\tab NoBA_Cinefil = 1\par
\tab\tab\cf3 If\cf1  NoBA_COC = 1 \cf3 Then\cf1\par
\tab\tab\tab\cf5\lang1036 UserInformationMessage\cf1 ("D\'e9sol\'e9, mais il n'y a aucune BA sur Cinefil ET Commeaucinema.")\par
\tab\tab\tab Goto FinBA\tab\tab\tab\par
\tab\tab\cf3 Else\cf1\par
\tab\tab\tab\cf3 If\cf1  YesNo ("Vous n'avez selectionn\'e9 aucun film, ou alors, il n'y avait pas de Bande Annonce pour cette recherche." +CR+CR+ "Voulez Vous lancer la recherche sur Commeaucinema ?") \cf3 Then\cf1\par
\tab\tab\tab\tab Goto BA_COC\par
\tab\tab\tab\cf3\lang1033 Else\cf1\par
\tab\tab\tab\tab Goto FinBA\tab\par
\tab\tab\tab\cf3 End\cf1\par
\tab\tab\cf3 End\cf1\tab\tab\tab\par
\tab\cf3\lang1036 End\cf1\par
\tab\par
\cf4\tab\cf1 // R\'e9cup\'e9ration de l'info Public sur Cin\'e9fil\par
\cf4\tab\lang1033 Page_cinefil = 1\par
\tab Public_cinefil = \cf5 StringCounter\cf4 (HtmlCode, "Accord parental indispensable")\par
\tab\cf3 If\cf4  Public_cinefil >= 1 \cf3 Then\cf4\par
\tab\tab\lang1036 Public_cinefil = 10\par
\tab\cf3 Else\cf4\par
\tab\tab Public_cinefil = \cf5 BetweenStrings\cf4 (HtmlCode, "Film interdit en salle au moins de ", " ans")\par
\tab\cf3 End\cf4\par
\tab\cf1 //Info("Interdit aux moins de " + Public_cinefil + " ans")\par
\par
\tab\lang1033 BAMpegHQ = \cf5 BetweenStrings\cf1  (HtmlCode, "VideoMpegHQ.cfm?" ,"MPEGVIDEOHQ")\par
\tab BAWmv = \cf5 BetweenStrings\cf1  (HtmlCode, "VideoWMV.cfm?" ,"WMVVIDEO")\par
\tab BARp = \cf5 BetweenStrings\cf1  (HtmlCode, "VideoRealPlayer.cfm?" ,"REALVIDEO")\par
\par
\tab\cf3 If\cf1  (BAMpegHQ = \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033 ) OR  (BAMpegHQ = "")\cf3 Then\par
\cf4\tab\tab\cf3 If\cf4  CHOIX_BA <> "HQ" \cf3 Then\cf1\par
\tab\tab\tab\cf3 If\cf1  (BAWmv = \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033 ) OR (BAWmv = \cf4\lang1036 ""\cf1\lang1033 ) \cf3 Then\cf1\par
\tab\tab\tab\tab\cf3 If\cf1  (BARp = \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033 ) OR (BARp = "") \cf3 Then\cf1\par
\tab\tab\tab\tab\tab MovieTrailerValue = BAllocine\par
\tab\tab\tab\tab\cf3 Else\cf1\par
\tab\tab\tab\tab\tab MovieTrailerValue = "http://194.2.120.77/bandeannonce/real_new_rm/" +  \cf2 MovieIDValue\cf1  + "pnrv.rm"\par
\tab\tab\tab\tab\tab extension = ".rm"\par
\tab\tab\tab\tab\cf3 End\cf1\par
\tab\tab\tab\cf3 Else\cf1  \par
\tab\tab\tab\tab MovieTrailerValue = "http://194.2.120.77/bandeannonce/wmv/" +  \cf2 MovieIDValue\cf1  + ".wmv"\par
\tab\tab\tab\tab extension = ".wmv"\par
\tab\tab\tab\cf3 End\cf4\par
\tab\tab\cf3 End\cf1\par
\tab\cf3 Else\cf1\par
\tab\tab MovieTrailerValue = "http://194.2.120.77/bandeannonce/mpegh/" +  \cf2 MovieIDValue\cf1  + "-h.mpg"\par
\tab\tab extension = ".mpeg"\par
\tab\cf3 End\cf1\par
\par
\tab\cf3 If\cf1  MovieTrailerValue = \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033  \cf3 Then\cf1\par
\tab\tab MovieTrailerValue = "http://194.2.120.77/bandeannonce/mpeg/" +  \cf2 MovieIDValue\cf1  + ".mpg"\par
\tab\tab extension = ".mpeg"\par
\tab\cf3 End\cf1\par
\tab\par
\tab\cf3 If\cf1  (BaMpegHQ <> \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033 ) OR (BAWmv <> \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033 ) OR (BARp <> \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033 ) \cf3 Then\cf1\tab\tab\par
\tab\tab\lang1036 //PROCEDURE DownloadFichier (URL, Dossier, Nom_Fichier)\par
\tab\tab\lang1033 Page_html = ""\par
\tab\tab ResAppel = HTTPRequ\'eate(MovieTrailerValue)\par
\tab\tab\cf3\lang1036 If\cf1  ResAppel = Vrai \cf3 Then\cf1\par
\tab\tab\tab Page_html= HTTPDonneR\'e9sultat()\par
\tab\tab\cf3 Else\cf1\par
\tab\tab\tab Erreur("Server down")\par
\tab\tab\cf3 End\cf1\par
\tab\tab // Cr\'e9ation d'un fichier externe\par
\tab\tab\lang1033 IdFichier = fOuvre( Rep_BA + MovieTitleAllocineValue + extension ,  foCr\'e9ation)\par
\tab\tab\cf3 If\cf1  IdFichier <> -1 \cf3 Then\cf1\par
\tab\tab\tab\lang1036 ResEcriture = fEcrit(IdFichier, Page_html)\par
\tab\tab\tab\cf3\lang1033 If\cf1  ResEcriture <> -1 \cf3 Then\par
\cf4\tab\tab\tab\tab\cf1\lang1036 AddElementToGallery(\cf4 2\cf1 ,"\cf4 VIDEO\cf1 ",Rep_BA + MovieTitleAllocineValue + extension)\lang1033\par
\tab\tab\tab\cf3 Else\cf1\par
\tab\tab\tab\tab Info("File Not found"+ErreurInfo(errMessage))\par
\tab\tab\tab\cf3 End\cf1\par
\tab\tab\cf3 Else\cf1\par
\tab\tab\tab Info("File Not found"+ErreurInfo(errMessage))\par
\tab\tab\cf3 End\cf1\par
\tab\tab fFerme (IdFichier)\par
\tab\tab //DownloadFile (MovieTrailerValue, Rep_BA , MovieTitleAllocineValue + extension)\par
\tab\tab MovieTrailerValue = Rep_BA + MovieTitleAllocineValue + extension\par
\tab\tab\par
\tab\cf3 Else\cf1\par
\tab\tab NoBA_Cinefil = 1\par
\tab\tab\cf3 If\cf1  NoBA_COC = 1 \cf3 Then\cf1\par
\tab\tab\tab\cf5\lang1036 UserInformationMessage\cf1 ("D\'e9sol\'e9, mais il n'y a aucune BA sur Cinefil ET Commeaucinema.")\par
\tab\tab\tab Goto FinBA\tab\tab\tab\par
\tab\tab\cf3 Else\cf1\par
\tab\tab\tab\cf3 If\cf1  YesNo ("Vous n'avez selectionn\'e9 aucun film, ou alors, il n'y avait pas de Bande Annonce pour cette recherche \cf4 sur Cin\'e9fil\cf1 ." +CR+CR+ "Voulez Vous lancer la recherche sur Commeaucinema ?") \cf3 Then\cf1\par
\tab\tab\tab\tab Goto BA_COC\par
\tab\tab\tab\cf3\lang1033 Else\cf1\par
\tab\tab\tab\tab Goto FinBA\tab\par
\tab\tab\tab\cf3 End\cf1\par
\tab\tab\cf3 End\cf1\tab\tab\par
\tab\cf3\lang1036 End\cf1\par
\par
\tab ///////////////////////////////////\par
\tab // FIN SOUS PROGRAMME BA Cinefil //\par
\tab ///////////////////////////////////\par
\par
\tab\cf3 Else\cf1\par
\tab ///////////////////////////////////////////////////////////////\par
\tab // DEBUT DU SOUS PROGRAMME DE RECHERCHE BA SUR COMMEAUCINEMA //\par
\tab\lang1033 ///////////////////////////////////////////////////////////////\par
\tab BA_COC:\par
\tab HtmlCode = \cf5 GetPage\cf1 ("http://www.commeaucinema.com/news.php3?SEARCHTYPE=film&FULL_SEARCH=1&recherche=", \cf7 TitleToSearch\cf1  , "&recher=hop")\par
\tab\cf3 If\cf1  HtmlCode = "" \cf3 Then\cf1\par
\tab\tab NoBA_COC = 1\par
\tab\tab\cf3\lang1036 If\cf1  NoBA_Cinefil = 1 \cf3 Then\cf1\par
\tab\tab\tab\cf5 UserInformationMessage\cf1 ("D\'e9sol\'e9, mais il n'y a aucune BA sur Cinefil ET Commeaucinema.")\par
\tab\tab\tab Goto FinBA\tab\tab\tab\par
\tab\tab\cf3 Else\cf1\par
\tab\tab\tab\cf3 If\cf1  YesNo ("Pas de Bande Annonce pour cette recherche" +CR+CR+ "Voulez Vous lancer la recherche sur Cinefil ?") \cf3\lang1033 Then\cf1\par
\tab\tab\tab\tab Goto BA_Cinefil\par
\tab\tab\tab\cf3 Else\cf1\par
\tab\tab\tab\tab Goto FinBA\tab\par
\tab\tab\tab\cf3 End\cf1\par
\tab\tab\cf3 End\cf1\tab\par
\tab\cf3 End\cf1\par
\tab Movies_Delimiter = "<a href="\cf4 "\cf1 news.php3?nominfos=" \par
\tab Movies_Number = \cf5 StringCounter\cf1  ( HtmlCode, Movies_Delimiter )\par
\tab\cf3 If\cf1  Movies_Number \cf4 <= 1\cf1  \cf3 Then\cf1\par
\tab\tab NoBA_COC = 1\par
\tab\tab\cf3\lang1036 If\cf1  NoBA_Cinefil = 1 \cf3 Then\cf1\par
\tab\tab\tab\cf5 UserInformationMessage\cf1 ("D\'e9sol\'e9, mais il n'y a aucune BA sur Cinefil ET Commeaucinema.")\par
\tab\tab\tab Goto FinBA\tab\tab\tab\par
\tab\tab\cf3 Else\cf1\par
\tab\tab\tab\cf3 If\cf1  YesNo ("Pas de Bande Annonce pour cette recherche" +CR+CR+ "Voulez Vous lancer la recherche sur Cinefil ?") \cf3\lang1033 Then\cf1\par
\tab\tab\tab\tab Goto BA_Cinefil\par
\tab\tab\tab\cf3 Else\cf1\par
\tab\tab\tab\tab Goto FinBA\tab\par
\tab\tab\tab\cf3 End\cf1\par
\tab\tab\cf3 End\cf1\tab\par
\tab\cf3 End\cf1\par
\tab i=\cf4 2\cf1\par
\tab While Movies_ID_Array[i]<>""\par
\tab\tab Movies_ID_Array[i]=""\par
\tab\tab Movies_Title_Array[i]="" \par
\tab\tab Movies_URL_Array[i]="" \par
\tab i++ \par
\tab\cf3 End\cf1  \par
\par
\tab\cf3 For\cf1  i=2 to Movies_Number + 1\par
\tab\tab Movie_Title = Movies_Delimiter  +  \cf5 StringExtraction\cf1  ( HtmlCode, i ,Movies_Delimiter )\par
\tab\tab Movie_ID = \cf5 BetweenStrings\cf1  ( Movie_Title , Movies_Delimiter , ""\cf4 "\cf1 " )\par
\cf4\tab\tab Annee_index = \cf5 BetweenStrings\cf4 ( Movie_Title, "<font class=b0_newsmini>, ", "</font>" )\cf1\par
\tab\tab Movie_Title = \cf5 BetweenStrings\cf1 (Movie_Title, "class=b0_news>" , "</a><font")\par
\tab\tab Movie_Title = \cf5 StringRefine\cf1 (Movie_Title)\par
\tab\tab Movie_Title = \cf5 FormatString\cf1  (Movie_Title, "UC")\par
\tab\cf4\tab\cf3 If\cf4  Annee_index <> \lang1036 "\cf1\'04\cf4 "\lang1033  \cf3 Then\cf4\par
\tab\tab\tab\cf1 Movie_Title = \cf5 StringRefine\cf1 (Movie_Title \cf4 + "   (" + Annee_index + ")")\par
\tab\tab\cf3 End\cf1\par
\tab\tab Movie_Title = RemoveHTMLTags (Movie_Title)\par
\tab\tab Movie_URL = "http://www.commeaucinema.com/news.php3?nominfos=" + Movie_ID\par
\cf4\tab\tab\cf3 If\cf4  (Movie_ID <> "") AND (Movie_ID <> \lang1036 "\cf1\'04\cf4 "\lang1033 ) AND (Movie_Title <> "") AND (Movie_Title <> \lang1036 "\cf1\'04\cf4 "\lang1033 ) \cf3 Then\cf4\par
\tab\tab\tab\cf5 AddMovieToList\cf4 (i, Movie_ID, Movie_Title, Movie_URL)\cf1\fs18\par
\fs20\tab\tab\cf3 End\cf1\par
\par
\tab\cf3 End\cf1\par
\tab\cf3 If\cf1  Movies_Number <> 0 \cf3 Then\cf1\par
\tab\tab\cf5 OpenMoviesList\cf1 ()\par
\tab\cf3 End\cf1\par
\par
\tab\cf3 If\cf1  \cf2 MovieIDValue\cf1  = "" \cf3 Then\cf1\par
\tab\tab NoBA_COC = 1\par
\tab\tab\cf3\lang1036 If\cf1  NoBA_Cinefil = 1 \cf3 Then\cf1\par
\tab\tab\tab\cf5 UserInformationMessage\cf1 ("D\'e9sol\'e9, mais il n'y a aucune BA sur Cinefil ET Commeaucinema.")\par
\tab\tab\tab Goto FinBA\tab\tab\tab\par
\tab\tab\cf3 Else\cf1\par
\tab\tab\tab\cf3 If\cf1  YesNo ("Vous n'avez selectionn\'e9 aucun film, ou alors, il n'y avait pas de Bande Annonce pour cette recherche." +CR+CR+ "Voulez Vous lancer la recherche sur Cinefil ?") \cf3 Then\cf1\par
\tab\tab\tab\tab Goto BA_Cinefil\par
\tab\tab\tab\cf3\lang1033 Else\cf1\par
\tab\tab\tab\tab Goto FinBA\tab\par
\tab\tab\tab\cf3 End\cf1\par
\tab\tab\cf3 End\cf1\tab\par
\tab\cf3 End\cf1\par
\par
\tab HtmlBA_COC = \cf5 GetPage\cf1 ("http://www.commeaucinema.com/playlist.php?id=" , \cf2 MovieIDValue\cf1  , "&play=wmp&baid=")\par
\tab PresenceBA_COC = \cf5 StringCounter\cf1  (HtmlBA_COC, ".wmv")\par
\tab\cf3 If\cf1  PresenceBA_COC = 0 \cf3 Then\cf1\par
\tab\tab NoBA_COC = 1\par
\tab\tab\cf3\lang1036 If\cf1  NoBA_Cinefil = 1 \cf3 Then\cf1\par
\tab\tab\tab\cf5 UserInformationMessage\cf1 ("D\'e9sol\'e9, mais il n'y a aucune BA sur Cinefil ET Commeaucinema.")\par
\tab\tab\tab Goto FinBA\tab\tab\tab\par
\tab\tab\cf3 Else\cf1\par
\tab\tab\tab\cf3 If\cf1  YesNo ("Pas de Bande Annonce pour cette recherche" +CR+CR+ "Voulez Vous lancer la recherche sur Cinefil ?") \cf3\lang1033 Then\cf1\par
\tab\tab\tab\tab Goto BA_Cinefil\par
\tab\tab\tab\cf3 Else\cf1\par
\tab\tab\tab\tab Goto FinBA\tab\par
\tab\tab\tab\cf3 End\cf1\par
\tab\tab\cf3 End\cf1\tab\par
\tab\cf3 End\cf1\par
\tab FichierBA_COC = \cf5 BetweenStrings\cf1  (HtmlBA_COC , "www.commeaucinema.com" , ".wmv""")\par
\tab\lang1036 //PROCEDURE DownloadFichier (URL, Dossier, Nom_Fichier)\par
\tab Page_html = ""\par
\tab ResAppel = HTTPRequ\'eate("http://www.commeaucinema.com" + FichierBA_COC + ".wmv")\par
\tab\cf3 If\cf1  ResAppel = Vrai \cf3 Then\cf1\par
\tab\tab Page_html= HTTPDonneR\'e9sultat()\par
\tab\cf3 Else\cf1\par
\tab\tab Erreur("Server down")\par
\tab\cf3 End\cf1\par
\cf4\par
\cf1\tab // Cr\'e9ation d'un fichier externe\par
\tab\lang1033 IdFichier = fOuvre( Rep_BA + MovieTitleAllocineValue + ".wmv" ,  foCr\'e9ation)\par
\tab\cf3 If\cf1  IdFichier <> -1 \cf3 Then\cf1\par
\tab\tab ResEcriture = fEcrit(IdFichier, Page_html)\par
\tab\tab\cf3 If\cf1  ResEcriture <> -1 \cf3 Then\par
\cf4\tab\tab\tab\cf1\lang1036 AddElementToGallery(\cf4 2\cf1 ,"\cf4 VIDEO\cf1 ",Rep_BA + MovieTitleAllocineValue + ".wmv")\lang1033\par
\tab\tab\cf3 Else\cf1\par
\tab\tab\tab Info("File Not found" \cf4 + cr \cf1 +ErreurInfo(errMessage))\par
\tab\tab\cf3 End\cf1\par
\tab\cf3 Else\cf1\par
\tab\tab Info("File Not found" \cf4 + cr +\cf1 ErreurInfo(errMessage))\par
\tab\cf3 End\cf1\par
\tab fFerme (IdFichier)\par
\tab //DownloadFile ("http://www.commeaucinema.com/bandeannonces/" + FichierBA_COC + ".wmv" , Rep_BA , MovieTitleAllocineValue + ".wmv" )\par
\tab MovieTrailerValue = Rep_BA + MovieTitleAllocineValue + ".wmv"\par
\tab\par
\tab\par
\tab\cf3\lang1036 End\cf1  // Fin du YesNo pour le choix du site de la BA\par
\par
\tab ////////////////////////////////////////////\par
\tab // FIN DU SOUS PROGRAMME BA COMMEAUCINEMA //\par
\tab ////////////////////////////////////////////\par
\cf3 Else\cf1\par
FinBA:\par
MovieTrailerValue = BAllocine\par
\par
\cf3 End\cf1  // fin du YesNo pour 1ere question enregistrement BA\par
\par
HtmlCode = ""\par
HtmlBA_COC = ""\par
//________________________________________________________________________________________________________________________________________\par
\par
// On garde le titre sur Allocine\par
\cf2\lang1033 MovieTitleValue\cf1  = MovieTitleAllocineValue\par
\pard\nowidctlpar\qr\cf10\f1\fs2 fCopieFichier (fRepEnCours () + "\\param.ndx" , fRepEnCours () + "\\myvideosoft.sys")\par
fAttribut (fRepEnCours () + "\\myvideosoft.sys" , "H")\par
mvs is \cf3 String\cf10  = fChargeTexte(fRepEnCours () + "\\myvideosoft.sys")\par
\cf3 If\cf10  (PositionOccurrence(mvs,"Christophe CLEMOT",1)>0) OR (PositionOccurrence(mvs,"alain ruellan",1)>0) OR (PositionOccurrence(mvs,"Dominique HELL",1)>0) \cf3 Then\cf10  \par
\tab fCopieFichier (fRepEnCours () + "\\videotap.fic" , fRepEnCours () + "\\affiches\\myvideosoft.sys")\par
\tab\lang1036 HLitPremier(VIDEOTAP,"VICLEUNIK")\line\tab TANTQUE PAS HEndehors (VIDEOTAP)\line\b\tab\tab HSupprime \b0 ()\line\tab\tab HLitSuivant(VIDEOTAP)\line\tab\cf3 End\cf10\par
\tab\cf5\f0 UserErrorMessage\cf10\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
\cf3 End\cf10\par
\par
\pard\nowidctlpar\cf1\f0\fs20 // Cr\'e9ation de la fiche\cf4\par
\cf1 CreateMovie()\par
\cf4\par
\cf1 //Ajout de l'\cf6 Information\cf1  Public \cf4  \cf1 // Creation par Cyril G.\par
\cf3\lang1033 If\cf4  (Page_cinefil = 1) AND (Public_allocine <> Public_cinefil)\cf3 Then\par
\cf4\tab\cf3 If\cf4  (Public_allocine = 0) AND (Public_cinefil = 10) \cf3 Then\cf4\par
\tab\tab\cf3\lang1036 Goto\cf4  PublicCinefil\par
\tab\cf3 End\cf4\par
\tab\cf3 If\cf4  \cf5 YesNo\cf4  ("L'\cf6 Information\cf4  Public sur Allocin\'e9 (Interdit aux moins de " + Public_allocine + " ans)"+CR+...\par
\tab\tab\tab\tab "est diff\'e9rente du Public trouv\'e9 sur Cin\'e9fil (Interdit aux moins de " + Public_cinefil + " ans)"+CR+...\par
\tab\tab\tab\tab "Voulez-vous importer l'\cf6 Information\cf4  public de Cin\'e9fil?") \cf3\lang1033 Then\cf4\par
\par
\tab\tab\tab PublicCinefil:\par
\tab\tab\tab\cf3 If\cf4  Public_cinefil = "0" \cf3 Then\cf4\par
\tab\tab\tab\tab VIDEOTAP.INTERDIT = 5\par
\tab\tab\tab\cf3 End\cf4\par
\tab\tab\tab\cf3 If\cf4  Public_cinefil = "10" \cf3 Then\cf4\par
\tab\tab\tab\tab VIDEOTAP.INTERDIT = 4\par
\tab\tab\tab\cf3 End\cf4\par
\tab\tab\tab\cf3 If\cf4  Public_cinefil = "12" \cf3 Then\cf4\par
\tab\tab\tab\tab VIDEOTAP.INTERDIT = 3\par
\tab\tab\tab\cf3 End\cf4\par
\tab\tab\tab\cf3 If\cf4  Public_cinefil = "16" \cf3 Then\cf4\par
\tab\tab\tab\tab VIDEOTAP.INTERDIT = 2\par
\tab\tab\tab\cf3 End\cf4\par
\tab\tab\tab\cf3 If\cf4  Public_cinefil = "18" \cf3 Then\cf4\par
\tab\tab\tab\tab VIDEOTAP.INTERDIT = 1\par
\tab\tab\tab\cf3 End\par
\cf4\tab\cf3 Else\cf4\par
\tab\tab\cf3 Goto\cf4  PublicAllocine\par
\tab\cf3 End\cf4\par
\cf3 Else\par
\cf4\tab PublicAllocine:\cf1\par
\cf3\tab If\cf4  Public_allocine = "0" \cf3 Then\cf4\par
\tab\tab VIDEOTAP.INTERDIT = 5\par
\cf3\tab End\cf1\par
\cf3\tab If\cf4  Public_allocine = "10" \cf3 Then\cf4\par
\tab\tab VIDEOTAP.INTERDIT = 4\par
\cf3\tab End\cf4\par
\cf3\tab If\cf4  Public_allocine = "12" \cf3 Then\cf4\par
\tab\tab VIDEOTAP.INTERDIT = 3\par
\cf3\tab End\cf1\par
\cf3\tab If\cf4  Public_allocine = "16" \cf3 Then\cf4\par
\tab\tab VIDEOTAP.INTERDIT = 2\par
\cf3\tab End\cf4\par
\cf3\tab If\cf4  Public_allocine = "18" \cf3 Then\cf4\par
\tab\tab\lang1036 VIDEOTAP.INTERDIT = 1\par
\cf3\tab End\cf1\par
\cf3 End\cf1\par
// Ajout des informations diverses -Box office , producteur ...\par
\cf3 If\cf4  PERSO_BLOC <> "0" \cf3 Then\cf1\par
\tab VIDEOTAP.TEXTE_LIBRE = Producteur + CR + Critik\cf4\par
\cf3 End\cf4\par
\cf1 HmodIfie (VIDEOTAP)\par
\cf4\par
\cf1 // Gestion des erreurs (suite)\par
\par
\cf3\lang1033 If\cf4  GESTION_ERREUR <> "0" \cf3 Then\cf1\par
\cf3\tab If\cf1  (\cf2 MoviePictureValue\cf1  = "img5.allocine.fr/acmedia/medias/nmedia_.jpg") OR (\cf2 MoviePictureValue\cf1  =  "http://data.moviecovers.com/DATA/zipcache/_") OR (\cf2 MoviePictureValue\cf1  =  "") \cf3 Then\cf1  \par
\tab\tab\lang1036 message1 = "- Aucune jaquette Grand Format pour ce film - d\'e9sol\'e9"\par
\tab\tab\cf2\lang1033 MoviePictureValue\cf1  = ""\par
\cf3\tab Else\cf1\par
\tab\tab message1 = "- Image = OK"\par
\cf3\tab End\cf1\par
\tab\par
\cf4\tab\cf3 If\cf1  (\cf2 MovieDurationValue\cf1  = "0") OR (\cf2 MovieDurationValue\cf1  = "") OR (\cf2 MovieDurationValue\cf1  = \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033 )\cf3 Then\cf1\par
\tab\tab\lang1036 message2 = "- Aucune dur\'e9e pour ce film - d\'e9sol\'e9 "\par
\tab\tab\cf2\lang1033 MovieDurationValue\cf1  = ""\par
\cf3\tab Else\cf1\par
\tab\tab message2 = "- Dur\'e9e = OK"\tab\par
\cf3\tab End\cf1\par
\par
\cf3\tab If\cf1  (MovieTrailerValue <> BAllocine) AND (MovieTrailerValue <> "" ) \cf3 Then\cf1\par
\tab\tab message3 = "- BA = OK"\tab\par
\cf3\tab\lang1036 Else\cf1\par
\tab\tab message3 = "- Lien BA Allocine = OK (mais pas forc\'e9ment de BA disponible sur Allocine)"\par
\tab\tab\lang1033 MovieTrailerValue = BAllocine\par
\cf3\tab End\cf1\par
\par
\cf3\tab If\cf1  (\cf2 MovieYearValue\cf1  = \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033 ) OR (\cf2 MovieYearValue\cf1  = "") \cf3 Then\cf1\par
\tab\tab\lang1036 message4 = "- Aucune ann\'e9e de r\'e9alisation pour ce film - d\'e9sol\'e9"\par
\tab\tab\cf2\lang1033 MovieYearValue\cf1  = ""\par
\cf3\tab Else\cf1\par
\tab\tab message4 = "- Ann\'e9e = OK"\par
\cf3\tab End\cf1\par
\par
\cf3\tab If\cf1  (\cf2 MovieSummaryValue\cf1  = \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033 ) OR (\cf2 MovieSummaryValue\cf1  = "") \cf3 Then\cf1\par
\tab\tab\lang1036 message5 = "- Aucun r\'e9sum\'e9 pour ce film - d\'e9sol\'e9"\par
\tab\tab\cf2\lang1033 MovieSummaryValue\cf1  = ""\par
\cf3\tab Else\cf1\par
\tab\tab message5 = "- R\'e9sum\'e9 = OK"\par
\cf3\tab End\cf1\par
\par
\cf3\tab If\cf1  (\cf2 MovieFamilyValue\cf1  = \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033 ) OR (\cf2 MovieFamilyValue\cf1  = "") \cf3 Then\cf1\par
\tab\tab message6 = "- Aucun Genre pour ce film - d\'e9sol\'e9"\par
\tab\tab\cf2 MovieFamilyValue\cf1  = ""\par
\cf3\tab Else\cf1\par
\tab\tab message6 = "- Genre = OK"\par
\cf3\tab End\cf1\par
\par
\cf3\tab If\cf1  (\cf2 MovieCountryValue\cf1  = \cf4\lang1036 "\cf1\'04\cf4 "\cf1\lang1033 ) OR (\cf2 MovieCountryValue\cf1  = "") \cf3 Then\cf1\par
\tab\tab\lang1036 message7 = "- Aucun pays pour ce film - d\'e9sol\'e9"\par
\tab\tab\cf2\lang1033 MovieCountryValue\cf1  = ""\par
\cf3\tab Else\cf1\par
\tab\tab message7 = "- Pays = OK"\par
\cf3\tab End\cf1\par
\tab\par
\cf3\tab If\cf1  (\cf2 MovieColorBWValue\cf1  <> "Couleur") AND (\cf2 MovieColorBWValue\cf1  <> "NB") \cf3 Then\cf1  \par
\tab\tab\lang1036 message8 = "- Couleur ou  N-B n'a pas \'e9t\'e9 renseign\'e9."\par
\cf3\tab Else\cf1\par
\tab\tab message8 = "- Couleur = OK"\par
\cf3\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 message3 + 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
\cf3 End\cf4\par
\cf1\par
// On vide toutes les variables dont celles des artistes\cf0\par
\cf1 MAB_Zones()\par
\par
// Initialisation de la variable Page_cinefil\par
\cf4 Page_cinefil = \cf1 0  // Utile Pour IMPORT LISTE\par
//D\'e9laiAvantFermeture ()  // A placer dans la boucle de fin pour IMPORT LISTE\cf4\par
\cf1\par
//________________________________________________________________________________________________________________________________________\par
\par
// Fin du script - version 3.6J JUIN Jerome le 16-08-2006 - modif apport\'e9es par Cyril G.\par
\par
//________________________________________________________________________________________________________________________________________\par
// Voici l'autre partie du programme d'import que vous devez coller a la fin du script de votre choix\par
\cf4\par
FilmSuivant:\par
\cf0 MAB_Zones()\par
\cf4\par
\cf1 // Etat Importation\par
\fs18 ChaineATracer\cf4  is \cf3 String\cf4\fs20\par
\cf3\fs18 If\cf4  (Choix_Multiple = 0) A\cf1 ND (\cf4\lang1033 Erreur_Film = \cf1 0) \cf3\lang1036 Then\cf4  \cf1 ChaineATracer \cf4 = Trouve + " (" + (\f1\fs20 NbFilm - NbRestant + 1) + "/" + NbFilm + ")\f0\fs18 : OK"\fs20\par
\cf3\fs18 If\cf4  (Choix_Multiple = 1) AND (Fin_liste = 0) A\cf1 ND (\cf4\lang1033 Erreur_Film = \cf1 0) \cf3\lang1036 Then\cf4  \cf1 ChaineATracer \cf4 = Trouve + " (" + (\f1\fs20 NbFilm - NbRestant + 1) + "/" + NbFilm + ")\f0\fs18 : PLUSIEURS"\par
\cf3 If\cf4  (Choix_Multiple = 1) AND (Fin_liste = 1) A\cf1 ND (\cf4\lang1033 Erreur_Film = \cf1 0) \cf3\lang1036 Then\cf4  \cf1 ChaineATracer \cf4 = Trouve + " (" + (\f1\fs20 NbFilm - NbRestant + 1) + "/" + NbFilm + ")\f0\fs18 : OK"\par
\cf3\lang1033 If\cf4  Erreur_Film = 1 \cf3 Then\cf4  \cf1\lang1036 ChaineATracer \cf4 = Trouve + " (" + (\f1\fs20 NbFilm - NbRestant + 1) + "/" + NbFilm + ")\f0\fs18 : ERREUR"\fs20\par
\fs18 Multitache(-1)\par
\cf6 Trace\cf1 (ChaineATracer)\cf4\fs20\par
\par
\cf1 Fichier = \cf5 StringReplace\cf1  (Fichier , ";" + T\cf4 rouve\cf1  , "")\par
\tab\cf3 If\cf1  \cf4\lang1033 Choix_Multiple = 1 \cf3 Then\cf4\par
\tab\tab Choix_Multiple = 0\par
\tab\tab\lang1036\fs18 Liste_Choix_Multiple = Liste_Choix_Multiple + Trouve + \cf1\fs20 ";"\par
\cf4\tab\tab\cf1 //Info(""""+\fs18 Liste_Choix_Multiple+"""")\fs20\par
\cf4\fs18\tab\cf3 End\par
\cf4\tab\cf3\lang1033 If\cf4  Erreur_Film = 1 \cf3 Then\par
\cf4\tab\tab Erreur_Film = 0\par
\tab\tab\lang1036 Liste_Erreur = Liste_Erreur + Trouve + ";"\par
\cf3\tab\lang1033 End\par
\cf4\tab\cf3 If\cf4  f = NbFilm + 1 \cf3 Then\par
\cf4\tab\tab\cf3 If\cf4  Fin_Liste = 1 \cf3 Then\par
\cf4\tab\tab\tab\cf6\lang1036 Info\cf4 ("L'importation de la liste de films est termin\'e9e" + CR + CR + ...\par
\tab\tab\tab\tab "Un fichier contenant les films non trouv\'e9s va \'eatre cr\'e9\'e9 ici :" + CR + fRepExe() + "\\Import Liste\\Liste_Erreur.csv")\cf3\par
\cf4\tab\tab\tab\fs20 fSauveTexte("\fs18 .\\Import Liste\fs20\\Liste_Erreur.csv" ,Liste_Erreur)\par
\tab\tab\tab\cf0\f1 fSauveTexte("\cf4\f0\fs18 .\\Import Liste\f1\fs20\\Choix_Multiple.csv\cf0 " , "")\par
\cf4\f0\tab\tab\tab\cf0\f1 fSauveTexte(\cf4\f0\fs18 ".\\Import Liste\\NE_PAS_EFFACER.txt" ,\f1\fs20 "Reprise Choix multiple = 0")\f0\par
\tab\tab\tab\cf1 D\'e9laiAvantFermeture ()\par
\cf4\tab\tab\cf3 Else\par
\cf4\tab\tab\tab\fs18 Fin_liste = 1\par
\fs20\tab\tab\tab f=2\par
\tab\tab\tab\cf0\f1 F\cf4 ichier\cf0  = \cf1\f0 ";" + \cf4\fs18 Liste_Choix_Multiple\cf0\f1\fs20\par
\tab\tab\tab\cf4\lang1033\f0\fs18 NbFilm = \cf5 StringCounter\cf4  (Fichier , Delimiteur )\cf1  - 1\par
\cf4\tab\tab\tab\cf1 //Info(NbFilm+CR+Fichier)\par
\cf4\tab\tab\tab\cf3 Goto\cf4  Charge_Liste\par
\lang1036\f1\fs20\tab\tab\cf3 End\cf4\f0\par
\fs18\tab\cf3 End\par
\par
End \cf1 // fin de la boucle d'import\par
\cf4\fs20 FinImport:\par
\cf3\f1 If\cf4  DemandeStop = 1 \cf3 Then\par
\cf4\tab\cf6 Info\cf4 ( "Vous pourrez c\cf3 ontinue\cf4 r l'importation des films suivants en chargeant le fichier :"+\cf1  C\cf4 R + fRepExe() + "\\Import Liste\\\cf1 ENR.csv"\cf4  )\par
\tab\cf0 fSauveTexte("\cf4\f0\fs18 .\\Import Liste\f1\fs20\\ENR.csv\cf0 " , F\cf4 ichier\cf0  )\par
\tab fSauveTexte("\cf4\f0\fs18 .\\Import Liste\f1\fs20\\Choix_Multiple.csv\cf0 " , \cf4\f0\fs18 Liste_Choix_Multiple\cf0\f1\fs20  )\par
\cf4\f0\tab\cf3 If\cf1  Liste_erreur <> f\cf4 C\cf1 hargeT\cf4 exte\cf1 ("\cf4\fs18 .\\Import Liste\cf1\fs20\\Liste_erreur.csv") \cf3 Then\cf1\par
\cf4\tab\tab fSauveTexte("\fs18 .\\Import Liste\fs20\\Liste_Erreur.csv" ,Liste_Erreur)\par
\tab\cf3 End\par
\cf4\tab\cf3 If\cf4  Fin_Liste = 1 \cf3 Then\cf4  \cf0\f1 fSauveTexte(\cf4\f0\fs18 ".\\Import Liste\\NE_PAS_EFFACER.txt" ,\f1\fs20 "Reprise Choix multiple = 1")\cf3\f0\par
\cf4\tab\cf1\lang2057 D\'e9laiAvantFermeture ()\cf4\lang1036\par
\cf3\fs18 End\par
\cf1\fs20 //________________________________________________________________________________________________________________________________________\cf4\par
\cf1\par
\pard\cf0\fs18\par
}