{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\fswiss\fprq2\fcharset0 Arial;}}
{\colortbl ;\red0\green128\blue0;\red128\green0\blue128;\red102\green102\blue102;\red0\green0\blue0;\red255\green102\blue0;\red0\green0\blue255;\red255\green0\blue0;}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\cf1\f0\fs20 // DESCRIPTION G\'e9rer votre Audioth\'e8que avec Fnac.com --- recherche par nom d'interpr\'e8te, de groupe, de compositeur ou d'album avec jaquette Grand Format si disponible\par
\lang1033 // AUTHOR CyberPapy\par
// LANGUAGE FR\cf2\par
\cf3\par
\cf2 MovieDatabaseValue\cf3  = "Fnac.com - Audio tous supports"\par
\par
\cf1 //.............................. DECLARATION DES VARIABLES LOCALES ........................................................................................\par
\cf3\par
i, j, k, Pos1, Pos2, Alb_Nb, Max, Voir, Nb_Max, Page_Nb, Art_Nb, T\cf1 ot_Alb, T\cf3 est, Nb_D\cf4 if\cf3 f, N\cf1 b_Art, \cf3 Enreg, Nb_Car, Nb_Lig, Nb_Pistes, Nb_Nom are Int\par
MusicType, HtmlCode, HtmlCode1, HtmlCode2, HtmlCode3, Pages_List, Page_Type, Save_TTS, Liens, ID_Album, ID_Alb_List, Title, Title1, Title2 are \cf4 String\cf3\par
CD_URL, Art_List, Art_Type, Texte, Image, Jaket, An, D\cf1 uree_Alb, \cf3 Delim_No, Piste, No_Piste, Nom, Message, Message1, Message2, Message3, Message4 are \cf4 String\cf3\par
Nom_CD, Nom_Album, Save_Art are \cf4 String\cf1\par
\par
\lang1036 //..................... EXTRACTION DU CODE HTML DE LA(DES) PAGE(S) RECHERCHEE(S) \fs18 .......................................................................................\cf3\par
\lang1033\fs20\par
MusicType = "au\cf1 dio\cf3 " \cf1 // Fnac.com est divis\'e9 en Vari\'e9t\'e9s/Classique - La recherche commence par la sous-base Vari\'e9t\'e9s \par
\cf3\lang1036 Max = 499 \cf1 // Dimension-limite de "MovieDataBase"\par
\cf3 Tot_Alb = 0\par
\lang1033 Save_TTS = \cf5 TitleToSearch \cf1 // Sauvegarde du nom recherch\'e9 \'e0 l'origine pour utilisation de TitleToSearch pour la recherche d'auteur\cf3\par
\lang1036\par
\lang1033 Pages_List = "List" + CR + "titres de disques vari\'e9t\'e9s" + CR + "\cf1 noms d'artistes / groupes"\cf3  + CR + "titres de disques classiques" + CR + ...\par
\tab\tab  "t\cf1 itres \cf3 d'" + CR + "\cf1 noms d'interpr\'e8tes"\cf3  + CR + "\cf1 noms de\cf3  compositeur\cf1 s"\cf3  + CR + "titre de disque vari\'e9t\'e9" + CR + "\cf1 nom d'artiste / groupe"\cf3  + CR + ...\par
\tab\tab  "titre de disque classique" + CR + \cf1 "titre d'"\cf3  + CR + "\cf1 nom d'interpr\'e8te"\cf3  + CR + "\cf1 nom de\cf3  compositeur\cf1 "\cf3\par
\par
\cf4 For\cf3  i = 1 To 6\cf1\par
\cf3\tab Alb_Nb = 0\par
\tab Nb_Max = Max - Tot_Alb\par
\tab Page_Type = \cf6 LinesAfter\cf3  ( Pages_List , i , "List" )\par
\par
\tab\cf4 If\cf3  i > 2 \cf4 Then\cf3  MusicType = "classic" \cf1 // Suite de la recherche dans la sous-base Classique\cf3\par
\cf1\par
\tab HtmlCode1 = \cf6 GetPage\cf1  ( "\lang1036 http://www3.fnac.com/search/quick.do?text=\lang1033 ", \cf5 TitleToSearch\cf1  ,"&category=" + MusicType + "" )\cf3\lang1036\par
\lang1033\tab HtmlCode1 = \cf6 StringRefine\cf3  ( HtmlCode1 )\cf1\par
\cf3\tab Pos1 = \cf6 Position\cf3  ( HtmlCode1 , "suivants" , 1 )\par
\par
\cf4\tab If\cf3  Pos1 > 0 \cf4 Then\cf3  HtmlCode1 = \cf6 StringExtraction\cf3  ( HtmlCode1 , 2 , "suivants" )\par
\par
\tab Pos2 = \cf6 Position\cf3  ( HtmlCode1 , Page_Type , 1 )\par
\par
\cf4\tab If\cf3  Pos2 = 0 \cf4 Then\par
\cf3\tab\tab Page_Type = \cf6 LinesAfter\cf3  ( Pages_List , i + 6 , "List" )\cf4\par
\cf3\tab\tab Pos2 = \cf6 Position\cf3  ( HtmlCode1 , Page_Type , 1 )\par
\cf4\tab End\cf3\par
\par
\cf4\tab If\cf3  Pos2 > 0 \cf4 Then\par
\cf3\tab\tab\cf4 If\cf3  i < 5 \cf4 Then\cf3\par
\tab\tab\tab\cf4 If\cf3  i <> 2 \cf4 Then\cf3\par
\tab\tab\tab\tab HtmlCode2 = \cf6 StringMiddle\cf3  ( HtmlCode1 , Pos2 - 30 , 20 )\par
\tab\tab\tab\tab Alb_Nb = \cf6 BetweenStrings\cf3  ( HtmlCode2 , "<B>" , "<FONT" )\par
\tab\tab\tab\tab\cf4 If\cf3  Alb_Nb = 1 \cf4 Then\par
\tab\cf3\tab\tab\tab\tab\cf4 If\cf3  i = 1 \cf4 Then\cf3\par
\tab\tab\tab\tab\tab\tab HtmlCode2 = \cf6 BetweenStrings\cf3  ( HtmlCode1 , "disque vari\'e9t\'e9" , "<A HREF=""/item/author.do?" )\par
\tab\tab\tab\tab\tab\cf4 Else\cf3\par
\tab\tab\tab\tab\tab\tab HtmlCode2 = \cf6 BetweenStrings\cf3  ( HtmlCode1 , "disque classique" , "<A HREF=""/item/author.do?" )\par
\tab\tab\tab\tab\tab\cf4 End\cf3\par
\par
\tab\tab\tab\tab\tab Pos1 = \cf6 Position\cf3  ( HtmlCode2 , "<B><A HREF=" , 1 )\par
\tab\tab\par
\tab\tab\tab\tab\tab\cf4 If\cf3  Pos1 = 0 \cf4 Then\cf3  HtmlCode2 = \cf6 StringReplace\cf3  ( HtmlCode2 , "<A HREF=" , "><A HREF=" ) \cf1 // Dans ce cas, le formatage doit \'eatre modifi\'e9 pour "Liens"\par
\cf3\tab\tab\par
\tab\tab\tab\tab\tab HtmlCode = HtmlCode + HtmlCode2\par
\tab\tab\tab\tab\cf4 End\cf3\par
\tab\tab\tab\cf4 Else\par
\cf3\tab\tab\tab\tab HtmlCode2 = \cf6 BetweenStrings\cf3  ( HtmlCode1 , "\cf1 groupe"\cf3  , "</TR>" )\par
\tab\tab\tab\tab HtmlCode3 = \cf6 BetweenStrings\cf3  ( HtmlCode2 , "\cf1 <A HREF=""/item/author.do?category="\cf3  , "<BR>" )\cf1\par
\tab\tab\tab\cf3\tab\cf5 TitleToSearch\cf1  = \cf6 BetweenStrings\cf3  ( HtmlCode3 , "id=" , """>" ) \cf1 // Extraction du code-Artiste dans TitleToSearch pour le fonctionnement de GetPage\cf3\par
\tab\tab\tab\tab Alb_Nb = \cf6 BetweenStrings\cf3  ( HtmlCode3 , "(" , " r\'e9sultat" )\cf1\par
\cf3\tab\tab\tab\cf4 End\cf3\par
\tab\tab\cf4 Else\par
\cf3\tab\tab\tab\cf4 If\cf3  i = 5 \cf4 Then\cf3  HtmlCode2 = \cf6 BetweenStrings\cf3  ( HtmlCode1 , "d'\cf1 interpr\'e8te"\cf3  , "</TR>" )\par
\tab\tab\tab\cf4 If\cf3  i = 6 \cf4 Then\cf3  HtmlCode2 = \cf6 BetweenStrings\cf3  ( HtmlCode1 , "\cf1 de\cf3  compositeur\cf1 "\cf3  , "</TR>" )\par
\tab\tab\tab HtmlCode3 = \cf6 BetweenStrings\cf3  ( HtmlCode2 , "\cf1 <A HREF=""/item/author.do?category="\cf3  , "<BR>" )\cf1\par
\tab\tab\tab\cf5 TitleToSearch\cf1  = \cf6 BetweenStrings\cf3  ( HtmlCode3 , "id=" , """>" ) \cf1 // Extraction du code-Artiste dans TitleToSearch pour le fonctionnement de GetPage\cf3\par
\tab\tab\tab Alb_Nb = \cf6 BetweenStrings\cf3  ( HtmlCode3 , "(" , " r\'e9sultat" )\par
\tab\tab\cf4 End\par
\cf3\par
\tab\tab\cf4 If\cf3  Alb_Nb > Nb_Max \cf4 Then\par
\cf3\tab\tab\tab\cf4 A\cf3 lb_Nb = Nb_Max\par
\cf4\par
\cf3\tab\cf4\tab\cf3\tab\cf4 If\cf3  Voir >= 0 \cf4 Then\cf3\par
\tab\tab\tab\tab\cf4 If\cf3  \cf6 YesNo\cf3  ( "La FNAC recense plus de 500 albums correspondant \'e0 '" + \cf5 S\cf3 ave_TTS + "' !" + CR + CR + ...\par
\tab\tab\tab\tab\tab      "Nous ne pouvons enregistrer que les 500 premiers rencontr\'e9s !" + CR + CR + ...\par
\tab\tab\tab\tab\tab      "Voulez-vous les voir (OUI) ou recommencer en affinant votre recherche (NON) ?" + CR ) \cf4 Then\cf3\par
\tab\tab\tab\tab\tab Voir = -1 \cf1 // T\'e9moin d'\'e9dition des titres d'albums trouv\'e9s\cf3\par
\tab\tab\tab\tab\cf4 Else\cf3\par
\tab\tab\tab\tab\tab\cf4 Return\cf3\par
\tab\tab\tab\tab\cf4 End\par
\cf3\tab\tab\tab\cf4 End\par
\cf3\tab\tab\cf4 End\par
\cf3\par
\tab\tab Page_Nb = AlB_Nb / 20\par
\par
\cf4\tab\tab If\cf3  Page_Nb*20 < Alb_Nb \cf4 Then\cf3  Page_Nb = Page_Nb + 1\par
\par
\cf4\lang1036\tab\tab For\cf3  j=1 To Page_Nb\par
\par
\tab\tab\tab\cf4 If\cf3  i < 4 \cf4 Then\par
\cf3\tab\tab\tab\tab\cf4 If\cf3  i <> 2 \cf4 Then\cf1\par
\cf3\lang1033\tab\tab\tab\tab\tab\cf4 If\cf3  Pos1 > 0 \cf4 Then\cf1\par
\cf3\tab\tab\tab\tab\tab\tab\cf1 HtmlCode2 = \cf6 GetPage\cf1  ( "\lang1036 http://www3.fnac.com/search/quick.do?posted=false&filter=-1&text=\lang1033 ",  \cf5 TitleToSearch\cf1  ,"&category=" + MusicType + "&page=" + j + "" )\par
\tab\tab\tab\tab\tab\cf4 Else\cf1\par
\cf3\tab\tab\tab\tab\tab\tab\cf1 HtmlCode2 = \cf6 GetPage\cf1  ( "\lang1036 http://www3.fnac.com/search/quick.do?text=\lang1033 ",  \cf5 TitleToSearch\cf1  ,"&category=" + MusicType + "&page=" + j + "" )\par
\tab\tab\cf3\tab\tab\tab\cf4 End\par
\cf3\tab\tab\tab\tab\cf4 Else\par
\cf1\tab\cf3\tab\cf1\tab\tab\tab HtmlCode2 = \cf6 GetPage\cf1  ( "\lang1036 http://www\cf3 3\cf1 .fnac.com/\lang1033 item/author.do?O\cf3 rderInSession=1\cf1 &category=" \cf3 +\cf1  MusicType +\cf3  \cf1 "&\cf3 id=", \cf5 TitleToSearch\cf3  ,"\cf1 &page=" + j +\cf3  "\cf1 " )\par
\cf3\tab\tab\tab\tab\cf4 End\par
\cf3\tab\tab\tab\cf4 Else\par
\cf3\tab\tab\tab\tab\cf4 If\cf3  i = 4 \cf4 Then\cf3  \cf1 HtmlCode2 = \cf6 GetPage\cf1  ( "\lang1036 http://www3.fnac.com/search/quick.do?posted=false&filter=-13&text=\lang1033 ",\cf3  \cf1  \cf5 TitleToSearch\cf1  ,"&category=" + MusicType + "&page=" + j + "" )\par
\tab\tab\tab\tab\cf4 If\cf3  i > 4 \cf4 Then\cf3  \cf1 HtmlCode2 = \cf6 GetPage\cf1  ( "\lang1036 http://www\cf3 3\cf1 .fnac.com/\lang1033 item/author.do?O\cf3 rderInSession=1\cf1 &category=" \cf3 +\cf1  MusicType +\cf3  \cf1 "&\cf3 id=", \cf5 TitleToSearch\cf3  ,"\cf1 &page=" + j +\cf3  "\cf1 " )\par
\cf3\tab\tab\tab\cf4 End\cf3\tab\tab\tab\cf1\par
\cf3\par
\tab\tab\tab HtmlCode3 = \cf6 BetweenStrings\cf3  ( HtmlCode2 , "<META NAME=" , ">Nous avons trouv" )\par
\tab\tab\tab HtmlCode2 = \cf6 StringReplace\cf3  ( HtmlCode2 , HtmlCode3 , " " ) \cf1 // Suppression du TOP3\par
\cf6\tab\tab\tab H\cf3 tmlCode = HtmlCode + HtmlCode2\par
\tab\tab\cf4 End\par
\par
\cf3\tab\tab\cf5 TitleToSearch\cf3  = Save_TTS \cf1 // Reprise du nom recherch\'e9 \'e0 l'origine\cf3\par
\cf4\tab End\par
\par
\cf3\tab Tot_Alb = Tot_Alb + Alb_Nb\par
\cf4 End\cf3\par
\par
\cf4\lang1036 If\cf1  HtmlCode = "" \cf4 Then\cf3\par
\cf1\tab\cf6 UserErrorMessage \cf1 ( "A\cf3 ucune\cf1  page n'a pas \'e9t\'e9 trouv\'e9e \cf3 pour '" + \cf5 TitleToSearch\cf3  + "'\cf1 " )\cf3\par
\cf1\tab\cf4 Return\cf3\par
\cf4 End\par
\cf1\lang1033\par
//.............................. RECHERCHE DES ALBUMS DANS LE CODE OBTENU \lang1036\fs18 ...........................................................................................\cf3\par
\lang1033\fs20\par
Liens = "\cf1 ><A\cf3  HREF\cf1 =""http://www.fnac.com/Shelf/\cf3\f1 "\f0\par
\lang1036 Nb_D\cf4 if\cf3 f = 0\par
\lang1033\par
\cf4\lang1036 If\cf1  \cf3\lang1033 Tot_Alb\cf1\lang1036  = 0 \cf4 Then\cf3\par
\cf1\tab\cf6 UserErrorMessage \cf1 (\cf3  \cf1 "'"\cf3  + \cf5 TitleToSearch\cf3  + \cf1 "' \cf3 ne figure pas dans la(les) page(s) qui ont \'e9t\'e9 trouv\'e9e(s)" + C\cf1 R\cf3  + C\cf1 R\cf3  + ...\par
\tab\tab\tab\tab  "- Avez-vous v\'e9ri\cf4 f\cf3 i\'e9 l'orthographe ?" + cr+ ...\par
\tab\tab\tab\tab  "- Avez-vous v\'e9r\cf4 if\cf3 i\'e9 que www.fnac.com poss\'e8de au moins un album pour '" + \cf5 TitleToSearch\cf3  + \cf1 "'" + \cf3 C\cf1 R \cf3 + C\cf1 R \cf3 + ...\par
\tab\tab\tab\tab  "Si vous \'eates s\'fbr de ces 2 choses, eh bien sachez que je suis d\'e9sol\'e9," + C\cf1 R\cf3  + ...\par
\tab\tab\tab\tab  "mais la FNAC r\'e9pertorie seulement les albums qu'elle v\cf4 end\cf3  !" + C\cf1 R\cf3  + ...\par
\tab\tab\tab\tab  "Il est donc possible qu'elle n'ait pas '" + \cf5 TitleToSearch\cf3  + "' en stock !" )\tab\cf1\par
\cf4\tab Return\par
End\cf3\lang1033\par
\par
\cf4 For\cf3  i=2 To Tot_Alb + 1\par
\cf0\tab Title = L\cf3 iens + \cf6 StringExtraction\cf0  ( \cf1 HtmlCode \cf0 , i , L\cf3 iens\cf0  )\cf1\tab\cf0\par
\tab ID_\cf3 Album\cf0  = \cf6 BetweenStrings\cf0  ( Title , "\cf1 P\cf3 RID="\cf0  , "\cf1 &amp\cf0 " )\par
\cf1\tab Test = \cf6 StringCounter\cf1  ( ID_Alb_List , ID_Album ) // V\'e9rification de la pr\'e9sence de l'album dans la liste d\'e9j\'e0 retenue pour ne pas l'ajouter\cf3\par
\par
\cf1\tab\cf4 If\cf1  Test = 0 \cf4 Then\par
\cf3\tab\tab\cf1 N\cf3 b_D\cf4 if\cf3 f\cf1  = N\cf3 b_D\cf4 if\cf3 f\cf1  + 1 // Suivi des albums enregistr\'e9s par rapport \'e0 la limite de la table "MovieList"\par
\cf3\tab\tab ID_Alb_List = ID_Alb_List + \cf0 ID_\cf3 Album + "-"\par
\cf1\tab\tab Title1 = \cf6 BetweenStrings\cf1  ( Title , "&amp;Fr=" , "<A HREF=""/item/author" )\par
\tab\tab Title = \cf6 BetweenStrings\cf1  ( Title1 , """>" , "</\cf3 A>\cf1 " )\par
\cf3\tab\tab\cf1 Title\cf3\lang1036\fs18  = \cf6\lang1033\fs20 FormatString\cf3  ( \cf1 Title\cf3  , "WOS" ) \cf1 // Suppression des espaces et autres caract\'e8res sp\'e9ciaux HTML avant le titre de l'album\cf3\par
\tab\tab Title2 = \cf6 BetweenStrings \cf3 ( Title1 , "FONT CLASS=" , "\cf1 </F\cf3 ONT>" )\par
\cf1\tab\tab Title2 = \cf6 BetweenStrings \cf1 ( Title2, """>" , "</F\cf3 ONT\cf1 >\cf3 " )\par
\tab\tab Title = Title + "   " + Title2\par
\tab\tab Title = \cf6 StringReplace\cf3  ( Title , "&amp;" , "  " )\par
\tab\tab Title = \cf6 StringRefine \cf3 ( Title )\par
\tab\tab Title = \cf6 FormatString\cf3  ( Title , "UC" )\par
\tab\tab Title = \cf6 RemoveHTMLTags\cf3  ( Title )\par
\cf1\tab\tab CD_URL = "\lang1036\fs18 http://www.fnac.com/Shelf/article.asp?PRID=\lang1033\fs20 " + ID_Album + \lang1036\fs18 ""\cf3\par
\lang1033\fs20\tab\tab\cf6 AddMovieToList \cf1 ( N\cf3 b_D\cf4 if\cf3 f\cf1  , ID_\cf3 Album \cf1 , Title ,\cf3  CD_\cf1 URL ) // Utilisation du compteur d'albums retenus Nb_Diff pour la constitution de la liste car, avec les sauts dus aux doublons, i est discontinu\par
\cf3\tab\cf4 End\cf1\par
\cf4 End\par
\par
\cf1\lang1036\fs18 //.................................... OUVERTURE DE LA LISTE DES ALBUMS TROUVES....................................................................................................\par
\par
\cf6\lang1033 OpenMoviesList \cf1 ()\par
\cf3\par
\cf4\fs20 If\cf1  \cf2 MovieIDValue\cf1  = "" \cf4 Then\par
\cf3\tab\cf4 If\cf3  \cf6 YesNo\cf3  ( "Avez-vous trouv\'e9 la r\'e9f\'e9rence de votre album ?" ) \cf4 Then\cf3\par
\cf1\tab\tab\cf6\lang1036 UserErrorMessage \cf1 ( "Vous ne\cf3  l'\cf1 avez p\cf3 as \cf1 s\'e9lectionn\'e9 \cf3 !\cf1 " \cf3 + CR + CR + "Recommencez la recherche !" \cf1 )\par
\cf3\tab\tab\cf4 Return\cf1\par
\cf3\tab\cf4 Else\par
\cf3\tab\tab\cf6\lang1033 UserInformationMessage\cf3  ( "Veuillez affiner votre demande, avec le pr\'e9nom, par exemple." + CR + CR + ...\par
\tab\tab\tab\tab\tab\tab  "Cep\cf4 end\cf3 ant, il n'est pas certain que vous obti\cf4 end\cf3 rez ce que" + Cr + ...\par
\tab\tab\tab\tab\tab\tab  "vous cherchez car la base Fnac pratique le 'Commence par' et" + CR + ...\par
\tab\tab\tab\tab\tab\tab  "renvoie la premi\'e8re occurrence trouv\'e9e ! D\'e9sol\'e9 !" )\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) ..........................\cf3\par
\par
\cf1 HtmlCode = \cf6 GetMovie \cf1 ( \cf2 MovieURLValue \cf1 , "" , "" )\par
\par
\cf4 If\cf1  HtmlCode = "" \cf4 Then\cf3\par
\cf1\tab\cf6 UserErrorMessage \cf1 ( "\cf3 La\cf1  page "\cf3  + \cf5 Title\cf3  + " \cf1 n'a pas \'e9t\'e9 trouv\'e9e." )\par
\cf3\tab\cf4 Return\cf3\par
\cf4\lang1033 End\par
\cf3\lang1036\fs18\par
\cf1 //................................................. NOM DE L'ARTISTE ...................................................................................................................\cf3\par
\par
\cf1 HtmlCode1 = \cf6 BetweenStrings\cf1  ( HtmlCode , "DetailFiche"">" , "<\cf3 /table\cf1 >" )\par
\cf3 Art_List = "List" + CR + "Chef d'orchestre" + CR + "\cf4 For\cf3 mation" + CR + "Interpr\'e8te" + CR + "Violon" + CR + "Piano" + CR + "Violoncelle" + CR + "Guitare" + CR + "Claviers" + CR + ...\par
\tab     "Trompette" + CR + "Hautbois" + CR + "Fl\'fbte" + CR + "Cor" + CR + "Vents" + CR + "Soprano" + CR + "Mezzo soprano" + CR + "Mezzo-soprano" + CR + "Contralto" +  CR + ...\par
\tab     "Contre t\'e9nor" + CR + "Contre-t\'e9nor" + CR + "T\'e9nor" + CR + "Baryton" + CR + "Basse" \cf1\par
L\cf3 iens = "\cf1 <a href=""http://www3.fnac.com/item/author.do?"\par
\cf3 Nom_Album = \cf6 StringReplace\cf3  ( \cf2 MovieTitleValue \cf3 , " " , "+" ) \cf1 // Sauvegarde du choix effectu\'e9, avec Formatage de concat\'e9nation, pour recherche de la jaquette grand format\par
\cf2 MovieTitleValue\cf3  = "" \cf1 // Effacement du nom de l'album s\'e9lectionn\'e9 pour r\'e9utilisation avec le nom de l'artiste\par
\cf3\par
\cf4 For\cf1  i = 1 to 2\cf3 1\par
\tab Art_Type = \cf6 LinesAfter\cf3  ( Art_List , i , "List" )\par
\par
\cf4\tab If\cf3  \cf6 Position\cf3  ( HtmlCode1 , \lang1033\fs20 Art_Type\lang1036\fs18  , 1 ) = 0 \cf4 Then\par
\cf3\tab\tab\cf4 Continue\cf3\par
\tab\cf4 Else\par
\cf3\tab\tab\cf4 If\cf3  i = 4 \cf4 Then\cf3\par
\tab\tab\tab Pos1 = \cf6 Position\cf3  ( HtmlCode1 , \lang1033\fs20 Art_Type\lang1036\fs18  , 1 )\par
\par
\tab\tab\tab\cf4 If\cf3  \cf6 StringMiddle\cf3  ( HtmlCode1 , Pos1 + 6 , 3 ) = \cf6 "\cf3 cel" \cf4 Then\cf3  \cf4 Continue\par
\cf3\tab\tab\cf4 End\cf3\par
\cf4\par
\cf3\tab\tab Nb_D\cf4 if\cf3 f = \cf6 StringCounter\cf1  ( HtmlCode1 , A\cf3 rt_Type\cf1  )\par
\cf3\par
\tab\tab\cf4 For\cf3  k = 2 To Nb_D\cf4 If\cf3 f + 1\par
\tab\tab\tab HtmlCode2 = \cf6 StringExtraction\cf3  ( HtmlCode1 , \cf2 k\cf3  , Art_Type )\cf4\par
\cf3\tab\tab\tab HtmlCode2 = \cf6 BetweenStrings\cf3  ( HtmlCode2 , \lang1033\fs20 "class=""bkgdetail"\lang1036\fs18  , "</tr>" )\par
\par
\cf1\tab\tab\tab Nb_Art = \cf6 StringCounter\cf1  ( HtmlCode2 , Liens )\par
\par
\cf4\tab\tab\tab For\cf3  j\cf1  = 2\cf3  \cf4 To \cf3 Nb_A\cf1 rt \cf3 + 1\par
\tab\tab\tab\tab HtmlCode3 = \cf6 StringExtraction\cf3  ( HtmlCode2 , \cf2 j\cf3  , L\cf1 iens\cf3  )\par
\tab\tab\tab\tab HtmlCode3 = \cf6\lang1033\fs20 BetweenStrings\cf3  ( \cf2 H\cf3 tmlCode3 , "&TTL=" , "/a>" )\par
\lang1036\fs18\tab\tab\tab\tab\cf2\lang1033\fs20 H\cf3 tmlCode3 = \cf6 BetweenStrings\cf3  ( \cf2 H\cf3 tmlCode3 , ">" , "<" )\par
\lang1036\fs18\tab\tab\tab\tab\cf2\lang1033\fs20 H\cf3 tmlCode3 = \cf6 FormatString\cf3  ( \cf2\lang1036\fs18 H\cf3 tmlCode3\cf2  \cf3\lang1033\fs20 , "WOS" ) \cf1 // Suppression des espaces avant le nom de l'artiste\cf3\par
\tab\par
\tab\tab\tab\tab\cf4 If\cf3  \cf2\lang1036\fs18 MovieTitleValue\cf3  = "" \cf4 Then\par
\cf3\tab\tab\tab\tab\tab\cf2 MovieTitleValue\cf3  = HtmlCode3\par
\tab\tab\tab\tab\cf4 Else\par
\cf3\tab\tab\tab\tab\tab\cf4 If\cf3  i = 1 \cf4 Then\cf3\tab\cf2 MovieTitleValue\cf3  = \cf2 MovieTitleValue \cf3\lang1033\fs20 + " et " + HtmlCode3\par
\lang1036\fs18\tab\tab\tab\tab\tab\cf4 If\cf3  i = 2 \cf4 Then\cf3\tab\cf2 MovieTitleValue\cf3  = \cf2 MovieTitleValue \cf3\lang1033\fs20 + " avec " + HtmlCode3\par
\lang1036\fs18\tab\tab\tab\tab\tab\cf4 If\cf3  \cf6 i\cf3  >= 3 \cf4 Then \cf2 MovieTitleValue\cf3  = \cf2 MovieTitleValue \cf3\lang1033\fs20 + " et " + HtmlCode3\par
\lang1036\fs18\tab\tab\tab\tab\cf4 End\cf3\par
\cf4\tab\tab\tab End\par
\cf3\tab\tab\cf4 End\par
\cf3\tab\cf4 End\cf3\par
\cf4 End\cf3\par
\cf2\par
MovieTitleValue\cf3  = \cf6 StringReplace\cf3  ( \cf2 MovieTitleValue\cf3  , "_" , " " )\cf2\par
MovieTitleValue\cf3  = \cf6\lang1033\fs20 FormatString\cf3  ( \cf2\lang1036\fs18 MovieTitleValue \cf3\lang1033\fs20 , "UC" ) \cf1 // Nom de l'artiste en majuscules\cf3\lang1036\fs18\par
\par
\cf1 //............................................... TITRE DE L'ALBUM ...................................................................................................................\cf3\par
\par
HtmlCode1\cf1  = \cf6 BetweenStrings\cf1  ( HtmlCode , "\cf3 DisplayZoomPopUp(url)\cf1 " , "<IMG SRC=" )\par
\cf2 MovieOriginalTitleValue\cf1  = \cf6\lang1033\fs20 BetweenStrings\cf1  ( HtmlCod\cf3 e1\cf1  , "<h\cf3 5>\cf1 " , "<\cf3 /h5\cf1 >" )\par
\cf2\lang1036\fs18 MovieOriginalTitleValue\cf3  = \cf6\lang1033\fs20 FormatString\cf3  ( \cf2\lang1036\fs18 MovieOriginalTitleValue\cf3\lang1033\fs20 , "WOS" ) \cf1 // Suppression des espaces et autres caract\'e8res sp\'e9ciaux HTML apr\'e8s le titre de l'album\cf2\lang1036\fs18\par
MovieOriginalTitleValue\cf3\fs20  = \cf6\lang1033 StringReplace\cf3\lang1036  ( \cf2\fs18 MovieOriginalTitleValue\cf3\fs20  , "\lang1033 &\lang1036 " , "+" )\par
\cf2\fs18 H\cf3 tmlCode2\cf2  =\cf3  \cf6 BetweenStrings\cf3  ( HtmlCode1 , "\cf1\lang1033\fs20 <\cf3 /h5\cf1 >\cf3\lang1036\fs18 " , "<" )\par
\cf2 H\cf1 tmlCode2\cf3  = \cf6\lang1033\fs20 FormatString\cf3  ( \cf2\lang1036\fs18 H\cf1 tmlCode2\cf3\lang1033\fs20 , "WOS" ) \cf1 // Suppression des espaces et autres caract\'e8res sp\'e9ciaux HTML avant le titre compl\'e9mentaire de l'album\cf2\lang1036\fs18\par
\cf3\fs20 Texte = \cf6\lang1033 StringExtraction\cf1  (\cf2\lang1036\fs18 H\cf3 tmlCode2\cf1\lang1033\fs20  , 1 , "\cf3 -\cf1 ")\cf3\lang1036\par
\cf4\fs18\par
Switch\cf3  \cf6 StringLeft\cf3  (Texte , 5)\par
\tab\cf4 Case\cf3  "Editi"\par
\tab\tab HtmlCode2 = ""\par
\tab\cf4 Case\cf3  "Inclu"\par
\tab\tab HtmlCode2 = ""\par
\tab\cf4 Case\cf3  "Longb"\par
\tab\tab HtmlCode2 = ""\par
\tab\cf4 Case\cf3  "Livre"\par
\tab\tab HtmlCode2 = ""\par
\tab\cf4 Case\cf3  "CD st"\par
\tab\tab HtmlCode2 = ""\par
\tab\cf4 Case\cf3  "Versi"\par
\tab\tab HtmlCode2 = ""\par
\tab\cf4 Case\cf3  "Doubl"\par
\tab\tab HtmlCode2 = ""\par
\cf4\tab Case\cf3  "Remas"\par
\tab\tab HtmlCode2 = ""\par
\tab\cf4 Case\cf3  "Lisib"\par
\tab\tab HtmlCode2 = ""\par
\cf4 End\cf2\par
\par
\cf4 If\cf3  HtmlCode2 <> "" \cf4 Then \cf2 MovieOriginalTitleValue\cf1  = \cf2 MovieOriginalTitleValue\cf1  + " - " + HtmlCode2\cf4\par
\cf7\par
\cf1 //.......................................... NOM DU COMPOSITEUR ..................................................................................................................\par
\par
HtmlCode1 = \cf6 BetweenStrings\cf1  ( HtmlCode , "DetailFiche"">" , "<\cf3 /table\cf1 >" )\cf3\par
\cf1 L\cf3 iens = "\cf1 <a href=""http://www3.fnac.com/item/author.do?"\par
\cf3\par
\cf4 If\cf3  \cf6 Position\cf3  ( HtmlCode1 , "C\cf1 ompositeur\cf3 " , 1 ) > 0 \cf4 Then\par
\cf3\tab Nb_D\cf4 if\cf3 f = \cf6 StringCounter\cf1  ( HtmlCode1 , \cf3 "C\cf1 ompositeur\cf3 "\cf1  )\par
\cf3\par
\tab\cf4 For\cf3  j = 2 To Nb_D\cf4 if\cf3 f + 1\par
\tab\tab HtmlCode2 = \cf6 StringExtraction\cf3  ( HtmlCode1 , \cf2 j\cf3  , "C\cf1 ompositeur\cf3 " )\cf4\par
\cf3\tab\tab HtmlCode2 = \cf6 BetweenStrings\cf3  ( HtmlCode2 , \lang1033\fs20 "class=""bkgdetail"\lang1036\fs18  , "</tr>" )\par
\par
\cf1\tab\cf3\tab\cf1 Nb_Art = \cf6 StringCounter\cf1  ( HtmlCode1 , Liens )\cf3\par
\lang1033\fs20\par
\cf4\lang1036\fs18\tab\cf3\tab\cf4 For\cf3  i\cf1  = 2\cf3  \cf4 To \cf3 Nb_A\cf1 rt \cf3 + 1\par
\tab\tab\tab HtmlCode3= \cf6 StringExtraction\cf3  ( HtmlCode2 , \cf2 i\cf3  , L\cf1 iens\cf3  )\par
\tab\tab\tab HtmlCode3 = \cf6\lang1033\fs20 BetweenStrings\cf3  ( \cf2 H\cf3 tmlCode3 , "&TTL=" , "/a>" )\par
\lang1036\fs18\tab\tab\tab\cf2\lang1033\fs20 H\cf3 tmlCode3 = \cf6 BetweenStrings\cf3  ( \cf2 H\cf3 tmlCode3 , ">" , "<" )\par
\par
\tab\tab\tab\cf4 If\cf3  HtmlCode3 = "\cf1\'04\cf3 " \cf4 Then\par
\cf3\tab\tab\tab\tab HtmlCode3 = ""\par
\tab\tab\tab\tab\cf4 Continue\cf3\par
\tab\tab\tab\cf4 End\cf3\par
\par
\cf2\lang1036\fs18\tab\cf3\tab\cf2\tab H\cf3 tmlCode3 = \cf6\lang1033\fs20 FormatString\cf3  ( \cf2\lang1036\fs18 H\cf3 tmlCode3 \lang1033\fs20 , "WOS" ) \cf1 // Suppression des espaces et autres caract\'e8res sp\'e9ciaux HTML avant le nom du compositeur\cf3\lang1036\fs18\par
\lang1033\fs20\tab\tab\tab\cf6\lang1036\fs18 AddMovieComposers\cf1  ( HtmlCode3 )\cf3\par
\cf4\tab\cf3\tab\cf4 End\par
\cf3\tab\cf4 End\cf3\par
\cf4 End\cf3\par
\cf2\par
\cf1 //..................................... JAQUETTE CD GRAND FOrMAT .... SINON "FNAC" - Petite donc qualit\'e9 pas g\'e9niale :-( ...............................................................................................\cf3\par
\cf2\par
\cf1 S\cf3 ave_Art = \cf2 MovieTitleValue\cf3  \cf1 // Sauvegarde du nom de l'artiste pour utilisation de \cf2 MovieTitleValue\cf1  dans le choix de la jaquette\par
\cf3 Test = 0 \cf1 // Initialisation du t\'e9moin de recherche avec le nom d'album\par
\cf3\par
Big_Jaket :\par
\cf1\par
\cf2 MovieIDValue\cf3  \cf1 = ""\par
\cf2 MovieTitleValue \cf1 = ""\par
\cf2 MovieURLValue\cf3  = ""\cf1\par
\cf2\lang1033\fs20 MoviePictureValue\cf3  = ""\par
Alb_Nb = 0\par
Nb_D\cf4 if\cf3 f = 0\par
i = 2\par
\par
\cf4 While\cf3  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\cf3 i++\par
\cf4 End\cf3\par
\cf1\par
//--------------------------------------- Pr\'e9sentation des diverses jaquettes de l'album figurant sur PriceMinister ----------------------------------------------------------------------\par
\par
\lang1033\fs20 HtmlCode1 = \cf6 GetMovie\cf1  ( \lang1036\fs18 "http://www.priceminister.com/navigation?action=search&category=search_music&keyword=", Nom_Album ,"&noicon=false&\cf3 pos=1&sort=10\cf1 " )\cf3\par
\lang1033\fs20\par
HtmlCode3 = \cf6 BetweenStrings\cf3  ( HtmlCode1 , "<!-- Version : V" , "Vous avez recherch\'e9 ""<b>" )\par
HtmlCode1 = \cf6 StringReplace\cf3  ( HtmlCode1 , HtmlCode3 , " " ) \cf1 // Suppression du d\'e9but de page\cf3\par
HtmlCode2 = \cf6 BetweenStrings\cf3  ( HtmlCode1 , "dans la cat\'e9gorie ""Musique""." , "</table>" )\par
\cf2 A\cf3 lb_Nb\cf1  = \cf6 BetweenStrings\cf1  ( HtmlCode2 , "\cf2 sur <b>\cf1 " , "</b>" )\par
\cf3\par
\cf4 If\cf3  Alb_Nb > 0 _And_ Alb_Nb <= 10 \cf4 Then Goto\cf3  Liste_jakets\par
\cf4 If\cf3  Alb_Nb = 0 \cf4 Then\par
\cf3\tab\cf4 If\cf3  Test < 0 \cf4 Then\cf3\par
\tab\tab\cf6 UserInformationMessage\cf3  ("Le r\'e9sultat n'est pas meilleur avec le nom de l'artiste !" + CR + CR + ...\par
\cf4\tab\cf3\tab\tab\tab\tab\tab "Ce sera donc la petite jaquette Fnac ! D\'e9sol\'e9 pour vous !" + CR )\par
\tab\tab\cf4 Goto\cf3  Jaket_Fnac\par
\tab\cf4 Else\par
\cf3\lang1036\tab\tab\cf4\lang1033 If\cf3  \cf6 YesNo\cf3  ( "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\cf3 f\'e9rentes :" + CR + CR + ...\par
\tab\tab\tab      "1 - Ce site n'est approvisionn\'e9 que par les v\cf4 end\cf3 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 \'e0 la Fnac est" + CR + ...\par
\tab\tab\tab      "    d\cf4 if\cf3 f\'e9rent de celui entr\'e9 par le v\cf4 end\cf3 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 vous contenter de la petite jaquette FNAC pour l'instant (NON) ?" + CR + CR ) \cf4 Then\par
\cf3\tab\tab\tab Nom_Album = \cf6 StringReplace\cf3  ( Save_Art , " " , "+" ) \cf1 // Nom de l'artiste\cf4\par
\cf3\tab\tab\tab Test = -1 \cf1 // T\'e9moin de l'essai avec le nom d'artiste\par
\cf3\tab\tab\tab\cf4 Goto\cf3  Big_Jaket\par
\tab\tab\cf4 Else\cf3\par
\lang1036\tab\tab\cf1\tab\cf4\lang1033 Goto\cf3  Jaket_Fnac\par
\tab\tab\cf4 End\par
\cf3\tab\cf4 End\par
End\cf1\par
\cf3\par
\cf4 For\cf3  i\cf1  = 21 To Alb_Nb Step 20\par
\cf3\tab\cf1 HtmlCode2 = \cf6 GetMovie\cf1  ( \lang1036\fs18 "http://www.priceminister.com/navigation?action=search&category=search_music&keyword=", Nom_Album ,"&noicon=false&\cf3 pos=" + i + "&sort=10\cf1 " )\par
\cf3\lang1033\fs20\tab HtmlCode3 = \cf6 BetweenStrings\cf3  ( HtmlCode2 , "<!-- Version : V" , "Vous avez recherch\'e9 ""<b>" )\par
\tab HtmlCode2 = \cf6 StringReplace\cf3  ( HtmlCode2 , HtmlCode3 , " " ) \cf1 // Suppression du d\'e9but de page\cf3\par
\tab HtmlCode1 = HtmlCode1 + HtmlCode2\par
\cf4 End\cf3\par
\par
Liste_jakets :\par
\par
Liens = "<td width=""80"" align=""center"">" \cf1 // Version 1.03 > 1.04 : modification "<td width=70 align=center>" en "<td width=""80"" align=""center"">"\cf3\par
\par
\cf4 For\cf3  i = 2 To Alb_Nb + 1\par
\cf0\tab Title = L\cf3 iens + \cf6 StringExtraction\cf0  ( \cf1 HtmlCode1 \cf0 , i , L\cf3 iens\cf0  )\par
\par
\cf3\tab\cf4 If\cf3  \cf6 StringLeft\cf3  ( \cf6 LinesAfter\cf3  ( Title , 2 , Liens ) , 20 ) <> "\cf1 <a href=""/offer/buy/\cf3 " \cf4 Then\cf3  \cf4 Continue\par
\cf3\par
\tab\cf1 N\cf3 b_D\cf4 if\cf3 f\cf1  = N\cf3 b_D\cf4 if\cf3 f\cf1  + 1 // Suivi des albums enregistr\'e9s pr\'e9sentant une jaquette\cf0\par
\cf3\tab Title1 = \cf6 LinesAfter\cf3  ( Title , 2 , Liens )\cf0\par
\tab ID_\cf3 Album\cf0  = \cf6 BetweenStrings\cf0  ( Title1 , "\cf1 <a href=""/offer/buy/\cf3 "\cf0  , "\cf1 /\cf0 " )\par
\cf1\tab Title1 = \cf6 LinesAfter\cf1  ( Title , 3 , L\cf3 iens\cf1  )\par
\tab Title = \cf6 BetweenStrings\cf1  ( Title1 , "alt="\cf3 "\cf1 " , " - " )\par
\tab Title\lang1036\fs18  = \cf6\lang1033\fs20 FormatString\cf1  ( Title , "WOS" ) // Suppression des espaces et autres caract\'e8res sp\'e9ciaux HTML avant le titre de l'album\cf3\par
\tab Title = \cf6 StringRefine \cf3 ( Title )\par
\tab Title = \cf6 FormatString\cf3  ( Title , "UC" )\par
\tab Title = \cf6 RemoveHTMLTags\cf3  ( Title )\par
\cf1\tab CD_URL = "\lang1036\fs18 http://www.priceminister.com/\lang1033\fs20 offer/buy\lang1036\fs18 /\lang1033\fs20 " + ID_Album + \lang1036\fs18 ""\cf3\par
\lang1033\fs20\tab\cf6 AddMovieToList \cf1 ( Nb_Diff , ID_\cf3 Album \cf1 , Title ,\cf3  CD_\cf1 URL )\par
\cf4 End\par
\par
\cf1 //------------------------------------- S\'e9lection de la jaquette correspondant \'e0 l'album saisi ----------------------------------------------------------------\cf4\par
\cf1\lang1036\fs18\par
\cf6\lang1033\fs20 UserInformationMessage\cf3  ( "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_Album + "&noicon=false&pos=1&sort=10" )\cf3\lang1033\fs20\par
\cf6\fs18 OpenMoviesList \cf1 ()\par
\cf3\par
\cf4\fs20 If\cf1  \cf2 MovieIDValue\cf1  = "" \cf4 Then\par
\cf3\tab\cf4 If\cf3  \cf6 YesNo\cf3  ( "Avez-vous trouv\'e9 la jaquette de votre album ?" ) \cf4 Then\cf3\par
\cf1\tab\tab\cf6\lang1036 UserErrorMessage \cf1 ( "Vous ne\cf3  l'\cf1 avez p\cf3 as \cf1 s\'e9lectionn\'e9 \cf3 !\cf1 " \cf3 + CR + CR + "Recommencez depuis le d\'e9but !" \cf1 )\par
\cf3\tab\tab\cf4 Return\cf1\par
\cf3\tab\cf4 Else\par
\cf3\lang1033\tab\tab\cf4 If\cf3  Test < 0 \cf4 Then\cf3\par
\tab\tab\tab\cf6 UserInformationMessage\cf3  ("Le r\'e9sultat n'est pas meilleur avec le nom de l'artiste !" + CR + CR + ...\par
\cf4\tab\cf3\tab\tab\tab\tab\tab\tab "Ce sera donc la petite jaquette Fnac ! D\'e9sol\'e9 pour vous !" + CR )\par
\tab\tab\tab\cf4 Goto\cf3  Jaket_Fnac\par
\tab\tab\cf4 Else\cf3\par
\lang1036\tab\tab\tab\cf4\lang1033 If\cf1  YesNo\cf3  ( "Cela peut s'expliquer de deux mani\'e8res d\cf4 if\cf3 f\'e9rentes :" + CR + CR + ...\par
\tab\tab\tab\tab\cf1      \cf3 "1 - Ce site n'est approvisionn\'e9 que par les v\cf4 end\cf3 eurs d'occasions" + CR + ...\par
\tab\tab\tab\tab\cf1      \cf3 "    et votre album n'est pas r\'e9pertori\'e9 actuellement," + CR + CR + ...\par
\tab\tab\tab\tab\cf1      \cf3 "2 - Le titre sous lequel l'album est enregistr\'e9 \'e0 la Fnac est" + CR + ...\par
\tab\tab\tab\tab\cf1      \cf3 "    d\cf4 if\cf3 f\'e9rent de celui entr\'e9 par le v\cf4 end\cf3 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 vous contenter de la petite jaquette FNAC pour l'instant (NON) ?" + CR + CR ) \cf4 Then\par
\cf3\tab\tab\tab\tab Nom_Album = \cf6 StringReplace\cf3  ( Save_Art , " " , "+" ) \cf1 // Nom de l'artiste\cf4\par
\cf3\tab\tab\tab\tab Test = -1 \cf1 // T\'e9moin de l'essai avec le nom d'artiste\par
\cf3\tab\tab\tab\tab\cf4 Goto\cf3  Big_Jaket\par
\tab\tab\tab\cf4 Else\cf3\par
\lang1036\tab\tab\tab\cf1\tab\cf4\lang1033 Goto\cf3  Jaket_Fnac\par
\tab\tab\tab\cf4 End\par
\cf3\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 = \cf6 GetMovie \cf1 ( \cf2 MovieURLValue \cf1 , "" , "" )\par
\par
\cf4 If\cf1  HtmlCode1 = "" \cf4 Then\cf3\par
\cf1\tab\cf6 UserErrorMessage \cf1 ( "\cf3 La\cf1  page "\cf3  + \cf2 MovieTitleValue\cf3  + " \cf1 n'a pas \'e9t\'e9 trouv\'e9e." )\par
\cf3\tab\cf4 Return\cf3\par
\cf4\lang1033 End\par
\cf3\lang1036\fs18\par
\lang1033\fs20 HtmlCode2 = \cf6 BetweenStrings\cf3  ( HtmlCode1 , "<td class=""product"">" , "><img src=" )\cf1\par
\cf2 H\cf3 tmlCode3 = \cf6 BetweenStrings\cf1  ( HtmlCode2 , "<a href=""javascript:popPicture(\cf3 concat\cf1 ('" , "')" ) // Ajout "concat(" pour V1.03 > V1.04\par
\cf3 Nb_Car = \cf6 StringLength\cf3  ( HtmlCode3 ) \cf1 // V1.03 > V1.04\par
\cf3\par
\cf4 For\cf3  i = 1 To Nb_Car \cf1 // Concat\'e9nation de la cha\'eene repr\'e9sentant l'adresse de la jaquette (V1.03 > V1.04)\cf3\par
\tab\cf4 If\cf3  \cf6 StringMiddle\cf3  ( HtmlCode3 , i , 1 ) = "'" Or \cf6 StringMiddle\cf3  ( HtmlCode3 , i , 1 ) = "," Or \cf6 StringMiddle\cf3  ( HtmlCode3 , i , 1 ) = " " \cf4 Then\cf3\par
\tab\tab\cf4 Continue\cf3\par
\tab\cf4 Else\cf3\par
\tab\tab\cf2 MoviePictureValue\cf3  = \cf2 MoviePictureValue\cf3  + \cf6 StringMiddle\cf3  ( HtmlCode3 , i , 1 )\par
\tab\cf4 End\cf3\par
\cf4 End\cf3\par
\par
\cf1 //------------------------------------- Pas de jaquette Grand Format donc jaquette Fnac ---------------------------------------------------------------------------\cf4\par
\cf3\par
\cf4 J\cf3 aket_Fnac :\cf4\par
\cf3\par
\cf4 If\cf3  \cf2 MoviePictureValue\cf3  = "" Or \cf2 MoviePictureValue\cf3  = \lang1036\fs18 "\cf1\lang1033\fs20\'04\cf3 " \cf4 Then\par
\cf3\tab\cf2 MoviePictureValue\cf3  = ""\par
\tab Image = "Fnac"\par
\cf4 Else\par
\cf3\tab\cf4 Goto\cf3  \lang1036\fs18 Ann\'e9e_du_CD\par
\cf4\lang1033\fs20 End\cf3\par
\par
\cf1\lang1036\fs18 HtmlCode1 = \cf6 BetweenStrings\cf1  ( HtmlCode , "DisplayZoomPopUp(url)" , "br>" )\cf3\par
HtmlCode2\cf1  = \cf6 BetweenStrings\cf1  ( HtmlCode1 , "\cf3 class=""topfiche"">\cf1 " , "imgprodfiche>" )\par
Jaket = \cf6 BetweenStrings\cf1  ( HtmlCode2 , "/grandes/" , """ \cf3 class=\cf1 " )\par
\par
\cf4 If\cf3  Jaket = "\lang1033\fs20 " Or \lang1036\fs18 Jaket = "\cf1\lang1033\fs20\'04\cf3 " \cf4 Then\par
\cf3\tab\cf2 MoviePictureValue\cf3  = ""\par
\tab Image = "N\'e9ant"\par
\cf4 Else\cf1\lang1036\fs18\par
\cf2\tab MoviePictureValue\cf1  = "http://multimedia.fnac.com/multimedia/images_produits/grandes/" + J\cf3 aket\cf1\lang1033\fs20\par
\cf4\lang1036\fs18 End\cf3\par
\cf1\par
//..................................................... ANNEE DE D'ENREGISTREMENT OU DE PARUTION DE L'ALBUM ......................................................................................................\par
\par
\cf3 Ann\'e9e_du_CD :\par
\cf1\par
\cf2 MovieTitleValue\cf3  = Save_Art \cf1 // Reprise du nom de l'artiste\par
\cf3 HtmlCode1 = \cf6 BetweenStrings\cf3  ( HtmlCode , "Editeur</td>" , "vosavis""></a>" )\par
Enreg = \cf6 Position\cf3 Occurrence ( HtmlCode1 , "Enregistrement" , 1)\par
\cf1\par
\cf4 If\cf3  Enreg > 0 \cf4 Then\cf3\par
\tab HtmlCode2 = \cf6 BetweenStrings\cf3  ( HtmlCode , "Enregistrement</td>" , "</td>" )\par
\tab HtmlCode3 = \cf6 StringRight\cf1  ( \cf3 HtmlCode2 \cf1 , 4 )\cf3\par
\tab HtmlCode3 = \cf6 EliminateLetters\cf1  ( \cf3 HtmlCode3\cf1  )\par
\cf3\par
\tab\cf4 If\cf3  HtmlCode3 <> "" \cf4 Then \par
\cf3\tab\tab An = HtmlCode2\par
\tab\cf4 End\cf3\par
\cf4 Else\cf3\par
\tab\tab An = \cf6 BetweenStrings\cf3  ( HtmlCode , "Paru</td>" , "</td>" )\par
\cf4 End\tab\cf3\par
\par
\cf2 MovieYearValue\cf1  = \cf6 StringRight\cf1  ( An , 4 )\cf3\par
\par
\cf1 //......................... LABEL DE L'EDITEUR (ex-"Pays d'origine" de la vid\'e9oth\'e8que).............................................................................................\cf3\par
\cf1\par
\cf2 MovieCountryValue\cf3  = \cf6 BetweenStrings\cf3 ( HtmlCode , "Editeur</td>" , "</tr>" )\cf2\par
MovieCountryValue\cf3  = \cf6 BetweenStrings\cf3 ( \cf2 MovieCountryValue\cf3  , "%"">" , "</td>" )\par
\cf2 MovieCountryValue\cf3  = \cf6 FormatString\cf3  ( \cf2 MovieCountryValue\cf3  , "WOS" )\lang1033\fs20  \cf1 // Suppression des espaces et autres caract\'e8res sp\'e9ciaux HTML apr\'e8s le label de l'\'e9diteur\cf2\lang1036\fs18\par
\cf3\par
\cf1 //.......................................... DUREE DE L'ALBUM ....................................................................................................................\cf3\par
\cf1\par
Duree_Alb = \cf6 BetweenStrings\cf1  ( HtmlCode , ">Dur&eacute;e" , "\cf3 </tr>\cf1 " )\cf3\par
\cf2 MovieDurationValue\cf1  = \cf6 BetweenStrings\cf1  ( Duree_Alb , "%"">" , "\cf3 </td>\cf1 " )\par
\cf2 MovieDurationValue\cf1  = \cf6 EliminateLetters\cf1  ( \cf2 MovieDurationValue \cf1 )\cf3\par
\par
\cf1 //.......................................... GENRE DE MUSIQUE ....................................................................................................................\par
\par
\cf3 HtmlCode1 = \cf6 BetweenStrings\cf3  ( HtmlCode , "DetailFiche" , "</table>" )\par
HtmlCode1 = \cf6 BetweenStrings\cf3  ( HtmlCode1 , ">Genre<" , "</td>" )\par
N\cf1 b_Car\cf3  = \cf6 StringLength\cf3  ( HtmlCode1 ) \par
\par
\cf4 If\cf3  N\cf1 b_Car\cf3  > 2 \cf4 Then\cf3\par
\tab HtmlCode2 = \cf6 BetweenStrings\cf3  ( HtmlCode1 , "href=""http://www3.fnac.com/item/author.do" , "/a>" )\par
\tab\cf2 MovieFamilyValue\cf3  = \cf6 BetweenStrings\cf3  ( HtmlCode2 , ""\cf1 ">\cf3 " , "<" )\par
\cf1\tab\cf2 MovieFamilyValue\cf1  = \cf6\lang1033\fs20 FormatString\cf1  ( \cf2\lang1036\fs18 MovieFamilyValue\cf1\lang1033\fs20  , "WOS" ) // Supprime les espaces avant le texte\cf3\lang1036\fs18\par
\cf4 Else\par
\cf3\tab HtmlCode1 = \cf6 BetweenStrings\cf3  ( HtmlCode , "Recherche par th\'e8mes<br>" , "cellpadding=" )\par
\tab Liens = "<strong><a href=""default.asp?"\par
\tab Nb_Lig = \cf6\fs20 StringCounter\cf1 ( \cf3 HtmlCode1\cf1 , \cf3 Liens \cf1 )\par
\cf3\fs18\par
\cf4\tab For\cf3  i = 2 To Nb_Lig + 1\par
\tab\par
\tab\tab\cf4 If\cf3  \cf2 MovieFamilyValue\cf3  <> "" \cf4 Then\cf3  \cf4 Continue\cf3\par
 \par
\tab\tab HtmlCode2 = \cf6\fs20 StringExtraction\cf1 ( \cf3 HtmlCode1 \cf1 , i , \cf3 Liens \cf1 )\par
\cf3\fs18\tab\tab HtmlCode3 = \cf6 BetweenStrings\cf3  ( HtmlCode2 , ""\cf1 ">\cf3 " , "</a>" )\par
\par
\tab\tab\cf4 If\cf3  HtmlCode3 [= "R\'e9server" Or HtmlCode3 [= "Affaire" \cf4 Then\cf3  \cf4 Continue\cf3\par
\cf4\par
\cf3\tab\tab\cf2 MovieFamilyValue\cf3  = HtmlCode3\par
\cf2\tab\cf3\tab\cf2 MovieFamilyValue\cf1  = \cf6\lang1033\fs20 FormatString\cf1  ( \cf2\lang1036\fs18 MovieFamilyValue\cf1\lang1033\fs20  , "WOS" ) // Supprime les espaces avant le texte\cf3\lang1036\fs18\par
\tab\cf4 End\cf3\par
\cf4 End\cf3\par
\par
\cf1 //................... GESTION DES PISTES AUDIO (Pas de donn\'e9es de dur\'e9e des pistes sur fnac.com) ..................................................................................\par
\par
\cf3 HtmlCode1 = \cf6\fs20 BetweenStrings \cf1 (\cf3  HtmlCode \cf1 , \cf3\fs18 "\cf1 <div class=""divecouter"">"\cf3\fs20  \cf1 , "<a name=""DetailFiche"">" )\par
\cf3\fs18 HtmlCode2 = \cf6\fs20 BetweenStrings \cf1 (\cf3  HtmlCode1 \cf1 , \cf3\fs18 "\cf1 </h5>"\cf3\fs20  \cf1 , "</table>" )\cf3\fs18\par
Delim_No = "\cf1 <strong"\cf6\par
\cf1\fs20 N\cf3 b_pistes\cf1  = \cf6 StringCounter \cf1 (\cf3 HtmlCode2 \cf1 , \cf3 Delim_No \cf1 )\par
\cf3\par
\cf4 For\cf1  i = 2 To N\cf3 b_pistes\cf1  + 1\cf3\par
\cf1\tab P\cf3 iste\cf1  = \cf6 StringExtraction\cf1 ( \cf3 HtmlCode2 \cf1 , i, \cf3 Delim_No \cf1 )\par
\cf3\tab\cf1 N\cf3 o_piste\cf1  = \cf6 BetweenStrings\cf1 ( \cf3 Piste \cf1 , \cf3\fs18 "\cf1 >"\cf3\fs20  \cf1 , ".</" )\cf3\par
\tab Pos1 = \cf6 Position\cf3  ( Piste  , "<img src=" , 1 )\par
\par
\tab\cf4 If\cf3  Pos1 > 0 \cf4 Then\cf1\par
\cf3\tab\tab Nom = \cf6 BetweenStrings\cf3  ( Piste , \cf1 ".ra"">"\cf3  , "</a>" )\par
\tab\cf4 Else\cf3\par
\tab\tab Nom = \cf6 BetweenStrings\cf3  ( Piste , \cf1 "&nbsp;"\cf3  , "<br>" )\par
\tab\tab Pos2 = \cf6 Position\cf3  ( Nom  , "</td>" , 1 )\par
\par
\tab\tab\cf4 If\cf3  Pos2 > 0 \cf4 Then\cf3\par
\tab\tab\tab Nom = \cf6 StringLeft\cf3  ( Nom , Pos2 - 1 )\par
\tab\tab\cf4 End\cf3\par
\tab\cf4 End\cf3\par
\par
\cf1\tab Nom = \cf6 StringRefine\cf1  ( Nom )\par
\cf3\tab Nom = \cf6 StringReplace\cf3  ( Nom , "\'9c" , "oe" )\par
\tab Nom = \cf6 StringReplace\cf3  ( Nom , "\'85" , "," )\par
\tab Nom = \cf6 StringReplace\cf3  ( Nom , "-" , "," )\par
\tab\cf6 AddMovieActors \cf1 ( N\cf3 o_piste \cf1 , \cf3 Nom )\par
\cf4\fs18 End\par
\cf3\par
\cf1 //.......................... GESTION DES ERREURS OU MANQUES D'INFORMATIONS SUR FNAC.COM ...........................................................................................\par
\cf3\par
\lang1033\fs20 Nom_CD = \cf2 MovieTitleValue\cf3\lang1036\fs18  + " *** " + \cf2 MovieOriginalTitleValue\par
\cf3\lang1033\fs20\par
\cf4\lang1036\fs18 If\cf3  \cf2 I\cf3 mage = "" \cf4 Then \cf1 Message = "La fiche ""\cf3 "\cf1  + Nom_CD + ""\cf3 "\cf1  a \'e9t\'e9 ajout\'e9e avec la jaquette G\cf3 rand \cf4 For\cf3 mat\cf1 " + CR + CR\cf3\par
\cf4 If\cf3  Image = "Fnac" \cf4 Then\cf3  \cf1 Message = "La fiche ""\cf3 "\cf1  + Nom_CD + ""\cf3 "\cf1  a \'e9t\'e9 ajout\'e9e a\cf3 vec la\cf1  jaquette \cf3 Fnac\cf1 " + CR + CR\par
\cf4 If\cf3  Image = "N\'e9ant" \cf4 Then\cf3  \cf1 Message = "La fiche ""\cf3 "\cf1  + Nom_CD + ""\cf3 "\cf1  a \'e9t\'e9 ajout\'e9e,\cf3  mais\cf1  s\cf3 ans\cf1  jaquette" + CR + CR\par
\cf3\par
\cf4 If\cf1  \cf2 MovieFamilyValue\cf1  = "" O\cf3 r\cf1  \cf2 MovieFamilyValue\cf1  = "\lang1033\fs20\'04\lang1036\fs18 " \cf4 Then\par
\cf1\tab Message1 = "- Le Genre de musique n'est pas pr\'e9cis\'e9 - D\'e9sol\'e9" + CR\cf3\par
\cf1\tab Message = Message + Message1\cf3\par
\cf2\tab MovieFamilyValue\cf1  = ""\cf3\par
\cf4 End\cf3\par
\par
\cf4 If\cf1  \cf2 MovieCountryValue\cf1  = \lang1033\fs20 "" O\cf3 r\cf1\lang1036\fs18  \cf2 MovieCountryValue\cf1  = \lang1033\fs20 "\'04" \cf4 Then\cf3\par
\cf1\lang1036\fs18\tab Message2 = "- Le Label de l'\'e9diteur n'est pas pr\'e9cis\'e9 - D\'e9sol\'e9" + CR\cf3\par
\cf1\tab Message = Message + Message2\cf3\par
\cf1\tab\cf2 MovieCountryValue\cf1  = ""\cf3\par
\cf4 End\cf3\par
\par
\cf4 If\cf1  \cf2 MovieYearValue\cf1  = "" O\cf3 r\cf1  \cf2 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\cf3\par
\cf1\tab Message = Message + Message3\cf3\par
\cf1\tab\cf2 MovieYearValue\cf1  = ""\cf3\par
\cf4 End\cf3\par
\par
\cf4 If\cf1  \cf2 MovieDurationValue\cf1  = "" O\cf3 r\cf1  \cf2 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\cf3\par
\cf1\tab Message = Message + Message4\cf3\par
\cf1\tab\cf2 MovieDurationValue\cf1  = "\cf3 "\par
\cf4 End\cf3\par
 \par
\cf1 //............................................................ CREATION DE LA FICHE ..............................................................................................\par
\par
CreateMovie ()\par
\cf3\par
\cf6 UserInformationMessage\cf1  ( Message )\par
\par
// Fin du Script Audio sur Fnac.com / version 1.04 Par CyberPapy\par
\cf3\par
\cf1\par
\cf0\par
\f1\fs20\par
\cf1\f0\par
}