{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\fswiss\fprq2\fcharset0 Arial;}{\f2\fnil\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 G\'e9rer vos CD musicaux avec CDDB --- recherche par nom d'artiste et/ou album et/ou morceau, avec jaquette Grand Format si disponible\par
\lang1033 // AUTHOR CyberPapy\cf2\par
\cf1 // LANGUAGE FR\cf3\par
\cf2\par
\cf3 MovieDatabaseValue\cf2  = "Grace\cf4 Not\cf2 e - CDDB"\par
\par
\cf1 //............................... DECLARATION DES VARIABLES UTILISEES DANS LE SCRIPT .......................................................................\cf2\par
\cf1\lang1036\par
i, \cf2 j, Alb_Nb, Nb_Pistes, Test, Nb_D\cf4 if\cf2 f, Nb_Car a\cf1 re\cf2  Int\par
\par
HtmlCode, HtmlCode1, HtmlCode2, HtmlCode3, Liens, ID_Album, Title, CD_URL, Category, Artist, An, Delim_No, Delim_Pist, Piste, No_Piste, Nom are \cf4 String\cf2\par
Save_Art, Nom_CD, Title1, Message, Message1, Message2, Message3, Message4 are \cf4 String\cf2\par
\cf1\par
//.......................... EXTRACTION DU CODE DE LA(DES) PAGE(S) HTML DE LA RECHERCHE (50 albums maximum) .................................................\par
\par
\cf4 For\cf2  j = 1 to 50 Step 10\par
\lang1033\tab H\cf1 tmlCode\cf2 1 \cf1 = \cf5 GetPage \cf1 ( "\lang1036 http://www.g\cf2 race\cf4 not\cf2 e\cf1 .com/m\cf2 usic\cf1 /search.\cf2 html\cf1 ?q=\lang1033 "\cf2 ,\cf1  \cf6 TitleToSearch\cf1  ,"&f\cf2 =artist+disc&s=" + j + "&n=0&" \cf1 )\par
\cf2\tab HtmlCode = HtmlCode + HtmlCode1\cf1\par
\cf4 End\cf2\par
\cf1\par
\cf4\lang1036 If\cf1  HtmlCode = "" \cf4 Then\cf2\par
\cf1\tab\cf5 UserErrorMessage \cf1 ( "Cette page n'a pas \'e9t\'e9 trouv\'e9e" )\cf2\par
\cf1\tab\cf4 Return\cf2\par
\cf4 End\cf1\lang1033\par
\par
//............................. Correction des diacritiques (caract\'e8res accentu\'e9s) dans les titres d'albums .....................................................\par
\par
\lang1036 HtmlCode\cf2\lang1033  = \cf5 StringReplace\cf2   ( \cf1\lang1036 HtmlCode\cf2\lang1033  , "\cf1\'c3\'80\cf2 " , "\'e0" )\par
\cf1\lang1036 HtmlCode\cf2\lang1033  = \cf5 StringReplace\cf2  ( \cf1\lang1036 HtmlCode\cf2\lang1033  , "\'c5\ldblquote " , "oe" )\par
\cf1\lang1036 HtmlCode\cf2\lang1033  = \cf5 StringReplace\cf2  ( \cf1\lang1036 HtmlCode\cf2\lang1033  , "\'c3\'89" , "\'e9" )\par
\cf1\lang1036 HtmlCode\cf2\lang1033  = \cf5 StringReplace\cf2  ( \cf1\lang1036 HtmlCode\cf2\lang1033  , "\'c3\'a9" , "\'e9" )\par
\cf1\lang1036 HtmlCode\cf2  \lang1033 = \cf5 StringReplace\cf2  ( \cf1\lang1036 HtmlCode\cf2\lang1033  , "\'c3\'a8" , "\'e8" )\par
\cf1\lang1036 HtmlCode\cf2\lang1033  = \cf5 StringReplace\cf2  ( \cf1\lang1036 HtmlCode\cf2\lang1033  , "\'c3\'aa" , "\'ea" )\par
\cf1\lang1036 HtmlCode\cf2\lang1033  = \cf5 StringReplace\cf2  ( \cf1\lang1036 HtmlCode\cf2\lang1033  , "\'c3\'8a" , "\'ea" )\par
\cf1\lang1036 HtmlCode\cf2\lang1033  = \cf5 StringReplace\cf2  ( \cf1\lang1036 HtmlCode\cf2\lang1033  , "\'c3\'ab" , "\'eb" )\par
\cf1\lang1036 HtmlCode\cf2\lang1033  = \cf5 StringReplace\cf2  ( \cf1\lang1036 HtmlCode\cf2\lang1033  , "'" , "'" )\par
\cf1\lang1036 HtmlCode\cf2\lang1033  = \cf5 StringReplace\cf2  ( \cf1\lang1036 HtmlCode\cf2\lang1033  , "\cf1\'c3\'a1\cf2 " , "\cf0\lang1036\f1\'e1\cf2\lang1033\f0 " )\par
\cf1\lang1036 HtmlCode\cf2\lang1033  = \cf5 StringReplace\cf2  ( \cf1\lang1036 HtmlCode\cf2\lang1033  , "\cf1\'c3\'b1\cf2 " , "\cf0\lang1036\f1\'f1\cf2\lang1033\f0 " )\par
\cf1\lang1036 HtmlCode\cf2\lang1033  = \cf5 StringReplace\cf2  ( \cf1\lang1036 HtmlCode\cf2\lang1033  , "\cf1\'c3\cf2 " , "\'e0" )\par
\cf1\lang1036\par
\lang1033 //................................................ RECHERCHE DES CD DANS LE CODE OBTENU .............................................................................\par
\cf2\par
Liens = "\cf1\lang1036 S\cf2 TART ITEM\lang1033\f1 "\f0\par
\cf1 A\cf2 lb\cf1 _N\cf2 b\cf4  \cf1 = \cf5 StringCounter \cf1 ( \cf2 HtmlCode \cf1 , \cf2 Liens \cf1 )\par
\cf2\par
\cf4\lang1036 If\cf1  \cf2 Alb_Nb\cf1  = 0 \cf4 Then\cf2\par
\cf1\tab\cf5 UserErrorMessage \cf1 (\cf2  \cf6 TitleToSearch\cf2  + \cf1 " \cf2 n'a pas \'e9t\'e9 trouv\cf1\'e9\cf2 " + cr + cr + ...\par
\tab\tab\tab\tab "- Avez-vous v\'e9ri\cf4 f\cf2 i\'e9 l'orthographe ?" + cr+ ...\par
\tab\tab\tab\tab "Si vous e\cf1 n \cf2\'eates s\'fbr, c\cf1 'est que soit votre album est trop r\'e9cent, et il n'a pas encore \'e9t\'e9 enregistr\'e9 dans la base,\cf2 " + cr + ...\par
\tab\tab\tab\tab "s\cf1 oit il est trop ancien (repiquages) ou trop 'confidentiel', et il ne le sera jamais : s\cf2 aisiss\cf1 ez-le \'e0 la mimine !!\cf2 " )\tab\cf1\par
\cf4\tab Return\par
End\cf2\lang1033\par
\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
\tab\cf2 Category\cf0  = \cf5 BetweenStrings\cf0  ( Title , "a\cf2 lbum.html/"\cf0  , "\cf1 /\cf0 " )\par
\tab ID_\cf2 Album\cf0  = \cf5 BetweenStrings\cf0  ( Title , C\cf1 ategory\cf2  + "/"\cf0  , "\cf1 .\cf2 html""\cf0 " )\par
\cf2\tab Artist = \cf5 BetweenStrings\cf2  ( Title , ".\cf4 h\cf2 tml"" >" , "\cf1  \cf2 / " )\par
\tab Title = \cf5 BetweenStrings\cf2 ( Title , Artist + " / " , "\cf1 </A><\cf2 !" )\par
\tab Title = \cf5 StringRefine\cf2 ( Title )\par
\tab Title = \cf5 FormatString\cf2  ( Title , "UC" )\par
\tab Title = \cf5 RemoveHTMLTags\cf2  ( Title )\par
\tab CD_\cf1 URL = "\lang1036\fs18 http://www.g\cf2 race\cf4 not\cf2 e\cf1 .com/m\cf2 usic\cf1 /a\cf2 lbum.html\cf1 /\lang1033\fs20 " + C\cf2 ategory\cf1  + "\lang1036\fs18 /\lang1033\fs20 " + ID_\cf2 Album\cf1  + "\lang1036\fs18 .html\lang1033\fs20 "\par
\cf2\tab\cf5 AddMovieToList \cf1 ( i , ID_\cf2 Album \cf1 , Title ,\cf2  CD_\cf1 URL )\par
\cf4 End\par
\cf2\lang1036\fs18\par
\cf1 //........................................................... OUVERTURE DE LA LISTE DES ALBUMS TROUVES ..........................................................................................\par
\cf5\lang1033\par
OpenMoviesList\cf1 ()\cf2\par
\cf4\fs20\par
If\cf1  \cf3 MovieIDValue\cf1  = "" \cf4 Then\par
\cf2\tab\cf4 If\cf2  \cf5 YesNo\cf2  ("Avez-vous trouv\'e9 la r\'e9f\'e9rence de votre album ?") \cf4 Then\cf2\par
\cf1\tab\tab\cf5\lang1036 UserErrorMessage\cf1 ("Vous ne\cf2  l'\cf1 avez p\cf2 as \cf1 s\'e9lectionn\'e9 \cf2 !\cf1 " \cf2 + CR + CR + "Recommencez la recherche !"\cf1 )\par
\cf2\tab\tab\cf4 Return\cf1\par
\cf2\tab\cf4 Else\par
\cf2\tab\tab\cf5\lang1033 UserInformationMessage\cf2  ("Veuillez affiner votre demande" + CR + "car la liste est limit\'e9e \'e0 50 albums.")\lang1036\par
\cf1\tab\tab\cf4\lang1033 Return\par
\cf1\tab\cf4 End\par
End\par
\cf1\par
\lang1036 //..................... EXTRACTION DU CODE HTML DE LA PAGE DESIREE (seulement pour le cas o\'f9 il existe une liste d'albums) ..................................\cf2\par
\cf1\par
HtmlCode = \cf5 GetMovie \cf1 ( \cf3 MovieURLValue \cf1 , "" , "" )\par
\cf2\par
\cf4 If\cf1  HtmlCode = "" \cf4 Then\cf2\par
\cf1\tab\cf5 UserErrorMessage \cf1 ( "Cette page n'a pas \'e9t\'e9 trouv\'e9e" )\par
\cf2\tab\cf4 Return\cf2\par
\cf4\lang1033 End\par
\par
\cf1 //....................... Correction des diacritiques (caract\'e8res accentu\'e9s) dans le titre de l'album et ceux des pistes .........................................\par
\cf2\par
HtmlCode = \cf5 StringReplace\cf2  ( HtmlCode , "\cf1\'c3\'80\cf2 " , "\'e0" )\par
HtmlCode = \cf5 StringReplace\cf2  ( HtmlCode , "\'c5\ldblquote " , "oe" )\par
HtmlCode = \cf5 StringReplace\cf2  ( HtmlCode , "\'c3\'89" , "\'e9" )\par
HtmlCode = \cf5 StringReplace\cf2  ( HtmlCode , "\'c3\'a9" , "\'e9" )\par
HtmlCode = \cf5 StringReplace\cf2  ( HtmlCode , "\'c3\'a8" , "\'e8" )\par
HtmlCode = \cf5 StringReplace\cf2  ( HtmlCode , "\'c3\'aa" , "\'ea" )\par
HtmlCode = \cf5 StringReplace\cf2  ( HtmlCode , "\'c3\'8a" , "\'ea" )\par
HtmlCode = \cf5 StringReplace\cf2  ( HtmlCode , "\'c3\'ab" , "\'eb" )\par
HtmlCode = \cf5 StringReplace\cf2  ( HtmlCode , "&#39;" , "'" )\par
HtmlCode = \cf5 StringReplace\cf2  ( HtmlCode , "\cf1\'c3\'a1\cf2 " , "\cf0\lang1036\f1\'e1\cf2\lang1033\f0 " )\par
HtmlCode = \cf5 StringReplace\cf2  ( HtmlCode , "\cf1\'c3\'b1\cf2 " , "\cf0\lang1036\f1\'f1\cf2\lang1033\f0 " )\par
HtmlCode = \cf5 StringReplace\cf2  ( HtmlCode , "\cf1\'c3\cf2 " , "\'e0" )\par
\cf1\lang1036\par
\fs18 //.................................................................... NOM DE L'ARTISTE ............................................................................................ \cf2\par
\cf3\par
H\cf2 tmlCode1\cf1  = \cf5\lang1033\fs20 BetweenStrings\cf1  ( HtmlCode , "returns" , "\lang1036\fs18 >Label\lang1033\fs20 " )\par
\cf3 MovieTitleValue\cf1  = \cf5 BetweenStrings\cf1  ( \cf3 H\cf2 tmlCode1\cf1  , "<b>" , " / " )\par
\cf3 MovieTitleValue\cf2  = \cf5 FormatString\cf2  ( \cf3 MovieTitleValue \cf2 , "UC" )\par
\lang1036\fs18\par
\cf1 //.................................................................... TITRE DE L'ALBUM ...........................................................................................\cf2\par
\par
\cf3 MovieOriginalTitleValue =\cf2  \cf5 BetweenStrings\cf2  ( HtmlCode1 , "/" , "</b>" )\par
\cf3 MovieOriginalTitleValue =\cf2  \cf5\lang1033\fs20 FormatString\cf2  ( \cf3 MovieOriginalTitleValue \cf2 , "WOS" ) \cf1 // Suppression des espaces avant le titre\par
\cf3\lang1036\fs18 MovieOriginalTitleValue\cf2  = \cf5 RemoveHTMLTags\cf2  ( \cf3 MovieOriginalTitleValue\cf2  )\par
\par
\cf1 //................................................ LABEL DE L'EDITEUR (ex-"Pays d'origine" de la vid\'e9oth\'e8que) .........................................................................\cf2\par
\cf1\par
\cf3 MovieCountryValue\cf2  = \cf5 BetweenStrings \cf2 ( HtmlCode , "Label: " , "<br>Year" )\cf3\par
\cf2\par
\cf1 //............................................................ ANNEE DE SORTIE DE L'ALBUM ORIGINAL .................................................................................\cf2\par
\par
An = \cf5 BetweenStrings\cf2  ( HtmlCode , "Y\cf1 ear\cf2 :" , "<\cf1 br>\cf2 " )\par
\cf3 MovieYearValue\cf2  = \cf5 StringRight\cf2  ( An, 4 )\par
\par
\cf1 //....................................................................... GENRE DE MUSIQUE ............................................................................................\cf2\par
\cf1\par
\cf3 MovieFamilyValue\cf1  = \cf5 BetweenStrings\cf1  ( HtmlCode , "\cf5\f2\fs20 pr\cf1 oblem.html?ref=/m\cf2 usic\cf1 /a\cf2 lbum.html\cf1 /\f0\fs18 " , "/" )\cf2\par
\cf3 MovieFamilyValue\cf1  = \cf5 StringRefine\cf1  ( \cf3 MovieFamilyValue \cf1 )\cf2\par
\par
\cf1 //................................................................... GESTION DES PISTES AUDIO .......................................................................................\cf2\par
\cf1\par
\cf2 Delim_No = "\cf1 <tr><td class=num"\cf5\par
\cf1\fs20 D\cf2 elim_Pist = "w\cf1 idth=62%>\cf2 "\par
\par
\cf1 N\cf2 b_pistes\cf4  \cf1 = \cf5 StringCounter \cf1 ( \cf2 HtmlCode \cf1 , \cf2 Delim_No \cf1 )\par
\cf2\par
\cf4 For\cf1  i = 2 To N\cf2 b_pistes\cf1  + 1\cf2\par
\cf1\tab P\cf2 iste\cf1  = \cf5 StringExtraction \cf1 ( \cf2 HtmlCode \cf1 , i , \cf2 Delim_No \cf1 )\par
\cf2\tab\cf1 N\cf2 o_piste\cf1  = \cf5 BetweenStrings \cf1 ( \cf2 Piste \cf1 , \cf2\fs18 "\cf1 right>"\cf2\fs20  \cf1 , "</td><td width=" )\par
\cf2\tab Nom = \cf5 BetweenStrings\cf2  (Piste, Delim_Pist , "</t\cf1 d><td align=\cf2 ")\par
\cf1\tab Nom = \cf5 StringRefine\cf1  ( Nom )\cf2\par
\tab\cf5 AddMovieActors \cf1 ( N\cf2 o_piste \cf1 , \cf2 Nom )\par
\cf4\fs18 End\par
\cf5\par
\cf1\lang1033\fs20 //........................................... ACQUISITION DE LA JAQUETTE GRAND ForMAT SI ELLE EXISTE .......................................................\cf2\par
\cf1\par
\lang1036\fs18 S\cf2 ave_Art = \cf3 MovieTitleValue\cf2  \cf1 // Sauvegarde du nom de l'artiste pour utilisation de \cf3 MovieTitleValue\cf1  dans le choix de la jaquette\par
\cf2 Test = 0 \cf1 // Initialisation du t\'e9moin de recherche avec le nom d'album\par
\cf2\par
Big_Jaket :\par
\cf1\par
\cf3 MovieIDValue\cf2  \cf1 = ""\par
\cf3 MovieTitleValue \cf1 = ""\par
\cf3 MovieURLValue\cf2  = ""\cf1\par
\cf3\lang1033\fs20 MoviePictureValue\cf2  = ""\par
Alb_Nb = 0\par
Nb_D\cf4 if\cf2 f = 0\par
i = 2\par
\par
\cf4 While\cf2  Movies_ID_Array[i] <> "" Or Movies_Title_Array[i] <> "" Or Movies_URL_Array[i] <> ""\par
\tab Movies_ID_Array[i] = ""\par
\tab Movies_Title_Array[i] = ""\par
\tab Movies_URL_Array[i] = ""\par
\cf1\lang1036\fs18\tab\cf2 i++\par
\cf4 End\cf2\par
\cf1\par
//--------------------------------------- Pr\'e9sentation des diverses jaquettes de l'album figurant sur PriceMinister ----------------------------------------------------------------------\par
\par
\lang1033\fs20 HtmlCode1 = \cf5 GetMovie\cf1  ( \lang1036\fs18 "http://www.priceminister.com/navigation?action=search&category=search_music&keyword=", Nom_C\cf2 D\cf1  ,"&noicon=false&\cf2 pos=1&sort=10\cf1 " )\cf2\par
\lang1033\fs20 HtmlCode3 = \cf5 BetweenStrings\cf2  ( HtmlCode1 , "<!-- Version : V" , "Vous avez recherch\'e9 ""<b>" )\par
HtmlCode1 = \cf5 StringReplace\cf2  ( HtmlCode1 , HtmlCode3 , " " ) \cf1 // Suppression du d\'e9but de page\cf2\par
HtmlCode2 = \cf5 BetweenStrings\cf2  ( HtmlCode1 , "dans la cat\'e9gorie ""Musique""." , "</table>" )\par
\cf3 A\cf2 lb_Nb\cf1  = \cf5 BetweenStrings\cf1  ( HtmlCode2 , "\cf3 sur <b>\cf1 " , "</b>" )\par
\par
\cf4 If\cf2  Alb_Nb > 0 _And_ Alb_Nb <= 10 \cf4 Then Goto\cf2  Liste_jakets\par
\par
\cf4 If\cf2  Alb_Nb = 0 \cf4 Then\par
\cf2\tab\cf4 If\cf2  Test < 0 \cf4 Then\cf2\par
\tab\tab\cf5 UserInformationMessage\cf2  ("Le r\'e9sultat n'est pas meilleur avec le nom de l'artiste !" + CR + CR + ...\par
\cf4\tab\cf2\tab\tab\tab\tab\tab "Vous devrez donc aller rechercher une jaquette ailleurs" + CR + ...\par
\tab\tab\tab\tab\tab\tab "     par vos propres moyens ! D\'e9sol\'e9 pour vous !" + CR )\par
\tab\tab\cf4 Goto\cf2  Gest_Err\par
\tab\cf4 Else\par
\cf2\lang1036\tab\tab\cf4\lang1033 If\cf2  \cf5 YesNo\cf2  ( "Aucune page correspondant \'e0 cet album n'a \'e9t\'e9 trouv\'e9e sur PriceMinister !" + CR + CR + ...\par
\tab\tab\tab      "Cela peut s'expliquer de deux mani\'e8res d\cf4 if\cf2 f\'e9rentes :" + CR + CR + ...\par
\tab\tab\tab      "1 - Ce site n'est approvisionn\'e9 que par les v\cf4 end\cf2 eurs d'occasions" + CR + ...\par
\tab\tab\tab      "    et votre album n'est pas r\'e9pertori\'e9 actuellement," + CR + CR + ...\par
\tab\tab\tab      "2 - Le titre sous lequel l'album est enregistr\'e9 sur CDDB est" + CR + ...\par
\tab\tab\tab      "    d\cf4 if\cf2 f\'e9rent de celui entr\'e9 par le v\cf4 end\cf2 eur sur PriceMinister." + CR + CR + ...\par
\tab\tab\tab      "Voulez-vous retenter une recherche de jaquette par le nom de l'artiste (OUI)" + CR + ...\par
\tab\tab\tab      "ou aller en rechercher une ailleurs par vos propres moyens (NON) ?" + CR + CR ) \cf4 Then\par
\cf2\tab\tab\tab Nom_CD = \cf5 StringReplace\cf2  ( Save_Art , " " , "+" ) \cf1 // Nom de l'artiste\cf4\par
\cf2\tab\tab\tab Test = -1 \cf1 // T\'e9moin de l'essai avec le nom d'artiste\par
\cf2\tab\tab\tab\cf4 Goto\cf2  Big_Jaket\par
\tab\tab\cf4 Else\cf2\par
\lang1036\tab\tab\cf1\tab\cf4\lang1033 Goto\cf2  Gest_Err\par
\tab\tab\cf4 End\par
\cf2\tab\cf4 End\par
End\cf1\par
\cf2\par
\cf4 For\cf2  i\cf1  = 21 To Alb_Nb Step 20\par
\cf2\tab\cf1 HtmlCode2 = \cf5 GetMovie\cf1  ( \lang1036\fs18 "http://www.priceminister.com/navigation?action=search&category=search_music&keyword=", Nom_C\cf2 D\cf1  ,"&noicon=false&\cf2 pos=" + i + "&sort=10\cf1 " )\par
\cf2\lang1033\fs20\tab HtmlCode3 = \cf5 BetweenStrings\cf2  ( HtmlCode2 , "<!-- Version : V" , "Vous avez recherch\'e9 ""<b>" )\par
\tab HtmlCode2 = \cf5 StringReplace\cf2  ( HtmlCode2 , HtmlCode3 , " " ) \cf1 // Suppression du d\'e9but de page\cf2\par
\tab HtmlCode1 = HtmlCode1 + HtmlCode2\par
\cf4 End\cf2\par
\par
Liste_jakets :\par
\par
Liens = "<td width=""80"" align=""center"">"\par
\par
\cf4 For\cf2  i = 2 To Alb_Nb + 1\par
\cf0\tab Title = L\cf2 iens + \cf5 StringExtraction\cf0  ( \cf1 HtmlCode1 \cf0 , i , L\cf2 iens\cf0  )\par
\par
\cf2\tab\cf4 If\cf2  \cf5 StringLeft\cf2  ( \cf5 LinesAfter\cf2  ( Title , 2 , Liens ) , 20 ) <> "\cf1 <a href=""/offer/buy/\cf2 " \cf4 Then\cf2  \cf4 Continue\par
\cf2\par
\tab\cf1 N\cf2 b_D\cf4 if\cf2 f\cf1  = N\cf2 b_D\cf4 if\cf2 f\cf1  + 1 // Suivi des albums enregistr\'e9s pr\'e9sentant une jaquette\cf0\par
\cf2\tab Title1 = \cf5 LinesAfter\cf2  ( Title , 2 , Liens )\cf0\par
\tab ID_\cf2 Album\cf0  = \cf5 BetweenStrings\cf0  ( Title1 , "\cf1 <a href=""/offer/buy/\cf2 "\cf0  , "\cf1 /\cf0 " )\par
\cf1\tab Title1 = \cf5 LinesAfter\cf1  ( Title , 3 , L\cf2 iens\cf1  )\par
\tab Title = \cf5 BetweenStrings\cf1  ( Title1 , "alt="\cf2 "\cf1 " , " - " )\par
\tab Title\lang1036\fs18  = \cf5\lang1033\fs20 FormatString\cf1  ( Title , "WOS" ) // Suppression des espaces et autres caract\'e8res sp\'e9ciaux HTML avant le titre de l'album\cf2\par
\tab Title = \cf5 StringRefine \cf2 ( Title )\par
\tab Title = \cf5 FormatString\cf2  ( Title , "UC" )\par
\tab Title = \cf5 RemoveHTMLTags\cf2  ( Title )\par
\cf1\tab CD_URL = "\lang1036\fs18 http://www.priceminister.com/\lang1033\fs20 offer/buy\lang1036\fs18 /\lang1033\fs20 " + ID_Album + \lang1036\fs18 ""\cf2\par
\lang1033\fs20\tab\cf5 AddMovieToList \cf1 ( Nb_Diff , ID_\cf2 Album \cf1 , Title ,\cf2  CD_\cf1 URL )\par
\cf4 End\par
\cf2\par
\cf1 //------------------------------------- S\'e9lection de la jaquette correspondant \'e0 l'album saisi ----------------------------------------------------------------\cf4\par
\cf1\lang1036\fs18\par
\cf5\lang1033\fs20 UserInformationMessage\cf2  ( "Une page PriceMinister va s'ouvrir d\'e8s que vous aurez valid\'e9 ce message !" + CR + CR + ...\par
\tab\tab\tab\tab  "Choisissez dans la liste, et page(s) suivante(s) \'e9ventuelle(s), la jaquette" + CR + ...\par
\tab\tab\tab\tab  "qui correspond le mieux \'e0 votre album et revenez en s\'e9lectionner le titre" + CR + ...\par
\tab\tab\tab\tab  "                    exact dans la liste qui s'est affich\'e9e." + CR )\par
\cf7\lang1036\fs18 ShellExecute\cf1  ( "http://www.priceminister.com/navigation?action=search&category=search_music&keyword=" + Nom_C\cf2 D\cf1  + "&noicon=false&pos=1&sort=10" )\cf2\lang1033\fs20\par
\cf5\fs18 OpenMoviesList \cf1 ()\par
\cf2\par
\cf4\fs20 If\cf1  \cf3 MovieIDValue\cf1  = "" \cf4 Then\par
\cf2\tab\cf4 If\cf2  \cf5 YesNo\cf2  ( "Avez-vous trouv\'e9 la jaquette de votre album ?" ) \cf4 Then\cf2\par
\cf1\tab\tab\cf5\lang1036 UserErrorMessage \cf1 ( "Vous ne\cf2  l'\cf1 avez p\cf2 as \cf1 s\'e9lectionn\'e9 \cf2 !\cf1 " \cf2 + CR + CR + "Recommencez depuis le d\'e9but !" \cf1 )\par
\cf2\tab\tab\cf4 Return\cf1\par
\cf2\tab\cf4 Else\par
\cf2\lang1033\tab\tab\cf4 If\cf2  Test < 0 \cf4 Then\cf2\par
\tab\tab\tab\cf5 UserInformationMessage\cf2  ("Le r\'e9sultat n'est pas meilleur avec le nom de l'artiste !" + CR + CR + ...\par
\cf4\tab\tab\cf2\tab\tab\tab\tab\tab "Vous devrez donc aller rechercher une jaquette ailleurs" + CR + ...\par
\tab\tab\tab\tab\tab\tab\tab "     par vos propres moyens ! D\'e9sol\'e9 pour vous !" + CR )\par
\tab\tab\tab\cf4 Goto\cf2  Gest_Err\par
\tab\tab\cf4 Else\cf2\par
\lang1036\tab\tab\tab\cf4\lang1033 If\cf1  YesNo\cf2  ( "Cela peut s'expliquer de deux mani\'e8res d\cf4 if\cf2 f\'e9rentes :" + CR + CR + ...\par
\tab\tab\tab\tab\cf1      \cf2 "1 - Ce site n'est approvisionn\'e9 que par les v\cf4 end\cf2 eurs d'occasions" + CR + ...\par
\tab\tab\tab\tab\cf1      \cf2 "    et votre album n'est pas r\'e9pertori\'e9 actuellement," + CR + CR + ...\par
\tab\tab\tab\tab\cf1      \cf2 "2 - Le titre sous lequel l'album est enregistr\'e9 \'e0 la Fnac est" + CR + ...\par
\tab\tab\tab\tab\cf1      \cf2 "    d\cf4 if\cf2 f\'e9rent de celui entr\'e9 par le v\cf4 end\cf2 eur sur PriceMinister." + CR + CR + ...\par
\tab\tab\tab\tab      "Voulez-vous retenter une recherche de jaquette par le nom de l'artiste (OUI)" + CR + ...\par
\tab\tab\tab\tab      "ou aller en rechercher une ailleurs par vos propres moyens (NON) ?" + CR + CR ) \cf4 Then\par
\cf2\tab\tab\tab\tab Nom_CD = \cf5 StringReplace\cf2  ( Save_Art , " " , "+" ) \cf1 // Nom de l'artiste\cf4\par
\cf2\tab\tab\tab\tab Test = -1 \cf1 // T\'e9moin de l'essai avec le nom d'artiste\par
\cf2\tab\tab\tab\tab\cf4 Goto\cf2  Big_Jaket\par
\tab\tab\tab\cf4 Else\cf2\par
\lang1036\tab\tab\tab\cf1\tab\cf4\lang1033 Goto\cf2  Gest_Err\par
\tab\tab\tab\cf4 End\par
\cf2\tab\tab\cf4 End\par
\cf1\tab\cf4 End\par
End\par
\par
\cf1 //------------------------------------- Extraction de l'image correspondant \'e0 la s\'e9lection -----------------------------------------------------------------------\cf4\par
\cf1\lang1036\par
HtmlCode1 = \cf5 GetMovie \cf1 ( \cf3 MovieURLValue \cf1 , "" , "" )\par
\par
\cf4 If\cf1  HtmlCode1 = "" \cf4 Then\cf2\par
\cf1\tab\cf5 UserErrorMessage \cf1 ( "\cf2 La\cf1  page "\cf2  + \cf3 MovieTitleValue\cf2  + " \cf1 n'a pas \'e9t\'e9 trouv\'e9e." )\par
\cf2\tab\cf4 Return\cf2\par
\cf4\lang1033 End\par
\cf2\lang1036\fs18\par
\lang1033\fs20 HtmlCode2 = \cf5 BetweenStrings\cf2  ( HtmlCode1 , "<td class=""product"">" , "><img src=" )\par
\cf3 H\cf2 tmlCode3 = \cf5 BetweenStrings\cf1  ( HtmlCode2 , "<a href=""javascript:popPicture(\cf2 concat\cf1 ('" , "')" )\par
\cf2 Nb_Car = \cf5 StringLength\cf2  ( HtmlCode3 )\cf1\par
\cf2\par
\cf4 For\cf2  i = 1 To Nb_Car \cf1 // Concat\'e9nation de la cha\'eene repr\'e9sentant l'adresse de la jaquette\cf2\par
\tab\cf4 If\cf2  \cf5 StringMiddle\cf2  ( HtmlCode3 , i , 1 ) = "'" Or \cf5 StringMiddle\cf2  ( HtmlCode3 , i , 1 ) = "," Or \cf5 StringMiddle\cf2  ( HtmlCode3 , i , 1 ) = " " \cf4 Then\cf2\par
\tab\tab\cf4 Continue\cf2\par
\tab\cf4 Else\cf2\par
\tab\tab\cf3 MoviePictureValue\cf2  = \cf3 MoviePictureValue\cf2  + \cf5 StringMiddle\cf2  ( HtmlCode3 , i , 1 )\par
\tab\cf4 End\cf2\par
\cf4 End\cf2\par
\par
\cf1\lang1036\fs18 //..................................................... GESTION DES ERREURS OU MANQUES D'INFORMATIONS SUR CDDB ...........................................................................................\par
\cf2\lang1033\fs20\par
Gest_Err :\par
\par
\cf3 MovieTitleValue\cf2  = Save_Art \cf1 // Reprise du nom de l'artiste\cf2\par
Nom_CD = \cf3 MovieTitleValue\cf2\lang1036\fs18  + " *** " + \cf3 MovieOriginalTitleValue\par
\cf2\lang1033\fs20\par
\cf4\lang1036\fs18 If\cf2  \cf3\lang1033\fs20 MoviePictureValue\cf2\lang1036\fs18  = "" Or \cf3\lang1033\fs20 MoviePictureValue\cf2  = \cf1\lang1036\fs18 "\lang1033\fs20\'04\lang1036\fs18 "\cf2  \cf4 Then\par
\cf2\tab\cf1 Message = "La fiche ""\cf2 "\cf1  + Nom_CD + ""\cf2 "\cf1  a \'e9t\'e9 ajout\'e9e, \cf2 mais\cf1  s\cf2 ans\cf1  jaquette" + CR + CR\par
\cf2\tab\cf3\lang1033\fs20 MoviePictureValue\cf2\lang1036\fs18  = ""\par
\cf4 Else\cf2\par
\tab\cf1 Message = "La fiche ""\cf2 "\cf1  + Nom_CD + ""\cf2 "\cf1  a \'e9t\'e9 ajout\'e9e a\cf2 vec la\cf1  jaquette \cf2 Grand \cf4 For\cf2 mat\cf1 " + CR + CR\par
\cf4 End\cf1\par
\cf2\par
\cf4 If\cf1  \cf3 MovieFamilyValue\cf1  = "" O\cf2 r \cf3 MovieFamilyValue\cf1  = "\lang1033\fs20\'04\lang1036\fs18 "\cf2  \cf4 Then\par
\cf1\tab Message1 = "- Le Genre de musique n'est pas pr\'e9cis\'e9 - D\'e9sol\'e9" + CR\cf2\par
\cf1\tab Message = Message + Message1\par
\cf2\tab\cf3 MovieFamilyValue\cf1  = ""\cf2\par
\cf4 End\cf2\par
\par
\cf4 If\cf1  \cf3 MovieCountryValue\cf1  = \lang1033\fs20 "" O\cf2 r\cf1\lang1036\fs18  \cf3 MovieCountryValue\cf1  = \lang1033\fs20 "\'04" \cf4 Then\cf2\par
\cf1\lang1036\fs18\tab Message2 = "- Le Label de l'\'e9diteur n'est pas pr\'e9cis\'e9 - D\'e9sol\'e9" + CR\cf2\par
\cf1\tab Message = Message + Message2\par
\cf2\tab\cf3 MovieCountryValue\cf1  = \lang1033\fs20 ""\cf2\lang1036\fs18\par
\cf4 End\cf2\par
\par
\cf4 If\cf1  \cf3 MovieYearValue\cf1  = "" O\cf2 r\cf1  \cf3 MovieYearValue\cf1  = "\lang1033\fs20\'04\lang1036\fs18 " \cf4 Then\par
\cf1\tab Message3 = "- L'ann\'e9e d'enregistrement ou de sortie de l'album n'est pas mentionn\'e9e - D\'e9sol\'e9" + CR\cf2\par
\cf1\tab Message = Message + Message3\par
\cf2\tab\cf3 MovieYearValue\cf1  = ""\cf2\par
\cf4 End\cf2\par
\par
\cf4 If\cf1  \cf3 MovieDurationValue\cf1  = "" O\cf2 r\cf1  \cf3 MovieDurationValue\cf1  = "\lang1033\fs20\'04\lang1036\fs18 " \cf4 Then\par
\cf1\tab Message4 = "- La dur\'e9e de l'album n'est pas mentionn\'e9e - D\'e9sol\'e9" + CR\cf2\par
\cf1\tab Message = Message + Message4\par
\cf2\tab\cf3 MovieDurationValue\cf1  = "\cf2 "\par
\cf4 End\cf2\par
 \par
\cf1\lang1033\fs20 //.............................................. CREATION DE LA FICHE ......................................................................................\par
\cf2\lang1036\fs18\par
\cf1 CreateMovie()\par
\cf2\par
\cf5 UserInformationMessage\cf2  ( Message )\par
\cf1\par
\cf2\par
\par
\cf1 // Fin du Script CDDB / version 2.00 Par CyberPapy\par
\cf2\par
\cf7\lang1033\fs20\par
}