{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\fmodern\fcharset0 Courier New;}} {\colortbl ;\red0\green128\blue0;\red102\green102\blue102;\red128\green0\blue128;\red0\green0\blue255;\red0\green0\blue0;\red255\green102\blue0;\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\cf2\par \cf1 // AUTHOR JUIN J\'e9r\'f4me \par // LANGUAGE FR\cf3\par \cf2\par \cf3 MovieDatabaseValue\cf2 = "DVDANIME"\par \par \cf1 // MODE DEBUG: enlever le double slash pour verifier que votre adresse de recherche est correcte.\cf2\par \cf1 // ShellExecute("http://www.dvdanime.net/liste_dvd.php?mode=liste&recherche=" + TitleToSearch)\cf2\fs18\par \fs20\par \cf4\fs18 UserInformationMessage\cf2 ("Vous allez avoir deux listes : " +CR+ "la premiere va trouver le titre" +CR+ "La deuxi\'e8me va trouver les d\cf5 If\cf2 f\'e9rents type de DVD")\par \cf1\fs20 // adresse liste\par HtmlCode0 is \cf5 String\cf1 = \cf4 GetPage\cf1 ("http://www.dvdanime.net/liste_dvd.php?mode=liste&recherche=", \cf6 TitleToSearch\cf1 \cf2 , "" \cf1 )\cf2\par \cf5 If\cf1 HtmlCode0 = "" \cf5 Then\cf2\par \cf1\tab\cf4 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9")\cf2\par \cf1\tab\cf5 Return\cf2\par \cf5 End\par \cf1\par //////////////////////////////////////////////\cf5\par \cf1 // 1ere liste pour trouver le titre exacte //\par //////////////////////////////////////////////\par \cf2\par Movies_Delimiter is \cf5 String\cf2 = " " \cf1\par Movies_Number is \cf5 Int \cf1 = \cf4 StringCounter\cf1 (\cf2 HtmlCode0\cf1 , Movies_Delimiter)\cf2\par \cf5 If\cf1 Movies_Number = 0 \cf5 Then\cf2\par \cf1\tab\cf4 UserErrorMessage\cf1 ("Kedal ?\cf2 ")\cf1\par \cf5\tab Return\par End\par \cf2\par i is int\par Movie_ID, Movie_Title, Movie_URL are \cf5 String\cf2\par \par \cf5 For\cf2 i=2 to Movies_Number + 1\par \f1\tab\f0 Movie_\cf0\f1 Title = Movies_Delimiter + \cf4 StringExtraction\cf0 (\cf1 HtmlCode0\cf0 , i ,Movies_Delimiter )\par \tab\cf2\f0 Movie_\cf0\f1 ID = \cf4 BetweenStrings\cf0 ( \cf2\f0 Movie_\cf0\f1 Title ,\cf2 Movies_Delimiter\cf0 , "<\cf2 /B>\cf0 " )\cf2\f0\tab\par \tab Movie_\cf1 Title = \cf4 BetweenStrings\cf1 (\cf2 Movie_\cf1 Title, M\cf2 ovies_Delimiter\cf1 , "")\par \tab Movie_Title = \cf4 StringRefine\cf1 (Movie_Title)\cf2\par \tab Movie_\cf1 Title = \cf4 FormatString\cf1 (\cf2 Movie_\cf1 Title, "UC")\par \cf2\tab Movie_\cf1 Title = RemoveHTMLTags (\cf2 Movie_\cf1 Title)\par \cf2\tab Movie_URL = "\cf1 http://www.dvdanime.net/liste_dvd.php?mode=liste&recherche=\cf2 "\par \tab\cf4 AddMovieToList\cf2 (i, Movie_ID, Movie_Title, Movie_URL)\par \cf5 End\cf2\par \fs18\par \cf4 OpenMoviesList\cf1 ()\cf2\par \cf5\fs20 If\cf1 \cf3 MovieIDValue\cf1 = "" \cf5 Then\cf2\par \cf1\tab\cf4 UserErrorMessage\cf1 ("Vous n'avez s\'e9lectionn\'e9 aucun film\cf2 .\cf1 " + CR + CR +\cf2 \cf1 "Ou la liste \'e9tait vide o\cf2 u incompl\'e8te \cf1\'e0 cause de \cf2 v\cf1 otre Firewall.")\cf2\par \tab\cf5 Return\cf2\par \cf5 End\cf2\par \cf3\par MovieTitleValue\cf2 = \cf5 R\cf2 eplace (\cf3 MovieTitleValue\cf2 , " " , "%20")\par \cf3 MovieURLValue\cf1 = Movie_URL + \cf3 MovieTitleValue\cf7\par \cf5\par \cf1 //////////////////////////////////////////////////////////////////////\par // 2eme liste pour afficher les differents DVD pour le titre exacte //\cf2\par \cf1 //////////////////////////////////////////////////////////////////////\cf2\par \par \pard\nowidctlpar\cf1\lang2057 i=2\cf2\par \cf1 While Movies_ID_Array[i]<>""\cf2\par \cf1\tab Movies_ID_Array[i]=""\cf2\par \cf1\tab Movies_Title_Array[i]="" \cf2\par \cf1\tab Movies_URL_Array[i]="" \cf2\par \cf1\tab i++ \cf2\par \pard\cf5 End\cf1 \cf2\lang1036\par \par HtmlCode is \cf5 String\cf2 = \cf4 GetPage\cf2 (\cf3 MovieURLValue\cf2 ,"", "")\par \cf5 If\cf2 HtmlCode = "" \cf5 Then\cf2\par \tab\cf4 UserErrorMessage\cf2 (\cf1 "Cette page n'a pas \'e9t\'e9 trouv\'e9e"\cf2 )\par \tab\cf5 Return\cf2\par \cf5 End\cf2\par \par Movies_Delimiter = "document.location='critiqueview.php?id_critique=" \cf1\par Movies_Number\cf5 \cf1 = \cf4 StringCounter\cf1 (\cf2 HtmlCode\cf1 , Movies_Delimiter)\cf2\par \cf5 If\cf1 Movies_Number = 0 \cf5 Then\cf2\par \cf1\tab\cf4 UserErrorMessage\cf1 ("Kedal ? y'a pas ce manga !\cf2 ")\cf1\par \cf5\tab Return\par End\par \cf3 MovieIDValue\cf2 = ""\cf5\par For\cf2 i=2 to Movies_Number + 1\par \f1\tab\cf0 Movie_Title = Movies_Delimiter + \cf4 StringExtraction\cf0 (\cf1 HtmlCode\cf0 , i ,Movies_Delimiter )\par \tab Movie_ID = \cf4 BetweenStrings\cf0 ( Movie_Title ,\cf2 Movies_Delimiter\cf0 , "'\cf2 ""\cf0 " )\cf2\f0\tab\par \tab M\cf1 ovie_Title = \cf4 BetweenStrings\cf1 (Movie_Title, "\cf2  \cf1 " , "")\par \cf2\tab Movie_Title = \cf4 StringRefine\cf2 (Movie_Title)\par \tab\cf1 Movie_Title = \cf4 FormatString\cf1 (Movie_Title, "UC")\par \cf2\tab\cf1 Movie_Title = RemoveHTMLTags (Movie_Title)\par \tab\cf3 MovieTitleValue\cf2 = \cf4 StringRefine\cf2 (\cf3 MovieTitleValue\cf2 )\cf1\par \cf2\tab\cf1 Movie_Title = \cf3 MovieTitleValue\cf1 + " " + Movie_Title\cf2\par \tab Movie_URL = "http://www.dvdanime.net/critiqueview.php?id_critique=" + Movie_ID\par \tab\cf4 AddMovieToList\cf2 (i, Movie_ID, Movie_Title, Movie_URL)\par \cf5 End\cf2\par \fs18\par \cf1 // Ouverture de la liste des films trouv\'e9s\par \cf4 OpenMoviesList\cf1 ()\cf2\par \cf5\fs20 If\cf1 \cf3 MovieIDValue\cf1 = "" \cf5 Then\cf2\par \cf1\tab\cf4 UserErrorMessage\cf1 ("Vous n'avez s\'e9lectionn\'e9 aucun film\cf2 .\cf1 " + CR + CR +\cf2 \cf1 "Ou la liste \'e9tait vide o\cf2 u incompl\'e8te \cf1\'e0 cause de \cf2 v\cf1 otre Firewall.")\cf2\par \tab\cf5 Return\cf2\par \cf5 End\cf2\fs18\par \fs20\par \cf1 // Extraction du code Html de la page d\'e9sir\'e9e\cf2\par HtmlCode = \cf4 GetMovie\cf2 (\cf3 MovieURLValue\cf2 ,"", "")\par \cf5 If\cf2 HtmlCode = "" \cf5 Then\cf2\par \tab\cf4 UserErrorMessage\cf2 (\cf1 "Cette page n'a pas \'e9t\'e9 trouv\'e9e"\cf2 )\par \tab\cf5 Return\cf2\par \cf5 End\cf2\par \par HtmlCode = Replace (Htmlcode ,"
" ,"
")\par \par \cf1 // Recuperation des donn\'e9es techniques\par \cf2 \cf4\par \cf3 MovieCountryValue\cf1 = \cf4 BetweenStrings\cf1 (HtmlCode, "\cf2 Origine :
\cf1 " ,"\cf2
\cf1 ")\par \cf3 MovieCountryValue\cf1 = \cf4 StringMiddle\cf1 (\cf3 MovieCountryValue\cf1 , 2 , Length (\cf3 MovieCountryValue\cf1 ) )\cf2\par \par \cf3 MovieOriginalTitleValue \cf1 = \cf4 BetweenStrings\cf1 (HtmlCode, "\cf2 Titre original :\cf1 " ,"\cf2
\cf1 ")\par \cf3 MovieOriginalTitleValue \cf2 = \cf4 StringMiddle\cf1 (\cf3 MovieOriginalTitleValue\cf1 , 2 , Length (\cf3 MovieOriginalTitleValue\cf1 ) )\cf2\par \par \cf3 MovieYearValue \cf1 = \cf4 BetweenStrings\cf1 (HtmlCode, "\cf2 Ann\'e9e de prod. :\cf1 " ,"\cf2
\cf1 ")\par \cf3 MovieYearValue \cf2 = \cf4 StringMiddle\cf1 (\cf3 MovieYearValue\cf1 , 2 , Length (\cf3 MovieYearValue\cf1 ) )\cf2\par \par \cf3 MovieFamilyValue \cf2 = "Manga"\par \cf1\par \cf2 ImgP\cf1 te\cf2 is \cf5 String\cf2 = \cf4 BetweenStrings\cf2 (HtmlCode, "\cf1 images_critiques/jaquette-front-\cf2 " , ".jpg")\par \cf3\par I\cf2 DGde is \cf5 String\cf2 = \cf4 BetweenStrings\cf2 (HtmlCode , "\cf7 popup_simple_images.php?id_image=\cf2 " , "\cf7 &op=jaquette\cf2 " )\par \cf3 H\cf2 tmlImgG\cf1 de\cf2 Code is \cf5 String\cf2 \cf1 = \cf4 GetPage\cf2 ("http://www.dvdanime.net\cf7 /options/critiques_popup_simple_images.php?id_image=\cf2 " , IDGde , "\cf7 &op=jaquette\cf2 " )\par NomImg is \cf5 String\cf2 = \cf4 BetweenStrings\cf2 (HtmlImgGdeCode, "images_critiques/" , ".jpg" )\par \par \cf5 If\cf2 \cf4 YesNo\cf2 ("Voulez vous essayer de t\'e9l\'e9charger la jaquette DVD grand \cf5 For\cf2 mat - Recto / Verso ? " )\cf5\par \cf2\tab\par \tab\cf5 If\cf2 (IDGde <> \cf1\fs18 "\'04")\cf2 AND (NomImg \fs20 <> \cf1\fs18 "\'04"\cf2 )\cf5 Then\cf2\par \cf3\fs20\tab\tab MoviePictureValue\cf2 = "http://www.dvdanime.net/images_critiques/" + NomImg + ".jpg"\tab\par \tab\cf5 Else\cf2\par \cf5\tab\cf2\tab\cf3 MoviePictureValue\cf2 = \cf1 "http://www.dvdanime.net/images_critiques/jaquette-front-"\cf2 + ImgPte + "\cf1 .jpg\cf2 "\par \cf5\tab End\par Else\par \cf3\tab MoviePictureValue\cf2 = \cf1 "http://www.dvdanime.net/images_critiques/jaquette-front-"\cf2 + ImgPte + "\cf1 .jpg\cf2 "\par \cf5 End\cf7\par \cf5\par \cf2\par \cf1\fs18 // telechargement du resume\par \cf3 R\cf2 esum is \cf5 String\cf2 = \cf4 BetweenStrings\cf2 (HtmlCode , "Sc\'e9nario<" , "Histoire :<")\par \cf1\par k is int\cf2\par \cf1 Resum_Delim is \cf5 String\cf1 = ""\cf2\par \cf1\fs20 Resum_Number is \cf5 Int \cf1 = \cf4 StringCounter\cf1 (Resum , Resum_Delim)\cf2\par \cf3 MovieSummaryValue\cf2 = "Liste des Episodes : "\cf5\par If\cf1 Resum_Number = 0 \cf5 Then\cf2\par \cf1\tab\cf3 MovieSummaryValue\cf1 = \cf2 ""\par \cf5 End\par \fs18\par \par For\cf1 k = 2 To Resum_Number + 1\cf2\par \cf1\f1\tab Episod_suivant is \cf5 String\cf1 = Resum_Delim + \cf4\fs20 StringExtraction\cf1 (Resum, k , Resum_Delim )\cf0\par \cf1\f0\fs18\tab T\cf2 itre_Epi is \cf5 String\cf2 = \cf4 BetweenStrings\cf2 (Episod_suivant , Resum_Delim , ""\cf1 , "<")\cf2\par \cf1\f1\fs20\tab\cf5 If\cf1 (Episode = " ") O\cf2 R \cf1 (Episode = "")\cf2 \cf5 Then\cf2\par \tab\tab\cf1\f0\fs18 Episode = \cf4 BetweenStrings\cf1 (Episod_suivant , ""\cf1 , "
")\par \cf2\f1\fs20\tab\cf5 End\cf2\par \tab\cf5 If\cf1 (Episode = " ") O\cf2 R \cf1 (Episode = "")\cf2 \cf5 Then\cf2\par \tab\cf1\f0\tab\fs18 Episode = \cf4 BetweenStrings\cf1 (Episod_suivant , "<\cf2 /\cf1 B>" , "")\par \cf2\f1\fs20\tab\cf5 End\cf2\par \tab\cf5\f0 If\cf1 Episode = \fs18 "\'04" \cf5 Then\par \cf2\f1\fs20\tab\cf1\tab Episode = ""\cf2\par \tab\cf5 End\cf1\par \tab\cf2 Episode = Titre_Epi + Episode\cf1\par \tab Episode = RemoveHTMLTags (Episode)\cf2\par \cf3\tab MovieSummaryValue\cf2 = \cf3 MovieSummaryValue\cf2 + CR + CR + Episode\par \cf5\f0\fs18 End\cf2\par \par \cf1 // R\'e9alisateur\par \fs20 Realisateur is \cf5 String\cf1 = \cf4 BetweenStrings\cf1 (H\cf2 tmlCode\cf1 , "\cf2 R\'e9alisation :
\cf1 ", "\cf2
\cf1 " )\par \cf2 Realisateur\cf3 \cf2 = \cf4 StringMiddle\cf1 (\cf2 Realisateur\cf1 , 2 , Length (\cf2 Realisateur\cf1 ) )\par \cf2 Realisateur\fs18 = \cf4\fs20 BetweenStrings\cf2 (Realisateur , "
  • " , "
  • ")\fs18\par \cf5 If\cf2 Realisateur = "\cf1\'04"\cf2 \cf5 Then\cf2\par \tab Realisateur = ""\par \cf5 End\cf2\par \cf4\fs20 AddMovieDirectors\cf1 (Realisateur)\cf2\par \cf1\fs18\par // Scenariste\par \cf2 Scenariste is \cf5 String\cf2 = \cf4 BetweenStrings\cf2 (HtmlCode, "Sc\'e9nario :", "\fs20
    \fs18 ")\par Scenariste\cf3\fs20 \cf2 = \cf4 StringMiddle\cf1 (\cf2\fs18 Scenariste\cf1\fs20 , 2 , Length (\cf2\fs18 Scenariste\cf1\fs20 ) )\par \cf2\fs18 Scenariste = \cf4\fs20 BetweenStrings\cf2 (scenariste , "
  • " , "
  • ")\fs18\par \cf5 If\cf2 Scenariste = "\cf1\'04"\cf2 \cf5 Then\cf2\par \tab Scenariste = ""\par \cf5 End\cf4\par AddMovieWriters\cf2 (Scenariste)\par \par \cf1 // Compositeur\par Compositeur is \cf5 String\cf1 = \cf4 BetweenStrings\cf1 (\cf2 HtmlCode\cf1 , "Musique :", "\cf2\fs20
    \cf1\fs18 ")\par Compositeur\cf3\fs20 \cf2 = \cf4 StringMiddle\cf1 (\fs18 Compositeur\fs20 , 2 , Length (\fs18 Compositeur\fs20 ) )\par \cf2\fs18 compositeur = \cf4 RemoveHTMLTags\cf2 (compositeur)\par \cf5 If\cf2 C\cf1 ompositeur\cf2 = "\cf1\'04"\cf2 \cf5 Then\cf2\par \tab C\cf1 ompositeur\cf2 = ""\par \cf5 End\cf4\par AddMovieComposers\cf2 (Compositeur)\fs20\par \par \cf1\par \cf7 ShellExecute\cf1 ("http://images.google.fr/images?q=" + \cf3 MovieTitleValue\cf1 + "&hl=fr&lr=&sa=N&tab=wi")\cf2\par \par \cf4 UserInformationMessage\cf2 ("La fiche est cr\'e9\'e9e.")\par \cf1 CreateMovie ()\cf2\par \par \par \cf1\fs18 // Fin du script JUIN JEROME le 09/05/2005 Manga-DvdAnim_V1.02\cf0\par }