{\rtf1\ansi\ansicpg1252\uc1\deff0\stshfdbch0\stshfloch0\stshfhich0\stshfbi0\deflang1036\deflangfe1036{\fonttbl{\f0\froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;} {\f2\fmodern\fcharset0\fprq1{\*\panose 02070309020205020404}Courier New;}{\f36\froman\fcharset238\fprq2 Times New Roman CE;}{\f37\froman\fcharset204\fprq2 Times New Roman Cyr;}{\f39\froman\fcharset161\fprq2 Times New Roman Greek;} {\f40\froman\fcharset162\fprq2 Times New Roman Tur;}{\f41\froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\f42\froman\fcharset178\fprq2 Times New Roman (Arabic);}{\f43\froman\fcharset186\fprq2 Times New Roman Baltic;} {\f44\froman\fcharset163\fprq2 Times New Roman (Vietnamese);}{\f56\fmodern\fcharset238\fprq1 Courier New CE;}{\f57\fmodern\fcharset204\fprq1 Courier New Cyr;}{\f59\fmodern\fcharset161\fprq1 Courier New Greek;} {\f60\fmodern\fcharset162\fprq1 Courier New Tur;}{\f61\fmodern\fcharset177\fprq1 Courier New (Hebrew);}{\f62\fmodern\fcharset178\fprq1 Courier New (Arabic);}{\f63\fmodern\fcharset186\fprq1 Courier New Baltic;} {\f64\fmodern\fcharset163\fprq1 Courier New (Vietnamese);}}{\colortbl;\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255;\red0\green255\blue0;\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255; \red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0;\red128\green0\blue128;\red128\green0\blue0;\red128\green128\blue0;\red128\green128\blue128;\red192\green192\blue192;\red102\green102\blue102;}{\stylesheet{ \ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs24\lang1036\langfe1036\cgrid\langnp1036\langfenp1036 \snext0 Normal;}{\*\cs10 \additive \ssemihidden Default Paragraph Font;}{\* \ts11\tsrowd\trftsWidthB3\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3\trcbpat1\trcfpat1\tscellwidthfts0\tsvertalt\tsbrdrt\tsbrdrl\tsbrdrb\tsbrdrr\tsbrdrdgl\tsbrdrdgr\tsbrdrh\tsbrdrv \ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs20\lang1024\langfe1024\cgrid\langnp1024\langfenp1024 \snext11 \ssemihidden Normal Table;}}{\*\latentstyles\lsdstimax156\lsdlockeddef0}{\*\revtbl {Unknown;}}{\*\rsidtbl \rsid5463481}{\*\generator Mi crosoft Word 11.0.5604;}{\info{\author XPHOME}{\operator XPHOME}{\creatim\yr2007\mo1\dy13\hr11\min54}{\revtim\yr2007\mo1\dy13\hr11\min56}{\version2}{\edmins2}{\nofpages3}{\nofwords6814}{\nofchars37482}{\nofcharsws44208}{\vern24689}} \margl1417\margr1417\margt1417\margb1417 \widowctrl\ftnbj\aenddoc\hyphhotz425\noxlattoyen\expshrtn\noultrlspc\dntblnsbdb\nospaceforul\hyphcaps0\horzdoc\dghspace120\dgvspace120\dghorigin1701\dgvorigin1984\dghshow0\dgvshow3 \jcompress\viewkind5\viewscale100\nolnhtadjtbl\rsidroot5463481 \fet0\sectd \linex0\sectdefaultcl\sftnbj {\*\pnseclvl1\pnucrm\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl2\pnucltr\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl3 \pndec\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl4\pnlcltr\pnstart1\pnindent720\pnhang {\pntxta )}}{\*\pnseclvl5\pndec\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl6\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}} {\*\pnseclvl7\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl8\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl9\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}\pard\plain \ql \li0\ri0\nowidctlpar\faauto\rin0\lin0\itap0 \fs24\lang1036\langfe1036\cgrid\langnp1036\langfenp1036 {\f2\fs20\cf11\insrsid5463481 // DESCRIPTION Cr\'e9ation d'un site internet avec vos films. }{ \f2\fs20\cf11\lang2057\langfe1036\langnp2057\insrsid5463481 WebSite creation with your movies.}{\f2\fs20\lang2057\langfe1036\langnp2057\insrsid5463481 \par }{\f2\fs20\cf11\insrsid5463481 // AUTHOR JUIN J\'e9r\'f4me }{\f2\fs20\insrsid5463481 \par }{\f2\fs20\cf11\insrsid5463481 // LANGUAGE All}{\f2\fs20\insrsid5463481 \par }{\f2\fs20\cf17\insrsid5463481 \par }{\f2\fs20\cf11\insrsid5463481 // verification de la version du script \par }{\f2\fs20\cf11\lang2057\langfe1036\langnp2057\insrsid5463481 L}{\f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 ast}{\f2\fs20\cf11\lang2057\langfe1036\langnp2057\insrsid5463481 V}{\f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 ersion is }{\f2\fs20\cf1\lang2057\langfe1036\langnp2057\insrsid5463481 String}{\f2\fs20\cf11\lang2057\langfe1036\langnp2057\insrsid5463481 = }{\f2\fs20\cf2\lang2057\langfe1036\langnp2057\insrsid5463481 GetPage}{ \f2\fs20\cf11\lang2057\langfe1036\langnp2057\insrsid5463481 ("}{\f2\fs20\insrsid5463481 http://www.pixel-infoweb.com}{\f2\fs20\cf11\lang2057\langfe1036\langnp2057\insrsid5463481 /download/shareddoc/FILMS/scripts/versions.html", "" , "" ) \par }{\f2\fs20\cf1\lang2057\langfe1036\langnp2057\insrsid5463481 If}{\f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 (LastVersion = }{\f2\fs20\cf11\lang2057\langfe1036\langnp2057\insrsid5463481 "_")}{ \f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 OR (LastVersion = }{\f2\fs20\cf11\lang2057\langfe1036\langnp2057\insrsid5463481 "")}{\f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 OR (}{ \f2\fs20\cf2\lang2057\langfe1036\langnp2057\insrsid5463481 PositionOccurrence}{\f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 (LastVersion,"La page est introuvable",1)>0) }{\f2\fs20\cf1\lang2057\langfe1036\langnp2057\insrsid5463481 Then}{ \f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 \par \tab }{\f2\fs20\cf1\lang2057\langfe1036\langnp2057\insrsid5463481 Goto }{\f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 ServerOff \par }{\f2\fs20\cf1\lang2057\langfe1036\langnp2057\insrsid5463481 End}{\f2\fs20\cf11\lang2057\langfe1036\langnp2057\insrsid5463481 \par L}{\f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 ast}{\f2\fs20\cf11\lang2057\langfe1036\langnp2057\insrsid5463481 V}{\f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 ersion = }{ \f2\fs20\cf2\lang2057\langfe1036\langnp2057\insrsid5463481 BetweenStrings}{\f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 (LastVersion , "}{\f2\fs20\cf2\lang2057\langfe1036\langnp2057\insrsid5463481 #}{ \f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 generateur}{\f2\fs20\cf2\lang2057\langfe1036\langnp2057\insrsid5463481 #" }{\f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 , "}{ \f2\fs20\cf2\lang2057\langfe1036\langnp2057\insrsid5463481 #/g}{\f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 enerateur}{\f2\fs20\cf2\lang2057\langfe1036\langnp2057\insrsid5463481 #"}{ \f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 )}{\f2\fs20\cf2\lang2057\langfe1036\langnp2057\insrsid5463481 \par }{\f2\fs20\cf1\lang2057\langfe1036\langnp2057\insrsid5463481 C}{\f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 urrentversion is }{\f2\fs20\cf1\lang2057\langfe1036\langnp2057\insrsid5463481 String}{ \f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 = "1.1i"}{\f2\fs20\cf1\lang2057\langfe1036\langnp2057\insrsid5463481 \par If}{\f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 (CurrentVersion <> LastVersion) AND }{\f2\fs20\cf11\lang2057\langfe1036\langnp2057\insrsid5463481 (CurrentVersion <> "_")}{\f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 }{ \f2\fs20\cf1\lang2057\langfe1036\langnp2057\insrsid5463481 Then \par }{\f2\fs20\cf11\lang2057\langfe1036\langnp2057\insrsid5463481 DownloadFile ("http://www.pixel-infoweb.com/download/shareddoc/ExportHtml}{\f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 /}{ \f2\fs20\cf11\lang2057\langfe1036\langnp2057\insrsid5463481 SCRIPT/S}{\f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 ite_Internet}{\f2\fs20\cf11\lang2057\langfe1036\langnp2057\insrsid5463481 _v" + LastVersion + ".script", fRepEXE() + "/Scripts" , "S}{\f2\fs20\cf17\lang2057\langfe1036\langnp2057\insrsid5463481 ite_Internet}{\f2\fs20\cf11\lang2057\langfe1036\langnp2057\insrsid5463481 _v" + LastVersion + ".script")}{ \f2\fs20\cf2\lang2057\langfe1036\langnp2057\insrsid5463481 \par \tab }{\f2\fs20\cf2\insrsid5463481 UserInformationMessage}{\f2\fs20\cf17\insrsid5463481 ("Site Internet v" + LastVersion + cr + cr+ ... \par \tab \tab \tab \tab \tab "Une mise a jour du g\'e9n\'e9rateur de site internet vient d'\'eatre rapatri\'e9e." + cr+... \par \tab \tab \tab \tab \tab "Veuillez utiliser celle-ci. Merci") \par \tab }{\f2\fs20\cf1\insrsid5463481 Goto}{\f2\fs20\cf17\insrsid5463481 Finscript}{\f2\fs20\cf1\insrsid5463481 \par End \par }{\f2\fs20\cf17\insrsid5463481 ServerOff: \par }\pard \ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0\pararsid5463481 {\fs2\insrsid5463481\charrsid5463481 \par ////////////////////////////////////////////////////////////////////////////////////////////////// \par // \tab \tab \tab \tab \tab DECLARATION DES VARIABLES\tab \tab \tab \tab \tab // \par ////////////////////////////////////////////////////////////////////////////////////////////////// \par NbEnr, MovieNbEnr, MessageVersion, MessageYesNo1, MessageYesNo2, ThemeChoix, ThemeChoixMess, MessagDivX, HtmHDD, PasPageRecap, MonTheme are String \par First_Letter, VersionFR, ListActHTTP, Realisateur, Scenariste, Compositeur, FICHIER, TYPE_MEDIA, ListImgHTTP, CONTENU_SiteOf are String \par Vue_GALERIE est une Source de Donn\'e9es \par NbImg, V_Complete, MaskDivX are Int \par \par // creation de la base de donn\'e9es javascript \par HtmBDD, TitreFilmBase, GenreMajSsAccent, UnFilmDsBase, MovieBDDValue, MovieSearchInfo, HtmMajBDD are String \par \par // Gestion des pages recap \par LienUnePage, ListeLiens, ListeTypes, HtmPageLettreVide , HtmPageLettre are String \par ChaineLettre is String = "9ABCDEFGHIJKLMNOPQRSTUVWXYZ" \par LettreEnCours is String \par LettreDebut is Int = 1 \par HtmMajFiche, NouveauLien, LienPresent, DernierHtmLien, DernierLien, GenrePresent, DernierGenre, ListeGenre are String \par PresenceFilm, NbLiens, Liens, MajGenre, NbMajGenre are Int \par \par MovieListeGenreValue is String \par \par //PROCEDURE DownloadFichier (URL, Dossier, Nom_Fichier) \par ResAppel is booleen = Faux \par Page_html is String = "" \par Dossier is String = (fRep_Initial + "SiteInternet\\THEMES\\DL") \par IdFichier, ResEcriture are int \par \tab \tab \tab \par /////////////////////////////////////////////////////////////////////////////////////////// \par // \tab \tab \tab \tab \tab \tab DEBUT PROGRAMME\tab \tab \tab \tab // \par /////////////////////////////////////////////////////////////////////////////////////////// \par // Nombre de films dans la base \par NbEnr = HNbEnr (VIDEOTAP) \par \par // Verification du dernier theme utilis\'e9 \par If (fRep (fRep_Initial + "SiteInternet\\THEMES\\theme.dl")) = "theme.dl" Then \par \tab ThemeChoix = fChargeTexte(fRep_Initial + "SiteInternet\\THEMES\\theme.dl") \par End \par \tab \par // Changement de langues \par Switch Language \par Case 1 // Allemand \par Case 3 // Anglais \par \tab MessageVersion = "Please, install 6.08 version or higher. Thanks" \par \tab ThemeChoixMess= "Your defaut theme is : " + ThemeChoix \par \par \tab MessageYesNo1 = "Hello,"+cr+... \par \tab \tab \tab "This script enable you to create HTML pages about your movies"+cr+... \par \tab \tab \tab "You can find them in the 'SiteInternet' directory on your computer"+cr+... \par \tab \tab \tab "Style Sheets may be applicated on pages." +cr +cr +... \par \tab \tab \tab ThemeChoixMess + cr + cr + ... \par \tab \tab \tab "A webpage will be open If you click 'Yes' and you MAY SAVE the relevant ZIP in the ""\\SiteInternet\\THEMES\\DL\\"" directory." +cr + cr +... \par \tab \tab \tab "Would you like to change the 'default' theme?" \par \par \par \tab MessageYesNo2 = "Would you like to create complete Website ( 'Yes' ), or just UPDATE RELEVANT movie - " + VIDEOTAP.titre + " ( 'No' ) ?" \par \tab MessagDivX = "Would you like to hide your DivX format ? ( 'DivX' will be replace by 'DvD' only on HTML pages)" \par \par Case 5 // Francais \par \tab MessageVersion = "Veuillez installer la version 6.08 ou sup\'e9rieure. Merci." \par \tab ThemeChoixMess = "Votre theme par d\'e9faut est : " + ThemeChoix \par \par \tab MessageYesNo1 = "Bonjour," + cr + ... \par \tab \tab \tab "Ce script permet de g\'e9n\'e9rer les pages HTML de vos fiches de films."+cr+... \par \tab \tab \tab "Vous les trouverez dans le dossier 'SiteInternet'"+cr+... \par \tab \tab \tab "Des th\'e8mes pour modifier les pages peuvent \'eatre appliqu\'e9s" + cr + cr +... \par \tab \tab \tab ThemeChoixMess + cr + cr + ... \par \tab \tab \tab "Si vous r\'e9pondez 'OUI', une page internet va s'ouvrir, veuillez alors choisir votre theme, puis enregistrez IMPERATIVEMENT le fichier ZIP dans le repertoire ""\\SiteInternet\\THEMES\\DL\\""." +cr + cr+ ... \par \tab \tab \tab "Voulez vous changer le th\'e8me par d\'e9faut?"\tab \tab \tab \tab \tab \tab \par \par \tab MessageYesNo2 = "Voulez vous cr\'e9er tout le site ( 'OUI' ), ou mettre \'e0 jour UNIQUEMENT la fiche (" + VIDEOTAP.titre + ") sur laquelle vous vous trouvez ( 'NON' ) ?" \par \tab MessagDivX = "Voulez vous masquer le fait que vous poss\'e9dez des DivX ? Le format 'DivX' sera remplac\'e9 par 'Dvd' sur les pages Html g\'e9n\'e9r\'e9es..."\tab \tab \par \par Case 7 // Espagnol \par Case 11 // Italien \par \par End \par \par If param.version_texte+"."+param.release_texte<6.08 Then \par \tab UserErrorMessage (MessageVersion) \par End \par \par // 3 premieres lettres de fRepEncours ! chez moi = h:\\ \par fRep_Initial is String = fRepEnCours() + "\\" \par First_fRep is String = StringLeft (fRep_Initial , 3 ) \par \par // Suppression de 'theme.zip' s'il n'a pas ete supprim\'e9 la fois d'avant a cause du DownloadFile du theme par defaut , ou si un theme a ete coll\'e9 manuellement \par If (fRep (fRep_Initial+ "SiteInternet\\THEMES\\DL\\theme.zip")) = "theme.zip" Then \par \tab fSupprime (fRep_Initial + "\\SiteInternet\\THEMES\\DL\\theme.zip") \par End \par \par \par Debut: \par \par If Not YesNo (MessageYesNo1 ) Then \par \par \tab If (fRep (fRep_Initial + "SiteInternet\\THEMES\\theme.dl")) <> "theme.dl" Then \par \tab \tab // Verification de la presence des fichiers n\'e9cessaires sur le disque s'il n'y a pas encore de theme par defaut \par \tab \tab If (fRep (fRep_Initial + "SiteInternet\\index.html")) <> "index.html" ... \par \tab \tab OR ( (fRep (fRep_Initial + "SiteInternet\\Pages\\_Lettres\\_Page1.html")) <> "_Page1.html" )... \par \tab \tab OR ( (fRep (fRep_Initial + "SiteInternet\\Pages\\_PageLettre.html")) <> "_PageLettre.html" )... \par \tab \tab OR ( (fRep (fRep_Initial + "SiteInternet\\THEMES\\" + ThemeChoix + "\\style.css")) <> "style.css" )... \par \tab \tab OR ( (fRep (fRep_Initial + "SiteInternet\\THEMES\\" + ThemeChoix + "\\logo.jpg")) <> "logo.jpg" ) Then \par \tab \tab \tab //DownloadFile ("http://www.pixel-infoweb.com/download/shareddoc/ExportHtml/defaut/theme.zip" , fRep_Initial + "SiteInternet\\THEMES\\DL\\" , "theme.zip") \par \par \tab \tab \tab //PROCEDURE DownloadFichier (URL, Dossier, Nom_Fichier) \par \tab \tab \tab ResAppel = HTTPRequ\'eate("http://www.pixel-infoweb.com/download/shareddoc/ExportHtml/defaut/theme.zip") \par \tab \tab \tab If ResAppel = Vrai Then \par \tab \tab \tab \tab Page_html= HTTPDonneR\'e9sultat() \par \tab \tab \tab Else \par \tab \tab \tab \tab Erreur("Server down") \par \tab \tab \tab \tab RENVOYER Faux \par \tab \tab \tab End \par \tab \tab \tab If Not fRepCr\'e9e(Dossier ) Then \par \tab \tab \tab \tab Erreur(ErreurInfo(errMessage)) \par \tab \tab \tab \tab RENVOYER Faux \par \tab \tab \tab End \par \tab \tab \tab // Cr\'e9ation d'un fichier externe \par \tab \tab \tab IdFichier = fOuvre(Dossier + "\\" + "theme.zip" , foCr\'e9ation) \par \tab \tab \tab If IdFichier <> -1 Then \par \tab \tab \tab \tab ResEcriture = fEcrit(IdFichier, Page_html) \par \tab \tab \tab \tab If ResEcriture <> -1 Then \par \tab \tab \tab \tab Else \par \tab \tab \tab \tab \tab Info("File Not found"+ErreurInfo(errMessage)) \par \tab \tab \tab \tab \tab RENVOYER Faux \par \tab \tab \tab \tab End \par \tab \tab \tab Else \par \tab \tab \tab \tab Info("File Not found"+ErreurInfo(errMessage)) \par \tab \tab \tab \tab RENVOYER Faux \par \tab \tab \tab End \par \tab \tab \tab fFerme (IdFichier) \par \par \tab \tab End \par \tab End \par \par Else \par \tab CreateDirectory (fRep_Initial + "SiteInternet\\THEMES\\DL") \par //\tab ShellExecute ("http://www.myvideosoft.com/download/exporthtml/themescript.html") \par \tab fSupprime (fRep_Initial + "\\SiteInternet\\THEMES\\theme.dl") \par \par \tab // NOUVEAUTE --> RECUPERATION D'UN THEME A PARTIR D'OpenMoviesList \par \tab HtmlTheme is String = GetPage ("http://www.pixel-infoweb.com/download/ExportHtml/themescript.html" , "" , "") \par \tab HtmlTheme = BetweenStrings (HtmlTheme , "/ExportHtml/SCRIPT/" , "") \par \tab If HtmlTheme = "" Then \par \tab \tab If YesNo ("Server down, Would you lke to use your own theme ?" + cr + "Le serveur est arret\'e9 ,Voulez vous utiliser votre theme ?") Then \par \tab \tab \tab Goto MonThem \par \tab \tab Else \par \tab \tab \tab Goto Finscript \par \tab \tab End \par \tab End \par \par \tab //arborescence g\'e9n\'e9rale du stockage Allocine-Generalisation \par \tab Theme_Delimiter is String = "/ExportHtml/" \par \tab Theme_Number is Int = StringCounter(HtmlTheme, Theme_Delimiter) \par \tab If Theme_Number = 0 Then \par \tab \tab If YesNo ("Server down, Would you like to use your own theme ?" + cr + "Le serveur est arret\'e9, voulez vous utiliser votre theme ?") Then \par \tab \tab \tab Goto MonThem \par \tab \tab Else \par \tab \tab \tab Goto Finscript \par \tab \tab End \par \tab End \par \par \tab Them is int \par \tab Theme_ID, Theme_Title, Theme_URL are String \par \tab AddMovieToList (1 , "JmeDemerde", "--> Voir les themes <--" , "http://www.pixel-infoweb.com/download/ExportHtml/themescript.html") \par \tab AddMovieToList (2 , "MonTheme", "--> Theme Perso <--" , "C:\\") \par \tab For Them=3 to Theme_Number + 1 \par \tab \tab Theme_Title = Theme_Delimiter + StringExtraction ( HtmlTheme, Them ,Theme_Delimiter ) \par \tab \tab Theme_ID = BetweenStrings ( Theme_Title , Theme_Delimiter , "/theme" )\tab \par \tab \tab Theme_Title = BetweenStrings( Theme_Title , Theme_Delimiter , "/theme.zip" ) \par \tab \tab Theme_Title = StringRefine(Theme_Title) \par \tab \tab Theme_Title = FormatString (Theme_Title, "UC") \par \tab \tab Theme_Title = RemoveHTMLTags (Theme_Title) \par \tab \tab Theme_URL = "http://www.pixel-infoweb.com/download/shareddoc/Exporthtml/" + Theme_ID + "/theme.zip" \par \tab \tab AddMovieToList(Them, Theme_ID, Theme_Title, Theme_URL) \par \tab \tab //Trace(Theme_ID, Theme_Title, Theme_URL) \par \tab End \par \par \tab // Ouverture de la liste des films trouv\'e9s \par \tab OpenMoviesList() \par \par \par \tab If MovieIDValue = "" Then \par \tab \tab If YesNo ("Aucun theme selectionn\'e9" + cr + "Voulez vous revenir \'e0 l'\'e9tape d'avant (OUI) ou quitter le programme (NON) ?") \par \tab \tab \tab Goto debut \par \tab \tab Else \par \tab \tab \tab Goto FinScript \par \tab \tab End \par \tab Else \par \par \tab \tab If MovieIDValue = "JmeDemerde" Then \par \tab \tab \tab ShellExecute ("http://www.pixel-infoweb.com/download/ExportHtml/themescript.html") \par \tab \tab \tab While (fRep (fRep_Initial + "SiteInternet\\THEMES\\DL\\theme.zip")) <> "theme.zip" \par \tab \tab \tab \tab Switch Language \par \tab \tab \tab \tab Case 3 // Anglais \par \tab \tab \tab \tab \tab If Not YesNo ("The script is waiting For the file 'theme.ZIP' in the relevant directory : " + fRep_Initial + "SiteInternet\\THEMES\\DL\\" + cr + "Save this file and click 'YES'." + cr + cr+... \par \tab \tab \tab \tab \tab \tab "Click 'NO' to Return to the original theme." + cr + cr +... \par \tab \tab \tab \tab \tab \tab "Are you ready to Continue ?" ) Then \par \tab \tab \tab \tab \tab \tab Goto Debut\tab \tab \tab \par \tab \tab \tab \tab \tab End \par \tab \tab \tab \tab Case 5 // Francais \par \tab \tab \tab \tab \tab If Not YesNo( "Le script attend l'enregistrement du theme de votre choix dans le repertoire " + fRep_Initial + "SiteInternet\\THEMES\\DL\\" + cr +"Enregistrez le fichier 'theme.ZIP' et revenez cliquer sur 'OUI'." + cr + cr +... \par \tab \tab \tab \tab \tab \tab "Si vous ne parvenez pas \'e0 utiliser un autre theme, cliquez sur 'NON' pour revenir au th\'e8me par d\'e9faut." +cr+cr+... \par \tab \tab \tab \tab \tab \tab "Avez vous enregistr\'e9 le fichier ?" ) Then \par \tab \tab \tab \tab \tab \tab Goto Debut \par \tab \tab \tab \tab \tab End \par \tab \tab \tab \tab End \par \tab \tab \tab End \par \par \tab \tab Else \par \tab \tab \tab \par \tab \tab \tab If MovieIDValue = "MonTheme" Then \par \tab \tab \tab MonThem:\tab \tab \tab \par \tab \tab \tab \tab MonTheme = fS\'e9lecteur ("C:\\" , "S\'e9lectionnez votre theme. Celui-ci doit se nommer ""theme.zip""" ,"theme.zip" , "theme.zip") \par \tab \tab \tab \tab fCopieFichier (MonTheme , fRepExe() + "\\SiteInternet\\THEMES\\DL") \par \tab \tab \tab Else \par \par \tab \tab \tab \tab //DownloadFile (MovieURLValue , fRep_Initial + "SiteInternet\\THEMES\\DL\\" , "theme.zip") \par \tab \tab \tab \tab //PROCEDURE DownloadFichier (URL, Dossier, Nom_Fichier) \par \tab \tab \tab \tab \tab ResAppel = HTTPRequ\'eate(MovieURLValue) \par \tab \tab \tab \tab If ResAppel = Vrai Then \par \tab \tab \tab \tab \tab Page_html= HTTPDonneR\'e9sultat() \par \tab \tab \tab \tab Else \par \tab \tab \tab \tab \tab Erreur("Server down") \par \tab \tab \tab \tab \tab RENVOYER Faux \par \tab \tab \tab \tab End \par \tab \tab \tab \tab If Not fRepCr\'e9e(Dossier ) Then \par \tab \tab \tab \tab \tab Erreur(ErreurInfo(errMessage)) \par \tab \tab \tab \tab \tab RENVOYER Faux \par \tab \tab \tab \tab End \par \tab \tab \tab \tab // Cr\'e9ation d'un fichier externe \par \tab \tab \tab \tab IdFichier = fOuvre(Dossier + "\\" + "theme.zip" , foCr\'e9ation) \par \tab \tab \tab \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 If IdFichier <> -1 Then \par \tab \tab \tab \tab \tab ResEcriture = fEcrit(IdFichier, Page_html) \par \tab \tab \tab \tab \tab If ResEcriture <> -1 Then \par \tab \tab \tab \tab \tab Else \par \tab \tab \tab \tab \tab \tab Info("File Not found"+ErreurInfo(errMessage)) \par \tab \tab \tab \tab \tab \tab RENVOYER Faux \par \tab \tab \tab \tab \tab End \par \tab \tab \tab \tab Else \par \tab \tab \tab \tab \tab Info("File Not found"+ErreurInfo(errMessage)) \par \tab \tab \tab \tab \tab }{\fs2\insrsid5463481\charrsid5463481 RENVOYER Faux \par \tab \tab \tab \tab End \par \tab \tab \tab \tab fFerme (IdFichier) \par \tab \tab \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 End\tab \par \tab \tab End \par \tab End \par End \par \par // Extraction du theme \par If (fRep (fRep_Initial+ "SiteInternet\\THEMES\\DL\\theme.zip")) = "theme.zip" Then \par \tab zipOuvre ( "Theme" , fRep_Initial + "SiteInternet\\THEMES\\DL\\theme.zip" ) \par \tab zipExtraitTout ( "Theme" , fRep_Initial + "SiteInternet" ) \par \tab ThemeChoix = fChargeTexte(fRep_Initial + "SiteInternet\\THEMES\\theme.dl") \par \tab }{\fs2\insrsid5463481\charrsid5463481 zipFerme ( "Theme" ) \par End \par \par // MASQUER LES FILMS DivX ? \par }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 If YesNo (MessagDivX) Then \par \tab MaskDivX = 1 \par }{\fs2\insrsid5463481\charrsid5463481 Else \par \tab MaskDivX =0 \par End \par \par // Cr\'e9ation du r\'e9pertoire Bandes Annonces \par \par If YesNo ("Voulez vous copier vos bandes annonces dans le r\'e9pertoire SiteInternet ?") \par \tab fRepCopie (fRepexe() + "\\Bandes Annonces\\" , fRepexe() + "\\SiteInternet\\Bandes Annonces" , frConfirmer + frJauge + frR\'e9cursIf) \par Else \par \tab UserInformationMessage ("Vous pourrez copier manuellement vos Bandes Annonces dans le r\'e9pertoire " + fRep_Initial + "SiteInternet\\Bandes Annonces") \par End \par \par ///////////////////////////////////////////////////////////////////////////// \par // Videotheque complete ou uniquement Film en cours ? // \par }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 ///////////////////////////////////////////////////////////////////////////// \par \par If YesNo (MessageYesNo2) Then \par \tab V_Complete = 1 \par \tab Goto complete \par Else \par \tab V_Complete = 0 \par \tab Goto MAJ_Fiche \par End \par \par \par complete : \par }{\fs2\insrsid5463481\charrsid5463481 HLitPremier(VIDEOTAP, "titre") \line TANTQUE PAS HEnDehors(VIDEOTAP) \par MAJ_Fiche:\tab \par \tab \par \tab // Titre \par \tab TitreVIDEO is String = VIDEOTAP.titre \par \tab // Suppression des caracteres joker \par \tab VIDEOTAP.titre = StringReplace (VIDEOTAP.titre , "\\" , "-") \par \tab VIDEOTAP.titre = StringReplace (VIDEOTAP.titre , "/" , "-") \par \tab VIDEOTAP.titre = StringReplace (VIDEOTAP.titre , "." , "-") \par \tab VIDEOTAP.titre = StringReplace (VIDEOTAP.titre , ":" , "-") \par \tab VIDEOTAP.titre = StringReplace (VIDEOTAP.titre , "," , "-") \par \tab VIDEOTAP.titre = StringReplace (VIDEOTAP.titre , ";" , "-") \par \tab VIDEOTAP.titre = StringReplace (VIDEOTAP.titre , "*" , "-") \par \tab VIDEOTAP.titre = StringReplace (VIDEOTAP.titre , "?" , "-") \par \tab VIDEOTAP.titre = StringReplace (VIDEOTAP.titre , """" , "-") \par \tab VIDEOTAP.titre = StringReplace (VIDEOTAP.titre , "<" , "-") \par \tab VIDEOTAP.titre = StringReplace (VIDEOTAP.titre , ">" , "-") \par \tab VIDEOTAP.titre = StringReplace (VIDEOTAP.titre , "|" , "-") \par \tab VIDEOTAP.titre = StringReplace (VIDEOTAP.titre , "\'b0" , "o") \par \tab VIDEOTAP.titre = StringReplace (VIDEOTAP.titre , "'" , "_") \par \tab VIDEOTAP.titre = StringReplace (VIDEOTAP.titre , "..." , "") \par \tab VIDEOTAP.titre = FormatString (VIDEOTAP.titre , "WOA") \par \tab VIDEOTAP.titre = FormatString (VIDEOTAP.titre , "UC") \par \par \tab //1ere lettre du titre \par \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 First_Letter = StringLeft (VIDEOTAP.titre , 1) \par \tab If (0<=First_Letter<=9) OR (First_Letter = """") OR (First_Letter = "'") OR (First_Letter = "&") OR (First_Letter = "#") OR (First_Letter = "~") ... \par \tab \tab OR (First_Letter = "\{") OR (First_Letter = "\}") OR (First_Letter = "[") OR (First_Letter = "]") OR (First_Letter = "@") ... \par \tab \tab OR (First_Letter = "(") OR (First_Letter = ")") OR (First_Letter = "/") OR (First_Letter = "\\") OR (First_Letter = "\'a3") ... \par \tab \tab OR (First_Letter = "$") OR (First_Letter = "\'a4") OR (First_Letter = "%") OR (First_Letter = "\'b5") OR (First_Letter = "?") ... \par \tab \tab OR (First_Letter = ",") OR (First_Letter = ";") OR (First_Letter = ".") OR (First_Letter = ":") OR (First_Letter = "!") ... \par \tab \tab OR (First_Letter = "|") OR (First_Letter = "\'80") OR (First_Letter = "*") OR (First_Letter = "+") OR (First_Letter = "-") OR (First_Letter = "=") Then \par \tab \tab \tab First_Letter = "9" \par \tab End \par \tab First_Letter = FormatString (First_Letter, "UC") \par \par \tab }{\fs2\insrsid5463481\charrsid5463481 //Page Vierge HTML - On scanne et modIfie cette page pour generer toutes les autres. \par \tab HtmHDD = fChargeTexte(fRep_Initial + "SiteInternet\\Pages\\_Lettres\\_Page1.html") \par \tab // repertoire a modifier pour le logo et le style CSS \par \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 HtmHDD = StringReplace (HtmHDD , "ThemeChoixValue" , ThemeChoix) \par \par \tab }{\fs2\insrsid5463481\charrsid5463481 //////////////////////////////////////////////////////////////////////////////////// \par \tab //Changement de Langues pour les variables 'genre', ann\'e9e ... // \par \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 //////////////////////////////////////////////////////////////////////////////////// \par \tab Switch Language \par \tab Case 1 // Allemand \par \par \tab Case 3 // Anglais \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieInfoHTTP" , "Movie Informations" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieFamilyHTTP" , "Family" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieCountryHTTP" , "Country" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieDurationHTTP" , "Duration" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieYearHTTP" , "Year" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieDateHTTP" , "Purchase date" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieTypeHTTP" , "Type" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieSeeHTTP" , "See" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieNbSeeHTTP" , "Nb " ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieLoveHTTP" , "Lovemark" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieRealHTTP" , "Director(s)" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieScenaHTTP" , "Script-writer(s)" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieCompoHTTP" , "Composer(s)" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieActeurHTTP" , "Actor(s)" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieActeurValue" , "Name (Role)" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieRangementHTTP" , "Location" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieLabelHTTP" , "Label" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieJaiHTTP" , "I have ?" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieMeubleHTTP" , "Furniture A" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieEtagereHTTP" , "Furniture B" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieNiveauHTTP" , "Furniture C" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieSynopsisHTTP" , "Synopsis" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieNotePHTTP" , "Personal Notes" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieGaleryHTTP" , "Galery" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieSiteOfHTTP" , "Site" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieTrailerHTTP" , "Trailer" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieLinkExtractHTTP" , "Link extraction" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "DVDTypeEditHTTP" , "Edition" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "DVDZoneHTTP" , "DVD Area" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "DVDRAMHTTP" , "DVD Format" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "K7FormatHTTP" , "Tape Format" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "K7DureeHTTP" , "Tape length" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "ImageFormatHTTP" , "Image Format" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "VideoFormatHTTP" , "Video Format" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "SonFormatHTTP" , "Sound" ) \par \par \tab \tab }{\fs2\insrsid5463481\charrsid5463481 // Message pour les pages recap' vides \par \tab \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 PasPageRecap = "Sorry - No movie at this page " \par \par \tab \tab }{\fs2\insrsid5463481\charrsid5463481 // Remplacement des caracteres non pris en compte pour les adresses internet \par \tab \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 VIDEOTAP.titre = StringReplace (VIDEOTAP.titre , "&" , "AND") \par \par \tab Case 5 // Francais \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieInfoHTTP" , "Informations sur le film" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieFamilyHTTP" , "Genre" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieCountryHTTP" , "Origine" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieDurationHTTP" , "Dur\'e9e (mn)" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieYearHTTP" , "Ann\'e9e" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieDateHTTP" , "Date d'acquisition" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieTypeHTTP" , "Support" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieSeeHTTP" , "Film vu le" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieNbSeeHTTP" , "Nb de fois vu" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieLoveHTTP" , "Note" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieRealHTTP" , "R\'e9alisateur(s)" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieScenaHTTP" , "Sc\'e9nariste(s)" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieCompoHTTP" , "Compositeur(s)" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieActeurHTTP" , "Acteur(s)" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieActeurValue" , "Nom (R\'f4le)" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieRangementHTTP" , "Rangement" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieLabelHTTP" , "Nom support" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieJaiHTTP" , "J'ai ce film ?" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieMeubleHTTP" , "NivA" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieEtagereHTTP" , "NivB" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieNiveauHTTP" , "NivC" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieSynopsisHTTP" , "R\'e9sum\'e9" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieNotePHTTP" , "Notes perso." ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieGaleryHTTP" , "Galerie d'images" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieSiteOfHTTP" , "Site Officiel" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieTrailerHTTP" , "Bande Annonce" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieLinkExtractHTTP" , "Liaison fiche" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "DVDTypeEditHTTP" , "Type d'\'e9dition" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "DVDZoneHTTP" , "ZoneDVD" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "DVDRAMHTTP" , "Format DVD" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "K7FormatHTTP" , "Format K7" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "K7DureeHTTP" , "Dur\'e9e K7" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "ImageFormatHTTP" , "Format d'image" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "VideoFormatHTTP" , "Format vid\'e9o" ) \par \tab \tab HtmHDD = StringReplace (HtmHDD , "SonFormatHTTP" , "Son" ) \par \par \tab \tab }{\fs2\insrsid5463481\charrsid5463481 // Message pour les pages recap' vides \par \tab \tab PasPageRecap = "La vid\'e9oth\'e8que ne contient aucun film sur cette page" \par \par \tab \tab // Remplacement des caracteres non pris en compte pour les adresses internet \par \tab \tab VIDEOTAP.titre = StringReplace (VIDEOTAP.titre , "&" , "ET") \par \par \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 Case 7 // Espagnol \par \par \tab Case 11 // Italien \par \par \tab End \par \par \par \tab CreateDirectory (fRep_Initial + "SiteInternet\\Pages\\" + First_Letter + "\\")\line \tab HtmHDD = StringReplace (HtmHDD , "MovieTitleValue" , TitreVIDEO) \par \tab HtmHDD = StringReplace (HtmHDD , "MovieTitlePage" , TitreVIDEO) \par \par \tab // Titre original \par \tab If VIDEOTAP.titre_orig = "" Then \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieOriginalTitleValue" , "( ----- )" ) \par \tab Else \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieOriginalTitleValue" , VIDEOTAP.titre_orig) \par \tab End \par \par \tab // Dur\'e9e \par \tab If VIDEOTAP.duree = "" Then \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieDurationValue" , "---" ) \par \tab Else \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieDurationValue" , VIDEOTAP.duree) \par \tab End \par \par \tab // Ann\'e9e \par \tab If VIDEOTAP.annee_real = "" Then \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieYearValue" , "----" ) \par \tab Else \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieYearValue" , VIDEOTAP.annee_real) \par \tab End \par \par \tab // Nom du support \par \tab If VIDEOTAP.label = "" Then \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieLabelValue" , "----" ) \par \tab Else \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieLabelValue" , VIDEOTAP.label) \par \tab End \par \par \tab // Cote d'amour \par \tab If VIDEOTAP.cote_amour = -1 Then \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieLoveValue" , "---" ) \par \tab Else \par \tab \tab If VIDEOTAP.cote_amour = 0 Then \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieLoveValue" , "") \par \tab \tab End \par \tab \tab If VIDEOTAP.cote_amour = 1 Then \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieLoveValue" , "") \par \tab \tab End \par \tab \tab If VIDEOTAP.cote_amour = 2 Then \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieLoveValue" , "") \par \tab \tab End \par \tab \tab If VIDEOTAP.cote_amour = 3 Then \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieLoveValue" , "") \par \tab \tab End \par \tab \tab If VIDEOTAP.cote_amour = 4 Then \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieLoveValue" , "") \par \tab \tab End \par \tab \tab If VIDEOTAP.cote_amour = 5 Then \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieLoveValue" , "") \par \tab \tab End \par \tab End \par \par \tab // Icone 'Public' \par \tab If VIDEOTAP.interdit= 0 Then \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MoviePublicValue" , "" ) \par \tab Else \par \tab \tab If VIDEOTAP.interdit = 1 Then \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "MoviePublicValue" , "") \par \tab \tab End \par \tab \tab If VIDEOTAP.interdit = 2 Then \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "MoviePublicValue" , "") \par \tab \tab End \par \tab \tab If VIDEOTAP.interdit = 3 Then \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "MoviePublicValue" , "") \par \tab \tab End \par \tab \tab If VIDEOTAP.interdit = 4 Then \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "MoviePublicValue" , "") \par \tab \tab End \par \tab \tab If VIDEOTAP.interdit = 5 Then \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "MoviePublicValue" , "") \par \tab \tab End \par \tab End \par \par \par \par \tab // Support - DVD, DivX, K7 ... \par \tab If (VIDEOTAP.TYPE = "DivX") AND (MaskDivx = 1) Then \par \tab \tab VIDEOTAP.TYPE = "DVD" \par \tab End \par \tab HtmHDD = StringReplace (HtmHDD , "MovieTypeValue" , VIDEOTAP.TYPE) \par \par \tab }{\fs2\insrsid5463481\charrsid5463481 // Date d'acquisition (date d'ajout de la fiche dans MVS) \par \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 If VIDEOTAP.date_acquis = "" Then \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieDateValue" , "--") \par \tab Else \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieDateValue" , DateVersChaine(VIDEOTAP.date_acquis)) \par \tab }{\fs2\insrsid5463481\charrsid5463481 End \par \par \tab //Nombre de fois vu \par \tab If VIDEOTAP.NB_FOIS_VU = 0 Then \par \tab \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 HtmHDD = StringReplace (HtmHDD , "MovieNbSeeValue" , "--") \par \tab Else \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieNbSeeValue" , VIDEOTAP.NB_FOIS_VU) \par \tab }{\fs2\insrsid5463481\charrsid5463481 End \par \par \tab // Date du dernier visionnage \par \tab If VIDEOTAP.NB_FOIS_VU = 0 Then \par \tab \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 HtmHDD = StringReplace (HtmHDD , "MovieSeeValue" , "--") \par \tab Else \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieSeeValue" , DateVersChaine(VIDEOTAP.date_vu_avoir)) \par \tab }{\fs2\insrsid5463481\charrsid5463481 End \par \par \tab // J'ai ou j'ai pas \par \tab If VIDEOTAP.jai = 0 Then \par \tab \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 HtmHDD = StringReplace (HtmHDD , "MovieJaiValue" , "") \par \tab End \par \tab If VIDEOTAP.jai = 1 Then \par \tab \tab Switch Language \par \tab \tab Case 3 // Anglais \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieJaiValue" , "Yes") \par \tab \tab Case 5 // Francais \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieJaiValue" , "Oui") \par \tab \tab End \par \tab End \par \tab If VIDEOTAP.jai = 2 Then \par \tab \tab Switch Language \par \tab \tab Case 3 // Anglais \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieJaiValue" , "Not Yet") \par \tab \tab Case 5 // Francais \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieJaiValue" , "Pas Encore") \par \tab \tab End \par \tab End \par \tab If VIDEOTAP.jai = 3 Then \par \tab \tab Switch Language \par \tab \tab Case 3 // Anglais \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieJaiValue" , "No") \par \tab \tab Case 5 // Francais \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieJaiValue" , "Non") \par \tab \tab End \par \tab End \par \par \tab // RANGEMENT \par \tab HtmHDD = StringReplace (HtmHDD , "MovieMeubleValue" , VIDEOTAP.MEUBLE) \par \tab HtmHDD = StringReplace (HtmHDD , "MovieEtagereValue" , VIDEOTAP.ETAGERE) \par \tab HtmHDD = StringReplace (HtmHDD , "MovieNiveauValue" , VIDEOTAP.NIVEAU) \par \par \tab }{\fs2\insrsid5463481\charrsid5463481 // Lien de la jaquette \par \tab //On fait la copie du repertoire affiches pour ne pas modIfier MVS - copie d'1 image a chaque passage pour ne pas ralentir le script ici d'un seul coup \par \tab fCopieFichier (}{\fs2\highlight8\insrsid5463481\charrsid5463481 VIDEOTAP.repert + "/" + VIDEOTAP.IMAGE}{\fs2\insrsid5463481\charrsid5463481 , fRep_Initial + "SiteInternet\\Affiches\\" }{\fs2\highlight8\insrsid5463481\charrsid5463481 + VIDEOTAP.IMAGE }{\fs2\insrsid5463481\charrsid5463481 ) \par \tab // tout d'abord, il faut renommer les images sans accent car Internet n'aime pas ca ;-) \par \tab fRenomme (fRep_Initial + "SiteInternet\\Affiches\\"}{\fs2\highlight8\insrsid5463481\charrsid5463481 + VIDEOTAP.IMAGE , }{\fs2\insrsid5463481\charrsid5463481 fRep_Initial + "SiteInternet\\Affiches\\"}{\fs2\highlight8\insrsid5463481\charrsid5463481 + VIDEOTAP.titre + ".jpg")}{\fs2\insrsid5463481\charrsid5463481 \par \tab // Puis lien de la jaquette \par \tab HtmHDD = StringReplace (HtmHDD , "}{\fs2\highlight8\insrsid5463481\charrsid5463481 jaquette.jpg" , "}{\fs2\insrsid5463481\charrsid5463481 ../../Affiches}{\fs2\highlight8\insrsid5463481\charrsid5463481 /" + VIDEOTAP.titre + ".jpg") \par }{\fs2\insrsid5463481\charrsid5463481 \par \tab // Lien Video http ou sur HDD \par \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 If (StringLeft(VIDEOTAP.nom_video, 7) = "http://") OR (StringLeft(VIDEOTAP.nom_video, 3) = First_fRep) Then \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieTrailerValue" , VIDEOTAP.nom_video) \par \tab Else \par \tab \tab // Lien Video manquant ? \par \tab \tab If VIDEOTAP.nom_video = "" Then \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieTrailerValue" , "") \par \tab \tab Else \par \tab \tab \tab VIDEOTAP.nom_video = StringReplace(VIDEOTAP.nom_video , "\\" , "/") \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieTrailerValue" , }{\fs2\lang2057\langfe1036\highlight8\langnp2057\insrsid5463481\charrsid5463481 "}{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 ../." + VIDEOTAP.nom_video) \tab // Lien HDD \par \tab \tab End\tab \par \tab End \par \par \par \tab //Note Perso\line \tab HtmHDD = StringReplace (HtmHDD , "MovieNotePersoValue" , VIDEOTAP.TEXTE_LIBRE) \par \par \tab }{\fs2\insrsid5463481\charrsid5463481 // Page extraite depuis ce site internet \par \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 If VIDEOTAP.Movie_URL_Value = "" Then \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieLinkExtractValue" , "") \par \tab Else \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieLinkExtractValue" , VIDEOTAP.Movie_URL_Value) \par \tab }{\fs2\insrsid5463481\charrsid5463481 End \par \par \par \tab // Version francaise ou VO, v_muette ??? \par \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 If VIDEOTAP.vo = 0 Then \par \tab \tab VersionFR = "--" \par \tab End \par \tab If VIDEOTAP.vo = 2 Then \par \tab \tab VersionFR = "VF" \par \tab End \par \tab If VIDEOTAP.vo = 3 Then \par \tab \tab VersionFR = "Version muette" \par \tab End \par \tab If VIDEOTAP.vo = 4 Then \par \tab \tab VersionFR = "Version multilingues" \par \tab End \par \tab If VIDEOTAP.vo = 5 Then \par \tab \tab VersionFR = "VOST" \par \tab End \par \tab HtmHDD = StringReplace (HtmHDD , "MovieVFValue" , VersionFR) \par \par \tab // Code barres \par \tab If (VIDEOTAP.CODE_BARRE = 0) OR (VIDEOTAP.CODE_BARRE = "") Then \par \tab \tab HtmHDD = StringReplace (HtmHDD, "MovieCBValue" , "(None)") \par \tab Else \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieCBValue" , VIDEOTAP.CODE_BARRE) \par \tab }{\fs2\insrsid5463481\charrsid5463481 End \par \par \tab //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// \par \tab // Parties exterieures au fichier VIDEOTAP --- Donc besoin de liaison entre fichier ! On doit rechercher le numero de ligne correspondant . // \par \tab //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// \par \par \tab // Genre \par \tab HReadSeek (CATEG, "CACLEUNIK", VIDEOTAP.CACLEUNIK) \par \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 If VIDEOTAP.CACLEUNIK = "-1" Then \par \tab \tab CATEG.CATEGORIE = "---" \par \tab End \par \tab HtmHDD = StringReplace (HtmHDD , "MovieFamilyValue" , CATEG.CATEGORIE) \par \tab \par \tab // Pays \par \tab HReadSeek (PAYS, "P0CLEUNIK" , VIDEOTAP.p0cleunik) \par \tab If VIDEOTAP.p0cleunik = "-1" Then \par \tab \tab VIDEOTAP.p0cleunik = "---" \par \tab End \par \tab HtmHDD = StringReplace (HtmHDD , "MovieCountryValue" , PAYS.PAYS) \par \par \tab // R\'e9sum\'e9 \par \tab HReadSeek (NOTEFILM,"VICLEUNIK",VIDEOTAP.VICLEUNIK) \line \tab If HTrouve() Then \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieSummaryValue" , NOTEFILM.NOTEFILM) \par \tab Else \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieSummaryValue" , "...") \par \tab }{\fs2\insrsid5463481\charrsid5463481 End \par \par \tab // Personnalit\'e9s \par \tab // ACTEURS \par \tab ListActHTTP = Liste_Acteurs (VIDEOTAP.vicleunik , "VIDEO" , "ACTEUR") \par //\tab ListActHTTP = replace (ListActHTTP , RC , "

") // Je garge cette ligne sous le coude pour gerer les acteurs 'clickable sur Allocine \par \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 ListActHTTP = replace (ListActHTTP , RC , " ; " + Charact(13) + Charact(10) ) \par \tab HtmHDD = StringReplace (HtmHDD , "Acteur[i]" , ListActHTTP) \par \par \tab }{\fs2\insrsid5463481\charrsid5463481 //REALISATEURS \par \tab Realisateur = Liste_Acteurs (VIDEOTAP.vicleunik , "VIDEO" , "REALISATEUR") \par \tab Realisateur = replace (Realisateur , RC , " ; ") \par \tab HtmHDD = StringReplace (HtmHDD , "RealValue" , Realisateur) \par \par \tab //SCENARISTE \par \tab Scenariste = Liste_Acteurs (VIDEOTAP.vicleunik , "VIDEO" , "SCENARISTE ") \par \tab Scenariste = replace (Scenariste, RC , " ; ") \par \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 HtmHDD = StringReplace (HtmHDD , "ScenaValue" , Scenariste) \par \par \tab }{\fs2\insrsid5463481\charrsid5463481 //COMPOSITEUR \par \tab Compositeur = Liste_Acteurs (VIDEOTAP.vicleunik , "VIDEO" , "COMPOSITEUR") \par \tab Compositeur = replace (Compositeur, RC , " ; ") \par \tab HtmHDD = StringReplace (HtmHDD , "CompoValue" , Compositeur) \par \par \par \tab // INFOs DIVERSES - DVD -K7 FORMAT... \par \tab \par \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 // DVD \par \tab If (VIDEOTAP.TYPE = "DVD") Then \par \tab \tab HReadSeek (TYPE_EDIT, "TECLEUNIK" , VIDEOTAP.TECLEUNIK) \par \tab \tab If VIDEOTAP.TECLEUNIK = -1 Then \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "DVDTypeEditValue" , "----") \par \tab \tab Else \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "DVDTypeEditValue" , TYPE_EDIT.TYPE_EDITION) \par \tab \tab End \par \tab \tab HReadSeek (ZONE_DVD, "ZOCLEUNIK" , VIDEOTAP.zocleunik) \par \tab \tab If VIDEOTAP.zocleunik = -1 Then \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "DVDZoneValue" , "----") \par \tab \tab Else \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "DVDZoneValue" , ZONE_DVD.ZONE_DVD) \par \tab \tab End \par \tab \tab HReadSeek (FORMAT_D, "F1CLEUNIK" , VIDEOTAP.f1cleunik) \par \tab \tab If VIDEOTAP.f1cleunik = -1 Then \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "DVDRAMValue" , "----")\tab \par \par \tab \tab Else \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "DVDRAMValue" , FORMAT_D.FORMAT_DVD)\tab \par \tab \tab End \par \tab Else \par \tab \tab HtmHDD = StringReplace (HtmHDD , "DVDTypeEditValue" , "----") \par \tab \tab HtmHDD = StringReplace (HtmHDD , "DVDZoneValue" , "----") \par \tab \tab HtmHDD = StringReplace (HtmHDD , "DVDRAMValue" ,"----")\tab \tab \par \tab End \par \par \par \tab // FORMAT K7 \par \tab If (VIDEOTAP.TYPE = "K7 Vid\'e9o") Then \par \tab \tab HReadSeek (FORMATK7, "F0CLEUNIK" , VIDEOTAP.F0CLEUNIK) \par \tab \tab If VIDEOTAP.F0CLEUNIK = -1 Then \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "K7FormatValue" , "----") \par \tab \tab Else \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "K7FormatValue" , FORMATK7.FORMATK7) \par \tab \tab End \par \tab \tab HReadSeek (DUREEK7, "DUCLEUNIK" , VIDEOTAP.ducleunik) \par \tab \tab If VIDEOTAP.ducleunik = -1 Then \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "K7DureeValue" , "----" ) \par \tab \tab Else \par \tab \tab \tab HtmHDD = StringReplace (HtmHDD , "K7DureeValue" , DUREEK7.DUREEK7) \par \tab \tab End \par \tab Else \par \tab \tab HtmHDD = StringReplace (HtmHDD , "K7FormatValue" , "----") \par \tab \tab }{\fs2\insrsid5463481\charrsid5463481 HtmHDD = StringReplace (HtmHDD , "K7DureeValue" , "----") \par \par \tab End \par \par \par \tab // Format image et video et type de son \par \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 HReadSeek (F_IMAGE, "FICLEUNIK" , VIDEOTAP.ficleunik) \par \tab HtmHDD = StringReplace (HtmHDD , "ImageFormatValue" , F_IMAGE.FORMAT_IMAGE) \par \par \tab HReadSeek (F_VIDEO, "FVCLEUNIK" , VIDEOTAP.fvcleunik) \par \tab HtmHDD = StringReplace (HtmHDD , "VideoFormatValue" , F_VIDEO.format_video) \par \tab \par \tab HReadSeek (SO, "SOCLEUNIK" , VIDEOTAP.socleunik) \par \tab HtmHDD = StringReplace (HtmHDD , "SonFormatValue" , SO.SON) \par \par \par \tab }{\fs2\insrsid5463481\charrsid5463481 // Galerie Multimedia \par \par \tab FICHIER ="VIDEOTAP" \par \tab TYPE_MEDIA="PHOTO" \par \tab ListImgHTTP = "" \par \tab HCr\'e9eVue(Vue_GALERIE,GALERIE,"","NOM_FICHIER","TYPE_MAITRE]'"+FICHIER+"' et TYPE_MULTIMEDIA]'"+TYPE_MEDIA+"' et CLE_MAITRE="+VIDEOTAP.VICLEUNIK) \par \tab HLitPremier(Vue_GALERIE) \par \tab NbImg = 1 \par \tab TANTQUE PAS HEnDehors() \par \tab \tab fCopieFichier (}{\fs2\highlight8\insrsid5463481\charrsid5463481 Vue_Galerie.Nom_FICHIER}{\fs2\insrsid5463481\charrsid5463481 , fRep_Initial + "SiteInternet\\Affiches\\" + First_Letter + "\\" + VIDEOTAP.titre + "\\ " + VIDEOTAP.titre + "_" + NbImg + ".jpg" ) \par \tab \tab ListImgHTTP = ListImgHTTP +"

" + VIDEOTAP.titre + "_" + NbImg + "

"+ RC \par \tab \tab NbImg ++ \par \tab HLitSuivant(Vue_GALERIE) \par \tab FIN \par \tab HtmHDD = StringReplace (HtmHDD , "MovieGaleryValue" , ListImgHTTP) \par //\tab Info(Vue_GALERIE.Nom_FICHIER) \par \tab HD\'e9truitVue(Vue_GALERIE) \par \par \tab // Lien Site Officiel \par \tab TYPE_MEDIA = "INTERNET" \par \tab CONTENU_SiteOf = "" \par \tab HCr\'e9eVue(Vue_GALERIE,GALERIE,"","NOM_FICHIER","TYPE_MAITRE]'"+FICHIER+"' et TYPE_MULTIMEDIA]'"+TYPE_MEDIA+"' et CLE_MAITRE="+VIDEOTAP.VICLEUNIK) \par \tab HLitPremier(Vue_GALERIE) \par \tab TANTQUE PAS HEnDehors() \par \tab \tab CONTENU_SiteOf = CONTENU_SiteOf + Vue_GALERIE.NOM_FICHIER + RC \par \tab \tab HLitSuivant(Vue_GALERIE) \par \tab FIN \par \tab If CONTENU_SiteOf = "" Then \par \tab \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 HtmHDD = StringReplace (HtmHDD , "MovieSiteOfValue" , "") \par \tab Else \par \tab \tab HtmHDD = StringReplace (HtmHDD , "MovieSiteOfValue" , CONTENU_SiteOf) \par \tab }{\fs2\insrsid5463481\charrsid5463481 End \par \tab HD\'e9truitVue(Vue_GALERIE) \par \par \par \tab /////////////////////////////////////////////////////////////// \par \tab // CREATION DE LA PAGE DE RECHERCHE // \par \tab /////////////////////////////////////////////////////////////// \par \par \tab // creation de la base de donn\'e9es javascript \par \tab // tjs_base.Add("lien : video.html","titre du film","--- mots de recherche : le titre avec les espaces remplac\'e9s par des virgules, genre"); \par \tab // tjs_base.Add("Z/ZOOLANDER.html","ZOOLANDER","ZOOLANDER,COMEDIE,=-1,COMEDIE =-1"); \par \tab TitreFilmBase = titreVIDEO \par \tab TitreFilmBase = StringReplace (TitreFilmBase , "'" , ",") \par \tab TitreFilmBase = StringReplace (TitreFilmBase , """" , "") \par \tab TitreFilmBase = StringReplace (TitreFilmBase , " " , ",") \par \tab TitreFilmBase = StringReplace (TitreFilmBase , "-" , ",") \par \tab TitreFilmBase = StringReplace (TitreFilmBase , "_" , ",") \par \tab TitreFilmBase = StringReplace (TitreFilmBase , "/" , ",") \par \tab TitreFilmBase = StringReplace (TitreFilmBase , "\\" , ",") \par \tab TitreFilmBase = StringReplace (TitreFilmBase , "*" , ",") \par \tab TitreFilmBase = StringReplace (TitreFilmBase , "%" , ",") \par \tab TitreFilmBase = StringReplace (TitreFilmBase , "\'a3" , "") \par \tab TitreFilmBase = StringReplace (TitreFilmBase , "$" , "") \par \tab TitreFilmBase = StringReplace (TitreFilmBase , "!" , "") \par \tab GenreMajSsAccent = FormatString (CATEG.CATEGORIE , "UC") \par \tab GenreMajSsAccent = FormatString (GenreMajSsAccent , "WOA") \par \tab UnFilmDsBase = "tjs_base.Add(""" + First_Letter + "/" + VIDEOTAP.titre + ".html" + """,""" + VIDEOTAP.titre + """,""" + TitreFilmBase + "," + GenreMajSsAccent + "," + "=" + VIDEOTAP.cote_amour + "," + GenreMajSsAccent + " =" + VIDEOTAP.cote_amour + """);" \par \tab // S'il y a des genres, ou pays qui ont un retour chariot, la personne ne le voit pas et ca plante la BDD de recherche... je corrige 2 retours chariots maximum \par \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 UnFilmDsBase = StringReplace (UnFilmDsBase , Charact(13) + Charact(10) , "") \par \tab UnFilmDsBase = StringReplace (UnFilmDsBase , Charact(13) , "") \par \tab UnFilmDsBase = StringReplace (UnFilmDsBase , Charact(10) , "") \par \tab If V_Complete = 1Then \par \tab \tab MovieBDDValue = MovieBDDValue + UnFilmDsBase + CR \par \par \tab \tab HtmBDD = fChargeTexte(fRep_Initial + "SiteInternet\\Pages\\_search.htm") \par \par \tab \tab Switch Language \par \tab \tab Case 3 // Anglais \par \tab \tab \tab MovieNbEnr = NbEnr + " movies in the database." \par \tab \tab \tab MovieSearchInfo = "Type a Word or family or Lovemark, and click 'Go' when ready.
"+... \par \tab \tab \tab \tab \tab "Use the list to paste a family.
" + ... \par \tab \tab \tab \tab \tab "To search by Lovemark, type '=0' , '=1', '=2', '=3', '=4', or '=5' ." \par \tab \tab \tab \tab \tab "You can associate family and lovemark : example : 'ACTION =4' ..." \par \tab \tab }{\fs2\insrsid5463481\charrsid5463481 Case 5 // Francais \par \tab \tab \tab MovieNbEnr = "Il y a " + NbEnr + " films dans la videotheque." \par \tab \tab \tab MovieSearchInfo = "Entrez un mot dans le champ de recherche : Morceau du titre ou genre ou cote d'amour. Puis appuyez sur le bouton ""Go"".
" + ... \par \tab \tab \tab \tab \tab "Si vous voulez effectuer une recherche sur un genre, alors vous avez la liste ci-dessous, recopiez ensuite le genre dans le champ de recherche.
" + ... \par \tab \tab \tab \tab \tab "Si vous voulez effectuer une recherche sur une cote d'amour, saisissez '=0' pour le pistolet, '=1' pour une \'e9toile, '=2' , '=3, '=4' ou '=5' pour 5 \'e9toiles ." + ... \par \tab \tab \tab \tab \tab "Vous pouvez combiner le genre et la Note: exemple : 'ACTION =4' ..." \par \tab \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 End \par \tab \tab HtmBDD = StringReplace (HtmBDD , "MovieNbEnr" , MovieNbEnr) \par \tab \tab HtmBDD = StringReplace (HtmBDD , "MovieSearchInfo" , MovieSearchInfo) \par \par \tab }{\fs2\insrsid5463481\charrsid5463481 Else // V_Complete = 0 \par \tab \tab // MISE A JOUR DE LA BASE DE DONNEES SEARCH.HTML \par \tab \tab HtmMajBDD = fChargeTexte(fRep_Initial + "SiteInternet\\Pages\\_search.html") \par \tab \tab HtmMajBDD = StringReplace (HtmMajBDD , "tjs_base.Add(page,titre,mots-cl\'e9s)" , "tjs_base.Add(page,titre,mots-cl\'e9s)" + CR + UnFilmDsBase) \par \tab \tab NbSearchF is String = BetweenStrings (HtmMajBDD , "Il y a " , " films dans la videotheque.") \par \tab \tab HtmMajBDD = StringReplace (HtmMajBDD , "Il y a" + NbSearchF + " films dans la videotheque." , "Il y a " + NbEnr + " films dans la videotheque.") \par \tab End \par \par \tab /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// \par \tab // Sauvegarde la page HTML depuis HtmHDD une fois le traitement d'une page termin\'e9 // \par \tab /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// \par \par \tab fSauveTexte(fRep_Initial + "SiteInternet\\Pages\\" + First_Letter + "\\" + VIDEOTAP.titre + ".html" , HtmHDD) \par \par \par \tab ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// \par \tab // Creation des chaines contenant les liens pour les pages recapitulatives 0a9 , A , B, ... , Z // \par \tab ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// \par \par \tab LienUnePage = "

" + TitreVIDEO + "

" \par RetourChaine : \par \tab LettreEnCours = StringMiddle (ChaineLettre , LettreDebut , 1) \par \par If ( First_Letter = LettreEnCours ) Then \par \tab \tab ListeLiens = ListeLiens + CR + LienUnePage \par \tab \tab ListeTypes = ListeTypes + "

" + CATEG.CATEGORIE \par \tab Else \par \tab \tab // On ne genere les pages que quand la liste est fini d'etre remplie ! \par \tab \tab \par \tab \tab ///////////////////////////////////////////////// \par \tab \tab // CREATION DES PAGES RECAP // \par \tab \tab /////////////////////////////////////////////////\tab \par \tab \tab RetourZ : \par \tab \tab HtmPageLettreVide = fChargeTexte(fRep_Initial + "SiteInternet\\Pages\\_PageLettre.html") \par \tab \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 HtmPageLettreVide = StringReplace (HtmPageLettreVide , "ThemeChoixValue" , ThemeChoix) \par \par \tab \tab If (ListeLiens = "") AND (V_Complete = 1) Then \par \tab \tab \tab }{\fs2\insrsid5463481\charrsid5463481 HtmPageLettre = StringReplace (HtmPageLettreVide , "ListeLiensValue" , PasPageRecap) \par \tab \tab \tab HtmPageLettre = StringReplace (HtmPageLettre , "ListeTypesValue" , "") \par \tab \tab \tab fSauveTexte(fRep_Initial + "SiteInternet\\Pages\\" + LettreEnCours + ".html" , HtmPageLettre) \par \tab \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 Else \par \tab \tab \tab If (ListeLiens <> "") AND (V_Complete = 1) Then \par \tab \tab \tab \tab }{\fs2\insrsid5463481\charrsid5463481 HtmPageLettre = StringReplace (HtmPageLettreVide , "ListeLiensValue" , ListeLiens) \par \tab \tab \tab \tab HtmPageLettre = StringReplace (HtmPageLettre , "ListeTypesValue" , ListeTypes) \par \tab \tab \tab \tab fSauveTexte(fRep_Initial + "SiteInternet\\Pages\\" + LettreEncours + ".html" , HtmPageLettre) \par \tab \tab \tab End \par \par \tab \tab \tab // GESTION DE LA MISE A JOUR DE LA PAGE RECAP \par \tab \tab \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 If (ListeLiens = "") AND (V_Complete = 0) Then \par \tab \tab \tab \tab }{\fs2\insrsid5463481\charrsid5463481 HtmMajFiche = fChargeTexte(fRep_Initial + "SiteInternet\\Pages\\" + First_Letter + ".html") \par \tab \tab \tab \tab // On recherche si le titre n'est pas deja dans la liste ! Si oui, on saute l'etape de mise a jour de la page recap. \par \tab \tab \tab \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 PresenceFilm = StringCounter (HtmMajFiche , VIDEOTAP.titre) \par \tab \tab \tab \tab If PresenceFilm <> 0 Then \par \tab \tab \tab \tab \tab Goto FinMajFiche \par \tab \tab \tab \tab Else \par \tab \tab \tab \tab \tab }{\fs2\insrsid5463481\charrsid5463481 // Mise a jour de la page recap pour ajouter la nouvelle fiche* --- Attention quand la page est vide ! Remplacer "pas de film commencant par..." \par \tab \tab \tab \tab \tab NouveauLien = """" + First_Letter + "/" + VIDEOTAP.titre + ".html" + """>" + TitreVIDEO //de ce genre la : "0A9/100 GIRLS.html">100 GIRLS \par \tab \tab \tab \tab \tab }{\fs2\lang2057\langfe1036\langnp2057\insrsid5463481\charrsid5463481 LienPresent = "

") \par \tab \tab \tab \tab \tab // Recherche du dernier genre \par \tab \tab \tab \tab \tab GenrePresent = "

" \par \tab \tab \tab \tab \tab NbMajGenre = StringCounter (DernierHtmLien , GenrePresent) \par \tab \tab \tab \tab \tab For MajGenre = 2 to NbMajGenre+1 \par \tab \tab \tab \tab \tab \tab DernierGenre = GenrePresent + StringExtraction (DernierHtmLien , MajGenre , GenrePresent) \par \tab \tab \tab \tab \tab \tab DernierGenre = BetweenStrings (DernierGenre , "

" , "<") \par \tab \tab \tab \tab \tab \tab ListeGenre = ListeGenre + "

" + DernierGenre \par \tab \tab \tab \tab \tab End \par \tab \tab \tab \tab \tab If NbLiens = 0 Then \par \tab \tab \tab \tab \tab \tab // On remplace "pas de film commencant par.." \par \tab \tab \tab \tab \tab \tab HtmMajFiche = StringReplace (HtmMajFiche , "La vid\'e9oth\'e8que ne contient aucun film sur cette page", "

" + CATEG.CATEGORIE ) \par \tab \tab \tab \tab \tab \tab fSauveTexte(fRep_Initial + "SiteInternet\\Pages\\" + First_Letter + ".html" , HtmMajFiche) \par \tab \tab \tab \tab \tab End \par \tab \tab \tab \tab End \par \tab \tab \tab \tab FinMajFiche : \par \tab \tab \tab End \par \tab \tab End \par \par \tab \par \tab \tab //incremente LettreEnCours, puis on reboucle sur la lettre d'apres ! Ensuite, on va a FinBoucle si la page Z.html a ete cr\'e9\'e9e \par \tab \tab LettreDebut ++ \par \tab \tab ListeLiens = "" \par \tab \tab ListeTypes = "" \par \tab \tab If FinRecap = 1 Then \par \tab \tab \tab Goto Finboucle \par \tab \tab Else \par \tab \tab \tab Goto RetourChaine \par \tab \tab End \par \par \tab End \par \par \tab //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// \par \tab // PENSER A SUPPRIMER LE DL OU LE RENOMMER UN FOIS TERMINE POUR LES FUTURS TELECHARGEMENTS // \par \tab //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// \par \tab fSupprime (fRep_Initial + "\\SiteInternet\\THEMES\\DL\\theme.zip") \par \par \tab // Accelere l'execution du script en mode test ! \par \tab //If first_letter = "B" Then \par \tab //Goto finscript \par \tab //End \par \par \tab If V_Complete = 0 Then \par \tab \tab Goto FinBoucle \par \tab End \par \par HLitSuivant(VIDEOTAP) \line End \par // A ce stade, Z.html n'est pas cr\'e9\'e9e, on retourne a RetourZ pour la creer \par FinRecap is Int = 1 \par Goto RetourZ \par \par // On saute la boucle "film apres film" pour ne faire que la mise ajour \par FinBoucle: \par \par // Par securit\'e9, je remets le repertoire fRepEncours = fRepExe \par fRepEncours (fRepExe() ) \par \par \par // Liste des genres dans la page de recherches \par HLitPremier(CATEG, "CATEGORIE") \line TANTQUE PAS HEnDehors(CATEG) \par CATEG.CATEGORIE = FormatString (CATEG.CATEGORIE, "UC") \par CATEG.CATEGORIE = FormatString (CATEG.CATEGORIE, "WOA") \par CATEG.CATEGORIE = RemoveHTMLTags (CATEG.CATEGORIE) \par MovieListeGenreValue = MovieListeGenreValue + "" + CR \par HLitSuivant(CATEG) \line End \par HtmBDD = StringReplace (HtmBDD , "MovieListeGenreValue" , MovieListeGenreValue) \par \par // Sauvegarde de la base de donn\'e9es dans la page de recherches \par If V_Complete = 1 Then \par \tab HtmBDD = StringReplace (HtmBDD , "MovieBDDValue" , MovieBDDValue) \par \tab fSauveTexte(fRep_Initial + "SiteInternet\\Pages\\_search.html" , HtmBDD ) \par Else \par \tab fSauveTexte(fRep_Initial + "SiteInternet\\Pages\\_search.html" , HtmMajBDD ) \par End \par \par // Ce ShellExecute ouvre la page HTML INDEX \par //If V_Complete = 1 Then \par //\tab Info ("Le script vient de g\'e9n\'e9rer votre site internet compos\'e9 de vos " + NbEnr + " films.") \par //Else \par //\tab Info("La fiche a \'e9t\'e9 ajout\'e9.\~") \par //End \par ShellExecute (fRep_Initial + "\\SiteInternet\\index.html" ) \par \line Finscript: \par }}