{\rtf1\ansi\ansicpg1252\deff0\deflang1036\deflangfe1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\froman\fprq2\fcharset0 Times New Roman;}{\f2\froman\fcharset0 Times New Roman;}{\f3\fnil\fcharset0 MS Shell Dlg;}}
{\colortbl ;\red0\green128\blue0;\red102\green102\blue102;\red0\green0\blue0;\red0\green0\blue255;\red255\green0\blue0;\red255\green102\blue0;\red128\green0\blue128;\red0\green128\blue128;\red128\green128\blue128;\red230\green230\blue230;}
{\*\generator Msftedit 5.41.15.1503;}\viewkind4\uc1\pard\cf1\f0\fs18 // DESCRIPTION Import Filmographies des Artistes depuis Allocine --- Maintenez la touche Ctrl enfonc\'e9e pour ressortir du programme\cf0\par
\cf1 // AUTHOR Cyril G. - \fs20 Jerome J.\cf0\fs18\par
\cf1 // LANGUAGE FR\cf0\par
\par
\cf2\par
\cf1\fs20 // verification de la version du script\par
L\cf2 ast\cf1 V\cf2 ersion is \cf3 String\cf1  = \cf4 GetPage\cf1 ("h\cf2 ttp:\cf1 //www.p\cf2 ixel-i\cf5 nfo\cf2 web.com\cf1 /download/shareddoc/FILMS/scripts/versions.html", "" , "" )\par
\cf3 If\cf2  (LastVersion = \cf1 "\'04")\cf2  OR (LastVersion = \cf1 "")\cf2 OR \f1 (\cf4\f0\fs18 PositionOccurrence\cf2 (LastVersion,"La page est introuvable",1)>0\f1\fs20 ) \cf3\f0 Then\cf2  \par
\tab\cf3 Goto \cf2 ServerOff\par
\cf3 End\cf1\par
L\cf2 ast\cf1 V\cf2 ersion = \cf4 BetweenStrings\cf2  (LastVersion , "\cf4 #a\cf2 llocinefilmos\cf4 #" \cf2 , "\cf4 #/a\cf2 llocinefilmos\cf4 #"\cf2 )\cf4\par
\cf3 C\cf2 urrentversion is \cf3 String\cf2  = "1.0C"\cf3\par
If\cf2  (CurrentVersion <> LastVersion) AND (CurrentVersion <> "\cf1\'04\cf2 ") \cf3 Then\par
\cf2\tab\cf1 DownloadFile ("http://www.myvideosoft.com/download/shareddoc/FILMS/scripts/Allocine_Filmographies_v" + LastVersion + ".script", fRepEXE() + "/Scripts" , "Allocine_Filmographies_v" + LastVersion + ".script")\cf4\par
\tab UserInformationMessage\cf2  ("Allocine_Filmographies_v" + LastVersion + cr + cr+ ...\par
\tab\tab\tab\tab\tab "Une mise \'e0 jour du script pour t\'e9l\'e9charger les filmographies \'e0 partir d'Allocine vient d'\'eatre rapatri\'e9e." + cr+...\par
\tab\tab\tab\tab\tab "Veuillez utiliser celle-ci. Merci")\par
\tab\cf3 Return\par
End\par
\cf2 ServerOff:\par
\fs18\par
\par
\cf1\fs20 //___________________________________________________________________\fs18 DECLARATION DES VARIABLES\fs20 _____________________________________________________________________\cf2\fs18\par
\cf1\par
// Variable de gestion du script\par
\cf2 MAJ_All, MAJ_Fiche, MAJ_FicheEnCours, Presence_Fiche, Fichier, Liste_Artist, Nb_Doublons, Nb_Artist, Nb_Acteurs, Nb_Total, Nb_Erreurs are int\par
Resultat, EcraseAll, Ecrase_\cf5 Info\cf2 s, Run_once, Ligne_Liste, Cpt_Art are int\par
i, j, k, m,\cf1  n\cf2  are int\cf1\par
\cf2 ChaineATracer, recap_liste, recap_erreurs, ligne_recap, Recherche_Artist, Movie_Title, Index_Artist, \cf5 L\cf2 iste_Acteurs, Sauve_code, Code_Doublons, Code_Acteur, Code, ID_liste are \cf3 String\par
\cf2 Code_Entier, Sauve_code_Entier are int\par
\cf1\par
// Variables info artiste\par
\cf2 PersoCode, Img_Artist, Nom_Artist, Date_Naissance, Date_Deces, Nationalite, Lieu_Naissance, Bio_Artist are \cf3 String\cf1\par
\cf2 Date_Naissance1, Jour_Naissance, Annee_Naissance, Mois_Naissance, Date_Deces1, Jour_Deces, Annee_Deces, Mois_Deces are \cf3 String\par
\cf2 Nb_Date, Taille_Date1, Taille_Date2 are \cf3 Int \cf2  \cf1\par
\par
// Variables Pages et delimiteurs\par
\cf2 HtmlCode, HtmlCode1, HtmlActeur, HtmlRealisateur, HtmlScenariste, HtmlCompositeur, Artist_Delimiter, Img_Delimiter are \cf3 String\par
\cf1\par
// Variables Filmographie\par
\cf2 Filmo_Title, Filmo_Annee, Filmo_Fonction, Saison_Title are \cf3 String\cf2\par
Nb_Acteur, Nb_SActeur, Nb_Realisateur, Nb_SRealisateur, Nb_Scenariste, Nb_SScenariste, Nb_Compositeur, Nb_SCompositeur are int\cf1\par
\cf2\par
fRepCr\'e9e(fRepExe() + "\\Artistes\\Script_Filmo")\par
Length_search1 is \cf3 Int \cf2 = \cf4 StringLength\cf2 (\cf6 TitleToSearch\cf2 )\par
Length_search2 is \cf3 Int \cf2 = \cf4 StringLength\cf2 (\cf4 EliminateLetters\cf2 (\cf6 TitleToSearch\cf2 ))\par
\cf3 If\cf2  Length_search1 = Length_search2 \cf3 Then\cf2  i_MAJ_All is \cf3 Int \cf2 = \cf6 TitleToSearch\cf2\par
\cf1\fs20 //_______________________________________________________________DEBUT ORGANISATION DES ARTISTES_________________________________________________________________\cf2\fs18\par
\pard\nowidctlpar\cf0\f1\fs20\par
HLitPremier(A\cf2 RTISTE\cf0 , "\cf2 ARCLEUNIK\cf0 ") \line TANTQUE PAS HEnDehors(A\cf2 RTISTE\cf0 ) \par
\lang2057\tab HL\cf2 itRecherche\cf0  (T\cf2 YPE_ACT\cf0 , "A\cf2 RCLEUNIK\cf0 " , A\cf2 RTISTE.ARCLEUNIK\cf0 )\par
\cf2\tab\cf3 If\cf2   \cf3 Not\cf2  HTrouve () \cf3 Then\cf2\par
\tab\tab\cf1 // Suppression de l'artiste dans TYPE_ACT.fic\par
\cf2\tab\tab\cf5 H\cf2 Supprime (ARTISTE , HNumEnrEnCours)\par
\tab\cf3 End\par
\cf0 HLitSuivant(A\cf2 RTISTE\cf0 ) \line\cf3 End\cf0\lang1036\f2\fs24\par
\f1\fs20\par
\cf2\par
\cf1\lang2057 // Suppression des filmographies FILMOGRAPHIE.fic\par
\lang1036 HLitPremier(FILMOGRAPHIE, "ARCLEUNIK") \lang2057\par
TANTQUE  PAS HEndehors ()\par
\tab HLitRecherche (A\cf2 RTISTE\cf1 , "ARCLEUNIK" , \cf2 FILMOGRAPHIE\cf1 .ARCLEUNIK)\par
\tab\cf3 If\cf1  \cf3 Not\cf2  \cf1 HTrouve() \cf3 Then\cf1\par
\tab\tab // Suppression des lignes si elles le numero d'artiste n'existe pas dans ARTISTE.fic\par
\tab\tab HSupprime (FILMOGRAPHIE , HNumEnrEnCours)\par
\tab\cf3 End\cf1\par
\tab HLitSuivant(FILMOGRAPHIE)\par
\cf3 End\par
\cf2\lang1036\par
\cf1\lang2057 // Suppression des biographies NotEART.fic\par
\lang1036 HLitPremier(\cf3 NOT\cf2 EART\cf1 , "ARCLEUNIK") \lang2057\par
TANTQUE  PAS HEndehors ()\par
\tab HLitRecherche (A\cf2 RTISTE\cf1 , "ARCLEUNIK" , \cf3 NOT\cf2 EART\cf1 .ARCLEUNIK)\par
\tab\cf3 If\cf1  \cf3 Not\cf2  \cf1 HTrouve() \cf3 Then\cf1\par
\tab\tab // Suppression des lignes si elles le numero d'artiste n'existe pas dans ARTISTE.fic\par
\tab\tab HSupprime (\cf3 NOT\cf2 EART\cf1  , HNumEnrEnCours)\par
\tab\cf3 End\cf1\par
\tab HLitSuivant(\cf3 NOT\cf2 EART\cf1 )\par
\cf3 End\cf0\lang1036\par
\cf2\par
\cf1 // Suppression des liens inutiles dans la galerie multimedia\par
\lang2057 // On sauve d'abord la position dans le fichier VIDEOTAP pour garder la fiche en cours\par
nPos is \cf3 Int \cf1 = HSauvePosition (VIDEOTAP, "VICLEUNIK")\lang1036\par
\par
HLitPremier(GALERIE, "CLE_MAITRE") \lang2057\par
TANTQUE  PAS HEndehors ()\par
\tab HLitRecherche (VIDEOTAP, "VICLEUNIK" , GALERIE.CLE_MAITRE)\par
\tab\cf3 If\cf1  Not HTrouve() \cf3 Then\cf1\par
\tab\tab // Suppression des lignes si elles le numero d'artiste n'existe pas dans ARTISTE.fic\par
\tab\tab HSupprime (GALERIE , HNumEnrEnCours)\par
\tab\cf3 End\cf1\par
\tab HLitSuivant(GALERIE)\par
\cf3 End\cf1\par
\pard\par
// On restaure la position dans VIDEOTAP\par
HRetourPosition (nPos)\cf3\par
\cf2\lang1036\f0\fs18\par
\cf1\fs20 //___________________________________________________________\fs18 FIN DE LA SUPPRESSION DES ARTISTES INUTILISES\fs20 ____________________________________________________________\cf2\par
\cf3\fs18\par
\cf2 Sauve_code = fChargeTexte(fRepExe() + "\\Artistes\\Script_Filmo\\NE_PAS_EFFACER.txt")\par
\cf3 If\cf2  Sauve_code = "" \cf3 Then\cf2\par
\tab Sauve_code = "0"\par
\cf3 Else\cf2\par
\tab Sauve_code = \cf4 BetweenStrings\cf2 (Sauve_code, "Dernier code (Remise en Ordre des Artistes)=", CR)\par
\tab Sauve_code_Entier = Sauve_code\par
\cf3 End\cf2\par
\cf3\par
\cf2 HLitPremier(ARTISTE, "ARCLEUNIK")\par
TANTQUE PAS HEnDehors(ARTISTE)\par
\tab Code_Entier = ARTISTE.ARCLEUNIK\par
\tab PersoCode = ARTISTE.NOM_VIDEO\par
\tab\cf1 // Recherche si le PersoCode apparait plusieurs fois.\par
\cf2\tab\cf3 If\cf2  Code_Entier < Sauve_code_Entier \cf3 Then Goto\cf2  Suite_REO\cf1\par
\cf2\tab\cf3 If\cf2  (PersoCode = "") OR (PersoCode = "0") \cf3 Then\cf2  \cf3 Goto\cf2  Suite_REO\par
\tab HLitRecherche(ARTISTE, "NOM_VIDEO", PersoCode)\par
\tab TANTQUE PAS HEnDehors\par
\tab\tab\cf1 // RAZ des donn\'e9es des artistes qui ont le meme PersoCode.\par
\cf2\tab\tab\cf3 If\cf2  (ARTISTE.ARCLEUNIK <= Code_Entier) OR (PersoCode <> ARTISTE.NOM_VIDEO) \cf3 Then\cf2  \cf3 Goto\cf2  Boucle_REO\par
\tab\tab\cf3 If\cf2  (Htrouve())\cf1  \cf2 AND (Code_Entier <> ARTISTE.ARCLEUNIK) AND (PersoCode = ARTISTE.NOM_VIDEO) \cf3 Then\cf2\par
\tab\tab\tab ARTISTE.LIEU_NAISSANCE = ""\par
\tab\tab\tab ARTISTE.IMAGE = "cinehome.jpg"\par
\tab\tab\tab ARTISTE.NAISSANCE = ""\par
\tab\tab\tab ARTISTE.DECES = ""\par
\tab\tab\tab ARTISTE.P0CLEUNIK = "0"\par
\tab\tab\tab ARTISTE.NOM_VIDEO = ""\par
\tab\tab\tab HmodIfie(ARTISTE)\par
\tab\tab\tab ModIf is \cf3 Int \cf2 = 1\par
\tab\tab\cf3 End\cf2\par
\tab Boucle_REO:\tab\cf1\par
\cf2\tab HLitSuivant(ARTISTE)\par
\tab\cf3 End\cf2\par
\tab\cf1 // Repositionnement sur l'artiste de la 1ere boucle.\cf2\par
\tab HLitRecherche(ARTISTE, "ARCLEUNIK", Code_Entier)\par
\tab\cf1 // RAZ des donn\'e9es de l'artiste si PersoCode apparait plusieurs fois.\cf2\par
\tab\cf3 If\cf2  ModIf = 1 \cf3 Then\cf2\par
\tab\tab ARTISTE.LIEU_NAISSANCE = ""\par
\tab\tab ARTISTE.IMAGE = "cinehome.jpg"\par
\tab\tab ARTISTE.NAISSANCE = ""\par
\tab\tab ARTISTE.DECES = ""\par
\tab\tab ARTISTE.P0CLEUNIK = "0"\par
\tab\tab ARTISTE.NOM_VIDEO = ""\par
\tab\tab HmodIfie(ARTISTE)\par
\tab\tab ModIf = 0\par
\tab\cf3 End\par
\cf2 Suite_REO:\par
HLitSuivant(ARTISTE)\par
\cf3 End\par
\cf2 Sauve_code = ""\par
\par
HLitDernier(ARTISTE, "ARCLEUNIK")\par
Sauve_code = "Dernier code (Remise en Ordre des Artistes)=" + ARTISTE.ARCLEUNIK\par
\cf3 If\cf2  fFichierExiste(fRepExe() + "\\Artistes\\Script_Filmo\\NE_PAS_EFFACER.txt") \cf3 Then\cf2\par
\tab fSupprime(fRepExe() + "\\Artistes\\Script_Filmo\\NE_PAS_EFFACER.txt")\par
\cf3 End\cf2\par
fSauveTexte(fRepExe() + "\\Artistes\\Script_Filmo\\NE_PAS_EFFACER.txt", Sauve_code)\par
\par
PersoCode = ""\cf1\fs20\par
\cf2\par
\cf1 //___________________________________________________________\fs18 FIN DE LA REMISE EN ORDRE DES ARTISTES \fs20 __________________________________________________________________\cf2\par
\fs18\par
\cf3\par
\cf1 // Mise A Jour d'un artiste present sur la fiche en cours\cf3\par
If\cf2  \cf4 YesNo\cf2 ("Voulez vous t\'e9l\'e9charger une filmographie d'un artiste de la fiche :" + VIDEOTAP.titre + " ?"+CR+CR+...\par
\tab "OUI: Affiche la liste des artistes du film"+CR+...\par
\tab "NON: Passer \'e0 la mise \'e0 jour en masse") \cf3 Then\cf2\par
\par
\tab MAJ_FicheEnCours = 1\par
\tab HLitRecherche(TYPE_ACT, "\cf1 IDENTIFIANT", VIDEOTAP.V\cf2 IC\cf1 LEUNIK)\par
\cf2\tab\cf1 TANTQUE PAS HEnDehors(T\cf2 YPE_ACT\cf1 )\par
\cf2\tab\tab Code_Doublons = \cf1 TYPE_ACT.ARCLEUNIK\par
\cf2\tab\tab\cf1 Nb_Doublons = \cf4 StringCounter\cf1 (Liste_Acteurs, C\cf2 ode_Doublons\cf1 )\par
\cf2\tab\tab\cf3 If\cf2  (HTrouve()) AND (Nb_Doublons = 0) \cf3 Then\cf0\par
\cf2\tab\tab\tab\cf5 L\cf2 iste_Acteurs = Liste_Acteurs + TYPE_ACT.ARCLEUNIK + CR\par
\tab\tab\cf3 End\cf2\par
\tab HlitSuivant(TYPE_ACT)\par
\tab\cf3 End\par
\cf2\tab Nb_Acteurs = \cf4 StringCounter\cf2 (Liste_Acteurs, CR)\par
\tab Liste_Acteurs = CR + Liste_Acteurs\par
\tab\cf3 For\cf2  m=2 to Nb_Acteurs+1\par
\tab\tab\cf1 Code_Acteur = \cf4 StringExtraction\cf1 (Liste_Acteurs, m, CR)\cf2\par
\tab\tab\cf1 HLitRecherche(ARTISTE, "ARCLEUNIK", Code_Acteur)\cf2\par
\tab\tab\cf4 AddMovieToList\cf2 (m, \cf1 ARTISTE.ARCLEUNIK\cf2 , ARTISTE.ARTISTE_MAJ, \cf1 ""\cf2 )\par
\tab\cf3 End\par
\cf2\tab\cf4 AddMovieToList\cf2 (Nb_Acteurs+2, "All", \cf1 "\cf2 TOUS LES ARTISTES DE LA FICHE EN COURS", \cf1 ""\cf2 )\cf1\par
\cf4\tab OpenMoviesList\cf2 ()\par
\tab\cf3 If\cf2  \cf7 MovieIDValue\cf2  = "" \cf3 Then\cf2\par
\tab\tab\cf5 Info\cf2 ("Vous n'avez selectionn\'e9 aucun artiste.")\par
\tab\tab\cf3 Return\cf2\par
\tab\cf3 Else\par
\tab\cf2\tab\cf3 If\cf2  \cf7 MovieIDValue\cf2  = "All" \cf3 Then\par
\cf2\tab\tab\tab\cf7 MovieIDValue\cf2  = ""\cf3\par
\cf2\tab\tab\tab ID_liste = "All"\cf3\par
\cf2\tab\tab\tab Ligne_Liste = 2\par
\tab\tab\tab All_Acteurs:\par
\tab\tab\tab\cf1 Code_Acteur = \cf4 StringExtraction\cf1 (Liste_Acteurs, \cf2 Ligne_Liste\cf1 , CR)\cf2\par
\tab\tab\tab\cf1 HLitRecherche(ARTISTE, "ARCLEUNIK", Code_Acteur)\cf2\par
\tab\tab\cf3 Else\par
\cf2\tab\tab\tab\cf1 HLitRecherche(ARTISTE, "ARCLEUNIK", \cf7 MovieIDValue\cf1 )\par
\cf2\tab\tab\cf3 End\cf1\par
\cf2\tab\tab\cf3 If\cf2  HTrouve() \cf3 Then\cf1\par
\cf2\tab\tab\tab MAJ_All = 2\par
\tab\tab\tab Ecrase_\cf5 Info\cf2 s = 2\par
\tab\tab\tab Liste_Artist = 1\par
\tab\tab\tab\cf3 Goto\cf2  Debut_Recherche\par
\tab\tab\cf3 End\cf2\par
\tab\cf3 End\par
End\cf2\par
\cf0\par
\cf1 // Choix du type de Mise A Jour\cf2\par
Resultat = \cf4 C\cf2 onfirmer("Voulez-vous mettre \'e0 jour les i\cf5 n\cf2 f\cf3 or\cf2 mations de tous les artistes?"+CR+...\par
\tab "(Il est possible d'arr\'eater la mise \'e0 jour \'e0 tout moment par le maintien de la touche [CTRL].)"+CR+CR+...\par
\tab "OUI: Traiter tous les artistes"+CR+...\par
\tab "NON: Traiter les artistes qui n'ont jamais \'e9t\'e9 t\'e9l\'e9charg\'e9s avec ce script"+CR+...\par
\tab "Annuler: Traiter les artistes ayants plusieurs r\'e9sultats")\cf3\par
\cf1\par
\cf3 If\cf2  Resultat = Oui \cf3 Then\cf2\par
\tab MAJ_All = 2\cf3\par
Else\par
\cf2\tab\cf3 If\cf2  Resultat = Annuler \cf3 Then\cf2\par
\tab\tab MAJ_All = 3\par
\tab\cf3 Else \cf1 // R\'e9sultat = Non\cf3\par
\cf2\tab\tab MAJ_All = 1\cf1\par
\cf2\tab\cf3 End\cf2\par
\cf3 End\cf2\par
\cf3 If\cf2  (MAJ_All <> 3) \cf3 Then\par
\cf2\tab\cf3 If\cf2  \cf4 YesNo\cf2 ("Voulez-vous di\cf3 f\cf2 f\'e9rer l'importation des artistes avec plusieurs r\'e9sultats?"+CR+CR+...\par
\tab\tab "OUI: M\'e9morise les artistes ayants plusieurs r\'e9sultats pour les importer plus tard"+CR+...\par
\tab\tab "NON: Ouvre une liste lorsqu'il y a plusieurs r\'e9sultats") \cf3 Then\cf2\par
\tab\tab Liste_Artist = 2\par
\tab\cf3 Else\par
\cf2\tab\tab Liste_Artist = 1\par
\tab\cf3 End\par
Else\cf2\par
\tab Liste_Artist = 1\cf3\par
End\cf2\par
\cf3 If\cf2  MAJ_All <> 3 \cf3 Then\cf2\par
\tab\cf3 If\cf2  \cf4 YesNo\cf2 ("Voulez-vous \'e9craser les i\cf5 n\cf2 f\cf3 or\cf2 mations g\'e9n\'e9rales de l'artistes?"+CR+...\par
\tab\tab "(Image, Dates, Nationalit\'e9...)") \cf3 Then\cf2\par
\par
\tab\tab Ecrase_\cf5 Info\cf2 s = 2\par
\tab\cf3 Else\cf2\par
\tab\tab Ecrase_\cf5 Info\cf2 s = 1\par
\tab\cf3 End\cf2\par
\cf3 Else\cf2\par
\tab Ecrase_\cf5 Info\cf2 s = 2\par
\cf3 End\cf2\par
\par
\cf1\fs20 //_______________________________________________________________________\fs18 DEBUT PROGRAMME\fs20 _________________________________________________________________________\cf0\fs18\par
\par
\cf2 Debut_Prog:\cf0\par
\cf2 i = 0\cf0\par
\cf2 Cpt_Art = 1\cf0\par
N\cf2 b_Total = HNbEnr(ARTISTE)\cf0\par
\cf1 HLitPremier(ARTISTE, "ARCLEUNIK")\cf2\par
\cf1 TANTQUE PAS HEnDehors(ARTISTE)\cf0\par
\tab i\cf2 ++\cf0\par
\cf2\tab\cf1 // Traitement en fonction du type de Mise A Jour\par
\cf2\tab\cf3 If\cf2  (MAJ_All = 2) AND (Length_search1 = Length_search2) \cf3 Then\cf2\par
\tab\tab\cf3 If\cf2  i < i_MAJ_All \cf3 Then\cf2  \cf3 Goto\cf2  Finscript\par
\tab\cf3 End\par
\cf2\tab\cf3 If\cf2  (MAJ_All = 3) AND (ARTISTE.NOM_VIDEO \cf1 <>\cf2  "0") \cf3 Then\par
\cf2\tab\tab Presence_Fiche = 1\cf3\par
\cf2\tab\tab\cf3 Goto\cf2  Finscript\cf1  // Mise \'e0 jour de l'artiste suivant\par
\cf2\tab\cf3 End\par
\cf2\tab\cf3 If\cf2  (MAJ_All <> 3) AND (ARTISTE.NOM_VIDEO = "0") \cf3 Then\par
\cf2\tab\tab Presence_Fiche = 2\cf3\par
\cf2\tab\tab\cf3 Goto\cf2  Finscript\cf1  // Mise \'e0 jour de l'artiste suivant\par
\cf2\tab\cf3 End\par
\cf2\tab\cf3 If\cf2  (MAJ_All = 1) AND (ARTISTE.NOM_VIDEO <> "") \cf3 Then\par
\cf2\tab\tab Presence_Fiche = 1\cf3\par
\cf2\tab\tab\cf3 Goto\cf2  Finscript \cf1 // Mise \'e0 jour de l'artiste suivant\par
\cf2\tab\cf3 End\cf2\par
\par
\tab Debut_Recherche:\cf3\par
\cf2\tab\cf3 If\cf2  (ARTISTE.NOM_VIDEO <> "") AND (ARTISTE.NOM_VIDEO <> "0")\cf1  \cf3 Then\par
\cf2\tab\tab MAJ_Fiche = 1\cf3\par
\cf2\tab\tab PersoCode = ARTISTE.NOM_VIDEO\par
\tab\tab\cf3 Goto\cf2  DebutMAJ\par
\tab\cf3 End\cf1  \cf0\par
\tab Recherche_Artist = ARTISTE.ARTISTE\par
\tab Recherche_Artist = \cf4 StringReplace\cf0 ( Recherche_Artist , " ", "+")\par
\par
\tab\cf1 // cette page liste les Artistes trouv\'e9 sur la page allocine\cf0\par
\tab HtmlCode = \cf4 GetPage\cf0 ("http://www.allocine.fr/recherche/?motcle=", Recherche_Artist , "&f=3&rub=2&page=1" )\par
\tab HtmlCode = \cf4 BetweenStrings\cf0  (HtmlCode , "D20000"">Recherche" , "<h3><b>Rechercher")\par
\tab\cf3 If\cf0  HtmlCode = "" \cf3 Then\cf0\par
\tab\tab\cf1 // UserErrorMessage("Cette page n'a pas \'e9t\'e9 trouv\'e9")\par
\cf2\tab\tab ChaineATracer = ARTISTE.ARTISTE_MAJ + " ("\cf1  +\cf2  i + "/" + Nb_Total +"): ERREUR"\cf0\par
\tab\tab\cf3 Goto\cf2  Finscript\cf0\par
\tab\cf3 End\cf0\par
\tab Artist_Delimiter = "/personne/fichepersonne_gen_cpersonne="\par
\tab Nb_Artist = \cf4 StringCounter\cf0 (HtmlCode, Artist_Delimiter)\par
\tab\cf3 If\cf0  Nb_Artist = 0 \cf3 Then\cf0\par
\tab\tab\cf1 // Aucun artiste trouv\'e9\par
\cf2\tab\tab ChaineATracer = ARTISTE.ARTISTE_MAJ + " ("\cf1  +\cf2  i + "/" + Nb_Total +"): ERREUR"\cf0\par
\tab\tab Goto Finscript\par
\tab\cf3 End\cf0\par
\tab\cf3 If\cf0  Nb_Artist > 1 \cf3 Then\par
\cf2\tab\tab\cf3 If\cf2  Liste_Artist = 2 \cf3 Then\cf2\par
\tab\tab\tab ARTISTE.NOM_VIDEO = "0"\par
\tab\tab\tab\cf1 HModifie(ARTISTE)\cf2\par
\tab\tab\tab\cf3 Goto\cf2  Finscript\par
\tab\tab\cf3 Else\cf0\par
\tab\tab\tab\cf1 // Plusieurs r\'e9sultats, Selection par liste\par
\cf2\tab\tab\tab\cf5 Trace\cf2 ("Plusieurs choix pour " + ARTISTE.ARTISTE_MAJ +" ...")\par
\cf1\par
\cf2\tab\tab\tab\cf1 // On vide la liste avant de la remplir par les films suivants\par
\cf2\tab\tab\tab\cf1 n\cf2 =2\par
\tab\tab\tab While Movies_ID_Array[\cf1 n\cf2 ]<>""\par
\tab\tab\tab\tab Movies_ID_Array[\cf1 n\cf2 ]=""\par
\tab\tab\tab\tab Movies_Title_Array[\cf1 n\cf2 ]="" \par
\tab\tab\tab\tab Movies_URL_Array[\cf1 n\cf2 ]="" \par
\tab\tab\tab\tab\cf1 n\cf2 ++ \par
\tab\tab\tab\cf3 End\par
\cf1\par
\cf2\tab\tab\tab\cf3 For\cf2  j=2 to Nb_Artist+1\par
\tab\tab\tab\tab\cf0 PersoCode = Artist_Delimiter + \cf4 StringExtraction\cf0 (HtmlCode, \cf2 j\cf0 , Artist_Delimiter)\par
\cf2\tab\tab\tab\tab\cf1\fs20 Movie_Title = \cf4 BetweenStrings\cf1 (\cf0\fs18 PersoCode\cf1\fs20 , "class=""link1"">" , "</a></h4>")\par
\cf2\tab\tab\tab\tab\cf1 Movie_Title =\cf2  \cf4\fs18 StringReplace\cf2 (Movie_Title, "&nbsp;", " ")\cf1\fs20\par
\tab\tab\tab\tab Movie_Title = \cf4 FormatString\cf1  (Movie_Title, "UC")\par
\tab\tab\cf2\tab\tab\cf1 Movie_Title = \cf4 FormatString\cf1  (Movie_Title, "WOA")\par
\cf2\fs18\tab\tab\tab\tab\cf1\fs20 Movie_Title = RemoveHTMLTags (Movie_Title)\par
\cf2\fs18\tab\tab\tab\tab Index_Artist = \cf4 BetweenStrings\cf2 (PersoCode, "<h4 style=""color: #666666"">", "</h4>")\par
\tab\tab\tab\tab Index_Artist = \cf4 StringReplace\cf2 (Index_Artist, "&nbsp;", "")\par
\tab\tab\tab\tab Index_Artist = \cf4 RemoveHTMLTags\cf2 (Index_Artist)\par
\tab\tab\tab\tab\cf3 If\cf2  Index_Artist = "\cf1\fs20\'04\cf2\fs18 " \cf3 Then\cf2\par
\tab\tab\tab\tab\tab Movie_Title = Movie_Title\par
\tab\tab\tab\tab\cf3 Else\cf2\par
\tab\tab\tab\tab\tab Movie_Title = Movie_Title + "  (" + Index_Artist + ")."\par
\tab\tab\tab\tab\cf3 End\cf0\par
\tab\tab\tab\tab PersoCode = \cf4 BetweenStrings\cf0 (PersoCode, Artist_Delimiter, ".html")\par
\cf2\tab\tab\tab\tab\cf4\fs20 AddMovieToList\cf1 (\cf2 j\cf1 , \cf0\fs18 PersoCode\cf1\fs20 ,\cf2  \cf1 Movie_Title, \fs18 "http://www.allocine.fr/personne/fichepersonne.html?cpersonne=" + PersoCode\fs20 )\cf2\fs18\par
\tab\tab\tab\cf3 End\par
\cf2\tab\tab\tab\cf4 OpenMoviesList\cf2 ()\par
\tab\tab\tab\cf3 If\cf2  \cf7 MovieIDValue\cf2  = "" \cf3 Then\par
\cf1\tab\cf2\tab\tab\tab\cf5 Info\cf2 ("Vous n'avez selectionn\'e9 aucun artiste.")\cf1\par
\cf2\tab\tab\tab\tab ChaineATracer = ARTISTE.ARTISTE_MAJ + " ("\cf1  +\cf2  i + "/" + Nb_Total +"): ERREUR"\cf0\par
\tab\tab\tab\tab Goto Finscript\par
\cf2\tab\tab\tab\cf3 Else\cf2\par
\tab\tab\tab\tab PersoCode = \cf7 MovieIDValue\cf2\par
\tab\tab\tab\cf3 End\par
\cf2\tab\tab\cf3 End\cf0\par
\tab\cf3 Else\cf0\par
\tab\tab PersoCode = Artist_Delimiter + \cf4 StringExtraction\cf0 (HtmlCode, 2, Artist_Delimiter)\par
\tab\tab PersoCode = \cf4 BetweenStrings\cf0 (PersoCode, Artist_Delimiter, ".html")\par
\cf2\tab\cf3 End\cf2\par
\par
\tab DebutMAJ:\par
\tab\cf1 //\cf7 MovieURLValue\cf1  = "http://www.allocine.fr/personne/fichepersonne_gen_cpersonne=" + PersoCode + ".html"\cf0\par
\tab\cf7 MovieURLValue\cf1  = "http://www.allocine.fr/personne/fichepersonne.html?cpersonne=" + PersoCode\cf0\par
\cf2\par
\tab\fs20\par
\fs18\tab\cf1\fs20 //______________________________\fs18 Recherche de la page de l'artiste trouv\'e9 au dessus\fs20 _________________________________\cf0\fs18\par
\par
\tab HtmlCode = ""\par
\tab HtmlCode = \cf4 GetPage\cf0 (\cf7 MovieURLValue\cf0 , "", "")\par
\cf2\tab\cf0 HtmlCode = \cf4 BetweenStrings\cf0 (HtmlCode, "<b>Accueil</b></h5>", "top"" style=""padding:10 0 10 0"">")\par
\cf2\fs20\par
\tab\cf1 //_____________________________________\fs18 R\'e9cup\'e9ration de l'image de l'artiste\fs20 ______________________________________\cf2\par
\cf0\fs18\par
\tab\cf1 // Image \'e0 placer dans le dossier ".\\Artistes"\cf0\par
\tab HtmlCode1 = \cf4 StringExtraction\cf0 (HtmlCode, 1, "<b>Biographie</b>")\par
\cf2\par
\tab\cf3 If\cf2  (\cf1 ARTISTE.IMAGE\cf2  \cf1 =\cf2  "cinehome.jpg") OR (\cf1 ARTISTE.IMAGE\cf2  \cf1 =\cf2  "") OR (Ecrase_\cf5 Info\cf2 s = 2) \cf3 Then\cf0\par
\tab\tab Img_Delimiter = "img5.allocine.fr/acmedia/medias/nmedia/"\par
\tab\tab Img_Artist = \cf4 BetweenStrings\cf0 (HtmlCode1, Img_Delimiter, ".jpg")\par
\tab\tab\cf3 If\cf0  Img_Artist = "\cf1\fs20\'04\cf0\fs18 " \cf3 Then\cf0\par
\tab\tab\tab Img_Artist = ""\par
\cf2\tab\tab\tab Nom_Artist = "cinehome.jpg"\cf0\par
\tab\tab\cf3 Else\cf0\par
\tab\tab\tab Img_Artist = "http://a69.g.akamai.net/n/69/10688/v1/img5.allocine.fr/acmedia/medias/nmedia/" + Img_Artist + ".jpg"\par
\cf2\tab\tab\tab Nom_Artist =  ARTISTE.ARTISTE_MAJ\par
\tab\tab\tab Nom_Artist = \cf4 StringReplace\cf2 (Nom_Artist, " ", "_")\par
\tab\tab\tab Nom_Artist = \cf4 StringReplace\cf2 (Nom_Artist, "'", "_")\par
\tab\tab\tab Nom_Artist = \cf4 StringReplace\cf2 (Nom_Artist, """", "_")\par
\tab\tab\tab Nom_Artist = \cf4 StringReplace\cf2 (Nom_Artist, "@", "_")\par
\tab\tab\tab Nom_Artist = \cf4 StringReplace\cf2 (Nom_Artist, "&", "_")\par
\tab\tab\tab Nom_Artist = Nom_Artist + ".jpg"\cf0\par
\cf2\tab\tab\tab\cf4 DownloadFile\cf2 (Img_Artist, ".\\Artistes\\", Nom_Artist)\cf0\par
\tab\tab\cf3 End\cf2\par
\tab\cf3 End\cf0\par
\cf2\par
\fs20\par
\fs18\tab\cf1\fs20 //_____________________________\fs18 R\'e9cup\'e9ration des informations g\'e9n\'e9rales de l'artiste\fs20 ________________________________\cf0\fs18\par
\par
\tab Date_Naissance = \cf4 BetweenStrings\cf0 (HtmlCode1, "<h4><div style=""padding:10 0 0 0"">", "</h4>")\par
\tab\cf3 If\cf0  Date_Naissance = "\cf1\fs20\'04\cf0\fs18 " \cf3 Then\cf0\par
\tab\tab Date_Naissance = ""\par
\tab\tab Date_Deces = ""\par
\tab\tab Nationalite = ""\par
\tab\tab Lieu_Naissance = ""\par
\tab\tab Goto FinDateDeces\par
\tab\cf3 End\cf0\par
\par
\tab Nb_Date = \cf4 StringCounter\cf0 (Date_Naissance, "<br />")\par
\tab\cf3 If\cf0  Nb_Date = 1 \cf3 Then\cf0\par
\tab\tab\cf1 Date_Deces = Date_Naissance + "</TOTO>"\cf0\par
\tab\tab\cf1 Date_Deces = \cf4 BetweenStrings\cf1 (Date_Deces, "<br />", "</TOTO>")\cf0\par
\tab\tab\cf1 Date_Naissance = \cf4 BetweenStrings\cf1 (HtmlCode1, "<h4><div style=""padding:10 0 0 0""> ", "<br />")\par
\cf0\tab\cf3 End\cf2\par
\par
\tab\cf1\fs20 //_______________________________________\fs18 Recuperation de la Nationalite\fs20 _________________________________________\cf0\fs18\par
\cf1\par
\cf2\tab\cf3 If (\cf1 ARTISTE.P0CLEUNIK\cf2  = 0) OR (Ecrase_\cf5 Info\cf2 s = 2) \cf3 Then\cf0\par
\tab\tab Nationalite = \cf4 BetweenStrings\cf0 (Date_Naissance, "(", ")")\par
\tab\tab\cf3 If\cf0  (Nationalite = "\cf1\fs20\'04\cf0\fs18 ") O\cf2 R (\cf4 StringLength\cf2 (\cf0 Nationalite\cf2 ) <= 1) \cf3 Then\cf0\par
\tab\tab\tab Nationalite = ""\par
\tab\tab\cf3 End\par
\cf2\tab\cf3 End\cf0\par
\par
\cf2\fs20\par
\fs18\tab\cf1\fs20 //_________________________________\fs18 Recuperation du Lieu de naissance de l'artiste\fs20 __________________________________\cf0\fs18\par
\cf1\par
\cf2\tab Date_Naissance = \cf4 StringReplace\cf2 (Date_Naissance, CR, "")\par
\tab Date_Naissance = \cf4 StringReplace\cf2 (Date_Naissance, \cf3 Charact\cf2 (13), "")\cf1\par
\cf2\tab\cf3 If\cf2  (\cf1 ARTISTE.LIEU_NAISSANCE =\cf2  "") OR (Ecrase_\cf5 Info\cf2 s = 2) \cf3 Then\par
\cf0\tab\tab Lieu_Naissance = \cf4 BetweenStrings\cf0 (Date_Naissance, \cf2 "\'e0"\cf0 , "(")\par
\cf2\tab\tab\cf3 If\cf2  \cf4 StringCounter\cf2 (\cf0 Lieu_Naissance\cf2 , "<br>") > 0 \cf3 Then\par
\cf2\tab\tab\tab\cf0 Lieu_Naissance = \cf4 BetweenStrings\cf0 (Date_Naissance, \cf2 "\'e0"\cf0 , "\cf2 <br>\cf0 ")\cf2\par
\tab\tab\cf3 End\cf0\par
\tab\tab\cf3 If\cf0  Lieu_Naissance = "\cf1\fs20\'04\cf0\fs18 " \cf3 Then\cf0\par
\tab\tab\tab Lieu_Naissance = ""\par
\tab\tab\cf3 End\cf0\par
\tab\tab While \cf4 StringLeft\cf0 (Lieu_Naissance, 1) = " "\par
\tab\tab\tab Lieu_Naissance = \cf4 StringRight\cf0 (Lieu_Naissance, \cf4 StringLength\cf0 (Lieu_Naissance) - 1)\par
\tab\tab\cf3 End\cf0\par
\tab\tab While \cf4 StringRight\cf0 (Lieu_Naissance, 1) = " "\par
\tab\tab\tab Lieu_Naissance = \cf4 StringLeft\cf0 (Lieu_Naissance, \cf4 StringLength\cf0 (Lieu_Naissance) - 1)\par
\tab\tab\cf3 End\par
\cf2\tab\cf3 End\par
\cf0\par
\cf2\fs20\par
\fs18\tab\cf1\fs20 //_______________________________\fs18 Recuperation de la Date de naissance de l'artiste\fs20 _________________________________\cf0\fs18\par
\cf1\par
\cf2\tab Taille_Date1 = \cf4 StringLength\cf2 (\cf4 EliminateLetters\cf2 (\cf1 ARTISTE.NAISSANCE)\cf2 )\cf1\par
\cf2\tab\cf3 If (\cf1 ARTISTE.NAISSANCE =\cf2  "") O\cf1 R ( \cf2 Taille_Date1 <> 8) OR (Ecrase_\cf5 Info\cf2 s = 2)\cf1  \cf3 Then\cf2\par
\tab\tab Date_Naissance1 = Date_Naissance\tab\tab\par
\tab\tab Date_Naissance = \cf4 EliminateLetters\cf2 (Date_Naissance)\par
\tab\tab\cf3 If\cf2  \cf4 StringLength\cf2 (Date_Naissance) = 6 \cf3 Then\par
\cf2\tab\tab\tab\cf0 Jour_Naissance = \cf4 StringLeft\cf0 (Date_Naissance, 2)\par
\tab\tab\tab Annee_Naissance = \cf4 StringRight\cf0 (Date_Naissance, 4)\par
\cf2\tab\tab\tab Mois_Naissance = \cf4 BetweenStrings\cf2 (\cf0 Date_Naissance\cf2 1, \cf0 Jour_Naissance\cf2 , \cf0 Annee_Naissance\cf2 )\par
\tab\tab\tab\cf0 Mois_Naissance = \cf4 EliminateNumbers\cf0 (Mois_Naissance)\cf2\par
\tab\tab\tab Mois_Naissance = \cf4 StringReplace\cf2 (Mois_Naissance, " ", "")\cf0\par
\cf2\tab\tab\cf3 Else\cf2\par
\tab\tab\tab\cf3 If\cf2  \cf4 StringLength\cf2 (Date_Naissance) = 5 \cf3 Then\par
\cf2\tab\tab\tab\tab\cf0 Jour_Naissance = \cf4 StringLeft\cf0 (Date_Naissance, \cf2 1\cf0 )\par
\tab\tab\tab\tab Annee_Naissance = \cf4 StringRight\cf0 (Date_Naissance, 4)\par
\cf2\tab\tab\tab\tab Mois_Naissance = \cf4 BetweenStrings\cf2 (\cf0 Date_Naissance\cf2 1, \cf0 Jour_Naissance\cf2 , \cf0 Annee_Naissance\cf2 )\par
\tab\tab\tab\tab\cf0 Mois_Naissance = \cf4 EliminateNumbers\cf0 (Mois_Naissance)\cf2\par
\tab\tab\tab\tab Mois_Naissance = \cf4 StringReplace\cf2 (Mois_Naissance, " ", "")\par
\tab\tab\tab\tab Jour_Naissance = \cf0 "\cf2 0" + Jour_Naissance\tab\tab\tab\tab\cf0\par
\cf2\tab\tab\tab\cf3 Else\par
\cf2\tab\tab\tab\tab\cf3 If\cf2  \cf4 StringLength\cf2 (Date_Naissance) = 4 \cf3 Then\cf2\par
\tab\tab\tab\tab\tab\cf0 Jour_Naissance = \cf2 "00"\par
\tab\tab\tab\tab\tab Mois_Naissance = "00"\cf0\par
\tab\tab\tab\tab\tab Annee_Naissance = Date_Naissance\par
\cf2\tab\tab\tab\tab\cf3 Else\cf2\par
\tab\tab\tab\tab\tab\cf1 Date_Naissance = ""\par
\cf2\tab\tab\tab\tab\tab\cf3 Goto\cf2  FinDateNaissance\cf0\par
\cf2\tab\tab\tab\tab\cf3 End\cf2\par
\tab\tab\tab\cf3 End\cf0\par
\cf2\tab\tab\cf3 End\cf0\par
\tab\tab\cf3 If\cf0  Mois_Naissance ~= "janvier" \cf3 Then\cf2  \cf0 Mois_Naissance = "01"\par
\tab\tab\cf3 If\cf0  Mois_Naissance ~= "fevrier" \cf3 Then\cf2  \cf0 Mois_Naissance = "02"\par
\tab\tab\cf3 If\cf0  Mois_Naissance ~= "mars" \cf3 Then\cf2  \cf0 Mois_Naissance = "03"\par
\tab\tab\cf3 If\cf0  Mois_Naissance ~= "avril" \cf3 Then\cf2  \cf0 Mois_Naissance = "04"\par
\tab\tab\cf3 If\cf0  Mois_Naissance ~= "mai" \cf3 Then\cf2  \cf0 Mois_Naissance = "05"\par
\tab\tab\cf3 If\cf0  Mois_Naissance ~= "juin" \cf3 Then\cf2  \cf0 Mois_Naissance = "06"\par
\tab\tab\cf3 If\cf0  Mois_Naissance ~= "juillet" \cf3 Then\cf2  \cf0 Mois_Naissance = "07"\par
\tab\tab\cf3 If\cf0  Mois_Naissance ~= "aout" \cf3 Then\cf0  Mois_Naissance = "08"\par
\tab\tab\cf3 If\cf0  Mois_Naissance ~= "septembre" \cf3 Then\cf0  Mois_Naissance = "09"\par
\tab\tab\cf3 If\cf0  Mois_Naissance ~= "octobre" \cf3 Then\cf0  Mois_Naissance = "10"\par
\tab\tab\cf3 If\cf0  Mois_Naissance ~= "novembre" \cf3 Then\cf0  Mois_Naissance = "11"\par
\tab\tab\cf3 If\cf0  Mois_Naissance ~= "decembre" \cf3 Then\cf0  Mois_Naissance = "12"\par
\tab\tab Date_Naissance = Jour_Naissance + "/" + Mois_Naissance + "/" + Annee_Naissance\par
\tab\tab\cf2 Date_Naissance = Cha\'eeneVersDate (Date_Naissance)\cf0\par
\cf2\tab\cf3 Else\cf2\par
\tab\tab\cf0 Date_Naissance = ""\cf3\par
\cf2\tab\cf3 End\par
\cf2\tab FinDateNaissance:\par
\cf0\par
\cf2\fs20\par
\fs18\tab\cf1\fs20 //________________________________\fs18 Recuperation de la Date de d\'e9c\'e9s de l'artiste\fs20 ___________________________________\cf0\fs18\par
\cf1\par
\cf2\tab Taille_Date2 = \cf4 StringLength\cf2 (\cf4 EliminateLetters\cf2 (\cf1 ARTISTE.D\cf2 ECES\cf1 )\cf2 )\cf1\par
\cf2\tab\cf3 If\cf2  (\cf1 ARTISTE.DECES\cf2  = "") O\cf1 R (\cf2 Taille_Date2\cf1  \cf2 <> 8 ) OR (Ecrase_\cf5 Info\cf2 s = 2) \cf3 Then\cf0\par
\tab\tab\cf3 If\cf0  Nb_Date = 0 \cf3 Then\cf0\par
\tab\tab\tab Date_Deces = ""\par
\tab\tab\tab Goto FinDateDeces\par
\tab\tab\cf3 End\cf2\par
\tab\tab\cf0 Date_Deces\cf2  = \cf4 StringReplace\cf2 (\cf0 Date_Deces\cf2 , CR, "")\par
\tab\tab\cf0 Date_Deces\cf2  = \cf4 StringReplace\cf2 (\cf0 Date_Deces\cf2 , \cf3 Charact\cf2 (13), "")\par
\tab\tab\cf0 Date_Deces\cf2 1 = \cf0 Date_Deces\cf2\par
\tab\tab\cf0 Date_Deces\cf2  = \cf4 EliminateLetters\cf2 (\cf0 Date_Deces\cf2 )\par
\tab\tab\cf3 If\cf2  \cf4 StringLength\cf2 (\cf0 Date_Deces\cf2 ) = 6 \cf3 Then\par
\cf2\tab\tab\tab\cf0 Jour_Deces = \cf4 StringLeft\cf0 (Date_Deces, 2)\par
\tab\tab\tab Annee_Deces = \cf4 StringRight\cf0 (Date_Deces, 4)\par
\cf2\tab\tab\tab Mois_\cf0 Deces\cf2  = \cf4 BetweenStrings\cf2 (\cf0 Date_Deces\cf2 1, \cf0 Jour_Deces\cf2 , \cf0 Annee_Deces\cf2 )\par
\tab\tab\tab\cf0 Mois_Deces = \cf4 EliminateNumbers\cf0 (Mois_Deces)\cf2\par
\tab\tab\tab Mois_\cf0 Deces\cf2  = \cf4 StringReplace\cf2 (Mois_\cf0 Deces\cf2 , " ", "")\cf0\par
\cf2\tab\tab\cf3 Else\cf2\par
\tab\tab\tab\cf3 If\cf2  \cf4 StringLength\cf2 (\cf0 Date_Deces\cf2 ) = 5 \cf3 Then\par
\cf2\tab\tab\tab\tab\cf0 Jour_Deces = \cf4 StringLeft\cf0 (Date_Deces, \cf2 1\cf0 )\par
\tab\tab\tab\tab Annee_Deces = \cf4 StringRight\cf0 (Date_Deces, 4)\par
\cf2\tab\tab\tab\tab Mois_\cf0 Deces\cf2  = \cf4 BetweenStrings\cf2 (\cf0 Date_Deces\cf2 1, \cf0 Jour_Deces\cf2 , \cf0 Annee_Deces\cf2 )\par
\tab\tab\tab\tab\cf0 Mois_Deces = \cf4 EliminateNumbers\cf0 (Mois_Deces)\cf2\par
\tab\tab\tab\tab Mois_\cf0 Deces\cf2  = \cf4 StringReplace\cf2 (Mois_\cf0 Deces\cf2 , " ", "")\par
\tab\tab\tab\tab Jour_\cf0 Deces\cf2  = \cf0 "\cf2 0" + Jour_\cf0 Deces\cf2\tab\tab\cf0\par
\cf2\tab\tab\tab\cf3 Else\par
\cf2\tab\tab\tab\tab\cf3 If\cf2  \cf4 StringLength\cf2 (\cf0 Date_Deces\cf2 ) = 4 \cf3 Then\cf2\par
\tab\tab\tab\tab\tab\cf0 Jour_Deces = \cf2 "00"\par
\tab\tab\tab\tab\tab Mois_\cf0 Deces\cf2  = "00"\cf0\par
\tab\tab\tab\tab\tab Annee_Deces = Date_Deces\par
\cf2\tab\tab\tab\tab\cf3 Else\cf2\par
\tab\tab\tab\tab\tab\cf1 Date_\cf0 Deces\cf1  = ""\par
\cf2\tab\tab\tab\tab\tab\cf0 Goto FinDateDeces\par
\cf2\tab\tab\tab\tab\cf3 End\cf2\par
\tab\tab\tab\cf3 End\cf0\par
\cf2\tab\tab\cf3 End\cf0\par
\tab\tab\cf3 If\cf0  Mois_Deces ~= "janvier" \cf3 Then\cf2  \cf0 Mois_Deces = "01"\par
\tab\tab\cf3 If\cf0  Mois_Deces ~= "fevrier" \cf3 Then\cf0  Mois_Deces = "02"\par
\tab\tab\cf3 If\cf0  Mois_Deces ~= "mars" \cf3 Then\cf0  Mois_Deces = "03"\par
\tab\tab\cf3 If\cf0  Mois_Deces ~= "avril" \cf3 Then\cf0  Mois_Deces = "04"\par
\tab\tab\cf3 If\cf0  Mois_Deces ~= "mai" \cf3 Then\cf0  Mois_Deces = "05"\par
\tab\tab\cf3 If\cf0  Mois_Deces ~= "juin" \cf3 Then\cf0  Mois_Deces = "06"\par
\tab\tab\cf3 If\cf0  Mois_Deces ~= "juillet" \cf3 Then\cf0  Mois_Deces = "07"\par
\tab\tab\cf3 If\cf0  Mois_Deces ~= "aout" \cf3 Then\cf0  Mois_Deces = "08"\par
\tab\tab\cf3 If\cf0  Mois_Deces ~= "septembre" \cf3 Then\cf0  Mois_Deces = "09"\par
\tab\tab\cf3 If\cf0  Mois_Deces ~= "octobre" \cf3 Then\cf0  Mois_Deces = "10"\par
\tab\tab\cf3 If\cf0  Mois_Deces ~= "novembre" \cf3 Then\cf0  Mois_Deces = "11"\par
\tab\tab\cf3 If\cf0  Mois_Deces ~= "decembre" \cf3 Then\cf0  Mois_Deces = "12"\par
\tab\tab Date_Deces = Jour_Deces + "/" + Mois_Deces + "/" + Annee_Deces\par
\cf2\tab\tab Date_Deces = Cha\'eeneVersDate (Date_Deces)\par
\tab\cf3 Else\cf2\par
\tab\tab\cf0 Date_Deces = ""\cf3\par
\cf2\tab\cf3 End\cf0\par
\tab FinDateDeces:\par
\tab HtmlCode1 = ""\par
\cf2\par
\fs20\par
\fs18\tab\cf1\fs20 //__________________________________\fs18 R\'e9cup\'e9ration de la Biographie de l'artiste\fs20 ____________________________________\cf2\par
\cf1\fs18\par
\cf2\tab HLitRecherche(\cf1 NOTEART\cf2 , "ARCLEUNIK", \f1\fs20 ARTISTE.ARCLEUNIK\f0\fs18 )\par
\tab\cf3 If\cf2  Htrouve()\cf3 Then\par
\cf2\tab\tab\cf1 // Suppression Biographie si d\'e9ja pr\'e9sente\cf2\par
\pard\nowidctlpar\tab\tab\cf5\lang2057\f1\fs20 H\cf2 Supprime (\cf1\lang1036\f0\fs18 NOTEART\cf2\lang2057\f1\fs20  , HNumEnrEnCours)\lang1036\f0\fs18\par
\pard\tab\cf3 End\cf0\par
\tab HtmlCode1 = \cf4 BetweenStrings\cf0 (HtmlCode, "<b>Biographie</b>", \cf1 "</h4></div></td>")\cf0\par
\tab HtmlCode1= Replace(HtmlCode1, RC, "")\par
\tab HtmlCode1= Replace(HtmlCode1, \cf3 Charact\cf0 (13), "")\par
\cf2\tab\cf0 HtmlCode1 = Replace(HtmlCode1, "<br>", CR)\par
\tab HtmlCode1 = Replace(HtmlCode1, "<p>", CR+CR )\par
\tab HtmlCode1= Replace(HtmlCode1, "\tab ", "")  \cf1 // TAB\cf0\par
\tab Bio_Artist = RemoveHTMLTags(HtmlCode1)\par
\tab\cf3 If\cf0  Bio_Artist = "\cf1\fs20\'04\cf0\fs18 " \cf3 Then\cf0\par
\tab\tab Bio_Artist = ""\par
\cf2\tab\cf3 Else\cf2\par
\pard\nowidctlpar\tab\tab\cf1 // Elimination des caract\'e8re 00004000 ...\cf2\par
\tab\tab Nb_Remove is \cf3 Int \cf2 = \cf4 StringCounter\cf2 (\cf0 Bio_Artist\cf2 , "0000")\par
\tab\tab\cf3 If\cf2  Nb_Remove >= 1 \cf3 Then\par
\cf2\tab\tab\tab RemoveCode is \cf3 String\cf2\par
\tab\tab\tab RemoveCode = \cf4 StringExtraction\cf2 (\cf0 Bio_Artist\cf2 , 2, "0000")\par
\tab\tab\tab RemoveCode = \cf4 StringLeft\cf2 (RemoveCode, 4)\par
\tab\tab\tab\cf0 Bio_Artist\cf2  = \cf4 StringReplace\cf2 (\cf0 Bio_Artist\cf2 , RemoveCode, "1111")\par
\tab\tab\cf3 End\par
\cf2\tab\tab\cf0 Bio_Artist\cf2  = \cf4 StringReplace\cf2 (\cf0 Bio_Artist\cf2 , "00001111", "")\par
\tab\tab\cf1 // Fin d'\'e9limination des caract\'e8res 00004000 ...\cf0\par
\pard\tab\cf3 End\cf0\par
\cf2\par
\par
\cf0\tab\cf1\fs20 //_________________________________\fs18 Ajout des Informations dans la base de donn\'e9es\fs20 ___________________________________\cf2\par
\cf1\fs18\par
\cf2\tab\cf3 If\cf2  \cf1 Nationalite\cf2  <> "" \cf3 Then\cf1\par
\tab\tab HReadSeek(PAYS, PAYS, Nationalite)\cf2\par
\cf1\tab\tab\cf3 If\cf1  HTrouve() \cf3 Then\cf2\par
\cf1\tab\tab\tab Nationalite = PAYS.P0CLEUNIK\cf2\par
\cf1\tab\tab\cf3 Else\cf2\par
\cf1\tab\tab\tab HLitDernier(PAYS, "P0CLEUNIK")\cf2\par
\cf1\tab\tab\tab PAYS.P0CLEUNIK = PAYS.P0CLEUNIK + 1\cf2\par
\cf1\tab\tab\tab PAYS.PAYS = Nationalite\cf2\par
\cf1\tab\tab\tab Nationalite = PAYS.P0CLEUNIK\cf2\par
\cf1\tab\tab\tab HAjoute(PAYS)\cf2\par
\cf1\tab\tab\cf3 End\par
\cf2\tab\cf3 End\par
\cf1\par
\tab ARTISTE.REPERT = ".\\artistes"\cf2\par
\cf1\tab\cf3 If\cf2  (\cf1 Nom_Artist\cf2  <> "") OR (Ecrase_\cf5 Info\cf2 s = 2) \cf3 Then\cf2  \cf1 ARTISTE.IMAGE = Nom_Artist\par
\cf2\tab\cf3 If\cf2  (\cf1 Date_Naissance\cf2  <> "") OR (Ecrase_\cf5 Info\cf2 s = 2) \cf3 Then\cf2  \cf1 ARTISTE.NAISSANCE = Date_Naissance\par
\cf2\tab\cf3 If\cf2  (\cf1 Date_Deces\cf2  <> "") OR (Ecrase_\cf5 Info\cf2 s = 2) \cf3 Then\cf2  \cf1 ARTISTE.DECES = Date_Deces\cf2\par
\cf1\tab\cf3 If\cf2  (\cf1 Lieu_Naissance\cf2  <> "") OR (Ecrase_\cf5 Info\cf2 s = 2) \cf3 Then\cf2  \cf1 ARTISTE.LIEU_NAISSANCE = Lieu_Naissance\cf2\par
\cf1\tab\cf3 If\cf2  (\cf1 Nationalite\cf2  <> "") OR (Ecrase_\cf5 Info\cf2 s = 2) \cf3 Then\cf2  \cf1 ARTISTE.P0CLEUNIK = Nationalite\par
\cf2\tab\cf3 If\cf2  (ARTISTE.NOM_VIDEO = "") OR (ARTISTE.NOM_VIDEO = "0") \cf3 Then \cf2 ARTISTE.NOM_VIDEO = \cf0 PersoCode\cf2\par
\cf1\tab HModifie(ARTISTE)\cf2\par
\par
\cf1\tab\cf3 If\cf2  \cf1 Bio_Artist\cf2  <> "" \cf3 Then\cf1\par
\cf2\tab\tab\cf1 NOTEART.ARCLEUNIK = ARTISTE.ARCLEUNIK\cf2\par
\cf1\tab\tab NOTEART.NOTEART = Bio_Artist\cf2\par
\cf1\tab\tab HAjoute(NOTEART)\cf2\par
\tab\cf3 End\par
\cf2\tab\par
\fs20\par
\fs18\tab\cf1 //\fs20 ______________________\fs18 Recherche si filmographie de l'artiste est pr\'e9sente dans la base de donn\'e9es\fs20 _______________________\par
\cf2\fs18\par
\tab HLitRecherche(FILMOGRAPHIE, "ARCLEUNIK", \f1\fs20 ARTISTE.ARCLEUNIK)\par
\tab\lang2057 DebutChoix:\lang1036\par
\f0\fs18\tab\cf3 If\cf2  HTrouve() \cf3 Then\par
\cf2\tab\tab\cf3 If\cf2  \f1\fs20 EcraseAll <> 1 \cf3 Then\cf2\f0\fs18\par
\cf1\f1\fs20\tab\tab\tab TitreSuivant("\cf2 Ecraser la filmographie de l'artiste \cf1 ?")\line\tab\tab\tab R\cf2 e\cf1 sultat = \b Confirmer \b0 ("\cf2 Voulez-vous \'e9craser la filmographie de \cf1 " +\cf2  ARTISTE.ARTISTE +\cf1  C\cf2 R + \cf1 ...\line\tab\tab\tab\tab\tab "OUI: E\cf2 crase la filmographie de l'artiste\cf1 " + C\cf2 R + \cf1 ...\cf2\par
\tab\tab\tab\tab\tab "NON: Pas de mise \'e0 jour de la filmographie" + CR + ...\par
\tab\tab\tab\tab\tab "Annuler: ECRASE la filmographie de TOUS les artistes suivant SANS CONFIRMATION"\cf0 )\line\cf3\tab\tab\tab If\cf0  \cf1 Re\cf2 sultat\cf0  = \cf4\i Oui\i0  \cf3 Then\cf0\line\cf8\tab\tab\tab\tab\cf3 Goto\cf2  \f0\fs18 Suite\cf9\f1\fs20\line\cf3\tab\tab\tab Else\cf0\line\cf3\tab\tab\tab\tab If\cf0  \cf1 Re\cf2 sultat\cf0  = \cf4\i Annuler\i0  \cf3 Then\cf0\line\cf4\tab\tab\tab\tab\cf2\tab\cf1 // Ecrase tous les artistes qui vont suivre.\cf2\par
\tab\tab\tab\tab\tab\tab EcraseAll = 1\par
\tab\tab\tab\tab\tab\tab\cf3\lang2057 Goto\cf2  Suite\par
\cf1\tab\tab\tab\tab\cf3 Else\cf1  // R\'e9sultat = Non\cf2\par
\tab\tab\tab\tab\tab\cf1 // \lang1036 Passe a la fin de l'importation de la filmographie de l'artiste suivant\lang2057\line\tab\tab\tab\tab\tab Goto \lang1036\f0\fs18 Finscript\lang2057\f1\fs20\line\tab\tab\tab\tab End\line\tab\tab\tab End\par
\cf2\tab\tab\cf3 End\cf2\par
\tab\cf3 End\cf2\tab\cf3\par
\cf2\lang1036\f0\fs18\par
\fs20\par
\fs18\tab\cf1\fs20 //________________________\fs18 Suppression de la filmographie de l'artiste avant la mise \'e0 jour\fs20 ___________________________\cf2\fs18\par
\par
\tab Suite:\par
\tab HLitRecherche(FILMOGRAPHIE, "ARCLEUNIK", \f1\fs20 ARTISTE.ARCLEUNIK)\par
\tab TANTQUE PAS HEnDehors\par
\tab\tab\cf3 If\cf2   HTrouve() \cf3 Then\par
\pard\nowidctlpar\cf2\tab\tab\tab\cf1\lang2057 // Suppression de ou des lignes si elles sont trouv\'e9es\par
\cf2\tab\tab\tab\cf5 H\cf2 Supprime (FILMOGRAPHIE , HNumEnrEnCours)\par
\pard\tab\tab\cf3 End\cf2\lang1036\par
\tab\cf1 HLitSuivant(FILMOGRAPHIE)\par
\cf2\tab\cf3 End\cf2\f0\fs18\par
\par
\fs20\par
\fs18\tab\cf1 //\fs20 _____________________\fs18 Recherche et importation de la filmographie de l'artiste depuis Allocin\'e9\fs20 _______________________\par
\fs18\par
\cf2\tab\cf7 MovieURLValue\cf0  = "http://www.allocine.fr/personne/filmographie_gen_cpersonne=" + PersoCode \cf2 + ".html"\cf1\par
\cf2\tab HtmlCode = \cf4 GetPage\cf2 (\cf7 MovieURLValue\cf2 , "", "")\cf0\par
\tab\cf3 If\cf0  HtmlCode = "" \cf3 Then\cf0\par
\tab\tab\cf1 //\cf4 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9")\cf0\par
\tab\tab\cf2 ChaineATracer = ARTISTE.ARTISTE_MAJ + " ("\cf1  +\cf2  i + "/" + Nb_Total +"): ERREUR"\cf0\par
\tab\tab\cf3 Goto\cf2  Finscript\cf0\par
\tab\cf3 End\cf0\par
\cf2\tab HtmlCode = \cf4 BetweenStrings\cf2 (HtmlCode, "Filmographie</b></h2>", "emplacement:1 et cmodulepub:")\par
\tab HtmlActeur = \cf4 BetweenStrings(\cf2 HtmlCode, "#D20000""><b>Act", "<table")\par
\tab HtmlRealisateur = \cf4 BetweenStrings(\cf2 HtmlCode, "#D20000""><b>R\'e9alisat", "<table")\par
\tab HtmlScenariste = \cf4 BetweenStrings(\cf2 HtmlCode, "Sc\'e9nariste</b></h3>", "<table")\par
\tab HtmlCompositeur = \cf4 BetweenStrings(\cf2 HtmlCode, "Compositeur</b></h3>", "<table")\par
\par
\tab\cf1 // R\'e9cuperation de la liste de films et s\'e9ries TV fait en tant qu'Acteur\par
\cf2\tab Nb_Acteur = \cf4 StringCounter\cf2 (HtmlActeur, "<a href=""/film/fichefilm_gen_cfilm=")\par
\tab Nb_SActeur = \cf4 StringCounter\cf2 (HtmlActeur, "<a href=""/series/ficheserie_gen_cserie=")\par
\tab\cf3 If\cf2  Nb_Acteur <> 0 \cf3 Then\par
\cf2\tab\tab\cf3 For\cf2  j=2 to Nb_Acteur+1\cf3\par
\cf2\tab\tab\tab Filmo_Title = "<a href=""/film/fichefilm_gen_cfilm=" + \cf4 StringExtraction\cf2 (HtmlActeur, j, "<a href=""/film/fichefilm_gen_cfilm=")\par
\tab\tab\tab Filmo_Annee = \cf4 BetweenStrings\cf2 (Filmo_Title, "</a>", "<a")\par
\tab\tab\tab Filmo_Annee = \cf4 BetweenStrings\cf2 (Filmo_Annee, "(", ")")\par
\tab\tab\tab Filmo_Title = \cf4 BetweenStrings\cf2 (Filmo_Title, "<b>", "</b>")\par
\tab\tab\tab Filmo_Title = \cf4 RemoveHTMLTags\cf2 (Filmo_Title)\par
\tab\tab\tab Filmo_Fonction = "ACTEUR     "\par
\par
\tab\tab\tab\cf1 // Ecriture dans la Base de Donn\'e9e (Titre, Annee, Fonction)\cf2\par
\tab\tab\tab\f1\fs20 FILMOGRAPHIE.ARCLEUNIK = ARTISTE.ARCLEUNIK\f0\fs18\par
\tab\tab\tab\cf0\f1\fs20 F\cf2 ILMOGRAPHIE.TITRE = Filmo_Title\cf0\par
\cf2\tab\tab\tab\cf0 F\cf2 ILMOGRAPHIE.ANNEE\cf0 =\cf2  Filmo_Annee\par
\tab\tab\tab\cf0 F\cf2 ILMOGRAPHIE.FONCTION_FILM\cf0  \cf2 = Filmo_Fonction\tab\cf0\par
\cf2\f0\fs18\tab\tab\tab HAjoute(\cf0\f1\fs20  F\cf2 ILMOGRAPHIE)\f0\fs18\par
\tab\tab\cf3 End\cf2\par
\tab\cf3 End\par
\cf2\tab\cf3 If\cf2  Nb_SActeur <> 0 \cf3 Then\par
\cf2\tab\tab\cf3 For\cf2  k=2 to Nb_SActeur+1\cf3\par
\cf2\tab\tab\tab Filmo_Title = "<a href=""/series/ficheserie_gen_cserie=" + \cf4 StringExtraction\cf2 (HtmlActeur, k, "<a href=""/series/ficheserie_gen_cserie=")\par
\tab\tab\tab Filmo_Annee = \cf4 BetweenStrings\cf2 (Filmo_Title, "</a>", "<a")\par
\tab\tab\tab Filmo_Annee = \cf4 BetweenStrings\cf2 (Filmo_Annee, "(", ")")\par
\tab\tab\tab Saison_Title =  \cf4 RemoveHTMLTags\cf2 ("<a" + \cf4 BetweenStrings\cf2 (Filmo_Title, "- <a", "</a>"))\par
\tab\tab\tab Filmo_Title = \cf4 BetweenStrings\cf2 (Filmo_Title, "<b>", "</b>")\par
\tab\tab\tab Filmo_Title = Filmo_Title + " - " + Saison_Title\par
\tab\tab\tab Filmo_Fonction = "ACTEUR     "\par
\par
\tab\tab\tab\cf1 // Ecriture dans la Base de Donn\'e9e (Titre, Annee, Fonction)\cf2\par
\tab\tab\tab\f1\fs20 FILMOGRAPHIE.ARCLEUNIK = ARTISTE.ARCLEUNIK\f0\fs18\par
\tab\tab\tab\cf0\f1\fs20 F\cf2 ILMOGRAPHIE.TITRE = Filmo_Title\cf0\par
\cf2\tab\tab\tab\cf0 F\cf2 ILMOGRAPHIE.ANNEE\cf0 =\cf2  Filmo_Annee\par
\tab\tab\tab\cf0 F\cf2 ILMOGRAPHIE.FONCTION_FILM\cf0  \cf2 = Filmo_Fonction\tab\cf0\par
\cf2\f0\fs18\tab\tab\tab HAjoute(\cf0\f1\fs20  F\cf2 ILMOGRAPHIE)\f0\fs18\par
\tab\tab\cf3 End\cf2\par
\tab\cf3 End\cf2\par
\tab\cf1 // R\'e9cuperation de la liste de films et s\'e9ries TV fait en tant que R\'e9alisateur\cf2\par
\tab Nb_Realisateur = \cf4 StringCounter\cf2 (HtmlRealisateur, "<a href=""/film/fichefilm_gen_cfilm=")\par
\cf1\tab\cf2 Nb_SRealisateur = \cf4 StringCounter\cf2 (HtmlRealisateur, "<a href=""/series/ficheserie_gen_cserie=")\cf1\par
\cf2\tab\cf3 If\cf2  Nb_Realisateur <> 0 \cf3 Then\par
\cf2\tab\tab\cf3 For\cf2  j=2 to Nb_Realisateur+1\cf3\par
\cf2\tab\tab\tab Filmo_Title = "<a href=""/film/fichefilm_gen_cfilm=" + \cf4 StringExtraction\cf2 (HtmlRealisateur, j, "<a href=""/film/fichefilm_gen_cfilm=")\par
\tab\tab\tab Filmo_Annee = \cf4 BetweenStrings\cf2 (Filmo_Title, "</a>", "<a")\par
\tab\tab\tab Filmo_Annee = \cf4 BetweenStrings\cf2 (Filmo_Annee, "(", ")")\par
\tab\tab\tab Filmo_Title = \cf4 BetweenStrings\cf2 (Filmo_Title, "<b>", "</b>")\par
\tab\tab\tab Filmo_Title = \cf4 RemoveHTMLTags\cf2 (Filmo_Title)\par
\tab\tab\tab Filmo_Fonction = "R\cf1 EALISATEUR\cf2 "\cf1\par
\cf2\par
\tab\tab\tab\cf1 // Ecriture dans la Base de Donn\'e9e (Titre, Annee, Fonction)\cf2\par
\tab\tab\tab\f1\fs20 FILMOGRAPHIE.ARCLEUNIK = ARTISTE.ARCLEUNIK\f0\fs18\par
\tab\tab\tab\cf0\f1\fs20 F\cf2 ILMOGRAPHIE.TITRE = Filmo_Title\cf0\par
\cf2\tab\tab\tab\cf0 F\cf2 ILMOGRAPHIE.ANNEE\cf0 =\cf2  Filmo_Annee\par
\tab\tab\tab\cf0 F\cf2 ILMOGRAPHIE.FONCTION_FILM\cf0  \cf2 = Filmo_Fonction\tab\cf0\par
\cf2\f0\fs18\tab\tab\tab HAjoute(\cf0\f1\fs20  F\cf2 ILMOGRAPHIE)\f0\fs18\par
\tab\tab\cf3 End\cf2\par
\tab\cf3 End\par
\cf2\tab\cf3 If\cf2  Nb_SRealisateur <> 0 \cf3 Then\par
\cf2\tab\tab\cf3 For\cf2  k=2 to Nb_SRealisateur+1\cf3\par
\cf2\tab\tab\tab Filmo_Title = "<a href=""/series/ficheserie_gen_cserie=" + \cf4 StringExtraction\cf2 (HtmlRealisateur, k, "<a href=""/series/ficheserie_gen_cserie=")\par
\tab\tab\tab Filmo_Annee = \cf4 BetweenStrings\cf2 (Filmo_Title, "</a>", "<a")\par
\tab\tab\tab Filmo_Annee = \cf4 BetweenStrings\cf2 (Filmo_Annee, "(", ")")\par
\tab\tab\tab Saison_Title =  \cf4 RemoveHTMLTags\cf2 ("<a" + \cf4 BetweenStrings\cf2 (Filmo_Title, "- <a", "</a>"))\par
\tab\tab\tab Filmo_Title = \cf4 BetweenStrings\cf2 (Filmo_Title, "<b>", "</b>")\par
\tab\tab\tab Filmo_Title = Filmo_Title + " - " + Saison_Title\par
\tab\tab\tab Filmo_Fonction = "R\cf1 EALISATEUR\cf2 "\cf1\par
\cf2\par
\tab\tab\tab\cf1 // Ecriture dans la Base de Donn\'e9e (Titre, Annee, Fonction)\cf2\par
\tab\tab\tab\f1\fs20 FILMOGRAPHIE.ARCLEUNIK = ARTISTE.ARCLEUNIK\f0\fs18\par
\tab\tab\tab\cf0\f1\fs20 F\cf2 ILMOGRAPHIE.TITRE = Filmo_Title\cf0\par
\cf2\tab\tab\tab\cf0 F\cf2 ILMOGRAPHIE.ANNEE\cf0 =\cf2  Filmo_Annee\par
\tab\tab\tab\cf0 F\cf2 ILMOGRAPHIE.FONCTION_FILM\cf0  \cf2 = Filmo_Fonction\tab\cf0\par
\cf2\f0\fs18\tab\tab\tab HAjoute(\cf0\f1\fs20  F\cf2 ILMOGRAPHIE)\f0\fs18\par
\tab\tab\cf3 End\cf2\par
\tab\cf3 End\cf2\par
\tab\cf1 // R\'e9cuperation de la liste de films et s\'e9ries TV fait en tant que Scenariste\cf2\par
\tab Nb_Scenariste = \cf4 StringCounter\cf2 (HtmlScenariste, "<a href=""/film/fichefilm_gen_cfilm=")\par
\tab Nb_SScenariste = \cf4 StringCounter\cf2 (HtmlScenariste, "<a href=""/series/ficheserie_gen_cserie=")\par
\cf3\tab If\cf2  Nb_Scenariste <> 0 \cf3 Then\par
\tab\cf2\tab\cf3 For\cf2  j=2 to Nb_Scenariste+1\cf3\par
\cf2\tab\tab\tab Filmo_\cf1 Title\cf2  = "<a href=""/film/fichefilm_gen_cfilm=" + \cf4 StringExtraction\cf2 (HtmlScenariste, j, "<a href=""/film/fichefilm_gen_cfilm=")\par
\tab\tab\tab Filmo_Annee = \cf4 BetweenStrings\cf2 (Filmo_Title, "</a>", "<a")\par
\tab\tab\tab Filmo_Annee = \cf4 BetweenStrings\cf2 (Filmo_Annee, "(", ")")\par
\tab\tab\tab Filmo_Title = \cf4 BetweenStrings\cf2 (Filmo_Title, "<b>", "</b>")\par
\tab\tab\tab Filmo_Title = \cf4 RemoveHTMLTags\cf2 (Filmo_Title)\par
\tab\tab\tab Filmo_Fonction = "PRODUCTEUR "  \cf1 // ERREUR "SCENARISTE"\par
\cf2\par
\tab\tab\tab\cf1 // Ecriture dans la Base de Donn\'e9e (Titre, Annee, Fonction)\cf2\par
\tab\tab\tab\f1\fs20 FILMOGRAPHIE.ARCLEUNIK = ARTISTE.ARCLEUNIK\f0\fs18\par
\tab\tab\tab\cf0\f1\fs20 F\cf2 ILMOGRAPHIE.TITRE = Filmo_Title\cf0\par
\cf2\tab\tab\tab\cf0 F\cf2 ILMOGRAPHIE.ANNEE\cf0 =\cf2  Filmo_Annee\par
\tab\tab\tab\cf0 F\cf2 ILMOGRAPHIE.FONCTION_FILM\cf0  \cf2 = Filmo_Fonction\tab\cf0\par
\cf2\f0\fs18\tab\tab\tab HAjoute(\cf0\f1\fs20  F\cf2 ILMOGRAPHIE)\f0\fs18\par
\tab\tab\cf3 End\cf2\par
\tab\cf3 End\par
\cf2\tab\cf3 If\cf2  Nb_SScenariste <> 0 \cf3 Then\par
\tab\cf2\tab\cf3 For\cf2  k=2 to Nb_SScenariste+1\cf3\par
\cf2\tab\tab\tab Filmo_\cf1 Title\cf2  = "<a href=""/series/ficheserie_gen_cserie=" + \cf4 StringExtraction\cf2 (HtmlScenariste, k, "<a href=""/series/ficheserie_gen_cserie=")\par
\tab\tab\tab Filmo_Annee = \cf4 BetweenStrings\cf2 (Filmo_Title, "</a>", "<a")\par
\tab\tab\tab Filmo_Annee = \cf4 BetweenStrings\cf2 (Filmo_Annee, "(", ")")\par
\tab\tab\tab Saison_Title =  \cf4 RemoveHTMLTags\cf2 ("<a" + \cf4 BetweenStrings\cf2 (Filmo_Title, "- <a", "</a>"))\par
\tab\tab\tab Filmo_Title = \cf4 BetweenStrings\cf2 (Filmo_Title, "<b>", "</b>")\par
\tab\tab\tab Filmo_Title = Filmo_Title + " - " + Saison_Title\par
\tab\tab\tab Filmo_Fonction = "PRODUCTEUR "  \cf1 // ERREUR "SCENARISTE"\par
\cf2\par
\tab\tab\tab\cf1 // Ecriture dans la Base de Donn\'e9e (Titre, Annee, Fonction)\cf2\par
\tab\tab\tab\f1\fs20 FILMOGRAPHIE.ARCLEUNIK = ARTISTE.ARCLEUNIK\f0\fs18\par
\tab\tab\tab\cf0\f1\fs20 F\cf2 ILMOGRAPHIE.TITRE = Filmo_Title\cf0\par
\cf2\tab\tab\tab\cf0 F\cf2 ILMOGRAPHIE.ANNEE\cf0 =\cf2  Filmo_Annee\par
\tab\tab\tab\cf0 F\cf2 ILMOGRAPHIE.FONCTION_FILM\cf0  \cf2 = Filmo_Fonction\tab\cf0\par
\cf2\f0\fs18\tab\tab\tab HAjoute(\cf0\f1\fs20  F\cf2 ILMOGRAPHIE)\f0\fs18\par
\tab\tab\cf3 End\cf2\par
\tab\cf3 End\cf2\par
\tab\cf1 // R\'e9cuperation de la liste de films et s\'e9ries TV fait en tant que Compositeur\cf2\par
\tab Nb_Compositeur = \cf4 StringCounter\cf2 (HtmlCompositeur, "<a href=""/film/fichefilm_gen_cfilm=")\par
\tab Nb_SCompositeur = \cf4 StringCounter\cf2 (HtmlCompositeur, "<a href=""/series/ficheserie_gen_cserie=")\par
\tab\cf3 If\cf2  Nb_Compositeur <> 0 \cf3 Then\par
\cf2\tab\tab\cf3 For\cf2  j=2 to Nb_Compositeur+1\par
\tab\tab\tab Filmo_Title = "<a href=""/film/fichefilm_gen_cfilm=" + \cf4 StringExtraction\cf2 (HtmlCompositeur, j, "<a href=""/film/fichefilm_gen_cfilm=")\par
\tab\tab\tab Filmo_Annee = \cf4 BetweenStrings\cf2 (Filmo_Title, "</a>", "<a")\par
\tab\tab\tab Filmo_Annee = \cf4 BetweenStrings\cf2 (Filmo_Annee, "(", ")")\par
\tab\tab\tab Filmo_Title = \cf4 BetweenStrings\cf2 (Filmo_Title, "<b>", "</b>")\par
\tab\tab\tab Filmo_Title = \cf4 RemoveHTMLTags\cf2 (Filmo_Title)\par
\tab\tab\tab Filmo_Fonction = "C\cf1 OMPOSITEUR\cf2 "\cf1\par
\cf2\par
\tab\tab\tab\cf1 // Ecriture dans la Base de Donn\'e9e (Titre, Annee, Fonction)\par
\cf2\tab\tab\tab\f1\fs20 FILMOGRAPHIE.ARCLEUNIK = ARTISTE.ARCLEUNIK\f0\fs18\par
\tab\tab\tab\cf0\f1\fs20 F\cf2 ILMOGRAPHIE.TITRE = Filmo_Title\cf0\par
\cf2\tab\tab\tab\cf0 F\cf2 ILMOGRAPHIE.ANNEE\cf0 =\cf2  Filmo_Annee\par
\tab\tab\tab\cf0 F\cf2 ILMOGRAPHIE.FONCTION_FILM\cf0  \cf2 = Filmo_Fonction\tab\cf0\par
\cf2\f0\fs18\tab\tab\tab HAjoute(\cf0\f1\fs20  F\cf2 ILMOGRAPHIE)\f0\fs18\par
\tab\tab\cf3 End\cf2\par
\tab\cf3 End\par
\cf2\tab\cf3 If\cf2  Nb_SCompositeur <> 0 \cf3 Then\par
\cf2\tab\tab\cf3 For\cf2  k=2 to Nb_SCompositeur+1\par
\tab\tab\tab Filmo_Title = "<a href=""/series/ficheserie_gen_cserie=" + \cf4 StringExtraction\cf2 (HtmlCompositeur, k, "<a href=""/series/ficheserie_gen_cserie=")\par
\tab\tab\tab Filmo_Annee = \cf4 BetweenStrings\cf2 (Filmo_Title, "</a>", "<a")\par
\tab\tab\tab Filmo_Annee = \cf4 BetweenStrings\cf2 (Filmo_Annee, "(", ")")\par
\tab\tab\tab Saison_Title =  \cf4 RemoveHTMLTags\cf2 ("<a" + \cf4 BetweenStrings\cf2 (Filmo_Title, "- <a", "</a>"))\par
\tab\tab\tab Filmo_Title = \cf4 BetweenStrings\cf2 (Filmo_Title, "<b>", "</b>")\par
\tab\tab\tab Filmo_Title = Filmo_Title + " - " + Saison_Title\par
\tab\tab\tab Filmo_Fonction = "C\cf1 OMPOSITEUR\cf2 "\cf1\par
\cf2\par
\tab\tab\tab\cf1 // Ecriture dans la Base de Donn\'e9e (Titre, Annee, Fonction)\par
\cf2\tab\tab\tab\f1\fs20 FILMOGRAPHIE.ARCLEUNIK = ARTISTE.ARCLEUNIK\f0\fs18\par
\tab\tab\tab\cf0\f1\fs20 F\cf2 ILMOGRAPHIE.TITRE = Filmo_Title\cf0\par
\cf2\tab\tab\tab\cf0 F\cf2 ILMOGRAPHIE.ANNEE\cf0 =\cf2  Filmo_Annee\par
\tab\tab\tab\cf0 F\cf2 ILMOGRAPHIE.FONCTION_FILM\cf0  \cf2 = Filmo_Fonction\tab\cf0\par
\cf2\f0\fs18\tab\tab\tab HAjoute(\cf0\f1\fs20  F\cf2 ILMOGRAPHIE)\f0\fs18\par
\tab\tab\cf3 End\cf2\par
\tab\cf3 End\par
\cf2\par
\fs20\par
\fs18\tab\cf1\fs20 //_______________________________\fs18 Cr\'e9ation d'un fichier externe listant les actions\fs20 _________________________________\cf2\par
\fs18\par
\cf0\tab Finscript:\par
\cf2\tab\cf3 If\cf2  (ARTISTE.NOM_VIDEO = "") AND (ChaineATracer = ARTISTE.ARTISTE_MAJ + " ("\cf1  +\cf2  i + "/" + Nb_Total +"): ERREUR") \cf3 Then\cf2\par
\tab\tab ARTISTE.NOM_VIDEO = \cf0 "\cf2 ERREUR"\par
\cf1\tab\tab HModifie(ARTISTE)\cf2\par
\tab\cf3 End\cf2\par
\cf0\par
\cf2\tab\cf3 If\cf2  MAJ_FicheEnCours = 1 \cf3 Then\cf2\par
\tab\tab\cf3 If\cf2  ChaineATracer <> ARTISTE.ARTISTE_MAJ + " ("\cf1  +\cf2  i + "/" + Nb_Total +"): ERREUR" \cf3 Then\cf2\par
\tab\tab\tab ChaineATracer = ARTISTE.ARTISTE_MAJ + " (Fiche en cours): MAJ"\par
\tab\tab\cf3 Else\cf2\par
\tab\tab\tab ChaineATracer = ARTISTE.ARTISTE_MAJ + " (Fiche en cours): ERREUR"\par
\tab\tab\cf3 End\cf2\par
\tab\tab\cf3 If\cf2  ID_liste = "All" \cf3 Then\par
\cf2\tab\tab\tab Multitache(-1)\cf3\par
\cf2\tab\tab\tab\cf5 Trace\cf1 (ChaineATracer \cf2 + " (" + (Ligne_Liste-1) + "/" + Nb_Acteurs + ")"\cf1 )\cf3\par
\cf2\tab\tab\tab\cf3 If\cf2  Ligne_Liste = Nb_Acteurs+1 \cf3 Then\par
\cf2\tab\tab\tab\tab\cf5 Info\cf2 ("Traitement des artistes de la fiche en cours r\'e9alis\'e9 avec succ\'e9s.")\cf3\par
\cf2\tab\tab\tab\tab\cf3 Goto\cf2  RAZ\par
\tab\tab\tab\cf3 Else\par
\cf2\tab\tab\tab\tab\cf1 Nb_Artist\cf2  = 0\cf3\par
\cf2\tab\tab\tab\tab HtmlCode = ""\par
\tab\tab\tab\tab HtmlCode1 = ""\par
\tab\tab\tab\tab HtmlActeur = ""\par
\tab\tab\tab\tab HtmlRealisateur = ""\par
\tab\tab\tab\tab HtmlScenariste = ""\par
\tab\tab\tab\tab HtmlCompositeur = ""\par
\tab\tab\tab\tab\cf0 Bio_Artist = ""\par
\cf2\tab\tab\tab\tab Date_Naissance = ""\par
\tab\tab\tab\tab Date_Deces = ""\par
\tab\tab\tab\tab Lieu_Naissance = ""\par
\tab\tab\tab\tab\cf1 Nationalite\cf2  = ""\par
\tab\tab\tab\tab Nom_Artist = ""\par
\tab\tab\tab\tab PersoCode = ""\cf3\par
\cf2\tab\tab\tab\tab ARTISTE.LIEU_NAISSANCE = ""\par
\tab\tab\tab\tab ARTISTE.IMAGE = "cinehome.jpg"\par
\tab\tab\tab\tab ARTISTE.NAISSANCE = ""\par
\tab\tab\tab\tab ARTISTE.DECES = ""\par
\tab\tab\tab\tab ARTISTE.P0CLEUNIK = "0"\par
\tab\tab\tab\tab ARTISTE.NOM_VIDEO = ""\cf3\par
\cf2\tab\tab\tab\tab Fichier = fOuvre( fRepExe() + "\\Artistes\\Script_Filmo\\Import_Filmographies_("+DateSys()+").txt", foCr\'e9ationSiInexistant+foEcriture+foAjout)\par
\cf3\tab\cf2\tab\tab\tab\cf3 If\cf2  Fichier <> -1 \cf3 Then\cf2\par
\tab\tab\tab\tab\tab\tab fEcritLigne(Fichier, HeureVersCha\'eene(HeureSys()) + " -> " + ChaineATracer)\par
\tab\tab\tab\tab\tab\tab fFerme(Fichier)\par
\cf3\tab\cf2\tab\tab\tab\cf3 End\cf2\par
\tab\tab\tab\tab Ligne_Liste++\par
\tab\tab\tab\tab\cf3 Goto\cf2  All_Acteurs\par
\tab\tab\tab\cf3 End\par
\cf2\tab\tab\cf3 Else\par
\cf2\tab\tab\tab\cf5 Info\cf2 ("Mise \'e0 jour de " + ARTISTE.ARTISTE_MAJ + " r\'e9alis\'e9e avec succ\'e9s.")\par
\tab\tab\tab\cf3 Goto\cf2  RAZ\par
\tab\tab\cf3 End\cf2\par
\tab\cf3 End\cf2\par
\cf0\par
\cf2\tab\cf3 If\cf2  ChaineATracer <> ARTISTE.ARTISTE_MAJ + " ("\cf1  +\cf2  i + "/" + Nb_Total +"): ERREUR" \cf3 Then\par
\cf2\tab\tab\cf3 If\cf2  (MAJ_All = 3) AND (Presence_Fiche = 1) \cf3 Then \cf2 ChaineATracer = ARTISTE.ARTISTE_MAJ + " ("\cf1  +\cf2  i + "/" + Nb_Total +"): PRESENT"\cf3\par
\cf2\tab\tab\cf3 If\cf2  (MAJ_All = 3) AND (Presence_Fiche = 0) \cf3 Then \cf2 ChaineATracer = ARTISTE.ARTISTE_MAJ + " ("\cf1  +\cf2  i + "/" + Nb_Total +"): OK"\cf3\par
\cf2\tab\tab\cf3 If\cf2  (MAJ_All = 2) AND (MAJ_Fiche = 1) \cf3 Then \cf2 ChaineATracer = ARTISTE.ARTISTE_MAJ + " ("\cf1  +\cf2  i + "/" + Nb_Total +"): MAJ"\par
\tab\tab\cf3 If\cf2  (MAJ_All = 2) AND (MAJ_Fiche = 0) AND (Presence_Fiche = 2) \cf3 Then \cf2 ChaineATracer = ARTISTE.ARTISTE_MAJ + " ("\cf1  +\cf2  i + "/" + Nb_Total +"): PLUSIEURS CHOIX"\par
\tab\tab\cf3 If\cf2  (MAJ_All = 2) AND (MAJ_Fiche = 0) AND (Presence_Fiche = 0) \cf3 Then \cf2 ChaineATracer = ARTISTE.ARTISTE_MAJ + " ("\cf1  +\cf2  i + "/" + Nb_Total +"): OK"\par
\cf3\tab\cf2\tab\cf3 If\cf2  (MAJ_All = 1) AND (Presence_Fiche = 1) \cf3 Then \cf2 ChaineATracer = ARTISTE.ARTISTE_MAJ + " ("\cf1  +\cf2  i + "/" + Nb_Total +"): PRESENT"\cf3\par
\cf2\tab\tab\cf3 If\cf2  (MAJ_All = 1) AND (Presence_Fiche = 2) \cf3 Then \cf2 ChaineATracer = ARTISTE.ARTISTE_MAJ + " ("\cf1  +\cf2  i + "/" + Nb_Total +"): PLUSIEURS CHOIX"\cf3\par
\cf2\tab\tab\cf3 If\cf2  (MAJ_All = 1) AND (Presence_Fiche = 0) \cf3 Then \cf2 ChaineATracer = ARTISTE.ARTISTE_MAJ + " ("\cf1  +\cf2  i + "/" + Nb_Total +"): OK"\par
\tab\tab\cf3 If\cf2  (MAJ_All = 2) AND (\cf0 Nb_Artist > 1)\cf2  \cf3 Then \cf2 ChaineATracer = ARTISTE.ARTISTE_MAJ + " ("\cf1  +\cf2  i + "/" + Nb_Total +"): PLUSIEURS CHOIX"\par
\tab\tab\cf3 If\cf1  (MAJ_All = 1) AND (Nb_Artist > 1) \cf3 Then\cf1  ChaineATracer = ARTISTE.ARTISTE_MAJ + " (" + i + "/" + Nb_Total +"): PLUSIEURS CHOIX"\cf2\par
\tab\tab\cf3 If\cf2  (MAJ_All = 2) AND (Length_search1 = Length_search2) AND (i < i_MAJ_All) \cf3 Then\cf2  ChaineATracer = ARTISTE.ARTISTE_MAJ + " ("\cf1  +\cf2  i + "/" + Nb_Total +"): PRESENT"\par
\tab\cf3 End\cf1\par
\cf2\tab\cf3 If\cf2  \cf3 Not\cf2 ((MAJ_All = 3) AND (Presence_Fiche = 1)) \cf3 Then\cf2\par
\tab\tab\cf5 Trace\cf1 (ChaineATracer)\cf0\par
\cf2\tab\tab Fichier = fOuvre( fRepExe() + "\\Artistes\\Script_Filmo\\Import_Filmographies_("+DateSys()+").txt", foCr\'e9ationSiInexistant+foEcriture+foAjout)\par
\tab\tab\cf3 If\cf2  Fichier <> -1 \cf3 Then\cf2\par
\tab\tab\tab fEcritLigne(Fichier, HeureVersCha\'eene(HeureSys()) + " -> " + ChaineATracer)\par
\tab\tab\tab fFerme(Fichier)\par
\tab\tab\cf3 End\cf2\par
\cf0\tab\cf3 End\cf0\par
\cf2\fs20\par
\fs18\par
\tab\cf1\fs20 //________________________________________\fs18 Initialisation des variables\fs20 __________________________________________\cf2\fs18\par
\cf0\par
\cf2\tab\cf1 Nb_Artist\cf2  = 0\cf0\par
\cf2\tab MAJ_Fiche = 0\par
\tab Presence_Fiche = 0\par
\tab HtmlCode = ""\par
\tab HtmlCode1 = ""\par
\tab HtmlActeur = ""\par
\tab HtmlRealisateur = ""\par
\tab HtmlScenariste = ""\par
\tab HtmlCompositeur = ""\par
\tab\cf0 Bio_Artist = ""\par
\cf2\tab Date_Naissance = ""\par
\tab Date_Deces = ""\par
\tab Lieu_Naissance = ""\par
\tab\cf1 Nationalite\cf2  = ""\par
\tab Nom_Artist = ""\par
\tab PersoCode = ""\par
\tab\cf7 MovieIDValue\cf2  = ""\par
\tab ARTISTE.LIEU_NAISSANCE = ""\par
\tab ARTISTE.IMAGE = "cinehome.jpg"\par
\tab ARTISTE.NAISSANCE = ""\par
\tab ARTISTE.DECES = ""\par
\tab ARTISTE.P0CLEUNIK = "0"\par
\tab ARTISTE.NOM_VIDEO = ""\par
\par
\tab\cf1 // Abandon par le maintien de la touche [CTRL] \cf2\par
   \tab Multitache(-1) \par
  \tab SI ToucheEnfonc\'e9e(teControl) ALORS\par
\tab\tab\cf3 If\cf2  \cf4 YesNo\cf2 ("Voulez-vous arr\'eater la mise \'e0 jour des artistes maintenant?" +CR+CR+ "Vous pourrez repr\cf3 end\cf2 re plus tard...") \cf3 Then\cf2\par
\tab\tab\tab\cf3 Goto\cf2  RAZ\par
\tab\tab\cf3 End\cf2\par
\tab\cf3 End\cf2\par
\par
\cf1\tab // On propose a l'utilisateur de sortir du programme tous les X artistes\cf3\par
\tab If\cf2  Cpt_Art = 100 \cf3 Then\cf1\par
\cf2\tab\tab Cpt_Art=0\par
\tab\tab\lang2057\fs20 D\'e9laiAvantFermeture(500)\lang1036\fs18\par
\tab\tab\cf3 If\cf2  \cf3 Not\cf2  \cf4 YesNo\cf2  ("Vous venez de ver\cf3 if\cf2 ier 100 artistes, voulez vous \cf3 continue\cf2 r (OUI), ou arr\'eater et repre\cf3 nd\cf2 re plus tard (NON) ?" +CR+CR+...\par
\tab\tab\tab\tab "N'oubliez pas que vous pouvez arreter le script \'e0 tout moment en maintenant la touche Ctrl enfonc\'e9e.") \cf3 Then\par
\cf2\tab\tab\tab\lang2057\fs20 D\'e9laiAvantFermeture()\cf0\lang1036\fs18\par
\tab\tab\cf1\tab\cf3 Goto\cf2  RAZ\cf1\par
\cf2\tab\tab\cf3 End\par
\cf2\tab\tab\lang2057\fs20 D\'e9laiAvantFermeture()\lang1036\fs18\par
\tab\cf3 End\cf2\par
\tab\cf3 If\cf2  ChaineATracer <> ARTISTE.ARTISTE_MAJ + " ("\cf1  +\cf2  i + "/" + Nb_Total +"): PRESENT" \cf3 Then\cf2  Cpt_Art++\par
\par
\cf0 HLitSuivant(ARTISTE) \par
\cf3 End\f3\fs24\par
\cf0\f0\fs18\par
\cf1\fs20 //_____________________________________________________\fs18 FIN DE LA BOUCLE DE MISE A JOUR EN MASSE DES ARTISTES \fs20 ____________________________________________________________\cf2\fs18\par
\cf0\par
\cf1 // Traitement des artistes avec plusieurs choix\cf0\par
\cf3 If\cf2  Run_once <> 1 \cf3 Then\cf0\par
\cf2\tab HlitRecherche(ARTISTE, "NOM_VIDEO", "0")\par
\cf3\tab If\cf2  HTrouve() \cf3 Then\par
\cf2\tab\tab Run_once = 1\par
\tab\tab MAJ_All = 3\par
\tab\tab Ecrase_\cf5 Info\cf2 s = 2\par
\tab\tab Liste_Artist = 1\par
\tab\tab\cf3 Goto\cf2  Debut_Prog\par
\tab\cf3 End\cf2\par
\cf3 End\cf2\par
\cf0\par
\cf5 Info\cf2 ("Traitement des artistes r\'e9alis\'e9 avec succ\'e9s.")\par
\fs20\par
\cf1 // Remise \'e0 z\'e9ro des valeurs du dernier enregistrement (beug)\cf2\par
\fs18 RAZ:\par
\fs20 Dernier_Num is Int\par
HLitPremier(ARTISTE, "ARCLEUNIK")\par
TANTQUE PAS HEnDehors(ARTISTE)\par
 \tab\cf3 If\cf2  H.NumEnr > Dernier_Num \cf3 Then\cf2\par
\tab\tab Dernier_Num = H.NumEnr\par
\tab\tab code = ARTISTE.ARCLEUNIK\par
\tab\cf3 End\cf2\par
HLitSuivant(ARTISTE)\par
\cf3 End\cf2\par
HLitRecherche(ARTISTE, "ARCLEUNIK", Code)\par
ARTISTE.LIEU_NAISSANCE = ""\par
ARTISTE.IMAGE = "cinehome.jpg"\par
ARTISTE.NAISSANCE = ""\par
ARTISTE.DECES = ""\par
ARTISTE.P0CLEUNIK = "0"\par
ARTISTE.NOM_VIDEO = ""\par
HModIfie(ARTISTE)\par
\pard\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 HLitPremier(VIDEOTAP,"VICLEUNIK")\line\tab TANTQUE PAS HEndehors (VIDEOTAP)\line\tab\tab HSupprime ()\line\tab\tab HLitSuivant(VIDEOTAP)\line\tab\cf3 End\cf10\par
\tab\cf4 UserErrorMessage\cf10  ("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
\pard\cf1\f0\fs20 // Traitement sur le fichier log\cf2\par
\fs18 Fichier = fOuvre( fRepExe() + "\\Artistes\\Script_Filmo\\Import_Filmographies_("+DateSys()+").txt", foCr\'e9ationSiInexistant+foEcriture+foAjout)\par
\cf3 If\cf2  Fichier <> -1 \cf3 Then\par
\cf2\tab\cf3 If\cf2  MAJ_FicheEnCours = 1 \cf3 Then \cf2\par
\tab\tab fEcritLigne(Fichier, HeureVersCha\'eene(HeureSys()) + " -> " + ChaineATracer)\par
\tab\cf3 End\cf2\par
\tab fEcritLigne(Fichier, "- - - - - - - - - - - - - - - - - - - -")\par
\tab fFerme(Fichier)\par
\cf3 End\par
\cf5\fs20 Info\cf2 ("Le fichier suivant a \'e9t\'e9 cr\'e9\'e9:"+CR+...\par
\tab "" + \fs18 fRepExe() + "\\Artistes\\Script_Filmo\\Import_Filmographies_("+DateSys()+").txt")\fs20\par
\par
\cf1 //_________________________________________________________________________\fs18 FIN PROGRAMME\fs20 __________________________________________________________________________\cf2\fs18\par
\cf0\par
\cf3 If\cf2  fFichierExiste(fRepExe() + "\\Artistes\\Script_Filmo\\ERREURS_("+DateSys()+").txt") \cf3 Then\cf2\par
\tab fSupprime(fRepExe() + "\\Artistes\\Script_Filmo\\ERREURS_("+DateSys()+").txt")\par
\cf3 End\par
\cf2 recap_liste = fChargeTexte(fRepExe() + "\\Artistes\\Script_Filmo\\Import_Filmographies_("+DateSys()+").txt")\par
recap_liste = "<DEBUT>" + CR + recap_liste\par
Nb_Erreurs = \cf4 StringCounter\cf2 (recap_liste, ": ERREUR")\par
j=1\par
\cf3 While\cf2  Nb_Erreurs <> 0\par
\tab ligne_recap = \cf4 LinesAfter\cf2 (recap_liste, j, "<DEBUT>")\par
\tab\cf3 If\cf2  \cf4 StringRight\cf2 (ligne_recap, 6) = "ERREUR" \cf3 Then\cf2\par
\tab\tab recap_erreurs = recap_erreurs + ligne_recap + CR\par
\tab\tab Nb_Erreurs--\par
\tab\cf3 End\cf2\par
\tab j++\par
\cf3 End\cf2\par
fSauveTexte(fRepExe() + "\\Artistes\\Script_Filmo\\ERREURS_("+DateSys()+").txt", recap_erreurs)\par
\cf3 If\cf2  recap_erreurs <> "" \cf3 Then\cf2\par
\tab\cf5 ShellExecute\cf2 (fRepExe() + "\\Artistes\\Script_Filmo\\ERREURS_("+DateSys()+").txt")\par
\cf3 End\cf0\par
\par
}