{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}}
{\colortbl ;\red0\green128\blue0;\red102\green102\blue102;\red128\green0\blue128;\red0\green0\blue0;\red0\green0\blue255;\red255\green102\blue0;\red255\green0\blue0;}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\cf1\f0\fs20 // DESCRIPTION Gestion de votre BIBLIOTHEQUE --- \cf2\par
\cf1 // AUTHOR JUIN J\'e9r\'f4me \par
// LANGUAGE FR\cf3\par
\cf2\par
\cf3 MovieDatabaseValue\cf2  = "LIVRES alapage"\par
\par
\cf1 // MODE DEBUG: enlever le double slash pour verifier que votre adresse de recherche est correcte.\cf2\par
\cf1\lang2057 // ShellExecute("\lang1036 http://www.alapage.com/mx/?tp=L&fullcible=1&donnee_appel=ALAPAGE&id=?&fulltext=" + TitleToSearch + "&type=1&go.x=56&go.y=8\lang2057 ")\cf2\par
\par
\cf1\lang1036 // cette page liste les livres\par
\lang2057 HtmlCode is \cf4 String\cf1  = \cf5\lang1036 GetPage\cf1 ("http://www.alapage.com/mx/?tp=L&fullcible=1&donnee_appel=ALAPAGE&id=?&fulltext=", \cf6 TitleToSearch\cf1  \cf2 , "\cf1 &type=1&go.x=56&go.y=8\cf2 " \cf1 )\cf2\lang2057\par
\cf4\lang1036 If\cf1  HtmlCode = "" \cf4 Then\cf2\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9")\cf2\par
\cf1\tab\cf4 Return\cf2\par
\cf4 End\par
\cf2\par
\cf1 //arborescence g\'e9n\'e9rale\par
\cf2\lang2057 Movies_Delimiter is \cf4 String\cf2  = "tx12gris"">"\par
\cf1 Movies_Number is \cf4 Int \cf1 = \cf5 StringCounter\cf1 (\cf2 HtmlCode\cf1 , Movies_Delimiter)\cf2\par
\cf4\lang1036 If\cf1  Movies_Number = 0 \cf4 Then\cf2\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("A\cf2 ucun livre n'est list\'e9..." + CR + "Recommencez votre recherche avec des mots plus simples...")\cf1\par
\cf4\tab Return\par
End\par
\lang2057\par
If\cf2  \cf5 YesNo\cf2  ("-------------------------------------------------------------- IMPORTANT --------------------------------------------------------------" + cr + cr + ...\par
\tab     "Pour avoir une recherche pr\'e9cise, je vous conseille de rechercher le titre du livre suivit de son auteur" + cr + ...\par
\tab     "exemple : ROUGE NOIR S\cf4 T\cf2 HENDAL" + cr + ...\par
\tab     "Ca vous \'e9vitera de lister toutes les 'nouvelles' \'e9crites par d'autres auteurs sur le livre que vous cherchez" + cr + cr + ...\par
\tab     "Voulez vous c\cf4 ontinue\cf2 z avec cette recherche ?") \cf4 Then\cf2\par
\lang1036\par
\cf1\tab // MODE DEBUG : enlever les deux slash devant Information pour tester la capture du nombre de films\cf2\par
\cf1\lang2057\tab //\cf7 Information\cf1 ("Movies Number = " + Movies_Number)\cf2\par
\par
\tab i is int\par
\tab Movie_ID, Movie_Title, Movie_URL are \cf4 String\cf2\par
\cf4\tab For\cf2  i=2 to Movies_Number + 1\par
\tab\tab\cf0 Movie_Title = Movies_Delimiter  +  \cf5 StringExtraction\cf0  (\cf1 HtmlCode\cf0 , i ,Movies_Delimiter )\par
\cf2\tab\tab Movie_ID = \cf5 BetweenStrings\cf2  (Movie_Title , "Fiche/Livres/" , "/?id=")\par
\tab\tab\cf1 Movie_Title = \cf5 BetweenStrings\cf1 (Movie_Title, "\cf2 tx12noirbold""><u>\cf1 " , "</\cf2 u\cf1 >")\par
\cf2\tab\tab Movie_Title = \cf5 StringRefine\cf2 (Movie_Title)\par
\tab\tab\cf1 Movie_Title = \cf5 FormatString\cf1  (Movie_Title, "UC")\par
\cf2\tab\tab\cf1 Movie_Title = RemoveHTMLTags (Movie_Title)\cf2\par
\tab\tab Movie_URL = "http://www.alapage.com/mx/?id=?&donnee_appel=ALAPAGE&tp=F&type=1&l_isbn=" + Movie_ID + "&devise=&fulltext="+ \cf6 TitleToSearch\cf2  + "&sv=X_L"\par
\par
\tab\cf5 AddMovieToList\cf2 (i, Movie_ID, Movie_Title, Movie_URL)\par
\cf1\par
\lang1036\tab //MODE DEBUG : enlever les deux slash devant \cf7 Trace\cf1  pour tester la capture des titres\par
\cf7\lang2057\tab\cf1 //\cf7 Trace\cf1 (Movie_ID, Movie_Title, Movie_URL)\cf2\par
\cf4\lang1036\tab End\cf2\par
\par
\cf1\tab // Ouverture de la liste des films trouv\'e9s\par
\cf5\lang2057\tab OpenMoviesList\cf1 ()\cf2\par
\cf4\tab If\cf1  \cf3 MovieIDValue\cf1  = "" \cf4 Then\cf2\par
\cf1\tab\tab\cf5 UserErrorMessage\cf1 ("Vous n'avez s\'e9lectionn\'e9 aucun livre\cf2 .\cf1 ")\cf2\par
\tab\tab\cf4 Return\cf2\par
\cf4\tab End\cf2\par
\par
\par
\cf1\tab // MODE DEBUG : Verify URL (must be deactivate in the final version of the script)\cf2\par
\cf1\tab // ShellExecute("http://www.alapage.com/mx/?id=?&donnee_appel=ALAPAGE&tp=F&type=1&l_isbn=" + Movie_ID + "&devise=&fulltext=rouge+noir&sv=X_L")\cf2\par
\par
\cf1\lang1036\tab // Extraction du code Html de la page d\'e9sir\'e9e\cf2\par
\lang2057\tab HtmlCode = \cf5 GetMovie\cf2 (\cf3 MovieURLValue\cf2 ,"", "")\par
\cf4\tab If\cf2  HtmlCode = "" \cf4 Then\cf2\par
\tab\tab\cf5\lang1036 UserErrorMessage\cf2 (\cf1 "Cette page n'a pas \'e9t\'e9 trouv\'e9e"\cf2 )\par
\tab\cf4 Return\cf2\par
\cf4\tab End\par
\cf2\par
\cf1\tab //Recuperation des don\'e9es du livre\par
\cf2\par
\cf1\lang2057\tab // Gestion de l'image du livre\par
\lang1036\tab //im\tab ge CGI , je n'ai pas encore trouv\'e9 le lienb physique de l'image\par
\cf2\tab\cf1 // je renvoie a une page de recherche sur priceminister a la fin du script\par
\cf2\par
\cf1\tab // R\'e9sum\'e9\par
\cf3\tab B\cf2 locResum is \cf4 String\cf2  = \cf5 BetweenStrings\cf2  (HtmlCode ,"<a name=""commentaires\cf3 "\cf2  , "donneravis")\par
\cf3\tab MovieSummaryValue\cf1  =\cf2  \cf5 BetweenStrings\cf1  (B\cf2 locResum\cf1  ,"<DIV align=""justify\cf2 "">" , "</DIV>")\par
\cf4\fs18\tab If\cf2  \cf3\fs20 MovieSummaryValue\cf2\fs18  = "\cf1\'04"\cf2  \cf4 Then\par
\cf2\tab\tab MessagResum is \cf4 String\cf2  = "D\'e9sol\'e9 mais il n'y a pas de r\'e9summ\'e9 pour ce livre"\par
\tab\tab\cf3\fs20 MovieSummaryValue\cf2\fs18  = ""\par
\cf4\tab End\cf1\fs20\par
\par
\tab // Ann\'e9e\cf2\par
\cf3\lang2057\tab A\cf2 nnee is \cf4 String\cf2  = \cf5 BetweenStrings\cf2  (HtmlCode, "Date de Parution" , "\cf1 <\cf2 /SPAN>"\cf1 )\cf3\par
\tab MovieYearValue\cf1  = \cf5 StringRight\cf1  (Annee , 4)\par
\cf4\lang1036\fs18\tab If\cf2  \cf3\lang2057\fs20 MovieYearValue\cf2\lang1036\fs18  = "\cf1\'04"\cf2  \cf4 Then\cf2\par
\tab\tab MessagAn is \cf4 String\cf2  = "D\'e9sol\'e9, pas d'ann\'e9e de parution." \par
\lang2057\fs20\tab\tab\cf3 MovieYearValue\cf2\lang1036\fs18  = ""\par
\cf4\tab End\cf2\lang2057\fs20\par
\cf1\tab // Genre\par
\cf3\tab G\cf2 enre is \cf4 String\cf2   = \cf5 BetweenStrings\cf2  (HtmlCode , "mot_genre=" , "/SPAN>")\par
\cf3\tab MovieFamilyValue\cf2  = \cf5 BetweenStrings \cf2 (Genre , "tx12noir"">" , "<")\par
\cf3\tab MovieFamilyValue\cf2  = \cf5\lang1036 FormatString\cf2  (\cf3\lang2057 MovieFamilyValue\cf2\lang1036  , "1UC")\lang2057\par
\cf4\lang1036\fs18\tab If\cf2  \cf3\lang2057\fs20 MovieFamilyValue\cf2\lang1036\fs18  = "\cf1\'04"\cf2  \cf4 Then\cf2\par
\tab\tab MessagGenre is \cf4 String\cf2  = "D\'e9sol\'e9 mais le genre du livre n'existe pas."\par
\tab\tab\cf3\lang2057\fs20 MovieFamilyValue\cf2\lang1036\fs18  = ""\par
\cf4\tab End\cf2\lang2057\fs20\par
\par
\cf1\tab // gerer 2 fois le titre pour afficher en haut et sur le livre -> kit graphik associ\'e9\par
\cf3\tab MovieOriginalTitleValue\cf2  = \cf3 MovieTitleValue\cf2\par
\par
\cf1\tab // Auteur (stock\'e9 dans variable realisateur)\par
\cf5\lang1036\tab A\cf2 uteur is \cf4 String\cf2  = \cf5 BetweenStrings\cf2  (HtmlCode , "de : </B>" , "</SPAN>" )\par
\tab Auteur = \cf5 BetweenStrings\cf2  (Auteur , "class=""roll"">" , "</A></U>")\cf5\par
\tab A\cf2 uteur = \cf5 FormatString\cf2  (Auteur , "1UC")\cf5\par
\cf4\fs18\tab If\cf2  \cf5\fs20 A\cf2 uteur\fs18  = "\cf1\'04"\cf2  \cf4 Then\cf2\par
\tab\tab\cf5\fs20 A\cf2 uteur\fs18  = ""\par
\cf4\tab End\cf5\fs20\par
\tab AddMovieDirectors\cf1 (\cf2 Auteur\cf1 )\cf2\par
\cf1\lang2057\tab\par
\cf2\tab\cf1 // Edition (Stock\'e9 dans variable scenariste)\par
\cf5\lang1036\fs18\tab E\cf2 dition is \cf4 String\cf2  = \cf5 BetweenStrings\cf2  (HtmlCode , "Editeur(s) :</B>" , "/SPAN>" )\par
\tab Edition = \cf5 BetweenStrings\cf2  (Edition , "tx12noir"">" , "<")\cf5\par
\tab E\cf2 dition = \cf5\fs20 FormatString\cf2  (Edition , "1UC")\cf5\fs18\par
\cf4\tab If\cf2  \cf5 E\cf2 dition = "\cf1\'04"\cf2  \cf4 Then\cf2\par
\tab\tab\cf5 E\cf2 dition = ""\par
\cf4\tab End\cf5\par
\tab AddMovieWriters\cf2 (Edition)\lang2057\fs20\par
\cf1\par
\cf7\tab ShellExecute\cf2  ("\cf1 http://images.google.com/images?q=\cf2 " + \cf6 TitleToSearch\cf2  + "\cf1 &hl=fr&lr=lang_fr&sa=N&tab=wi\cf2 ")\cf1\par
\cf5\tab UserInformationMessage\cf1  ("V\cf2 ue le nombres d'editions d\cf4 if\cf2 f\'e9rentes qu'il peut y avoir pour une m\'eame oeuvre litt\'e9raire, j'ai pr\'e9f\'e9r\'e9 vous laisser la possibilit\'e9 d'enregistrer vous m\'eame l'image du livre." + cr+ ...\par
\tab\tab\tab\tab\tab "Une Page internet vient de s'ouvrir pour que vous puissiez enregistrer l'image correspondant \'e0 votre livre."\cf1 ) \cf2\par
\par
\cf1\tab CreateMovie ()\par
\cf4 Else\cf2\par
\cf4 End\cf1\par
}