{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\fmodern\fcharset0 Courier New;}}
{\colortbl ;\red0\green128\blue0;\red102\green102\blue102;\red128\green0\blue128;\red0\green0\blue0;\red255\green102\blue0;\red255\green0\blue0;\red0\green0\blue255;}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\cf1\f0\fs20 // DESCRIPTION Organisez votre soir\'e9e en quelques cliques [Programme TV, Cin\'e9]    entrez "Aide" pour obtenir les commandes\cf2\par
\cf1 // DATALANGUAGE FR\cf2\par
\cf1 // AUTHOR Cybox\cf2\par
\par
\cf3 MovieDatabaseValue\cf2  = "Votre Soiree"\par
\par
\cf1 // Commandes disponibles\cf2\par
\cf4 If\cf2  (\cf5 TitleToSearch\cf2  ~= "AIDE") or (\cf5 TitleToSearch\cf2  ~= "HELP") \cf4 Then\cf2\par
\tab\cf6 Info\cf2 ("Commande du script:" + CR + ...\par
\tab\tab "" + CR + ...\par
\tab\tab "[AIDE] ou [HELP] >>> Affiche les commandes disponibles" + CR + ...\par
\tab\tab "[TV] >>> Affiche le programme t\'e9l\'e9 de la soir\'e9e\cf1 " + CR + ...\par
\cf2\tab\tab "[..H..] >>> Affiche le programme t\'e9l\'e9 \'e0 l'heure indiqu\'e9e (ex: 21h00)\cf1 " + CR + ...\cf2\par
\tab\tab "[25.03] >>> Affiche le programme t\'e9l\'e9 de la date indiqu\'e9e (ex: le 25 mars)\cf1 " + CR + ...\cf2\par
\tab\tab "(Code postal, D\'e9partement, Nom du cin\'e9 ...) >>> Pour r\cf1 echercher un cin\'e9ma et afficher le programme\cf2 ") \cf1 // + CR + ...\cf2\par
\tab\tab\cf1 // "[CINE] >>> A l'affiche cette semaine dans votre cin\'e9ma")\cf2\par
\cf4\tab Return\par
End\par
\par
\cf1\par
\cf4 If\cf2  \cf5 TitleToSearch\cf2  ~= "TV" \cf4 Then\cf2\par
\tab\cf4 Goto\cf2  Soiree_tele\par
\cf4 End\cf2\par
\cf4 If\cf2  \cf5 TitleToSearch\cf2  ~= "CINE" \cf4 Then\cf2\par
\tab\cf4 Goto\cf2  Soiree_cine\par
\cf4 End\cf2\par
\par
Test1 is \cf4 String\cf2  = \cf5 TitleToSearch\cf2\par
Test2 is \cf4 String\cf2  = Test1\par
Taille is \cf4 Int \cf2 = \cf7 StringLength\cf2 ( \cf5 TitleToSearch\cf2  )\par
Taille_num is \cf4 Int \cf2 = \cf7 StringLength\cf2 ( \cf7 EliminateLetters\cf2 ( \cf5 T\cf2 est1 ))\par
\cf4 T\cf2 aille_let is \cf4 Int \cf2 = \cf7 StringLength\cf2 ( \cf7 EliminateNumbers\cf2 ( \cf5 T\cf2 est2 ))\cf4\par
L\cf2 etter3 is \cf4 String\cf2  = \cf7 StringMiddle\cf2 ( \cf5 TitleToSearch\cf2 , 3, 1)\par
Letter5 is \cf4 String\cf2  = \cf7 StringMiddle\cf2 ( \cf5 TitleToSearch\cf2 , 5, 1)\par
Letter8 is \cf4 String\cf2  = \cf7 StringMiddle\cf2 ( \cf5 TitleToSearch\cf2 , 8, 1)\par
\par
\cf1\par
\cf2 H\cf1 eure_TV is \cf4 Int \cf1 // = 2100\cf2\par
D\cf1 ate_TV is \cf4 String \cf1 // = 20060325\par
\cf2\par
\cf1 // V\'e9rification si TitleToSearch est de la forme "..H.." (heure) pour le programme TV\cf2\par
\cf4 If\cf2  Taille = 5 \cf4 Then\cf2\par
\tab\cf4 If\cf2  Taille_num = 4 \cf4 Then\cf2\par
\tab\tab\cf4 If\cf2  Letter3 ~= "H" \cf4 Then\cf2\par
\tab\tab\tab Heure_TV = \cf7 EliminateLetters\cf2 ( \cf5 TitleToSearch\cf2  )\par
\tab\tab\tab Date_TV = Datedujour\par
\tab\tab\tab\cf4 Goto\cf2  Plage_TV\par
\tab\tab\cf4 End\cf2\par
\tab\cf4 End\cf2\par
\cf4 End\cf2\par
\cf4\par
\cf1 // V\'e9rification si TitleToSearch est de la forme "jj.mm" (date) pour le programme TV\cf4\par
If\cf2  Taille = 5 \cf4 Then\cf2\par
\tab\cf4 If\cf2  Taille_num = 4 \cf4 Then\cf2\par
\tab\tab\cf4 If\cf2  Letter3 = "." \cf4 Then\cf2\par
\tab\tab\tab Heure_TV = "21"\par
\tab\tab\tab Date_TV = \cf7 StringLeft\cf2 ( Datedujour, 4) + \cf7 StringRight\cf2 ( \cf5 TitleToSearch\cf2 , 2) + \cf7 StringLeft\cf2 ( \cf5 TitleToSearch\cf2 , 2)\par
\tab\tab\tab\cf4 Goto\cf2  Plage_TV\par
\tab\tab\cf4 End\cf2\par
\tab\cf4 End\cf2\par
\cf4 End\cf2\par
\par
\par
\par
liste_cine:\par
\cf1 // Recherche des 40 premiers cin\'e9ma a lister\cf2\par
HtmlCode00 is \cf4 String\cf2  = \cf7 GetPage\cf2 ( "http://www.allocine.fr/recherche/?motcle=", \cf5 TitleToSearch\cf2 , "&f=3&rub=3&page=1" )\par
HtmlCode01 is \cf4 String\cf2  = \cf7 GetPage\cf2 ( "http://www.allocine.fr/recherche/?motcle=", \cf5 TitleToSearch\cf2 , "&f=3&rub=3&page=2" )\par
\f1 HtmlCode0 is \cf4 String\cf2  = HtmlCode00 + HtmlCode01\par
\par
Cine\cf0 _Delimiter\cf2  is \cf4 String\cf2  = \f0 "<a href=""/seance/salle_gen_csalle="\par
Nb_cine is \cf4 Int \cf2 = \cf7 StringCounter\cf2 ( HtmlCode0, Cine_Delimiter )\par
\par
Movie_Title, Movie_Title1, Movie_Title2, Movie_Title3, Movie_ID, Movie_URL are \cf4 String\par
\cf2 i is int\par
\cf4 For\cf2  i=2 to Nb_cine + 1\par
\f1\tab\cf0 M\cf2 ovie\cf0 _Title = \cf2 Cine\cf0 _Delimiter  +  \cf7 StringExtraction\cf0  ( \cf1 HtmlCode0\cf0 , i, \cf2 Cine\cf0 _Delimiter )\par
\tab M\cf2 ovie\cf0 _ID = \cf7 BetweenStrings\cf0  ( \cf2 Movie\cf0 _Title, C\cf2 ine\cf0 _Delimiter, ".html" )\cf2\f0\tab\par
\tab\cf1 M\cf2 ovie\cf1 _Title = "\cf2 <TAG>" + \cf7 BetweenStrings\cf1 (M\cf2 ovie\cf1 _Title, "\cf2 class=""link1"">\cf1 ", "</td>")\par
\cf2\tab Movie_Title = \cf7 StringRefine\cf2 (Movie_Title)\par
\tab Movie_Title = \cf7 StringReplace\cf2 (Movie_Title, CR, "")\par
\tab Movie_Title1 = \cf7 BetweenStrings\cf1 (M\cf2 ovie\cf1 _Title, "\cf2 <TAG>\cf1 ", "</\cf2 a\cf1 >")\par
\cf2\tab Movie_Title2 = "<h4 style=""color: #666666"">" + \cf7 StringExtraction\cf2 (Movie_Title, 2, "<h4 style=""color: #666666"">")\cf1\par
\cf2\tab Movie_Title2 = \cf7 BetweenStrings\cf2 (Movie_Title2, "<h4 style=""color: #666666"">", "</h4>")\par
\tab Movie_Title3 = "<h4 style=""color: #666666"">" + \cf7 StringExtraction\cf2 (Movie_Title, 3, "<h4 style=""color: #666666"">")\cf1\par
\cf2\tab Movie_Title3 = \cf7 BetweenStrings\cf2 (Movie_Title3, "<h4 style=""color: #666666"">", "</h4>")\par
\tab Movie_Title = Movie_Title1 + " - " + Movie_Title2 + Movie_Title3\par
\tab\cf1 M\cf2 ovie\cf1 _Title = \cf7 FormatString\cf1  (M\cf2 ovie\cf1 _Title, "UC")\par
\cf2\tab\cf1 M\cf2 ovie\cf1 _Title = \cf7 FormatString\cf1  (M\cf2 ovie\cf1 _Title, "\cf2 WOA\cf1 ")\par
\cf2\tab\cf1 M\cf2 ovie\cf1 _Title = RemoveHTMLTags (M\cf2 ovie\cf1 _Title)\cf2\par
\tab Movie_URL = "http://www.allocine.fr/seance/salle_gen_csalle=" + M\cf1 ovie\cf2 _ID\cf1  + ".html"\cf2\par
\tab\cf4 If\cf2  (Movie_ID = "") OR (Movie_ID = \fs18 "\cf1\'04")\cf2  OR\fs20  (Movie_Title = "") OR (Movie_Title = \fs18 "\cf1\'04")\cf2  \cf4 Then\cf2\fs20\par
\tab\tab\cf4 Goto\cf2  Pas_Add\par
\tab\cf4 Else\cf2\tab\par
\tab\tab\cf7 AddMovieToList\cf2 (i, Movie_ID, Movie_Title, Movie_URL)\par
\cf4\tab End\cf1\par
P\cf2 as_Add:\cf1\par
\par
//MODE DEBUG : enlever les deux slash devant \cf6 Trace\cf1  pour tester la capture des titres\par
//\cf6 Trace\cf1 (Movie_ID, Movie_Title, Movie_URL)\par
\cf2\par
\cf4 End\cf2\par
\fs18\par
\cf1 // Ouverture de la liste des cin\'e9ma trouv\'e9s\par
\cf7\par
OpenMoviesList\cf1 ()\par
\par
\cf4\fs20 If\cf1  \cf3 MovieIDValue\cf1  = "" \cf4 Then\cf2\par
\cf1\tab\cf7 UserErrorMessage\cf1 ("Vous n'avez s\'e9lectionn\'e9 aucun C\cf2 in\'e9ma.\cf1 " + CR + CR +\cf2  \cf1 "Ou la liste \'e9tait vide o\cf2 u incompl\'e8te \cf1\'e0 cause de \cf2 v\cf1 otre Firewall.")\cf2\par
\tab\cf4 Return\cf2\par
\cf4 End\par
\cf2\fs18\par
\par
\cf1\fs20 // MODE DEBUG : Verify URL (must be deactivate in the final version of the script)\cf2\par
\cf1 // ShellExecute("http://www.allocine.fr/seance/salle_gen_csalle=" + Movie_ID + ".html")\fs18\par
\cf2\fs20\par
\par
Soiree_cine:\par
\cf1 // DEBUG : Verify URL (must be deactivate in the final version of the script)\cf2\par
\cf1 // ShellExecute("http://www.allocine.fr/")\cf2\par
\par
\cf1 // Extract the html code of the movies list\par
\cf2 Delimiter_sortie is \cf4 String\cf2  = "<h4 style=""color:#777777"">"\cf4\par
\cf7 D\cf2 elimiter_remove is \cf4 String\cf2  = "LIENS PROMOTIONNELS"\par
Delimiter_cine1 is \cf4 String\cf2  = "<h1 style=""color: #D20000""><b>"\par
Delimiter_cine2 is \cf4 String\cf2  = "<h4 style=""color:#777777"">"\par
\par
\par
\cf1 // CHOIX DE SON CINEMA: allez sur le site allocine.fr et recherchez votre cinema.\cf2\par
\cf1 // une fois la page de votre cin\'e9ma affich\'e9e, relev\'e9 la valeur "P...." situ\'e9e dans la barre d'adresse de votre navigateur,\par
// et reporter la dans la ligne en dessous \'e0 la place de "P0699"\par
// (exemple: "P0209" correspond au cin\'e9ma "Eden" \'e0 Cosne)\cf2\par
\cf4 If\cf2  \cf3 MovieURLValue\cf2  <> "" \cf4 Then\cf1\par
\tab HtmlCode is \cf4 String\cf1  = \cf7 GetPage(\cf1  \cf3 MovieURLValue\cf1 , "", "" )\cf2\par
\cf4 Else\cf2\par
\tab HtmlCode = \cf7 GetPage\cf2 ( \cf1 "http://www.allocine.fr/seance/salle_gen_csalle=" , "P06\cf2 99\cf1 " , ".html"\cf2  )\par
\cf4 End\cf2\par
\cf1\par
\cf4 If\cf2  HtmlCode = "" \cf4 Then\par
\cf2\tab\cf4 Switch\cf2  \cf4 Language\cf2\par
\tab\cf4 Case\cf2  3 \cf1 // English\cf2\par
\cf7\tab\cf2\tab\cf7 UserErrorMessage\cf2 ("This page has not been found")\par
\tab\cf4 Case\cf2  5 \cf1 // Fran\'e7ais\cf2\par
\tab\tab\cf7 UserErrorMessage\cf2 ("Cette page n'a \'e9t\'e9 trouv\'e9e")\par
\cf4\tab End\cf2\par
\tab\cf4 Return\cf2\par
\cf4 End\par
\par
\cf1 // Suppression des caract\'e8res suppl\'e9mentaires\cf4\par
\cf1 HtmlCode = Replace (HtmlCode , "000005DC" , "")\par
HtmlCode = Replace (HtmlCode , "000006C4" , "")\par
HtmlCode = Replace (HtmlCode , "000000E8" , "")\par
HtmlCode = Replace (HtmlCode , "00004000" , "")\cf2\par
\cf1 HtmlCode = Replace (HtmlCode , "\cf2 00000CA0\cf1 " , "")\par
HtmlCode = Replace (HtmlCode , "\cf2 00003B80\cf1 " , "")\par
\cf2\par
\cf1 // Extraction du nom du cinema et de l'adresse\par
\cf4 If\cf1  \cf7 StringLeft\cf2 (\cf3 MovieIDValue,\cf2  1)\cf1  = "C" \cf4 Then\cf2\par
\fs18\tab\fs20 Cinema is \cf4 String\cf2  = \cf7 BetweenStrings\cf2 (HtmlCode, Delimiter_cine1, "</b>") + " <<<" + CR + "\tab\tab (" + \cf7 BetweenStrings\cf2 (HtmlCode, Delimiter_cine2, "</h4>") + ")"\par
\cf4\fs18\tab\cf2 Cinema = \cf7 StringReplace\cf2 (Cinema, "<br />", "  -  ")\cf4\par
Else\cf2\par
\tab\fs20 Cinema = \cf7 BetweenStrings\cf2 (HtmlCode, Delimiter_cine1, "</b>") + " <<<               (" + \cf7 BetweenStrings\cf2 (HtmlCode, Delimiter_cine2, "<br /></h4>") + ")"\fs18\par
\cf4 End\cf2\fs20\par
\cf1\par
\cf2\par
\cf1 // Extraction code html et recherche du nombre de films \'e0 l'affiche dans votre cin\'e9ma\cf2\par
HtmlCode = \cf7 BetweenStrings\cf2 ( HtmlCode, Delimiter_sortie, Delimiter_remove)\cf1\par
\cf2 Delimiter_Films is \cf4 String\cf2  = "<table cellpadding=""0"" cellspacing=""0"" border=""0"" width=""100%"">"\cf1\par
\cf2 Nb_Films is \cf4 Int \cf2 = \cf7 StringCounter\cf2 ( HtmlCode, Delimiter_Films )\par
\par
\par
\cf1 // D\'e9claration de variables\cf2\par
Html_Film, Horaires, H\cf1 tmlCode1,\cf2  HtmlCode2, HtmlCode3, HtmlCode4, HtmlCode5\cf1  \cf2 are\cf1  \cf4 String\cf2\par
\par
\par
\cf1 // mod\'e8le des pages \'e0 afficher (5 films par pages)\cf2\par
HtmlCode1 = "          " + "A l'affiche cette semaine au cinema >>> " + Cinema\par
HtmlCode2 = HtmlCode1\par
HtmlCode3 = HtmlCode1\par
HtmlCode4 = HtmlCode1\par
HtmlCode5 = HtmlCode1\par
\par
\cf4\par
\cf1 // organisation des films \'e0 l'affiche de 1 \'e0 5\cf2\par
\cf4 For\cf2  i=2 to Nb_Films + 1\par
\tab\cf4 If\cf2  i > 6 \cf4 Then\cf2\par
\tab\tab\cf4 Goto\cf2  Page2\par
\tab\cf4 End\cf2\par
\tab Html_Film = Delimiter_Films + \cf7 StringExtraction\cf2 ( HtmlCode, i, Delimiter_Films)\par
\tab Horaires = \cf7 BetweenStrings\cf1 ( Html_Film, "\cf2 <h4 style=""color:#D20000"">"\cf1 , "<\cf2 /h4>")\par
\tab Horaires = \cf7 StringReplace\cf2 ( Horaires, "</b><br />", "\tab ")\par
\tab Horaires = \cf7 RemoveHTMLTags\cf2 (Horaires)\par
\tab\cf1 Html_Film = \cf7 BetweenStrings\cf1 ( Html_Film, Delimiter_Films, "</table></td></tr>\cf2 "\cf1  )\cf2\par
\tab Html_Film = \cf7 StringReplace\cf2 ( Html_Film, "</a>",\cf1  "\cf2  \cf1 "\cf2 )\par
\tab\cf1 Html_Film = \cf7 StringReplace\cf1 ( Html_Film, CR , "")\cf2\par
\tab Html_Film = \cf7 StringRefine\cf2 ( Html_Film )\par
\tab Html_Film = \cf7 RemoveHTMLTags\cf2 (Html_Film)\par
\tab Html_Film = \cf7 StringReplace\cf2 ( Html_Film, "Presse" + \cf7 BetweenStrings\cf2 (Html_Film, "\cf4 P\cf2 resse", "Spectateurs") + "Spectateurs"\cf1 , "R\cf2\'e9sum\'e9\cf1 "\cf2 )\par
\tab Html_Film = \cf7 StringReplace\cf2 ( Html_Film, "Spectateurs  :", "")\par
\tab HtmlCode1 = HtmlCode1 + CR + "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" + Html_Film + Horaires\par
\cf4 End\par
\cf2 Page2:\cf4\par
\cf6 Info\cf2 (htmlcode1 \cf1 + CR + \cf2 "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -"\cf1  + " Page 1 " + \cf2 "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")\par
\cf4\par
\cf1 // organisation des films \'e0 l'affiche de 6 \'e0 10\cf2\par
\cf4 If\cf2  Nb_Films > 5 \cf4 Then\cf2\par
\tab\cf4 For\cf2  i=7 to Nb_Films + 1\par
\tab\tab\cf4 If\cf2  i > 11 \cf4 Then\cf2\par
\tab\tab\tab\cf4 Goto\cf2  Page3\par
\tab\tab\cf4 End\cf2\par
\tab\tab Html_Film = Delimiter_Films + \cf7 StringExtraction\cf2 ( HtmlCode, i, Delimiter_Films)\par
\tab\tab Horaires = \cf7 BetweenStrings\cf1 ( Html_Film, "\cf2 <h4 style=""color:#D20000"">"\cf1 , "<\cf2 /h4>")\par
\tab\tab Horaires = \cf7 StringReplace\cf2 ( Horaires, "</b><br />", "\tab ")\par
\tab\tab Horaires = \cf7 RemoveHTMLTags\cf2 (Horaires)\par
\tab\tab\cf1 Html_Film = \cf7 BetweenStrings\cf1 ( Html_Film, Delimiter_Films, "</table></td></tr>\cf2 "\cf1  )\cf2\par
\tab\tab Html_Film = \cf7 StringReplace\cf2 ( Html_Film, "</a>",\cf1  "\cf2  \cf1 "\cf2 )\par
\tab\tab\cf1 Html_Film = \cf7 StringReplace\cf1 ( Html_Film, CR , "")\cf2\par
\tab\tab Html_Film = \cf7 StringRefine\cf2 ( Html_Film )\par
\tab\tab Html_Film = \cf7 RemoveHTMLTags\cf2 (Html_Film)\par
\tab\tab Html_Film = \cf7 StringReplace\cf2 ( Html_Film, "Presse" + \cf7 BetweenStrings\cf2 (Html_Film, "\cf4 P\cf2 resse", "Spectateurs") + "Spectateurs"\cf1 , "R\cf2\'e9sum\'e9\cf1 "\cf2 )\par
\tab\tab Html_Film = \cf7 StringReplace\cf2 ( Html_Film, "Spectateurs  :", "")\par
\tab\tab HtmlCode2 = HtmlCode2 + CR + "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" + Html_Film + Horaires\par
\tab\cf4 End\par
\cf2\tab Page3:\par
\cf6\tab Info\cf2 (htmlcode2 \cf1 + CR + \cf2 "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -"\cf1  + " Page \cf2 2\cf1  " + \cf2 "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")\par
\cf4 End\par
\cf2\par
\cf1 // organisation des films \'e0 l'affiche de 11 \'e0 15\cf4\par
If\cf2  Nb_Films > 10 \cf4 Then\cf2\par
\tab\cf4 For\cf2  i=12 to Nb_Films + 1\par
\tab\tab\cf4 If\cf2  i > 16 \cf4 Then\cf2\par
\tab\tab\tab\cf4 Goto\cf2  Page4\par
\tab\tab\cf4 End\cf2\par
\tab\tab Html_Film = Delimiter_Films + \cf7 StringExtraction\cf2 ( HtmlCode, i, Delimiter_Films)\par
\tab\tab Horaires = \cf7 BetweenStrings\cf1 ( Html_Film, "\cf2 <h4 style=""color:#D20000"">"\cf1 , "<\cf2 /h4>")\par
\tab\tab Horaires = \cf7 StringReplace\cf2 ( Horaires, "</b><br />", "\tab ")\par
\tab\tab Horaires = \cf7 RemoveHTMLTags\cf2 (Horaires)\par
\tab\tab\cf1 Html_Film = \cf7 BetweenStrings\cf1 ( Html_Film, Delimiter_Films, "</table></td></tr>\cf2 "\cf1  )\cf2\par
\tab\tab Html_Film = \cf7 StringReplace\cf2 ( Html_Film, "</a>",\cf1  "\cf2  \cf1 "\cf2 )\par
\tab\tab\cf1 Html_Film = \cf7 StringReplace\cf1 ( Html_Film, CR , "")\cf2\par
\tab\tab Html_Film = \cf7 StringRefine\cf2 ( Html_Film )\par
\tab\tab Html_Film = \cf7 RemoveHTMLTags\cf2 (Html_Film)\par
\tab\tab Html_Film = \cf7 StringReplace\cf2 ( Html_Film, "Presse" + \cf7 BetweenStrings\cf2 (Html_Film, "\cf4 P\cf2 resse", "Spectateurs") + "Spectateurs"\cf1 , "R\cf2\'e9sum\'e9\cf1 "\cf2 )\par
\tab\tab Html_Film = \cf7 StringReplace\cf2 ( Html_Film, "Spectateurs  :", "")\par
\tab\tab HtmlCode3 = HtmlCode3 + CR + "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" + Html_Film + Horaires\par
\tab\cf4 End\par
\cf2\tab Page4:\cf4\par
\cf6\tab Info\cf2 (htmlcode3 \cf1 + CR + \cf2 "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -"\cf1  + " Page \cf2 3\cf1  " + \cf2 "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")\par
\cf4 End\par
\cf2\par
\cf1 // organisation des films \'e0 l'affiche de 16 \'e0 20\cf4\par
If\cf2  Nb_Films > 15 \cf4 Then\cf2\par
\tab\cf4 For\cf2  i=17 to Nb_Films + 1\par
\tab\tab\cf4 If\cf2  i > 21 \cf4 Then\cf2\par
\tab\tab\tab\cf4 Goto\cf2  Page5\par
\tab\tab\cf4 End\cf2\par
\tab\tab Html_Film = Delimiter_Films + \cf7 StringExtraction\cf2 ( HtmlCode, i, Delimiter_Films)\par
\tab\tab Horaires = \cf7 BetweenStrings\cf1 ( Html_Film, "\cf2 <h4 style=""color:#D20000"">"\cf1 , "<\cf2 /h4>")\par
\tab\tab Horaires = \cf7 StringReplace\cf2 ( Horaires, "</b><br />", "\tab ")\par
\tab\tab Horaires = \cf7 RemoveHTMLTags\cf2 (Horaires)\par
\tab\tab\cf1 Html_Film = \cf7 BetweenStrings\cf1 ( Html_Film, Delimiter_Films, "</table></td></tr>\cf2 "\cf1  )\cf2\par
\tab\tab Html_Film = \cf7 StringReplace\cf2 ( Html_Film, "</a>",\cf1  "\cf2  \cf1 "\cf2 )\par
\tab\tab\cf1 Html_Film = \cf7 StringReplace\cf1 ( Html_Film, CR , "")\cf2\par
\tab\tab Html_Film = \cf7 StringRefine\cf2 ( Html_Film )\par
\tab\tab Html_Film = \cf7 RemoveHTMLTags\cf2 (Html_Film)\par
\tab\tab Html_Film = \cf7 StringReplace\cf2 ( Html_Film, "Presse" + \cf7 BetweenStrings\cf2 (Html_Film, "\cf4 P\cf2 resse", "Spectateurs") + "Spectateurs"\cf1 , "R\cf2\'e9sum\'e9\cf1 "\cf2 )\par
\tab\tab Html_Film = \cf7 StringReplace\cf2 ( Html_Film, "Spectateurs  :", "")\par
\tab\tab HtmlCode4 = HtmlCode4 + CR + "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" + Html_Film + Horaires\par
\tab\cf4 End\par
\cf2\tab Page5:\cf4\par
\cf6\tab Info\cf2 (htmlcode4 \cf1 + CR + \cf2 "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -"\cf1  + " Page \cf2 4\cf1  " + \cf2 "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")\par
\cf4 End\par
\cf2\par
\cf1 // organisation des films \'e0 l'affiche de 21 \'e0 25\cf2\par
\cf4 If\cf2  Nb_Films > 20 \cf4 Then\cf2\par
\tab\cf4 For\cf2  i=22 to Nb_Films + 1\par
\tab\tab Html_Film = Delimiter_Films + \cf7 StringExtraction\cf2 ( HtmlCode, i, Delimiter_Films)\par
\tab\tab Horaires = \cf7 BetweenStrings\cf1 ( Html_Film, "\cf2 <h4 style=""color:#D20000"">"\cf1 , "<\cf2 /h4>")\par
\tab\tab Horaires = \cf7 StringReplace\cf2 ( Horaires, "</b><br />", "\tab ")\par
\tab\tab Horaires = \cf7 RemoveHTMLTags\cf2 (Horaires)\par
\tab\tab\cf1 Html_Film = \cf7 BetweenStrings\cf1 ( Html_Film, Delimiter_Films, "</table></td></tr>\cf2 "\cf1  )\cf2\par
\tab\tab Html_Film = \cf7 StringReplace\cf2 ( Html_Film, "</a>",\cf1  "\cf2  \cf1 "\cf2 )\par
\tab\tab\cf1 Html_Film = \cf7 StringReplace\cf1 ( Html_Film, CR , "")\cf2\par
\tab\tab Html_Film = \cf7 StringRefine\cf2 ( Html_Film )\par
\tab\tab Html_Film = \cf7 RemoveHTMLTags\cf2 (Html_Film)\par
\tab\tab Html_Film = \cf7 StringReplace\cf2 ( Html_Film, "Presse" + \cf7 BetweenStrings\cf2 (Html_Film, "\cf4 P\cf2 resse", "Spectateurs") + "Spectateurs"\cf1 , "R\cf2\'e9sum\'e9\cf1 "\cf2 )\par
\tab\tab Html_Film = \cf7 StringReplace\cf2 ( Html_Film, "Spectateurs  :", "")\par
\tab\tab HtmlCode5 = HtmlCode5 + CR + "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" + Html_Film + Horaires\par
\tab\cf4 End\par
\cf6\tab Info\cf2 (htmlcode5 \cf1 + CR + \cf2 "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -"\cf1  + " Page \cf2 5\cf1  " + \cf2 "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")\par
\cf4 End\par
\par
Return\par
\cf2\par
\cf1\par
\cf2\par
Soiree_tele:\par
\cf1 // DEBUG : Verify URL (must be deactivate in the final version of the script)\cf2\par
\cf1 // ShellExecute("http://www.soiree-tele.com/")\cf2\par
\par
\cf1 // Extract the html code of the movies list\cf2\par
\cf1 HtmlCode = \cf7 GetPage\cf1 ("http://www.soiree-tele.com/" , "" , "")\cf4\par
\cf7 H\cf2 tmlCode = \cf7 StringReplace\cf2 ( HtmlCode, \cf4 Charact\cf2 (13)+ \cf4 Charact\cf2 (10)+ "                ", "")\par
\cf7 H\cf2 tmlCode = \cf7 StringReplace\cf2 ( HtmlCode, \cf4 Charact\cf2 (13)+ \cf4 Charact\cf2 (10)+ "               ", "")\cf4\par
\par
If\cf2  HtmlCode = "" \cf4 Then\par
\cf2\tab\cf4 Switch\cf2  \cf4 Language\cf2\par
\tab\cf4 Case\cf2  3 \cf1 // English\cf2\par
\cf7\tab\cf2\tab\cf7 UserErrorMessage\cf2 ("This page has not been found")\par
\tab\cf4 Case\cf2  5 \cf1 // Fran\'e7ais\cf2\par
\tab\tab\cf7 UserErrorMessage\cf2 ("Cette page n'a \'e9t\'e9 trouv\'e9e")\par
\cf4\tab End\cf2\par
\tab\cf4 Return\cf2\par
\cf4 End\par
\cf2\par
\cf1 // mise en forme de la date du jour\cf2\par
date is \cf4 String\cf2  = \cf7 StringRight\cf2 (datedujour ,2)\par
mois is \cf4 String\cf2  = \cf7 StringMiddle\cf2 (datedujour ,5 ,2)\par
annee is \cf4 String\cf2  = \cf7 StringLeft\cf2 (datedujour ,4)\par
\cf4 If\cf2  mois = "01" \cf4 Then\cf2\par
\tab mois = "Janvier"\par
\cf4 End\cf2\par
\cf4 If\cf2  mois = "02" \cf4 Then\cf2\par
\tab mois = "F\'e9vrier"\par
\cf4 End\par
If\cf2  mois = "03" \cf4 Then\cf2\par
\tab mois = "Mars"\par
\cf4 End\par
If\cf2  mois = "04" \cf4 Then\cf2\par
\tab mois = "Avril"\par
\cf4 End\cf2\par
\cf4 If\cf2  mois = "05" \cf4 Then\cf2\par
\tab mois = "Mai"\par
\cf4 End\cf2\par
\cf4 If\cf2  mois = "06" \cf4 Then\cf2\par
\tab mois = "Juin"\par
\cf4 End\cf2\par
\cf4 If\cf2  mois = "07" \cf4 Then\cf2\par
\tab mois = "Juillet"\par
\cf4 End\cf2\par
\cf4 If\cf2  mois = "08" \cf4 Then\cf2\par
\tab mois = "Ao\'fbt"\par
\cf4 End\cf2\par
\cf4 If\cf2  mois = "09" \cf4 Then\cf2\par
\tab mois = "Septembre"\par
\cf4 End\cf2\par
\cf4 If\cf2  mois = "10" \cf4 Then\cf2\par
\tab mois = "Octobre"\par
\cf4 End\cf2\par
\cf4 If\cf2  mois = "11" \cf4 Then\cf2\par
\tab mois = "Novembre"\par
\cf4 End\par
If\cf2  mois = "12" \cf4 Then\cf2\par
\tab mois = "D\'e9cembre"\par
\cf4 End\cf2\par
\par
Heure_Delimiter_1 is \cf4 String\cf2  = "<span class=""Style10"">"\par
Heure_Delimiter_2 is \cf4 String\cf2  = "</span>"\par
Titre_Delimiter_1 is \cf4 String\cf2  = "<h1>"\par
Titre_Delimiter_2 is \cf4 String\cf2  = "</h1>"\par
Descrip_Delimiter_1 is \cf4 String\cf2  = "<h2>"\par
Descrip_Delimiter_2 is \cf4 String\cf2  = "</h2>"\par
\cf1\par
// D\'e9claration de variables\cf2\par
\cf1 H\cf2 eure01, Heure02, Heure03, Heure04, Heure05, Heure06, Heure07, Heure08, Heure09, Heure10, Heure11, Heure12 are \cf4 String\par
\cf2 Titre01, Titre02, Titre03, Titre04, Titre05, Titre06, Titre07, Titre08, Titre09, Titre10, Titre11, Titre12 are \cf4 String\cf2\par
Descrip01, Descrip02, Descrip03, Descrip04, Descrip05, Descrip06, Descrip07, Descrip08, Descrip09, Descrip10, Descrip11, Descrip12 are \cf4 String\cf2\par
\par
\cf1 //Extraction des informations de votre soir\'e9e t\'e9l\'e9\cf2\par
\cf4 For\cf2  i=2 TO 12 + 1\par
\tab HtmlCode1 = Heure_Delimiter_1 + \cf7 StringExtraction\cf2 (HtmlCode, i, Heure_Delimiter_1)\par
\tab\cf4 If\cf2  i=2 \cf4 Then\cf2\par
\tab\tab Heure01 = \cf7 BetweenStrings\cf2 (HtmlCode1, Heure_Delimiter_1, Heure_Delimiter_2)\par
\tab\tab Titre01 = \cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Titre_Delimiter_1, Titre_Delimiter_2))\par
\tab\tab Descrip01 = \cf7 RemoveHTMLTags\cf2 (\cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Descrip_Delimiter_1, Descrip_Delimiter_2)))\par
\tab\cf4 End\par
\tab If\cf2  i=3 \cf4 Then\cf2\par
\tab\tab Heure02 = \cf7 BetweenStrings\cf2 (HtmlCode1, Heure_Delimiter_1, Heure_Delimiter_2)\par
\tab\tab Titre02 = \cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Titre_Delimiter_1, Titre_Delimiter_2))\par
\tab\tab Descrip02 = \cf7 RemoveHTMLTags\cf2 (\cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Descrip_Delimiter_1, Descrip_Delimiter_2)))\par
\tab\cf4 End\par
\cf2\tab\cf4 If\cf2  i=4 \cf4 Then\cf2\par
\tab\tab Heure03 = \cf7 BetweenStrings\cf2 (HtmlCode1, Heure_Delimiter_1, Heure_Delimiter_2)\par
\tab\tab Titre03 = \cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Titre_Delimiter_1, Titre_Delimiter_2))\par
\tab\tab Descrip03 = \cf7 RemoveHTMLTags\cf2 (\cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Descrip_Delimiter_1, Descrip_Delimiter_2)))\par
\tab\cf4 End\par
\cf2\tab\cf4 If\cf2  i=5 \cf4 Then\cf2\par
\tab\tab Heure04 = \cf7 BetweenStrings\cf2 (HtmlCode1, Heure_Delimiter_1, Heure_Delimiter_2)\par
\tab\tab Titre04 = \cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Titre_Delimiter_1, Titre_Delimiter_2))\par
\tab\tab Descrip04 = \cf7 RemoveHTMLTags\cf2 (\cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Descrip_Delimiter_1, Descrip_Delimiter_2)))\par
\tab\cf4 End\cf2\par
\tab\cf4 If\cf2  i=6 \cf4 Then\cf2\par
\tab\tab Heure05 = \cf7 BetweenStrings\cf2 (HtmlCode1, Heure_Delimiter_1, Heure_Delimiter_2)\par
\tab\tab Titre05 = \cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Titre_Delimiter_1, Titre_Delimiter_2))\par
\tab\tab Descrip05 = \cf7 RemoveHTMLTags\cf2 (\cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Descrip_Delimiter_1, Descrip_Delimiter_2)))\par
\tab\cf4 End\cf2\par
\tab\cf4 If\cf2  i=7 \cf4 Then\cf2\par
\tab\tab Heure06 = \cf7 BetweenStrings\cf2 (HtmlCode1, Heure_Delimiter_1, Heure_Delimiter_2)\par
\tab\tab Titre06 = \cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Titre_Delimiter_1, Titre_Delimiter_2))\par
\tab\tab Descrip06 = \cf7 RemoveHTMLTags\cf2 (\cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Descrip_Delimiter_1, Descrip_Delimiter_2)))\par
\tab\cf4 End\cf2\par
\cf4\tab If\cf2  i=8 \cf4 Then\cf2\par
\tab\tab Heure07 = \cf7 BetweenStrings\cf2 (HtmlCode1, Heure_Delimiter_1, Heure_Delimiter_2)\par
\tab\tab Titre07 = \cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Titre_Delimiter_1, Titre_Delimiter_2))\par
\tab\tab Descrip07 = \cf7 RemoveHTMLTags\cf2 (\cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Descrip_Delimiter_1, Descrip_Delimiter_2)))\par
\tab\cf4 End\cf2\par
\tab\cf4 If\cf2  i=9 \cf4 Then\cf2\par
\tab\tab Heure08 = \cf7 BetweenStrings\cf2 (HtmlCode1, Heure_Delimiter_1, Heure_Delimiter_2)\par
\tab\tab Titre08 = \cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Titre_Delimiter_1, Titre_Delimiter_2))\par
\tab\tab Descrip08 = \cf7 RemoveHTMLTags\cf2 (\cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Descrip_Delimiter_1, Descrip_Delimiter_2)))\par
\tab\cf4 End\cf2\par
\tab\cf4 If\cf2  i=10 \cf4 Then\cf2\par
\tab\tab Heure09 = \cf7 BetweenStrings\cf2 (HtmlCode1, Heure_Delimiter_1, Heure_Delimiter_2)\par
\tab\tab Titre09 = \cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Titre_Delimiter_1, Titre_Delimiter_2))\par
\tab\tab Descrip09 = \cf7 RemoveHTMLTags\cf2 (\cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Descrip_Delimiter_1, Descrip_Delimiter_2)))\par
\tab\cf4 End\cf2\par
\tab\cf4 If\cf2  i=11 \cf4 Then\cf2\par
\tab\tab Heure10 = \cf7 BetweenStrings\cf2 (HtmlCode1, Heure_Delimiter_1, Heure_Delimiter_2)\par
\tab\tab Titre10 = \cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Titre_Delimiter_1, Titre_Delimiter_2))\par
\tab\tab Descrip10 = \cf7 RemoveHTMLTags\cf2 (\cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Descrip_Delimiter_1, Descrip_Delimiter_2)))\par
\tab\cf4 End\cf2\par
\cf4\tab If\cf2  i=12 \cf4 Then\cf2\par
\tab\tab Heure11 = \cf7 BetweenStrings\cf2 (HtmlCode1, Heure_Delimiter_1, Heure_Delimiter_2)\par
\tab\tab Titre11 = \cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Titre_Delimiter_1, Titre_Delimiter_2))\par
\tab\tab Descrip11 = \cf7 RemoveHTMLTags\cf2 (\cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Descrip_Delimiter_1, Descrip_Delimiter_2)))\par
\tab\cf4 End\cf2\par
\tab\cf4 If\cf2  i=13 \cf4 Then\cf2\par
\tab\tab Heure12 = \cf7 BetweenStrings\cf2 (HtmlCode1, Heure_Delimiter_1, Heure_Delimiter_2)\par
\tab\tab Titre12 = \cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Titre_Delimiter_1, Titre_Delimiter_2))\par
\tab\tab Descrip12 = \cf7 RemoveHTMLTags\cf2 (\cf7 StringRefine\cf2 (\cf7 BetweenStrings\cf2 (HtmlCode1, Descrip_Delimiter_1, Descrip_Delimiter_2)))\par
\tab\cf4 End\cf2\par
\cf4 End\cf2\par
\cf6\par
\cf1 // mise en forme et affichage du programme t\'e9l\'e9 de la soir\'e9e\cf2\par
\cf6 Info\cf2 ("....................:::::::::::::::::::: Nous\cf1  s\cf2 ommes le " + jour + " " + date + " " + mois + " " + annee + " ::::::::::::::::::::...................." + CR + ...\par
\tab "" + CR + ...\par
\tab "TF1:\tab " + Heure01 + "\tab  " + Titre01 + " (" + Descrip01 + ")" + CR + ...\par
\tab "\tab " + Heure07 + " \tab " + Titre07 + " (" + Descrip07 + ")" + CR + ...\par
\tab "" + CR + ...\par
\tab "FR2:\tab " + Heure02 + "\tab  " + Titre02 + " (" + Descrip02 + ")" + CR + ...\par
\tab "\tab " + Heure08 + " \tab " + Titre08 + " (" + Descrip08 + ")" + CR + ...\par
\tab "" + CR + ...\par
\tab "FR3:\tab " + Heure03 + "\tab  " + Titre03 + " (" + Descrip03 + ")" + CR + ...\par
\tab "\tab " + Heure09 + " \tab " + Titre09 + " (" + Descrip09 + ")" + CR + ...\par
\tab "" + CR + ...\par
\tab "Canal+: \tab " + Heure04 + "\tab  " + Titre04 + " (" + Descrip04 + ")" + CR + ...\par
\tab "\tab " + Heure10 + "\tab  " + Titre10 + " (" + Descrip10 + ")" + CR + ...\par
\tab "" + CR + ...\par
\tab "Arte:\tab " + Heure05 + " \tab " + Titre05 + " (" + Descrip05 + ")" + CR + ...\par
\tab "\tab " + Heure11 + "\tab  " + Titre11 + " (" + Descrip11 + ")" + CR + ...\par
\tab "" + CR + ...\par
\tab "M6:\tab " + Heure06 + "\tab  " + Titre06 + " (" + Descrip06 + ")" + CR + ...\par
\tab "\tab " + Heure12 + " \tab " + Titre12 + " (" + Descrip12 + ")" + CR + ...\par
\tab "" + CR + ...\par
\tab ">>>>>>>>>>>>>>>>>>>>>>>>>>   Passez une Bonne soir\'e9e ;-)   <<<<<<<<<<<<<<<<<<<<<")\par
\par
\cf4 Return\par
\cf2\par
\par
Plage_TV:\par
\cf1 // Extract the html code of the movies list\cf2\par
\cf1 HtmlCode = \cf7 GetPage\cf1 ("http://www.tvmag.com/jsp/prog/printGrilleUtil.jspx?hDeb="\cf2 , Heure_TV + "\cf1 &date="\cf2 , Date_TV + "\cf1 &chaine=util&gridtype=")\cf4\par
\cf6 ShellExecute\cf2 (\cf1 "http://www.tvmag.com/jsp/prog/printGrilleUtil.jspx?hDeb=" + Heure_TV + "&date=" + Date_TV + "&chaine=util&gridtype=")\cf2\par
\cf4\par
If\cf2  HtmlCode = "" \cf4 Then\par
\cf2\tab\cf4 Switch\cf2  \cf4 Language\cf2\par
\tab\cf4 Case\cf2  3 \cf1 // English\cf2\par
\cf7\tab\cf2\tab\cf7 UserErrorMessage\cf2 ("This page has not been found")\par
\tab\cf4 Case\cf2  5 \cf1 // Fran\'e7ais\cf2\par
\tab\tab\cf7 UserErrorMessage\cf2 ("Cette page n'a \'e9t\'e9 trouv\'e9e")\par
\cf4\tab End\cf2\par
\tab\cf4 Return\cf2\par
\cf4 End\par
\cf2 T\cf1 F1, FR2, FR3, FR4, Canal, FR5, Arte, M6, Direct8, W9, TMC, NT1, NRJ12, LCP, BFM_TV, I_TELE, Europe2_TV, Gulli are \cf4 String\cf2\par
Delimiter_Chaine is \cf4 String\cf2  = "<font color=""black"" size=""2""><b>"\par
Nb_Chaine is \cf4 Int \cf2 = \cf7 StringCounter\cf2 ( HtmlCode, Delimiter_Chaine )\par
\cf1 // info(Nb_Chaine)\par
\cf2\par
\cf4 For\cf2  i\cf4  \cf2 = 2 to \cf1 Nb_Chaine + 1\cf2\par
\tab HtmlCode1 = Delimiter_Chaine + \cf7 StringExtraction\cf2 (HtmlCode, i, Delimiter_Chaine)\par
\tab HtmlCode1 = \cf7 StringReplace\cf2 (HtmlCode1, "***<br>" , "<br>")\par
\tab HtmlCode1 = \cf7 StringReplace\cf2 (HtmlCode1, "**<br>" , "<br>")\par
\tab HtmlCode1 = \cf7 StringReplace\cf2 (HtmlCode1, "*<br>" , "<br>")\par
\tab\cf1 HtmlCode1 = \cf7 StringReplace\cf1 (HtmlCode1, "&lt;" , "\cf2  \cf1 ")\par
\cf2\tab HtmlCode1 = \cf7 StringReplace\cf2 (HtmlCode1, "&gt;" , "<TAG>")\par
\tab HtmlCode1 = \cf7 StringReplace\cf2 (HtmlCode1, "&deg;" , "\'b0")\par
\tab HtmlCode1 = \cf7 StringReplace\cf2 (HtmlCode1, "&agrave;" , "\'e0")\par
\tab HtmlCode1 = \cf7 StringReplace\cf2 (HtmlCode1, "&ocirc;" , "\'f4")\par
\tab HtmlCode1 = \cf7 StringReplace\cf2 (HtmlCode1, "&ecirc;" , "\'ea")\par
\tab HtmlCode1 = \cf7 StringReplace\cf2 (HtmlCode1, "&Ccedil;" , "C")\par
\tab HtmlCode1 = \cf7 StringReplace\cf2 (HtmlCode1, "&ccedil;" , "\'e7")\par
\tab HtmlCode1 = \cf7 StringReplace\cf2 (HtmlCode1, "&amp;" , "et")\par
\tab HtmlCode1 = \cf7 StringReplace\cf2 (HtmlCode1, "&nbsp;" , " ")\par
\par
\tab\cf4 If\cf2  i=2 \cf4 Then \cf1 // TF1\cf2\par
\tab\tab TF1 = \cf7 BetweenStrings\cf2 (HtmlCode1, Delimiter_Chaine, "</table>")\par
\tab\tab TF1 = \cf7 StringReplace\cf2 ( TF1, "<br>", " ")\par
\tab\tab TF1 = \cf7 StringReplace\cf2 ( TF1, "</b>", CR)\par
\tab\tab TF1\cf1  = RemoveHTMLTags(\cf2 TF1)\par
\tab\tab\cf1 TF1 = \cf7 StringRefine\cf1 (TF1)\cf2\par
\tab\cf4 End\par
\tab If\cf2  i=3 \cf4 Then \cf1 // FR2\cf2\par
\tab\tab F\cf1 R2\cf2  = \cf7 BetweenStrings\cf2 (HtmlCode1, Delimiter_\cf1 Chaine\cf2 , "\cf1 </table>"\cf2 )\par
\tab\tab FR2 = \cf7 StringReplace\cf2 ( FR2, "<br>", " ")\par
\tab\tab FR2 = \cf7 StringReplace\cf2 ( FR2, "</b>", CR)\par
\tab\tab FR2\cf1  = RemoveHTMLTags(\cf2 FR2)\par
\tab\tab\cf1 FR2 = \cf7 StringRefine\cf1 (FR2)\cf2\par
\tab\cf4 End\par
\cf2\tab\cf4 If\cf2  i=4 \cf4 Then \cf1 // FR3\cf2\par
\tab\tab F\cf1 R\cf2 3 = \cf7 BetweenStrings\cf2 (HtmlCode1, Delimiter_\cf1 Chaine\cf2 , "\cf1 </table>"\cf2 )\par
\tab\tab FR3 = \cf7 StringReplace\cf2 ( FR3, "<br>", " ")\par
\tab\tab FR3 = \cf7 StringReplace\cf2 ( FR3, "</b>", CR)\par
\tab\tab FR3\cf1  = RemoveHTMLTags(\cf2 FR3)\par
\tab\tab\cf1 FR3 = \cf7 StringRefine\cf1 (FR3)\par
\cf2\tab\cf4 End\par
\cf2\tab\cf4 If\cf2  i=5 \cf4 Then \cf1 // Canal +\cf2\par
\tab\tab Canal = \cf7 BetweenStrings\cf2 (HtmlCode1, Delimiter_\cf1 Chaine\cf2 , "\cf1 </table>"\cf2 )\par
\tab\tab Canal = \cf7 StringReplace\cf2 ( Canal, "<br>", " ")\par
\tab\tab Canal = \cf7 StringReplace\cf2 ( Canal, "</b>", CR)\par
\tab\tab Canal\cf1  = RemoveHTMLTags(\cf2 Canal)\par
\tab\tab\cf1 Canal = \cf7 StringRefine\cf1 (Canal)\cf2\par
\tab\cf4 End\cf2\par
\tab\cf4 If\cf2  i=6 \cf4 Then \cf1 // FR5\cf2\par
\tab\tab F\cf1 R\cf2 5 = \cf7 BetweenStrings\cf2 (HtmlCode1, Delimiter_\cf1 Chaine\cf2 , "\cf1 </table>"\cf2 )\par
\tab\tab FR5 = \cf7 StringReplace\cf2 ( FR5, "<br>", " ")\par
\tab\tab FR5 = \cf7 StringReplace\cf2 ( FR5, "</b>", CR)\par
\tab\tab FR5\cf1  = RemoveHTMLTags(\cf2 FR5)\par
\tab\tab\cf1 FR5 = \cf7 StringRefine\cf1 (FR5)\cf2\par
\tab\cf4 End\cf2\par
\tab\cf4 If\cf2  i=7 \cf4 Then \cf1 // M6\cf2\par
\tab\tab M6 = \cf7 BetweenStrings\cf2 (HtmlCode1, Delimiter_\cf1 Chaine\cf2 , "\cf1 </table>"\cf2 )\par
\tab\tab M6 = \cf7 StringReplace\cf2 ( M6, "<br>", " ")\par
\tab\tab M6 = \cf7 StringReplace\cf2 ( M6, "</b>", CR)\par
\tab\tab M6\cf1  = RemoveHTMLTags(\cf2 M6)\par
\tab\tab\cf1 M6 = \cf7 StringRefine\cf1 (M6)\cf2\par
\tab\cf4 End\cf2\par
\cf4\tab If\cf2  i=8 \cf4 Then \cf1 // Arte\cf2\par
\tab\tab Arte = \cf7 BetweenStrings\cf2 (HtmlCode1, Delimiter_\cf1 Chaine\cf2 , "\cf1 </table>"\cf2 )\par
\tab\tab Arte = \cf7 StringReplace\cf2 ( Arte, "<br>", " ")\par
\tab\tab Arte = \cf7 StringReplace\cf2 ( Arte, "</b>", CR)\par
\tab\tab Arte\cf1  = RemoveHTMLTags(\cf2 Arte)\par
\tab\tab\cf1 Arte = \cf7 StringRefine\cf1 (Arte)\cf2\par
\tab\cf4 End\cf2\par
\tab\cf4 If\cf2  i=9 \cf4 Then \cf1 // Direct 8\cf2\par
\tab\tab Direct8 = \cf7 BetweenStrings\cf2 (HtmlCode1, Delimiter_\cf1 Chaine\cf2 , "\cf1 </table>"\cf2 )\par
\tab\tab Direct8 = \cf7 StringReplace\cf2 ( Direct8, "<br>", " ")\par
\tab\tab Direct8 = \cf7 StringReplace\cf2 ( Direct8, "</b>", CR)\par
\tab\tab Direct8\cf1  = RemoveHTMLTags(\cf2 Direct8)\par
\tab\tab\cf1 Direct8 = \cf7 StringRefine\cf1 (Direct8)\cf2\par
\tab\cf4 End\cf2\par
\tab\cf4 If\cf2  i=10 \cf4 Then \cf1 // W9\cf2\par
\tab\tab W9 = \cf7 BetweenStrings\cf2 (HtmlCode1, Delimiter_\cf1 Chaine\cf2 , "\cf1 </table>"\cf2 )\par
\tab\tab W9 = \cf7 StringReplace\cf2 ( W9, "<br>", " ")\par
\tab\tab W9 = \cf7 StringReplace\cf2 ( W9, "</b>", CR)\par
\tab\tab W9\cf1  = RemoveHTMLTags(\cf2 W9)\par
\tab\tab\cf1 W9 = \cf7 StringRefine\cf1 (W9)\cf2\par
\tab\cf4 End\cf2\par
\tab\cf4 If\cf2  i=11 \cf4 Then \cf1 // TMC\cf2\par
\tab\tab TMC = \cf7 BetweenStrings\cf2 (HtmlCode1, Delimiter_\cf1 Chaine\cf2 , "\cf1 </table>"\cf2 )\par
\tab\tab TMC = \cf7 StringReplace\cf2 ( TMC, "<br>", " ")\par
\tab\tab TMC = \cf7 StringReplace\cf2 ( TMC, "</b>", CR)\par
\tab\tab TMC\cf1  = RemoveHTMLTags(\cf2 TMC)\par
\tab\tab\cf1 TMC = \cf7 StringRefine\cf1 (TMC)\cf2\par
\tab\cf4 End\cf2\par
\cf4\tab If\cf2  i=12 \cf4 Then \cf1 // NT1\cf2\par
\tab\tab NT1 = \cf7 BetweenStrings\cf2 (HtmlCode1, Delimiter_\cf1 Chaine\cf2 , "\cf1 </table>"\cf2 )\par
\tab\tab NT1 = \cf7 StringReplace\cf2 ( NT1, "<br>", " ")\par
\tab\tab NT1 = \cf7 StringReplace\cf2 ( NT1, "</b>", CR)\par
\tab\tab NT1\cf1  = RemoveHTMLTags(\cf2 NT1)\par
\tab\tab\cf1 NT1 = \cf7 StringRefine\cf1 (NT1)\cf2\par
\tab\cf4 End\cf2\par
\tab\cf4 If\cf2  i=13 \cf4 Then \cf1 // NRJ12\cf2\par
\tab\tab NRJ12 = \cf7 BetweenStrings\cf2 (HtmlCode1, Delimiter_\cf1 Chaine\cf2 , "\cf1 </table>"\cf2 )\par
\tab\tab NRJ12 = \cf7 StringReplace\cf2 ( NRJ12, "<br>", " ")\par
\tab\tab NRJ12 = \cf7 StringReplace\cf2 ( NRJ12, "</b>", CR)\par
\tab\tab NRJ12\cf1  = RemoveHTMLTags(\cf2 NRJ12)\par
\tab\tab\cf1 NRJ12 = \cf7 StringRefine\cf1 (NRJ12)\cf2\par
\tab\cf4 End\par
\tab If\cf2  i=14 \cf4 Then \cf1 // LCP\cf2\par
\tab\tab LCP = \cf7 BetweenStrings\cf2 (HtmlCode1, Delimiter_\cf1 Chaine\cf2 , "\cf1 </table>"\cf2 )\par
\tab\tab LCP = \cf7 StringReplace\cf2 ( LCP, "<br>", " ")\par
\tab\tab LCP = \cf7 StringReplace\cf2 ( LCP, "</b>", CR)\par
\tab\tab LCP\cf1  = RemoveHTMLTags(\cf2 LCP)\par
\tab\tab\cf1 LCP = \cf7 StringRefine\cf1 (LCP)\cf2\par
\tab\cf4 End\cf2\par
\tab\cf4 If\cf2  i=15 \cf4 Then \cf1 // FR4\cf2\par
\tab\tab FR4 = \cf7 BetweenStrings\cf2 (HtmlCode1, Delimiter_\cf1 Chaine\cf2 , "\cf1 </table>"\cf2 )\par
\tab\tab FR4 = \cf7 StringReplace\cf2 ( FR4, "<br>", " ")\par
\tab\tab FR4 = \cf7 StringReplace\cf2 ( FR4, "</b>", CR)\par
\tab\tab FR4\cf1  = RemoveHTMLTags(\cf2 FR4)\par
\tab\tab\cf1 FR4 = \cf7 StringRefine\cf1 (FR4)\cf2\par
\tab\cf4 End\cf2\par
\tab\cf4 If\cf2  i=16 \cf4 Then \cf1 // BFM TV\cf2\par
\tab\tab BFM_TV = \cf7 BetweenStrings\cf2 (HtmlCode1, Delimiter_\cf1 Chaine\cf2 , "\cf1 </table>"\cf2 )\par
\tab\tab BFM_TV = \cf7 StringReplace\cf2 ( BFM_TV, "<br>", " ")\par
\tab\tab BFM_TV = \cf7 StringReplace\cf2 ( BFM_TV, "</b>", CR)\par
\tab\tab BFM_TV\cf1  = RemoveHTMLTags(\cf2 BFM_TV)\par
\tab\tab\cf1 BFM_TV = \cf7 StringRefine\cf1 (BFM_TV)\cf2\par
\tab\cf4 End\cf2\par
\tab\cf4 If\cf2  i=17 \cf4 Then \cf1 // I>TELE\cf2\par
\tab\tab I_TELE = \cf7 BetweenStrings\cf2 (HtmlCode1, Delimiter_\cf1 Chaine\cf2 , "\cf1 </table>"\cf2 )\par
\tab\tab I_TELE = \cf7 StringReplace\cf2 ( I_TELE, "<br>", " ")\par
\tab\tab I_TELE = \cf7 StringReplace\cf2 ( I_TELE, "</b>", CR)\par
\tab\tab I_TELE\cf1  = RemoveHTMLTags(\cf2 I_TELE)\par
\tab\tab\cf1 I_TELE = \cf7 StringRefine\cf1 (I_TELE)\cf2\par
\tab\cf4 End\cf2\par
\tab\cf4 If\cf2  i=18 \cf4 Then \cf1 // Europe 2 TV\cf2\par
\tab\tab Europe2_TV = \cf7 BetweenStrings\cf2 (HtmlCode1, Delimiter_\cf1 Chaine\cf2 , "\cf1 </table>"\cf2 )\par
\tab\tab Europe2_TV = \cf7 StringReplace\cf2 ( Europe2_TV, "<br>", " ")\par
\tab\tab Europe2_TV = \cf7 StringReplace\cf2 ( Europe2_TV, "</b>", CR)\par
\tab\tab Europe2_TV\cf1  = RemoveHTMLTags(\cf2 Europe2_TV)\par
\tab\tab\cf1 Europe2_TV = \cf7 StringRefine\cf1 (Europe2_TV)\cf2\par
\tab\cf4 End\cf2\par
\tab\cf4 If\cf2  i=19 \cf4 Then \cf1 // Gulli\cf2\par
\tab\tab Gulli = \cf7 BetweenStrings\cf2 (HtmlCode1, Delimiter_\cf1 Chaine\cf2 , "\cf1 </table>"\cf2 )\par
\tab\tab Gulli = \cf7 StringReplace\cf2 ( Gulli, "<br>", " ")\par
\tab\tab Gulli = \cf7 StringReplace\cf2 ( Gulli, "</b>", CR)\par
\tab\tab Gulli\cf1  = RemoveHTMLTags(\cf2 Gulli)\par
\tab\tab\cf1 Gulli = \cf7 StringRefine\cf1 (Gulli)\cf2\par
\tab\cf4 End\cf2\par
\par
\cf4 End\par
\cf2\par
\tab\par
\cf6 Info\cf2 ("- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" +\cf1  C\cf2 R + "- - - - - - - - - - " + T\cf1 F1\cf2  + CR + "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" +\cf1  C\cf2 R + "- - - - - - - - - - " + \cf1 FR2\cf2  + CR + "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" +\cf1  C\cf2 R +\cf1  \cf2 "- - - - - - - - - - " + \cf1 FR3\cf2  + CR + "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" +\cf1  C\cf2 R +\cf1  \cf2 "- - - - - - - - - - " + Canal\cf1 )\cf2\par
\cf6 Info\cf2 ("- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" +\cf1  C\cf2 R + "- - - - - - - - - - " + \cf1 F\cf2 R5 + CR +\cf1  \cf2 "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" +\cf1  C\cf2 R + "- - - - - - - - - - " + M6 + CR +\cf1  \cf2 "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" +\cf1  C\cf2 R + "- - - - - - - - - - " + \cf1 Arte\cf2  + CR + "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" +\cf1  C\cf2 R +\cf1  \cf2 "- - - - - - - - - - " + Direct8)\par
\cf6 Info\cf2 ("- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" +\cf1  C\cf2 R + "- - - - - - - - - - " + W9 + CR +\cf1  \cf2 "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" +\cf1  C\cf2 R + "- - - - - - - - - - " + TMC\cf1  + C\cf2 R + "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" +\cf1  C\cf2 R + "- - - - - - - - - - " + NT1 + CR +\cf1  \cf2 "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" +\cf1  C\cf2 R + "- - - - - - - - - - " + NRJ12\cf1  \cf2 + CR + "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" +\cf1  C\cf2 R + "- - - - - - - - - - " + LCP\cf1 )\cf2\par
\cf6 Info\cf2 ("- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" +\cf1  C\cf2 R + "- - - - - - - - - - " + FR4 + CR +\cf1  \cf2 "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" +\cf1  C\cf2 R + "- - - - - - - - - - " + \cf1 BFM_TV\cf2  + CR +\cf1  \cf2 "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" +\cf1  C\cf2 R + "- - - - - - - - - - " + \cf1 I_TELE\cf2  + CR +\cf1  \cf2 "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" +\cf1  C\cf2 R + "- - - - - - - - - - " + \cf1 Europe2_TV\cf2  + CR +\cf1  \cf2 "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" +\cf1  C\cf2 R + "- - - - - - - - - - " + \cf1 Gulli)\cf2\par
\par
\par
\par
\cf4 Return\cf2\par
\par
\cf1 // *********************** SCRIPT BOTTOM ***************************************\cf2\par
\par
\par
}