{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}}
{\colortbl ;\red0\green128\blue0;\red128\green0\blue128;\red102\green102\blue102;\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 cybercd.fr --- Pensez a preciser votre recherche - Artiste + Nom Album s'il y a trop de r\'e9ponses\par
\lang1033 // AUTHOR JUIN J.\par
// LANGUAGE FR\cf2\par
\cf3\par
\cf2 MovieDatabaseValue\cf3  = "Cybercd"\par
\par
\cf1\lang1036 // Extraction du code HTML de la page de recherche\par
\lang1033 HtmlCode is \cf4 String\cf1  = \cf5 GetPage\cf1 ("\cf3 http://www.cybercd.fr/result.php?id=&pt=\cf1 ", \cf6 TitleToSearch\cf1  , "\cf3 &pd=\cf1 " )\par
\cf4\lang1036 If\cf1  HtmlCode = "" \cf4 Then\cf3\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9")\cf3\par
\cf1\tab\cf4 Return\cf3\par
\cf4 End\par
\cf3 HtmlCode = \cf5 BetweenStrings\cf3  (HtmlCode , "presult2""><b>Titre" , "presult2""><b>Titre")\par
\par
\cf1\lang1033 //Recherche des \cf3 CD\cf1  dans ce code\par
\cf3\par
\cf1 Liens is \cf4 String\cf1  = "\cf3 "\cf1 " class=""partists"">"\par
A\cf3 lb\cf1 _N\cf3 b\cf1  is \cf4 Int \cf1 = \cf5 StringCounter\cf1 (\cf3 HtmlCode\cf1 , \cf3 Liens\cf1 )\cf3\par
\cf4\lang1036 If\cf1  \cf3 Alb_Nb\cf1  = 0 \cf4 Then\par
\cf3\tab\cf6 TitleToSearch\cf3  = \cf5 StringRefine \cf3 (\cf6 TitleToSearch\cf3 )\par
\cf1\tab\cf5 UserErrorMessage\cf1 (\cf3  \cf6 TitleToSearch\cf3  + \cf1 " \cf3 n'a pas \'e9t\'e9 trouv\'e9" + cr + cr + ...\par
\tab\tab\tab\tab "- Avez vous veri\cf4 f\cf3 iez l'orthographe?" + cr+ ...\par
\tab\tab\tab\tab "- Avez vous ver\cf4 if\cf3 iez que www.cybercd.fr poss\'e8de au moins un album pour " + \cf6 TitleToSearch\cf3  + cr+ cr+ ...\par
\tab\tab\tab\tab "Si vous \'eates s\'fbr de ces 2 choses et bien sachez que je suis d\'e9sol\'e9, mais ce site r\'e9pertorie seulement les albums qu'il v\cf4 end\cf3  !" + cr + ...\par
\tab\tab\tab\tab "Il est donc possible qu'il n'ait pas " + \cf6 TitleToSearch\cf3  + " en stock !" )\tab\cf1\par
\cf4\tab Return\par
End\cf3\lang1033\par
\par
Chanteur, ID_Album, Title, CD_URL are \cf4 String\cf1\par
i\cf3  is int\cf4\par
\cf1 HtmlCode = \cf5 StringReplace\cf1  (HtmlCode , "pd="" class=" , "---")\cf3\par
\cf4\par
For\cf3  i=2 to Alb_Nb + 1\par
\cf0\tab Title = \cf3 Liens \cf0 +  \cf5 StringExtraction\cf0  ( \cf1 HtmlCode\cf0 , i ,L\cf3 iens\cf0  )\par
\cf3\tab ID_Album = \cf5 BetweenStrings\cf3  (Title , "php?id=" , "&")\par
\cf1\tab Chanteur = \cf5 BetweenStrings\cf1  (Title , ">" , "<")\cf3\par
\tab Title = \cf5 BetweenStrings\cf3 (Title, "---""partists"">" , "\cf1 <br>\cf3 ")\par
\cf1\tab Title = Chanteur + " - " + Title\cf3\par
\tab\cf4 If\cf3  Chanteur = \lang1036\fs18 "\'04" \cf4 Then\par
\cf3\lang1033\fs20\tab\tab Title = ""\par
\tab\cf4 End\cf3\par
\tab Title = \cf5 StringRefine\cf3 (Title)\par
\tab Title = \cf5 FormatString\cf3  (Title, "UC")\par
\tab CD_\cf1 URL = \cf3 "http://www.cybercd.fr/result.php?id=" + ID_Album + "&pt=&pd="\par
\tab\cf5 AddMovieToList\cf1 (i, ID_\cf3 Album\cf1 , Title,\cf3  CD_\cf1 URL)\par
\lang1036\tab //\cf7 Trace\cf1 (ID_Album, Title, CD_URL)\cf3\lang1033\par
\cf4\par
End\par
\par
\cf1\lang1036\fs18 // Ouverture de la liste des films trouv\'e9s\par
\cf5\lang1033 OpenMoviesList\cf1 ()\cf3\par
\cf4\fs20 If\cf1  \cf2 MovieIDValue\cf1  = "" \cf4 Then\cf3\par
\cf1\tab\cf5\lang1036 UserErrorMessage\cf1 ("Vous n'avez s\'e9lectionn\'e9 aucun\cf3 e ligne.\cf1 ")\cf3\par
\cf1\tab\cf4\lang1033 Return\cf3\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\cf3\par
\cf1 HtmlCode = \cf5 GetMovie\cf1 (\cf2 MovieURLValue\cf1 ,"", "")\par
\cf4 If\cf1  HtmlCode = "" \cf4 Then\cf3\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9")\par
\cf3\tab\cf4 Return\cf3\par
\cf4\lang1033 End\par
\cf3\par
\cf1\lang1036\fs18 // Nom du chanteur\cf3\par
\fs20 TitleAlb is \cf4 String\cf1  = \cf5 BetweenStrings\cf1  (HtmlCode , "arrow.gif" , "</html>")\cf2\fs18\par
MovieTitleValue\cf1  = \cf5\lang1033\fs20 BetweenStrings\cf1  (\cf3 TitleAlb\cf1 ,"<\cf3 b>\cf1 " , "\cf3 </b\cf1 >")\par
\cf3\lang1036\fs18\par
\cf1 // Titre de l'album\cf3\par
\cf2 MovieOriginalTitleValue\cf1  = \cf5 BetweenStrings\cf1  (T\cf3 itleAlb\cf1  , "artists""><br>" , "\cf3 <\cf1 ")\cf3\par
\par
\cf1 //Jaquette CD - pas genial la qualit\'e9 :-(\par
Pict is \cf4 String\cf1  = \cf5 BetweenStrings\cf3  (HtmlCode , "http://www.musicserver-online.com/j01/" , ".jpg" )\par
\cf4 If\cf3  Pict = "\'04" \cf4 Then\cf3\par
\tab\cf2 MoviePictureValue\cf3  = ""\par
\cf4 Else\cf2\par
\tab MoviePictureValue\cf3  = "http://www.musicserver-online.com/j31/" + Pict + ".jpg"\cf1\par
\cf4 End\cf1\par
\cf7 ShellExecute\cf1  ("http://images.google.com/images?q=" + \cf2 MovieTitleValue\cf1  + " " + \cf2 MovieOriginalTitleValue\cf1  + "&hl=fr&lr=lang_fr&sa=N&tab=wi")\par
\par
//Annee\par
\cf3 an is \cf4 String\cf3  = \cf5 BetweenStrings\cf3  (HtmlCode , "Date de sortie" , "</tr>" )\par
an = \cf5 BetweenStrings \cf3 ( an  , "presult2"">" , "<" )\par
\cf2 MovieYearValue\cf3  = \cf5 StringRight\cf3  ( an, 4 )\par
\cf4 If\cf3  \cf2 MovieYearValue\cf3  = "\'04" \cf4 Then\cf3\par
\tab\cf2 MovieYearValue\cf3  = ""\par
\cf4 End\cf3\par
\par
\cf1 // Duree Album -- avec \cf2 MovieDurationValue\cf1\par
// Genre de Musique -- avec \cf2 MovieFamilyValue\cf1\par
\par
//Label\par
\cf2 MovieCountryValue\cf3  = \cf5 BetweenStrings\cf3  (HtmlCode , "Label" , "</tr>" )\par
\cf2 MovieCountryValue\cf3  = \cf5 BetweenStrings \cf3 (\cf2 MovieCountryValue\cf3  , "presult2"">" , "<" )\cf1\par
\cf3\par
\cf1 // Gestion des pistes Audio\par
\cf3 Delim_No is \cf4 String\cf3  = "\cf1 width=""25""><b"\fs20\par
N\cf3 b_pistes\cf1  is \cf4 Int \cf1 = \cf5 StringCounter\cf1 (\cf3 HtmlCode\cf1 , \cf3 Delim_No\cf1 )\par
\cf4 For\cf1  i = 2 TO N\cf3 b_pistes\cf1  + 1\cf3\par
\cf1\tab P\cf3 iste\cf1  is \cf4 String\cf1  = \cf5 StringExtraction\cf1 (\cf3 HtmlCode\cf1 , i, \cf3 Delim_No \cf1 )\par
\cf3\tab\cf1 N\cf3 o_piste\cf1  is \cf4 String\cf1  = \cf5 BetweenStrings\cf1 (\cf3 Piste\cf1 , \cf3\fs18 ">"\fs20  \cf1 , "\cf3 <\cf1 ")\cf3\par
\tab Nom is \cf4 String\cf3  = \cf5 BetweenStrings\cf3  (Piste, "colspan=""2""><b>" , "<")\par
\tab\cf4 If\cf3  Nom = \cf1 "\'04\cf3 " \cf4 Then\cf3\par
\cf1\tab\tab Nom = \cf5 LinesAfter\cf1  (P\cf3 iste\cf1  , 1 , "\cf3 </b></td>"\cf1 )\par
\cf3\tab\tab\cf1 Nom = \cf5 BetweenStrings\cf1  (Nom, "#tsd" , "</td>")\cf3\par
\cf1\tab\tab Nom = \cf5 BetweenStrings\cf1  (Nom, """>" , "</")\cf3\par
\tab\cf4 End\cf3\par
\tab Nom = \cf5 StringReplace\cf3  (Nom , "&#XE9;" , "E")\par
\tab\cf1\lang1033 duree_piste is \cf4 String\cf1  = \cf5 BetweenStrings\cf1  (Piste, "width=""35""><b>" , "\lang1036 <\lang1033 " )\par
\cf3\lang1036\tab duree_piste = duree_piste + " mn"\par
\cf1\tab\cf4 If\cf1  duree_piste = "\'04 \cf3 mn\cf1 " \cf4 Then\cf3\par
\tab\cf1\tab duree_piste = ""\cf3\par
\tab\cf4 Else\cf3\par
\tab\tab duree_piste = \cf1 " --> dur\'e9e: " + Duree_piste\cf3\par
\tab\cf4 End\cf1\par
//\tab Nom = StringRefine (RemoveHTMLTags(Nom))\par
\cf3\tab\cf1 Nom = (Nom + Duree_piste)\par
\cf3\tab\cf5 AddMovieActors\cf1 (N\cf3 o_piste\cf1 , \cf3 Nom)\par
\cf4\fs18 End\par
\cf3\par
\cf1 CreateMovie()\par
MAB_Zones()\par
// Fin du Script Cybercd / version 1.0\cf3 B\cf1  Par JUIN JEROME ***Alias Dje***\par
\cf3\par
\cf1 f\cf3 inscript :\cf1\fs20\par
}