{\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  = "<TD BGCOLOR=#FFF1CC COLSPAN=4>&nbsp;<B>" \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  , "</\cf2 B\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 <TD WIDTH=100%>&nbsp;\cf1 " , "</\cf2 TD\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 ,"<br>" ,"<BR>")\par
\par
\cf1 // Recuperation des donn\'e9es techniques\par
\cf2  \cf4\par
\cf3 MovieCountryValue\cf1  = \cf4 BetweenStrings\cf1  (HtmlCode, "\cf2 Origine :</b>\cf1 " ,"\cf2 <BR>\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 :</b>\cf1 " ,"\cf2 <BR>\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. :</b>\cf1 " ,"\cf2 <BR>\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  = "<B>"\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\par
\cf2\tab\cf1 Episode i\cf2 s \cf5 String\cf2  \cf1 = \cf4 BetweenStrings\cf1  (Episod_suivant , "\cf2 <\cf1 /\cf2 B>"\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 , "</\cf2 B>"\cf1  , "<br />")\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>" , "</TD>")\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 :</b>\cf1 ", "\cf2 <BR>\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 , "<li>" , "<li>")\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 :</b>", "\fs20 <BR>\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 , "<li>" , "<li>")\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 :</b>", "\cf2\fs20 <BR>\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
}