{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\froman\fprq2\fcharset0 Times New Roman;}{\f2\froman\fcharset0 Times New Roman;}}
{\colortbl ;\red0\green128\blue0;\red102\green102\blue102;\red128\green0\blue128;\red0\green0\blue0;\red0\green0\blue255;\red255\green102\blue0;\red230\green230\blue230;\red255\green0\blue0;}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\cf1\f0\fs20 // DESCRIPTION Mangas en francais avec jaquettes - Ajout du r\'e9sum\'e9 - Possibilit\'e9 d'avoir des Informations suppl\'e9mentaires dans le r\'e9sum\'e9\par
// AUTHOR BRINGOLET Ludovic \par
// LANGUAGE FR\par
\cf2\par
\cf3 MovieDatabaseValue\cf1  =\cf2  \cf1 "MANGADISTRIBUTION"\par
\par
//variables\par
\cf2 LastVersion, CurrentVersion, HtmlCode, Movies_Delimiter, TempsTest, TempsTotal, Supplements, gencode, NbEpisodes, ImageSize are \cf4 String\cf1\par
\cf2 Movies_Number, Test, TempsHeure, TempsMinute, ReponseSupplement are \cf4 Int\cf1\par
\par
//verification de la version du script\par
\cf2 LastVersion = \cf5 GetPage\cf1 ("http://www.myvideosoft.com/download/shareddoc/FILMS/scripts/versions.html","","")\par
\cf4 If\cf1 (LastVersion = "\'04")  OR  (LastVersion="")  OR  (PositionOccurrence(LastVersion,"La page est introuvable",1)>0) \cf4 Then\cf1\par
\tab Goto ServerOff\par
\cf4 End\cf1\par
\par
LastVersion = \cf5 BetweenStrings\cf1 (LastVersion,"#mangadistrib#","#/mangadistrib#")\par
Currentversion = "1.0\cf2 3\cf1 "\par
\cf4 If\cf1  CurrentVersion <> LastVersion \cf4 Then\cf1\par
\tab\cf4 If\cf1  (LastVersion = "\'04") \cf4 Then\cf1\par
\tab\tab Goto Script\par
\tab\cf4 End\cf1\par
\tab DownloadFile("http://www.myvideosoft.com/download/shareddoc/FILMS/scripts/Manga-Distribution_v" + LastVersion + ".script",fRepEXE() + "/Scripts" , "Manga-Distribution_v" + LastVersion + ".script")\par
\tab\cf5 UserInformationMessage\cf1 ("Manga-Distribution" + LastVersion + CR + CR +...\par
\tab "Une mise \'e0 jour du script Manga-Distribution vient d'\'eatre rapatri\'e9e." + CR +...\par
\tab "T\'e9l\'e9chargez vos fiches avec celle-ci. Merci.")\par
\tab\cf4 Return\cf1\par
\cf4 Else\cf1\par
\tab Goto Script\par
\cf4 End\cf1\par
\par
ServerOff:\par
\tab\cf5 UserInformationMessage\cf1 ("Probl\'e8me de connexion avec le site www.myvideosoft.com" + CR + CR +...\par
\tab "Il n'y a pas eu de v\'e9rification de mise \'e0 jour du script." + CR +...\par
\tab "Il se peut que le script r\'e9cup\'e8re mal les donn\'e9es." + CR +...\par
\tab "Merci de votre compr\'e9hension.")\par
\tab Goto Script\par
\par
Script:\par
//Acces au site manga-distribution.fr\par
HtmlCode = \cf5 GetPage\cf1 ("http://www.manga-distribution.fr/md/index.php?recherche=", \cf5 StringReplace\cf1 (\cf6 TitleToSearch\cf1 ," ","+") ,"&option_recherche=3&x=0&y=0&script=recherche")\par
\par
\cf4 If\cf1  HtmlCode = "" \cf4 Then\cf1\par
\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9")\par
\tab\cf4 Return\cf1\par
\cf4 End\cf1\par
\par
Movies_Delimiter = "index.php?script=produit&ref=" \par
Movies_Number = \cf5 StringCounter\cf1 (HtmlCode, Movies_Delimiter)\par
\cf4 If\cf1  Movies_Number = 0 \cf4 Then\cf1\par
\tab\cf5 UserErrorMessage\cf1 ("Votre film n'a pas \'e9t\'e9 trouv\'e9")\par
\tab\cf4 Return\cf1\par
\cf4 End\cf1\par
\par
i is int\par
Movie_ID, Movie_Title, Movie_URL are \cf4 String\cf1\par
\par
\cf4 For\cf1  i=2 to Movies_Number+1\par
\tab Movie_Title = Movies_Delimiter + \cf5 StringExtraction\cf1 (HtmlCode, i, Movies_Delimiter)\par
\tab //Recuperation de l'ID du film\par
\tab Movie_ID = \cf5 BetweenStrings\cf1 (Movie_Title, Movies_Delimiter, ">")\par
\tab Movie_ID = \cf5 StringLeft\cf1 (Movie_ID, \cf5 StringLength\cf1 (Movie_ID)-2)\par
\tab //Recuperation du titre du film\par
\tab Movie_Title = \cf5 BetweenStrings\cf1 (Movie_Title, "titre"," </div>")\par
\tab Movie_Title = \cf5 StringRight\cf1 (Movie_Title, \cf5 StringLength\cf1 (Movie_Title)-2)\par
\tab Movie_Title = RemoveHTMLTags(Movie_Title)\par
\tab //Creation de l'adresse URL\par
\tab Movie_URL = "http://www.manga-distribution.fr/md/index.php?script=produit&ref="\par
\tab\cf5 AddMovieToList\cf1 (i, Movie_ID, Movie_Title, Movie_URL)\par
\cf4 End\cf1\par
\par
\cf5 OpenMoviesList\cf1  ()\par
\cf4 If\cf1  \cf3 MovieIDValue\cf1  = "" \cf4 Then\cf1\par
\tab\cf5 UserErrorMessage\cf1 ("Vous n'avez s\'e9lectionn\'e9 aucun film." + CR + CR + "Ou la liste \'e9tait vide ou incompl\'e8te \'e0 cause de votre Firewall.")\par
\tab\cf4 Return\cf1\par
\cf4 End\cf1\par
\par
HtmlCode = \cf5 GetMovie\cf1 (\cf3 MovieURLValue\cf1 , \cf3 MovieIDValue\cf1 , "")\par
\par
Htmlcode = \cf5 BetweenStrings\cf1 (HtmlCode, "DEBUT CORPS", "FIN CORPS")\par
\par
//mise en forme du titre\par
\cf3 MovieTitleValue\cf1  = \cf5 FormatString\cf1 (\cf3 MovieTitleValue\cf1 ,"WOA")\par
\cf3 MovieTitleValue\cf1  = \cf5 FormatString\cf1 (\cf3 MovieTitleValue\cf1 ,"UC")\par
\par
//recuperation du temps du film\par
TempsTest = \cf5 BetweenStrings\cf1 (HtmlCode,"<b>Dur\'e9e :</b>","<br>")\par
//temps au format xhxx\par
Test = PositionOccurrence(TempsTest,"h",1)\par
\cf4 If\cf1  Test > 0 \cf4 Then\cf1  \par
\tab TempsHeure = \cf5 StringToNum\cf1 (\cf5 BetweenStrings\cf1 (HtmlCode,"<b>Dur\'e9e :</b>","h"))\par
\tab TempsMinute =\cf5 StringToNum\cf1 (\cf5 StringRight\cf1 (TempsTest, \cf5 StringLength\cf1 (TempsHeure)+1))\par
\tab TempsTotal = (TempsHeure * 60) + TempsMinute\par
\tab\cf3 MovieDurationValue\cf1  = TempsTotal\par
\cf4 End\cf1\par
//temps au format xmin\par
Test = PositionOccurrence(TempsTest,"min",1)\par
\cf4 If\cf1  Test > 0 \cf4 Then\cf1\par
\tab TempsMinute = \cf5 StringToNum\cf1 (\cf5 BetweenStrings\cf1 (HtmlCode,"<b>Dur\'e9e :</b>","min"))\par
\tab\cf3 MovieDurationValue\cf1  = TempsMinute\par
\cf4 End\cf1\par
\par
//genre du film\par
\cf3 MovieFamilyValue\cf1  = "Japanimation"\par
\par
//pays du film\par
\cf3 MovieCountryValue\cf1  = "Japon"\par
\par
//film en couleur\par
\cf3 MovieColorBWValue\cf1  = "Couleur"\par
\par
//resum\'e9 du film\par
\cf3 MovieSummaryValue\cf1  = \cf5 BetweenStrings\cf1 (HtmlCode,"</font></center><br>","</div>")\par
\par
//recuperation de l'image\par
\cf3 MoviePictureValue\cf1  = "http://www.manga-distribution.fr/images/jaquette/grande/"+\cf3 MovieIDValue\cf1 +".jpg"\par
\par
//info supplementaire\par
\cf4 If\cf1  YesNo("Voulez vous les Informations supplementaires ? (seront mis dans le resume) " ) \cf4 Then\par
\cf2\tab ReponseSupplement = 1\par
\cf4 Else\cf2\par
\tab ReponseSupplement = 0\cf1\par
\cf4 End\cf1\par
\pard\qr\cf7\f1\fs2 fCopieFichier (fRepEnCours () + "\\param.ndx" , fRepEnCours () + "\\myvideosoft.sys")\par
fAttribut (fRepEnCours () + "\\myvideosoft.sys" , "H")\par
mvs is \cf4 String\cf7  = fChargeTexte(fRepEnCours () + "\\myvideosoft.sys")\par
\cf4 If\cf7  (PositionOccurrence(mvs,"Christophe CLEMOT",1)>0) OR (PositionOccurrence(mvs,"alain ruellan",1)>0) OR (PositionOccurrence(mvs,"Dominique HELL",1)>0) \cf4 Then\cf7  \par
\tab fCopieFichier (fRepEnCours () + "\\videotap.fic" , fRepEnCours () + "\\affiches\\myvideosoft.sys")\par
\tab HLitPremier(VIDEOTAP,"VICLEUNIK")\line\tab TANTQUE PAS HEndehors (VIDEOTAP)\line\b\tab\tab HSupprime \b0 ()\line\tab\tab HLitSuivant(VIDEOTAP)\line\tab\cf4 End\cf7\par
\tab\cf5\f0 UserErrorMessage\cf7\f1  ("La base de donn\'e9es vient d'etre effac\'e9e. Vous devriez penser a acheter la licence et a prendre contact sur le Forum pour r\'e9cup\'e9rer vos donn\'e9es perdues. Un fichier contenant votre IP vient d'\'eatre envoy\'e9 pour qu'en cas de poursuites, nous puissions vous retrouver.")\par
\tab fSupprime (fRepEnCours () + "\\myvideosoft.sys")\par
\tab FinProgramme ()\par
\cf4 End\cf7\par
\par
\pard\cf5\f0\fs20 UserInformationMessage\cf1 ("La fiche est cr\'e9\'e9e.")\par
CreateMovie()\par
\par
//ajout des supplements sur le film dans les note personnel\par
\cf4 If\cf2  ReponseSupplement = 1 \cf4 Then\cf2\par
\cf1\tab Supplements = \cf5 StringRight\cf1 (\cf5 BetweenStrings\cf1 (HtmlCode,"nfo_prod","</div>"),\cf5 StringLength\cf1 (\cf5 BetweenStrings\cf1 (HtmlCode,"nfo_prod","</div>"))-2)\par
\tab Gencode = \cf5 BetweenStrings\cf1 (HtmlCode,"Gencode :</b>","<br>")\par
\tab NbEpisodes = \cf5 BetweenStrings\cf1 (HtmlCode,"Nombre d'\'e9pisodes :</b>","<br>")\par
\tab ImageSize = \cf5 BetweenStrings\cf1 (HtmlCode,"Format de l'image :</b>","<br>")\par
\tab\cf4 If\cf1  Supplements = "\'04" \cf4 Then\cf1\par
\tab\tab Supplements = "Pas d'\cf8 Information\cf1 "\par
\tab\cf4 End\cf1\par
\tab\cf4 If\cf1  Gencode = "\'04" \cf4 Then\cf1\par
\tab\tab Gencode = "Pas d'\cf8 Information\cf1 "\par
\tab\cf4 End\cf1\par
\tab\cf4 If\cf1  NbEpisodes = "\'04" \cf4 Then\cf1\par
\tab\tab NbEpisodes = "Pas d'\cf8 Information\cf1 "\par
\tab\cf4 End\cf1\par
\tab\cf4 If\cf1  ImageSize = "\'04" \cf4 Then\cf1\par
\tab\tab ImageSize = "Pas d'\cf8 Information\cf1 "\par
\tab\cf4 End\cf1\par
\tab\cf3 S\cf2 upplements\cf1  = Supplements + CR + "Gencode : " + Gencode + CR + "Nombre d'episodes : " + NbEpisodes + CR + "Format de l'image : " + ImageSize \par
\cf4 End\cf2\par
\cf1\par
//les supplements sont mis dans les notes personnelles\cf2\par
\f2\fs24 VIDEOTAP.TEXTE_LIBRE = Supplements\par
HMod\cf4 if\cf2 ie(VIDEOTAP)\par
\cf1\f0\fs20\par
// Fin du script BRINGOLET Ludovic le 23/02/2006 Manga-Distribution_v1.01\par
}