{\rtf1\ansi\ansicpg1252\deff0\deflang1036\deflangfe1036{\fonttbl{\f0\froman\fprq2\fcharset0 Times New Roman;}{\f1\fmodern\fprq1\fcharset0 Courier New;}}
{\colortbl ;\red0\green128\blue0;\red102\green102\blue102;\red0\green0\blue0;\red0\green0\blue255;\red128\green0\blue128;\red255\green255\blue255;\red255\green0\blue0;}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\nowidctlpar\cf1\f0\fs20 // DESCRIPTION Imprimer vos jaquettes avec des fichiers HTML pour n'importe quel type de boitier.\cf0\par
\cf1 // AUTHOR JUIN J\'e9r\'f4me \cf0\par
\cf1 // LANGUAGE All\cf0\par
\par
\cf1 /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////\cf0\par
\cf1 // \tab\tab\tab\tab\tab DECLARATION DES VARIABLES\tab\tab\tab\tab               \tab\tab //\cf0\par
\cf1 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////\cf0\par
\cf2 HtmHDD,\cf0  First_Letter, VersionFR, ListActHTTP, Realisateur, Scenariste, Compositeur, FICHIER, TYPE_MEDIA, CONTENU_SiteOf are \cf3 String\cf0\par
Vue_GALERIE est une Source de Donn\'e9es\par
\par
\pard\cf1\f1 //________________________________________________________________________________________________________________________________________\cf2\par
\cf1\fs18 HtmHDD = fS\'e9lecteur ("C:\\" , "S\'e9lectionnez votre fichier de cr\'e9ation de jaquette au Format H\cf2 TML\cf1  " ,"*.\cf2 html\cf1 " \cf2 + CR + "*.htm"\cf1  , "*.\cf2 htm\cf1 ")\cf2\par
\cf0 H\cf2 tmHDD \cf0\f0\fs20 = \cf1 f\cf2 ChargeTexte\cf0 (\f1\fs18 H\cf2 tmHDD\cf0\f0\fs20 )\cf2\f1\fs18\par
\pard\nowidctlpar\f0\fs20\par
\cf1 /////////////////////////////////////////////////////////////////////////////\cf0\par
\cf1 // Videotheque complete ou uniquement Film en cours ? //\cf0\par
\cf1 /////////////////////////////////////////////////////////////////////////////\cf0\par
fRep_Initial is \cf3 String\cf0  = fRepEnCours() + "\\"\cf2\par
\cf0\tab\par
\cf1 // Titre\cf0\par
TitreVIDEO is \cf3 String\cf0  = VIDEOTAP.titre \par
\cf1 // Suppression des caracteres joker\cf0\par
VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , "\\" , "-")\par
VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , "/" , "-")\par
VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , ":" , "-")\par
VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , "," , "-")\par
VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , ";" , "-")\par
VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , "*" , "-")\par
VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , "?" , "-")\par
VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , """" , "-")\par
VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , "<" , "-")\par
VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , ">" , "-")\par
VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , "|" , "-")\par
VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , "\'b0" , "o")\par
\cf2\par
\cf0 //1ere lettre du titre\par
\lang2057 First_Letter\cf2   \cf0 = \cf4 StringLeft\cf0  (VIDEOTAP.titre , 1)\par
\cf3 If\cf0  (0<=First_Letter<=9) OR (First_Letter = """") OR (First_Letter = "'") OR (First_Letter = "&") OR (First_Letter = "#") OR (First_Letter = "~") ...\par
\tab OR (First_Letter = "\{") OR (First_Letter = "\}") OR (First_Letter = "[") OR (First_Letter = "]") OR (First_Letter = "@") ...\par
\tab OR (First_Letter = "(") OR (First_Letter = ")") OR (First_Letter = "/") OR (First_Letter = "\\") OR (First_Letter = "\'a3") ...\par
\tab OR (First_Letter = "$") OR (First_Letter = "\'a4") OR (First_Letter = "%") OR (First_Letter = "\'b5") OR (First_Letter = "?") ...\par
\tab OR (First_Letter = ",") OR (First_Letter = ";") OR (First_Letter = ".") OR (First_Letter = ":") OR (First_Letter = "!") ...\par
\tab OR (First_Letter = "|") OR (First_Letter = "\'80") OR (First_Letter = "*") OR (First_Letter = "+") OR (First_Letter = "-") OR (First_Letter = "=") \cf3 Then\cf0\par
\tab\tab First_Letter = "9"\par
\cf3 End\cf0\par
First_Letter = \cf4 FormatString\cf0  (First_Letter, "UC")\lang1036\par
\par
CreateDirectory (fRep_Initial + "\cf2 Impression\cf0\\" + First_Letter + "\\")\line HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "\cf5 MovieTitleValue\cf0 " , V\cf2 IDEOTAP.titre\cf0 )\par
HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieTitlePage" , V\cf2 IDEOTAP.titre\cf0 )\par
\par
\cf1 ///////////////////////////////////////////////////////////////////////////////////\cf0\par
//Changement de Langues pour les variables 'genre', ann\'e9e ... \cf1 //\cf0\par
\cf1 ////////////////////////////////////////////////////////////////////////////////////\cf0\par
\cf3 Switch\cf0  Language\par
\cf3 Case\cf0  1 \cf1 // Allemand\cf0\par
\cf3 Case\cf0  3 \cf1 // Anglais\cf0\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieInfoHTTP" , "Movie Informations" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieFamilyHTTP" , "Family" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieCountryHTTP" , "Country" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieDurationHTTP" , "Duration" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieYearHTTP" , "Year" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieDateHTTP" , "Purchase date" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieTypeHTTP" , "Type" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieSeeHTTP" , "See" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieNbSeeHTTP" , "Nb " )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieLoveHTTP" , "Lovemark" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieRealHTTP" , "Director(s)" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieScenaHTTP" , "Script-writer(s)" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieCompoHTTP" , "Composer(s)" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieActeurHTTP" , "Actor(s)" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieActeurValue" , "Name (Role)" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieRangementHTTP" , "Location" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieLabelHTTP" , "Label" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieMeubleHTTP" , "Furniture A" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieEtagereHTTP" , "Furniture B" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieNiveauHTTP" , "Furniture C" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieSynopsisHTTP" , "Synopsis" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieNotePHTTP" , "Personal Notes" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieGaleryHTTP" , "Galery" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieSiteOfHTTP" , "Site" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieTrailerHTTP" , "Trailer" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieLinkExtractHTTP" , "Link extraction" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "DVDTypeEditHTTP" , "Edition" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "DVDZoneHTTP" , "DVD Area" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "DVDRAMHTTP" , "DVD Format" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "K7FormatHTTP" , "Tape Format" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "K7DureeHTTP" , "Tape length" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "ImageFormatHTTP" , "Image Format" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "VideoFormatHTTP" , "Video Format" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "SonFormatHTTP" , "Sound" )\par
\par
\par
\cf3 Case\cf0  5 \cf1 // Francais\cf0\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieInfoHTTP" , "Informations sur le film" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieFamilyHTTP" , "Genre" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieCountryHTTP" , "Origine" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieDurationHTTP" , "Dur\'e9e (mn)" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieYearHTTP" , "Ann\'e9e" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieDateHTTP" , "Date d'acquisition" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieTypeHTTP" , "Support" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieSeeHTTP" , "Film vu le" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieNbSeeHTTP" , "Nb de fois vu" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieLoveHTTP" , "Note" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieRealHTTP" , "R\'e9alisateur(s)" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieScenaHTTP" , "Sc\'e9nariste(s)" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieCompoHTTP" , "Compositeur(s)" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieActeurHTTP" , "Acteur(s)" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieActeurValue" , "Nom (R\'f4le)" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieRangementHTTP" , "Rangement" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieLabelHTTP" , "Nom support" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieMeubleHTTP" , "NivA" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieEtagereHTTP" , "NivB" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieNiveauHTTP" , "NivC" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieSynopsisHTTP" , "R\'e9sum\'e9" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieNotePHTTP" , "Notes perso." )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieGaleryHTTP" , "Galerie d'images" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieSiteOfHTTP" , "Site Officiel" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieTrailerHTTP" , "Bande Annonce" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieLinkExtractHTTP" , "Liaison fiche" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "DVDTypeEditHTTP" , "Type d'\'e9dition" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "DVDZoneHTTP" , "ZoneDVD" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "DVDRAMHTTP" , "Format DVD" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "K7FormatHTTP" , "Format K7" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "K7DureeHTTP" , "Dur\'e9e K7" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "ImageFormatHTTP" , "Format d'image" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "VideoFormatHTTP" , "Format vid\'e9o" )\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "SonFormatHTTP" , "Son" )\par
\cf3 Case\cf0  7 \cf1 // Espagnol\cf0\par
\cf3 Case\cf0  11 \cf1 // Italien\cf0\par
\cf3 End\cf0\par
\cf2\par
\cf0\par
\cf1 // Titre original\cf0\par
\cf3 If\cf0  VIDEOTAP.titre_orig = "" \cf3 Then\cf0\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "\cf5 MovieOriginalTitleValue\cf0 " , "( ----- )" )\par
\cf3 Else\cf0\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "\cf5 MovieOriginalTitleValue\cf0 " , VIDEOTAP.titre_orig)\par
\cf3 End\cf0\par
\par
\cf1 // Dur\'e9e\cf0\par
\cf3 If\cf0  VIDEOTAP.duree = "" \cf3 Then\cf0\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "\cf5 MovieDurationValue\cf0 " , "---" )\par
\cf3 Else\cf0\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "\cf5 MovieDurationValue\cf0 " , VIDEOTAP.duree)\par
\cf3 End\cf0\par
\par
\cf1 // Ann\'e9e\cf0\par
\cf3 If\cf0  VIDEOTAP.annee_real = "" \cf3 Then\cf0\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "\cf5 MovieYearValue\cf0 " , "----" )\par
\cf3 Else\cf0\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "\cf5 MovieYearValue\cf0 " , VIDEOTAP.annee_real)\par
\cf3 End\cf0\par
\par
\cf1 // Nom du support\cf0\par
\cf3 If\cf0  VIDEOTAP.label = "" \cf3 Then\cf0\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieLabelValue" , "----" )\par
\cf3 Else\cf0\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieLabelValue" , VIDEOTAP.label)\par
\cf3 End\cf0\par
\par
\cf1 // Cote d'amour\cf0\par
\cf3 If\cf0  VIDEOTAP.cote_amour  = -1 \cf3 Then\cf0\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieLoveValue" , "---" )\par
\cf3 Else\cf0\par
\tab\cf3 If\cf0  VIDEOTAP.cote_amour  = 0 \cf3 Then\cf0\par
\tab\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieLoveValue" , "m\cf2 auvais film\cf0 ")\par
\tab\cf3 End\cf0\par
\tab\cf3 If\cf0  VIDEOTAP.cote_amour  = 1 \cf3 Then\cf0\par
\tab\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieLoveValue" , "1\cf2 /5\cf0 ")\par
\tab\cf3 End\cf0\par
\tab\cf3 If\cf0  VIDEOTAP.cote_amour  = 2 \cf3 Then\cf0\par
\tab\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieLoveValue" , "2\cf2 /5\cf0 ")\par
\tab\cf3 End\cf0\par
\tab\cf3 If\cf0  VIDEOTAP.cote_amour  = 3 \cf3 Then\cf0\par
\tab\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieLoveValue" , "3\cf2 /5\cf0 ")\par
\tab\cf3 End\cf0\par
\tab\cf3 If\cf0  VIDEOTAP.cote_amour  = 4 \cf3 Then\cf0\par
\tab\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieLoveValue" , "4\cf2 /5\cf0 ")\par
\tab\cf3 End\cf0\par
\tab\cf3 If\cf0  VIDEOTAP.cote_amour  = 5 \cf3 Then\cf0\par
\tab\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieLoveValue" , "5\cf2 /5\cf0 ")\par
\tab\cf3 End\cf0\par
\cf3 End\cf0\par
\par
\cf1 // Icone 'Public'\cf0\par
\cf3 If\cf0  VIDEOTAP.interdit= 0 \cf3 Then\cf0\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MoviePublicValue" , "" )\par
\cf3 Else\cf0\par
\tab\cf3 If\cf0  VIDEOTAP.interdit = 1 \cf3 Then\cf0\par
\tab\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MoviePublicValue" , "i\cf2 nterdit -18ans\cf0 ")\par
\tab\cf3 End\cf0\par
\tab\cf3 If\cf0  VIDEOTAP.interdit = 2 \cf3 Then\cf0\par
\tab\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MoviePublicValue" , "i\cf2 nterdit -16ans\cf0 ")\par
\tab\cf3 End\cf0\par
\tab\cf3 If\cf0  VIDEOTAP.interdit = 3 \cf3 Then\cf0\par
\tab\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MoviePublicValue" , "i\cf2 nterdit -12ans\cf0 ")\par
\tab\cf3 End\cf0\par
\tab\cf3 If\cf0  VIDEOTAP.interdit = 4 \cf3 Then\cf0\par
\tab\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MoviePublicValue" , "i\cf2 nterdit -10ans\cf0 ")\par
\tab\cf3 End\cf0\par
\tab\cf3 If\cf0  VIDEOTAP.interdit = 5 \cf3 Then\cf0\par
\tab\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MoviePublicValue" , "T\cf2 out Public\cf0 ")\par
\tab\cf3 End\cf0\par
\cf3 End\cf0\par
\par
\cf1 // RANGEMENT\cf0\par
HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieMeubleValue" , VIDEOTAP.MEUBLE)\par
HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieEtagereValue" , VIDEOTAP.ETAGERE)\par
HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieNiveauValue" , VIDEOTAP.NIVEAU)\par
\par
\cf1 // Lien de la jaquette\cf0\par
\cf1 HtmHDD = \cf4 StringReplace\cf1  (HtmHDD , "\highlight6 jaquette.jpg" , f\cf2 Rep_Initial + \cf1 VIDEOTAP.repert + "\cf2\\\cf1 " + VIDEOTAP.IMAGE)\par
\cf0\highlight0\par
//Note Perso\line HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieNotePersoValue" , VIDEOTAP.TEXTE_LIBRE)\par
\par
\cf1 // Version francaise ou VO, v_muette ???\cf0\par
\cf3 If\cf0  VIDEOTAP.vo = 0 \cf3 Then\cf0\par
\tab VersionFR = "--"\par
\cf3 End\cf0\par
\cf3 If\cf0  VIDEOTAP.vo = 2 \cf3 Then\cf0\par
\tab VersionFR = "VF"\par
\cf3 End\cf0\par
\cf3 If\cf0  VIDEOTAP.vo = 3 \cf3 Then\cf0\par
\tab VersionFR = "Version muette"\par
\cf3 End\cf0\par
\cf3 If\cf0  VIDEOTAP.vo = 4 \cf3 Then\cf0\par
\tab VersionFR = "Version multilingues"\par
\cf3 End\cf0\par
\cf3 If\cf0  VIDEOTAP.vo = 5 \cf3 Then\cf0\par
\tab VersionFR = "VOST"\par
\cf3 End\cf0\par
HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieVFValue" , VersionFR)\par
\cf2\par
\cf1 // Code barres\cf0\par
\cf3 If\cf0  (VIDEOTAP.CODE_BARRE = 0) OR (VIDEOTAP.CODE_BARRE = "") \cf3 Then\cf0\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD, "MovieCBValue" , "(None)")\par
\cf3 Else\cf0\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieCBValue" , VIDEOTAP.CODE_BARRE)\par
\cf3 End\cf0\par
\par
\cf1 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////\cf0\par
\cf1 // Parties exterieures au fichier VIDEOTAP --- Donc besoin de liaison entre fichier ! On doit rechercher le numero de ligne correspondant . //\cf0\par
\cf1 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////\cf0\par
\par
\cf1 // Genre\cf0\par
HReadSeek (CATEG, "CACLEUNIK", VIDEOTAP.CACLEUNIK)\par
\cf3 If\cf0  VIDEOTAP.CACLEUNIK = "-1" \cf3 Then\cf0\par
\tab CATEG.CATEGORIE = "---"\par
\cf3 End\cf0\par
HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "\cf5 MovieFamilyValue\cf0 " , CATEG.CATEGORIE)\par
\tab\par
\cf1 // Pays\cf0\par
HReadSeek (PAYS, "P0CLEUNIK" , VIDEOTAP.p0cleunik)\par
\cf3 If\cf0  VIDEOTAP.p0cleunik = "1" \cf3 Then\cf0\par
\tab VIDEOTAP.p0cleunik = "---"\par
\cf3 End\cf0\par
HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "\cf5 MovieCountryValue\cf0 " , PAYS.PAYS)\par
\par
\cf1 // R\'e9sum\'e9\cf0\par
HReadSeek (NOTEFILM,"VICLEUNIK",VIDEOTAP.VICLEUNIK) \line HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "\cf5 MovieSummaryValue\cf0 " , NOTEFILM.NOTEFILM)\par
\cf2\par
\cf1 // Personnalit\'e9s\cf0\par
\cf1 // ACTEURS\cf0\par
ListActHTTP = Liste_Acteurs (VIDEOTAP.vicleunik , "VIDEO" , "ACTEUR")\par
ListActHTTP = replace (ListActHTTP , RC , " ; " + \cf3 Charact\cf0 (13) + \cf3 Charact\cf0 (10) )\par
HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "Acteur[i]" , ListActHTTP)\par
\par
//REALISATEURS\par
Realisateur = Liste_Acteurs (VIDEOTAP.vicleunik , "VIDEO" , "REALISATEUR")\par
Realisateur = replace (Realisateur , RC , " ; ")\par
HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "RealValue" , Realisateur)\par
\cf2\par
\cf0 //SCENARISTES\par
Scenariste = Liste_Acteurs (VIDEOTAP.vicleunik , "VIDEO" ,  "SCENARISTE ")\par
Scenariste = replace (Scenariste, RC , " ; ")\par
HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "ScenaValue" , Scenariste)\par
\par
//COMPOSITEURS\par
Compositeur = Liste_Acteurs (VIDEOTAP.vicleunik , "VIDEO" , "COMPOSITEUR")\par
Compositeur = replace (Compositeur, RC , " ; ")\par
HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "CompoValue" , Compositeur)\par
\par
\cf1 // Format image et video et type de son\cf0\par
HReadSeek (F_IMAGE, "FICLEUNIK" , VIDEOTAP.ficleunik)\par
HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "ImageFormatValue" , F_IMAGE.FORMAT_IMAGE)\par
\par
HReadSeek (F_VIDEO, "FVCLEUNIK" , VIDEOTAP.fvcleunik)\par
HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "VideoFormatValue" , F_VIDEO.format_video)\par
\tab\par
HReadSeek (SO, "SOCLEUNIK" , VIDEOTAP.socleunik)\par
HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "SonFormatValue" , SO.SON)\par
\par
\cf1 // Lien Site Officiel\cf0\par
TYPE_MEDIA = "INTERNET"\par
CONTENU_SiteOf = ""\par
HCr\'e9eVue(Vue_GALERIE,GALERIE,"","NOM_FICHIER","TYPE_MAITRE]'"+FICHIER+"' et TYPE_MULTIMEDIA]'"+TYPE_MEDIA+"' et CLE_MAITRE="+VIDEOTAP.VICLEUNIK)\par
HLitPremier(Vue_GALERIE)\par
TANTQUE PAS HEnDehors()\par
\tab CONTENU_SiteOf = CONTENU_SiteOf + Vue_GALERIE.NOM_FICHIER + RC\par
\tab HLitSuivant(Vue_GALERIE)\par
FIN\par
\cf3 If\cf0  CONTENU_SiteOf = "" \cf3 Then\cf0\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieSiteOfValue" , "")\par
\cf3 Else\cf0\par
\tab HtmHDD = \cf4 StringReplace\cf0  (HtmHDD , "MovieSiteOfValue" , CONTENU_SiteOf)\par
\cf3 End\cf0\par
HD\'e9truitVue(Vue_GALERIE)\par
\cf2\par
\cf0 fSauveTexte(fRep_Initial + "I\cf2 mpression\cf0\\"\cf2  + First_Letter + "\\" + VIDEOTAP.titre + ".html\cf0 " , HtmH\cf2 DD\cf0  )\par
\cf2\par
\cf4 UserInformationMessage\cf2  ("La jaquette a \'e9t\'e9 cr\'e9\'e9e dans " + \cf0 fRep_Initial + "I\cf2 mpression\cf0\\"\cf2  + First_Letter + "\\" + VIDEOTAP.titre + ".html\cf0 "\cf2  + cr + cr +...\par
\tab\tab\tab "Quelques pr\'e9cisions pour imprimer celle de votre choix :" + cr + ...\par
\tab\tab\tab "Si vous voulez que les couleurs des tableaux soient imprim\'e9es, il faut aller dans les options avanc\'e9es du naviguateur et cocher la \cf3 case\cf2  ""Imprimer les images et les couleurs d'arri\'e8re plan""" + cr + cr + ...\par
\tab\tab\tab "Pour cadrer une jaquette par page A4, vous devez r\'e9gler les marges d'impression : 10mm pour la marge du haut et 11mm pour la marge du bas." + cr + cr + ...\par
\tab\tab\tab "Vous pouvez cr\'e9er vous m\'eame des ""patrons"" pour vos jaquettes et pour tout type de boitier.")\cf0\par
\cf1\par
\cf7 ShellExecute\cf1  (\cf0 fRep_Initial + "I\cf2 mpression\cf0\\"\cf2  + First_Letter + "\\" + VIDEOTAP.titre + ".html\cf0 "\cf1  )\cf0\par
}