{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\fswiss\fprq2\fcharset0 Arial;}}
{\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 G\'e9rer vos CD musicaux avec MP3.com --- R\cf2 ECHERCHE PAR ARTISTE\tab\cf1\par
\lang1033 // AUTHOR JUIN J.\par
// LANGUAGE FR\cf3\par
\cf2\par
\cf3 MovieDatabaseValue\cf2  = "mp3.com"\par
\cf1\lang1036\par
\lang1033 // Recherche par artiste.\par
HtmlCode is \cf4 String\cf1  = \cf5 GetPage\cf1 ("\cf2 http://www.mp3.com/search.php?action=Search&stype=artist&query=\cf1 ", \cf6 TitleToSearch\cf1  , "\cf2 &x=41&y=9\cf1 " )\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\lang1033 //Recherche des \cf2 CD\cf1  dans ce code\par
\cf2\par
\cf1 Liens is \cf4 String\cf1  = "\cf2 /artists/\cf1 "\par
A\cf2 lb\cf1 _N\cf2 b\cf1  is \cf4 Int \cf1 = \cf5 StringCounter\cf1 (\cf2 HtmlCode\cf1 , \cf2 Liens\cf1 )\cf2\par
\cf4\lang1036 If\cf1  \cf2 Alb_Nb\cf1  = 0 \cf4 Then\par
\cf1\tab\cf5 UserErrorMessage\cf1 (\cf2  \cf6 TitleToSearch\cf2  + \cf1 " \cf2 n'a pas \'e9t\'e9 trouv\'e9")\tab\cf1\par
\cf4\tab Return\par
End\cf2\lang1033\par
\par
Chanteur, ID_Album, Title, CD_URL are \cf4 String\cf1\par
i\cf2  is int\cf4\par
\par
For\cf2  i=2 to Alb_Nb + 1\par
\cf0\tab Title = \cf2 Liens \cf0 +  \cf5 StringExtraction\cf0  ( \cf1 HtmlCode\cf0 , i ,L\cf2 iens\cf0  )\par
\cf2\tab ID_Album = \cf5 BetweenStrings\cf2  (Title , Liens , "\cf1 /summary.\cf2 ")\par
\cf1\tab Title = \cf5 BetweenStrings\cf1  (Title , "bold"">" , "</a")\cf2\par
\tab Title = \cf5 StringRefine\cf2 (Title)\par
\tab Title = \cf5 FormatString\cf2  (Title, "UC")\par
\tab Chanteur = \cf5 StringReplace\cf2  (Title , " " , "-")\par
\tab\cf4 If\cf2  (Title = "\lang1036 ") OR (Title = "\cf1\'04\cf2 ")\cf4 Then\cf2\par
\lang1033\tab\tab ID_Album = ""\par
\tab\tab CD_URL = ""\par
\tab\cf4 Else\cf2\par
\tab\tab CD_\cf1 URL = \cf2 "\cf4 http://www.mp3.com/\cf2 " + Chanteur + "\cf1 /artists/\cf2 " + ID_Album + "\cf1 /discography.html\cf2 "\par
\cf4\tab End\cf2\tab\par
\tab\cf5 AddMovieToList\cf1 (i, ID_\cf2 Album\cf1 , Title,\cf2  CD_\cf1 URL)\cf2\tab\cf1\par
\lang1036\tab //\cf7 Trace\cf1 (ID_Album, Title, CD_URL)\cf2\lang1033\par
\cf4 End\par
\par
\cf1\lang1036\fs18 // Ouverture de la liste des films trouv\'e9s\par
\cf5\lang1033 OpenMoviesList\cf1 ()\cf2\par
\cf4\fs20 If\cf1  \cf3 MovieIDValue\cf1  = "" \cf4 Then\cf2\par
\cf1\tab\cf5\lang1036 UserErrorMessage\cf1 ("Vous n'avez s\'e9lectionn\'e9 aucun\cf2 e ligne.\cf1 ")\cf2\par
\cf1\tab\cf4\lang1033 Return\cf2\par
\cf4 End\par
\cf1\par
\lang1036 // Extraction du code Html de la page d\'e9sir\'e9e seulement pour le cas ou il existe une liste de films\cf2\par
\cf1 HtmlCode = \cf5 GetMovie\cf1 (\cf3 MovieURLValue\cf1 ,"", "")\par
\cf4 If\cf1  HtmlCode = "" \cf4 Then\cf2\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9")\par
\cf2\tab\cf4 Return\cf2\par
\cf4\lang1033 End\par
\cf2\par
\cf1 // Titres des albums\par
\pard\nowidctlpar\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\cf4 End\cf1  \lang1033\par
Liens = "\cf2 /albums/\cf1 "\par
A\cf2 lb\cf1 _N\cf2 b\cf1  = \cf5 StringCounter\cf1 (\cf2 HtmlCode\cf1 , \cf2 Liens\cf1 )\par
\cf4 For\cf2  i=2 to Alb_Nb + 1\par
\cf0\tab Title = \cf2 Liens \cf0 +  \cf5 StringExtraction\cf0  ( \cf1 HtmlCode\cf0 , i ,L\cf2 iens\cf0  )\par
\cf2\tab ID_Album = \cf5 BetweenStrings\cf2  (Title , Liens , "\cf1 /summary.\cf2 ")\par
\cf1\tab Title = \cf5 BetweenStrings\cf1  (Title , "f-14"">" , "</a")\cf2\par
\tab Title = \cf5 StringRefine\cf2 (Title)\par
\tab Title = \cf5 FormatString\cf2  (Title, "UC")\par
\tab\cf4 If\cf2  (Title = "\lang1036 ") OR (Title = "\cf1\'04\cf2 ")\cf4 Then\cf2\par
\lang1033\tab\tab ID_Album = ""\par
\tab\tab CD_URL = ""\par
\tab\cf4 Else\cf2\par
\tab\tab CD_\cf1 URL = \cf2 "http://www.mp3.com/albums/" + ID_Album + "/summary.html"\par
\tab\cf4 End\cf2\par
\tab\cf5 AddMovieToList\cf1 (i, ID_\cf2 Album\cf1 , Title,\cf2  CD_\cf1 URL)\cf2\tab\cf1\par
\lang1036\tab //\cf7 Trace\cf1 (ID_Album, Title, CD_URL)\cf2\lang1033\par
\cf4 End\par
\cf1\lang1036\fs18 // Ouverture de la liste des films trouv\'e9s\par
\cf5\lang1033 OpenMoviesList\cf1 ()\cf2\par
\cf4\fs20 If\cf1  \cf3 MovieIDValue\cf1  = "" \cf4 Then\cf2\par
\cf1\tab\cf5\lang1036 UserErrorMessage\cf1 ("Vous n'avez s\'e9lectionn\'e9 aucun\cf2 e ligne.\cf1 ")\cf2\par
\cf1\tab\cf4\lang1033 Return\cf2\par
\cf4 End\cf2\par
\cf1\lang1036 HtmlCode = \cf5 GetMovie\cf1 (\cf3 MovieURLValue\cf1 ,"", "")\par
\cf4 If\cf1  HtmlCode = "" \cf4 Then\cf2\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9")\par
\cf2\tab\cf4 Return\cf2\par
\cf4\lang1033 End\cf2\par
\par
\cf1\lang1036\fs18 // Nom du chanteur\cf2\par
\cf3\fs20 MovieTitleValue\cf1  = \cf5 BetweenStrings\cf1  (HtmlCode , "Artist:" , "/\cf2 a>\cf1 ")\cf3\fs18\par
MovieTitleValue\cf1  = \cf5 BetweenStrings\cf2  (\cf3 MovieTitleValue\cf2  , "html"">" , "<" )\cf1\lang1033\fs20\par
\cf2\lang1036\fs18\par
\cf1 // Titre de l'album\cf2\par
\cf3 MovieOriginalTitleValue\cf1  = \cf5 BetweenStrings\cf1  (H\cf2 tmlCode\cf1  , "Album:" , "\cf2 <br\cf1 ")\par
\cf3 MovieOriginalTitleValue\cf2  = \cf5 StringMiddle\cf2  (\cf3 MovieOriginalTitleValue \cf2 , 2 , length(\cf3 MovieOriginalTitleValue\cf2 ) )\par
\par
\cf1 //Jaquette CD - pas genial la qualit\'e9 :-(\par
Pict is \cf4 String\cf1  = \cf5 BetweenStrings\cf2  (HtmlCode , "/images/cover/" , ".jpg" )\par
\cf4 If\cf2  Pict = "\'04" \cf4 Then\cf2\par
\tab\cf3 MoviePictureValue\cf2  = ""\par
\cf4 Else\cf3\par
\tab MoviePictureValue\cf2  = "http://image.com.com/mp3/images/cover/" + Pict + ".jpg"\cf1\par
\cf4 End\cf1\par
\cf7 ShellExecute\cf1  ("http://images.google.com/images?q=" + \cf3 MovieTitleValue\cf2  + " " + \cf3 MovieOriginalTitleValue\cf1  + "&hl=fr&lr=lang_fr&sa=N&tab=wi")\par
\par
//Annee\par
\cf3 MovieYearValue\cf2  = \cf5 BetweenStrings\cf2  (HtmlCode , "Release Date:" , "</span>" )\par
\cf3 MovieYearValue\cf2  = \cf5 StringRight\cf2  ( \cf3 MovieYearValue\cf2 , 4 )\par
\cf4 If\cf2  \cf3 MovieYearValue\cf2  = "\'04" \cf4 Then\cf2\par
\tab\cf3 MovieYearValue\cf2  = ""\par
\cf4 End\cf2\par
\par
\cf1 // Duree Album -- avec \cf3 MovieDurationValue\cf1\par
// Genre de Musique -- avec \cf3 MovieFamilyValue\cf1\par
\par
//Label \'e0 renvoyer dans \cf3 MovieCountryValue\cf1\par
\par
\cf2\par
\cf1 // Gestion des pistes Audio\par
\cf2 Delim_No is \cf4 String\cf2  = """\cf1 ta-c f-bold"\fs20\par
N\cf2 b_pistes\cf1  is \cf4 Int \cf1 = \cf5 StringCounter\cf1 (\cf2 HtmlCode\cf1 , \cf2 Delim_No\cf1 )\par
\cf4 For\cf1  i = 2 TO N\cf2 b_pistes\cf1  + 1\cf2\par
\cf1\tab P\cf2 iste\cf1  is \cf4 String\cf1  = \cf5 StringExtraction\cf1 (\cf2 HtmlCode\cf1 , i, \cf2 Delim_No \cf1 )\par
\cf2\tab\cf1 N\cf2 o_piste\cf1  is \cf4 String\cf1  = \cf5 BetweenStrings\cf1 (\cf2 Piste\cf1 , \cf2\fs18 """>"\fs20  \cf1 , "\cf2 <\cf1 ")\cf2\par
\tab Nom is \cf4 String\cf2  = \cf5 BetweenStrings\cf2  (Piste, "streams.html"">" , "<")\par
\tab\cf1 Nom = \cf5 StringRefine\cf1  (\cf5 RemoveHTMLTags\cf2 (\cf1 Nom)\cf2  \cf1 )\par
\cf2\tab\cf5 AddMovieActors\cf1 (N\cf2 o_piste\cf1 , \cf2 Nom)\par
\cf4\fs18 End\par
\cf2\par
\cf1 CreateMovie()\par
MAB_Zones()\par
\par
// Fin du Script MP3.com / version 1.0A Par JUIN JEROME ***Alias Dje***\par
\cf2\par
\cf1 f\cf2 inscript :\cf1\par
\cf0\par
\f1\fs20\par
\cf1\f0\par
}