{\rtf1\ansi\ansicpg1252\deff0\deflang1036\deflangfe1036{\fonttbl{\f0\froman\fprq2\fcharset0 Times New Roman;}{\f1\fmodern\fprq1\fcharset0 Courier New;}}
{\colortbl ;\red0\green128\blue0;\red0\green0\blue0;\red102\green102\blue102;\red0\green0\blue255;\red255\green255\blue255;}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\nowidctlpar\cf1\f0\fs20 // DESCRIPTION Choisir un film depuis votre lecteur de salon - Naviguation dans vos jaquettes\cf0\lang2057\par
\cf1 // AUTHOR JUIN J\'e9r\'f4me \cf0\par
\cf1 // LANGUAGE All\cf0\par
\cf1\par
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////\cf0\par
\cf1 // \tab\tab\tab\tab\tab\tab DEBUT PROGRAMME\tab\tab\tab\tab           //\cf0\par
\cf1\lang1036 //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////\cf0\par
\cf1\par
// 3 premieres lettres de fRepEncours ! chez moi = h:\\\cf0\par
\lang2057 fRep_Initial is \cf2 String\cf0  = fRepEnCours() + "\\"\par
\lang1036\par
\cf1\lang2057 // Suppression des anciennes jaquettes pour les MAJ\par
f\cf3 RepSupprime (\cf0 "\cf3 .\cf0\\DVD_Salon\\")\par
\cf3\par
\cf1 // Cr\'e9ation des repertoires\cf0\par
CreateDirectory (fRep_Initial + "D\cf3 VD_Salon\cf0\\T\cf3 ous\\\cf0 ")\par
\cf1\tab CreateDirectory (fRep_Initial + "DVD_Salon\\Tous\\Genres")\cf3\par
\cf1\tab CreateDirectory (fRep_Initial + "DVD_Salon\\Tous\\Tous")\cf0\par
CreateDirectory (fRep_Initial + "D\cf3 VD_Salon\cf0\\V\cf3 u\\\cf0 ")\par
\cf1 CreateDirectory (fRep_Initial + "DVD_Salon\\A_Voir\\")\cf0\lang1036\par
\lang2057 CreateDirectory (fRep_Initial + "D\cf3 VD_Salon\cf0\\\cf2 Not\cf3 es\\\cf0 ")\par
\tab CreateDirectory (fRep_Initial + "D\cf3 VD_Salon\cf0\\\cf2 Not\cf3 es\\0\cf0 ")\cf3\par
\cf0\tab CreateDirectory (fRep_Initial + "D\cf3 VD_Salon\cf0\\\cf2 Not\cf3 es\\1\cf0 ")\cf3\par
\cf0\tab CreateDirectory (fRep_Initial + "D\cf3 VD_Salon\cf0\\\cf2 Not\cf3 es\\2\cf0 ")\cf3\par
\cf0\tab CreateDirectory (fRep_Initial + "D\cf3 VD_Salon\cf0\\\cf2 Not\cf3 es\\3\cf0 ")\cf3\par
\cf0\tab CreateDirectory (fRep_Initial + "D\cf3 VD_Salon\cf0\\\cf2 Not\cf3 es\\4\cf0 ")\cf3\par
\cf0\tab CreateDirectory (fRep_Initial + "D\cf3 VD_Salon\cf0\\\cf2 Not\cf3 es\\5\cf0 ")\par
CreateDirectory (fRep_Initial + "D\cf3 VD_Salon\cf0\\A\cf3 nnee_Prod\\\cf0 ")\par
\lang1036\par
HLitPremier(VIDEOTAP, "titre") \line TANTQUE PAS HEnDehors(VIDEOTAP) \par
\tab\par
\fs16\tab //1ere lettre du titre\par
\lang2057\tab First_Letter i\cf3 s \cf2 String\cf3  \cf0 = \cf4 StringLeft\cf0  (VIDEOTAP.titre , 1)\par
\cf2\tab If\cf0  (0<=First_Letter<=9) OR (First_Letter = """") OR (First_Letter = "'") OR (First_Letter = "&") OR (First_Letter = "#") OR (First_Letter = "~") ...\par
\tab\cf3\tab\cf0 OR (First_Letter = "\{") OR (First_Letter = "\}") OR (First_Letter = "[") OR (First_Letter = "]") OR (First_Letter = "@") ...\par
\tab\cf3\tab\cf0 OR (First_Letter = "(") OR (First_Letter = ")") OR (First_Letter = "/") OR (First_Letter = "\\") OR (First_Letter = "\'a3") ...\par
\tab\cf3\tab\cf0 OR (First_Letter = "$") OR (First_Letter = "\'a4") OR (First_Letter = "%") OR (First_Letter = "\'b5") OR (First_Letter = "?") ...\par
\tab\cf3\tab\cf0 OR (First_Letter = ",") OR (First_Letter = ";") OR (First_Letter = ".") OR (First_Letter = ":") OR (First_Letter = "!") ...\par
\tab\cf3\tab\cf0 OR (First_Letter = "|") OR (First_Letter = "\'80") OR (First_Letter = "*") OR (First_Letter = "+") OR (First_Letter = "-") OR (First_Letter = "=") \cf2 Then\cf0\par
\tab\cf3\tab\tab\cf0 First_Letter = "9"\par
\cf2\tab End\cf0\par
\tab First_Letter = \cf4 FormatString\cf0  (First_Letter, "UC")\cf3\par
\cf0\lang1036\fs20\par
\cf1\tab // Titre\par
\cf0\tab\cf1 // Suppression des caracteres joker\cf0\par
\tab VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , "\\" , "-")\par
\tab VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , "/" , "-")\par
\tab VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , ":" , "-")\par
\tab VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , "," , "-")\par
\tab VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , ";" , "-")\par
\tab VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , "*" , "-")\par
\tab VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , "?" , "-")\par
\tab VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , """" , "-")\par
\tab VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , "<" , "-")\par
\tab VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , ">" , "-")\par
\tab VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , "|" , "-")\par
\tab VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , "\'b0" , "o")\par
\tab VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , "'" , "_")\par
\tab VIDEOTAP.titre = \cf4 StringReplace\cf0  (VIDEOTAP.titre , "..." , "")\par
\tab VIDEOTAP.titre = \cf4 FormatString\cf0  (VIDEOTAP.titre , "WOA")\par
\lang2057\tab\par
\lang1036\tab\cf1 // Genre non renseign\'e9\cf0\par
\tab HReadSeek (CATEG, "CACLEUNIK", VIDEOTAP.CACLEUNIK)\par
\tab\cf2 If\cf3  VIDEOTAP.CACLEUNIK = "-1" \cf2 Then\cf3\par
\tab\tab CATEG.CATEGORIE = "(vide)"\par
\cf2\tab End\cf3\par
\lang2057\par
\cf0\lang1036\tab\cf1 // Toutes les jaquettes\cf0\par
\tab\cf1 fCopieFichier (\highlight5 VIDEOTAP.repert + "/" + VIDEOTAP.IMAGE\highlight0  , fRep_Initial + "\lang2057 DVD_Salon\\Tous\\Tous\\\lang1036 " \highlight5 + F\cf3 irst_Letter + "\\" + \cf1 ...\cf3\par
\tab\cf1 VIDEOTAP.titre + "-" + VIDEOTAP.MEUBLE + VIDEOTAP.ETAGERE + VIDEOTAP.NIVEAU + ".jpg"\highlight0   )\cf3\par
\cf0\par
\tab\cf1 // Toutes les jaquettes par genres\cf0\par
\tab\cf1 fCopieFichier (\highlight5 VIDEOTAP.repert + "/" + VIDEOTAP.IMAGE\highlight0  , fRep_Initial + "\lang2057 DVD_Salon\\Tous\\Genres\\\lang1036 " \highlight5 + CATEG.CATEGORIE + "\\" + ...\cf3\par
\tab\cf1 VIDEOTAP.titre + "-" + VIDEOTAP.MEUBLE + VIDEOTAP.ETAGERE + VIDEOTAP.NIVEAU + ".jpg"\highlight0   )\cf0\par
\par
\tab\cf1 // Toutes les jaquettes tri\'e9es par genres et Vu / Pas vu\cf0\par
\cf3\tab\cf2 If\cf0  VIDEOTAP.NB_FOIS_VU = 0 \cf2 Then\cf0\par
\tab\cf1\tab fCopieFichier (\highlight5 VIDEOTAP.repert + "/" + VIDEOTAP.IMAGE\highlight0  , fRep_Initial + "\lang2057 DVD_Salon\\A\cf3 _\cf1 Voir\\\lang1036 " \highlight5 + CATEG.CATEGORIE + "\\" + ...\cf3\par
\tab\cf1\tab VIDEOTAP.titre + "-" + VIDEOTAP.MEUBLE + VIDEOTAP.ETAGERE + VIDEOTAP.NIVEAU + ".jpg"\highlight0   )\cf0\lang2057\par
\tab\cf2 Else\cf0\par
\tab\cf1\tab\lang1036 fCopieFichier (\highlight5 VIDEOTAP.repert + "/" + VIDEOTAP.IMAGE\highlight0  , fRep_Initial + "\lang2057 DVD_Salon\\Vu\\\lang1036 " \highlight5 + CATEG.CATEGORIE + "\\" + ...\cf3\par
\tab\cf1\tab VIDEOTAP.titre + "-" + VIDEOTAP.MEUBLE + VIDEOTAP.ETAGERE + VIDEOTAP.NIVEAU + ".jpg"\highlight0   )\cf0\par
\lang2057\tab\cf2\lang1036 End\cf0\lang2057\par
\par
\tab\cf1 // Ann\'e9e\cf0\par
\tab\cf3 Annee is \cf2 String\cf0\par
\cf3\tab\cf2 If\cf0  VIDEOTAP.annee_real = "" \cf2 Then\cf0\par
\tab\tab CreateDirectory (fRep_Initial + "D\cf3 VD_Salon\cf0\\\cf2 A\cf3 nnee_Prod\\_Vide\cf0 ")\par
\tab\cf1\tab\lang1036 fCopieFichier (\highlight5 VIDEOTAP.repert + "/" + VIDEOTAP.IMAGE\highlight0  , fRep_Initial + "\lang2057 DVD_Salon\\\cf3 Annee_Prod\cf1\\\lang1036 " \highlight5 + ...\cf3\par
\tab\cf1\tab VIDEOTAP.titre + "-" + VIDEOTAP.MEUBLE + VIDEOTAP.ETAGERE + VIDEOTAP.NIVEAU + ".jpg"\highlight0   )\cf0\lang2057\par
\tab\cf2 Else\cf0\par
\tab\cf1\tab\cf2 If\cf3  (VIDEOTAP.annee_real >=1900 ) AND (VIDEOTAP.annee_real < 1910 ) \cf2 Then\cf3\par
\tab\tab\tab Annee = "1900s"\cf1\par
\cf0\tab\cf3\tab\cf2 End\cf0\par
\tab\cf1\tab\cf2 If\cf3  (VIDEOTAP.annee_real >=1910 ) AND (VIDEOTAP.annee_real < 1920 ) \cf2 Then\cf3\par
\tab\tab\tab Annee = "1910s\\"\cf1\par
\cf0\tab\cf3\tab\cf2 End\cf3\par
\cf0\tab\cf1\tab\cf2 If\cf3  (VIDEOTAP.annee_real >=1920 ) AND (VIDEOTAP.annee_real < 1930 ) \cf2 Then\cf3\par
\tab\tab\tab Annee = "1920s\\"\cf1\par
\cf0\tab\cf3\tab\cf2 End\cf3\par
\cf0\tab\cf1\tab\cf2 If\cf3  (VIDEOTAP.annee_real >=1930 ) AND (VIDEOTAP.annee_real < 1940 ) \cf2 Then\cf3\par
\tab\tab\tab Annee = "1930s\\"\cf1\par
\cf0\tab\cf3\tab\cf2 End\cf3\par
\cf0\tab\cf1\tab\cf2 If\cf3  (VIDEOTAP.annee_real >=1940 ) AND (VIDEOTAP.annee_real < 1950 ) \cf2 Then\cf3\par
\tab\tab\tab Annee = "1940s\\"\cf1\par
\cf0\tab\cf3\tab\cf2 End\cf3\par
\cf0\tab\cf1\tab\cf2 If\cf3  (VIDEOTAP.annee_real >=1950 ) AND (VIDEOTAP.annee_real < 1960 ) \cf2 Then\cf3\par
\tab\tab\tab Annee = "1950s\\"\cf1\par
\cf0\tab\cf3\tab\cf2 End\cf3\par
\cf0\tab\cf1\tab\cf2 If\cf3  (VIDEOTAP.annee_real >=1960 ) AND (VIDEOTAP.annee_real < 1970 ) \cf2 Then\cf3\par
\tab\tab\tab Annee = "1960s\\"\cf1\par
\cf0\tab\cf3\tab\cf2 End\cf3\par
\cf0\tab\cf1\tab\cf2 If\cf3  (VIDEOTAP.annee_real >=1970 ) AND (VIDEOTAP.annee_real < 1980 ) \cf2 Then\cf3\par
\tab\tab\tab Annee = "1970s\\"\cf1\par
\cf0\tab\cf3\tab\cf2 End\cf0\par
\tab\cf1\tab\cf2 If\cf3  (VIDEOTAP.annee_real >=1980 ) AND (VIDEOTAP.annee_real < 1990 ) \cf2 Then\cf3\par
\tab\tab\tab Annee = "1980s\\"\cf1\par
\cf0\tab\cf3\tab\cf2 End\cf3\par
\cf0\tab\cf1\tab\cf2 If\cf3  (VIDEOTAP.annee_real >=1990 ) AND (VIDEOTAP.annee_real < 2000 ) \cf2 Then\cf3\par
\tab\tab\tab Annee = "1990s\\"\cf1\par
\cf0\tab\cf3\tab\cf2 End\cf3\par
\cf0\tab\cf1\tab\cf2 If\cf3  (VIDEOTAP.annee_real >=2000 ) AND (VIDEOTAP.annee_real <= \cf4\lang1036\f1\fs18 StringLeft \cf3 (DateSys() , 4 )\lang2057\f0\fs20  ) \cf2 Then\cf3\par
\tab\tab\tab Annee = "2000s\\"\cf1\par
\cf0\tab\cf3\tab\cf2 End\cf3\par
\par
\tab\cf0\tab CreateDirectory (fRep_Initial + "D\cf3 VD_Salon\cf0\\\cf2 A\cf3 nnee_Prod\\\cf0 ")\cf3\lang1036\par
\tab\tab\cf1 fCopieFichier (\highlight5 VIDEOTAP.repert + "/" + VIDEOTAP.IMAGE\highlight0  , fRep_Initial + "\lang2057 DVD_Salon\\\cf3 Annee_Prod\cf1\\\lang1036 " \highlight5 + \cf3 Annee +\cf1  ...\cf3\par
\tab\cf1\tab VIDEOTAP.titre + "-" + VIDEOTAP.MEUBLE + VIDEOTAP.ETAGERE + VIDEOTAP.NIVEAU + ".jpg"\highlight0   )\par
\cf0\lang2057\par
\tab\cf2 End\cf3\par
\cf0\tab\cf1 // Cote d'amour\cf0\par
\tab\cf2 If\cf0  VIDEOTAP.cote_amour  \cf3 <>\cf0  -1 \cf2 Then\cf3\tab\tab\cf0\par
\tab\tab\cf2 If\cf0  VIDEOTAP.cote_amour  = 0 \cf2 Then\cf0\par
\cf1\lang1036\tab\cf3\tab\cf1 fCopieFichier (\highlight5 VIDEOTAP.repert + "/" + VIDEOTAP.IMAGE\highlight0  , fRep_Initial + "\lang2057 DVD_Salon\\\cf2 Not\cf3 es\cf1\\0\cf3\\\cf1\lang1036 " \highlight5 + ...\cf3\par
\tab\cf1\tab VIDEOTAP.titre + "-" + VIDEOTAP.MEUBLE + VIDEOTAP.ETAGERE + VIDEOTAP.NIVEAU + ".jpg"\highlight0   )\cf0\par
\lang2057\tab\tab\cf2 End\cf0\par
\tab\tab\cf2 If\cf0  VIDEOTAP.cote_amour  = 1 \cf2 Then\cf0\par
\cf1\lang1036\tab\cf3\tab\cf1 fCopieFichier (\highlight5 VIDEOTAP.repert + "/" + VIDEOTAP.IMAGE\highlight0  , fRep_Initial + "\lang2057 DVD_Salon\\\cf2 Not\cf3 es\cf1\\\cf3 1\\\cf1\lang1036 " \highlight5 + ...\cf3\par
\tab\cf1\tab VIDEOTAP.titre + "-" + VIDEOTAP.MEUBLE + VIDEOTAP.ETAGERE + VIDEOTAP.NIVEAU + ".jpg"\highlight0   )\cf0\lang2057\par
\tab\tab\cf2 End\cf0\par
\tab\tab\cf2 If\cf0  VIDEOTAP.cote_amour  = 2 \cf2 Then\cf0\par
\cf1\lang1036\tab\cf3\tab\cf1 fCopieFichier (\highlight5 VIDEOTAP.repert + "/" + VIDEOTAP.IMAGE\highlight0  , fRep_Initial + "\lang2057 DVD_Salon\\\cf2 Not\cf3 es\cf1\\\cf3 2\\\cf1\lang1036 " \highlight5 + ...\cf3\par
\tab\cf1\tab VIDEOTAP.titre + "-" + VIDEOTAP.MEUBLE + VIDEOTAP.ETAGERE + VIDEOTAP.NIVEAU + ".jpg"\highlight0   )\cf0\lang2057\par
\tab\tab\cf2 End\cf0\par
\tab\tab\cf2 If\cf0  VIDEOTAP.cote_amour  = 3 \cf2 Then\cf0\par
\cf1\lang1036\tab\cf3\tab\cf1 fCopieFichier (\highlight5 VIDEOTAP.repert + "/" + VIDEOTAP.IMAGE\highlight0  , fRep_Initial + "\lang2057 DVD_Salon\\\cf2 Not\cf3 es\cf1\\\cf3 3\\\cf1\lang1036 " \highlight5 + ...\cf3\par
\tab\cf1\tab VIDEOTAP.titre + "-" + VIDEOTAP.MEUBLE + VIDEOTAP.ETAGERE + VIDEOTAP.NIVEAU + ".jpg"\highlight0   )\cf0\lang2057\par
\tab\tab\cf2 End\cf0\par
\tab\tab\cf2 If\cf0  VIDEOTAP.cote_amour  = 4 \cf2 Then\cf0\par
\cf1\lang1036\tab\cf3\tab\cf1 fCopieFichier (\highlight5 VIDEOTAP.repert + "/" + VIDEOTAP.IMAGE\highlight0  , fRep_Initial + "\lang2057 DVD_Salon\\\cf2 Not\cf3 es\cf1\\\cf3 4\\\cf1\lang1036 " \highlight5 + ...\cf3\par
\tab\cf1\tab VIDEOTAP.titre + "-" + VIDEOTAP.MEUBLE + VIDEOTAP.ETAGERE + VIDEOTAP.NIVEAU + ".jpg"\highlight0   )\cf0\lang2057\par
\tab\tab\cf2 End\cf0\par
\tab\tab\cf2 If\cf0  VIDEOTAP.cote_amour  = 5 \cf2 Then\cf0\par
\cf1\lang1036\tab\cf3\tab\cf1 fCopieFichier (\highlight5 VIDEOTAP.repert + "/" + VIDEOTAP.IMAGE\highlight0  , fRep_Initial + "\lang2057 DVD_Salon\\\cf2 Not\cf3 es\cf1\\\cf3 5\\\cf1\lang1036 " \highlight5 + ...\cf3\par
\tab\cf1\tab VIDEOTAP.titre + "-" + VIDEOTAP.MEUBLE + VIDEOTAP.ETAGERE + VIDEOTAP.NIVEAU + ".jpg"\highlight0   )\cf0\lang2057\par
\tab\tab\cf2 End\cf0\par
\tab\cf2 End\cf0\par
\tab\par
HLitSuivant(VIDEOTAP) \line\cf2 End\par
\cf0\lang1036\par
\cf3\lang2057\par
\cf4\lang1036 UserInformationMessage\cf3  ("Le Dossier " + \cf0 fRep_Initial + "\lang2057 D\cf3 VD_Salon \'e0 \'e9t\'e9 cr\'e9e sur votre ordinateur" + cr + ...\par
\tab\tab\tab "Graver les dossiers qui s'y trouvent et vous pourrez naviguer dans vos jaquettes de films sur votre lecteur de salon")\cf0\par
\cf1 F\cf3 inScript :\cf1\par
}