{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\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.1515;}\viewkind4\uc1\pard\cf1\f0\fs18 // DESCRIPTION Site de location de film www.dvdzap.ca (base de donn\'e9e limit\'e9e mais tout de meme utile)\cf2\par
\cf1 // AUTHOR Natouric - JUIN Jerome\cf2\par
\cf1 // LANGUAGE QUEBECOIS\cf2\par
\par
\cf3 MovieDatabaseValue\cf2  = "Dvdzap"\par
\par
\cf1 // verification de la version du script\cf2\par
\cf1 //LastVersion is \cf4 String\cf1  = \cf5 GetPage\cf1 ("http://www.pixel-infoweb.com/download/shareddoc/FILMS/scripts/versions.html", "" , "")\cf2\par
\cf1 //\cf4 If\cf1  (LastVersion = "\'04") OR (LastVersion = "")OR (PositionOccurrence(LastVersion,"La page est introuvable",1)>0) \cf4 Then\cf1  \cf2\par
\cf1 //\tab Goto ServerOff\cf2\par
\cf1 //\cf4 End\cf2\par
\cf1 //LastVersion = \cf5 BetweenStrings\cf1  (LastVersion , "#dvdzap#" , "#/dvdzap#")\cf2\par
\cf1 //Currentversion is \cf4 String\cf1  = "2.0"\cf2\par
\cf1 //\cf4 If\cf1  CurrentVersion <> LastVersion \cf4 Then\cf2\par
\cf1 //\tab DownloadFile ("http://www.myvideosoft.com/download/shareddoc/FILMS/scripts/DvdZap_V" + LastVersion + ".script", fRepEXE() + "/Scripts" , "DvdZap_V" + LastVersion + ".script")\cf2\par
\tab\cf1 //\cf5 UserInformationMessage\cf1  ("DvdZap " + LastVersion + cr + cr+ ...\cf2\par
\tab\tab\cf1 //\tab\tab\tab "Une mise a jour du script DvdZap vient d'\'eatre rapatri\'e9e." + cr+...\cf2\par
\tab\tab\cf1 //\tab\tab\tab "T\'e9lechargez vos fiches avec celle-ci. Merci")\cf2\par
\cf1 //\tab Return\cf2\par
\cf1 //\cf4 End\cf2\par
\cf1 //ServerOff:\cf2\par
\lang3084\par
\cf1 ///////////////////////////\par
//Champs de  Myvideosoft///\tab\par
//////////////////////////\cf2\par
\cf1\par
//\cf3 MovieURLValue\cf1  : Adresse URL du film\cf2\par
\cf1 //\cf3 MovieIDValue\cf1  : Identifiant du film sur le site Internet.\cf2\par
\cf1 //\cf3 MovieTitleValue\cf1  : Titre du film.\cf2\par
\cf1 //\cf3 MovieOriginalTitleValue\cf1  : Titre original du film.\cf2\par
\cf1 //\cf3 MovieFamilyValue\cf1  : Genre du film.\cf2\par
\cf1 //\cf3 MovieYearValue\cf1  : Ann\'e9e de r\'e9alisation du film.\cf2\par
\cf1 //\cf3 MovieCountryValue\cf1  : Pays d'origine du film.\cf2\par
\cf1 //\cf3 MovieDurationValue\cf1  : Dur\'e9e du film.\cf2\par
\cf1 //\cf3 MovieColorBWValue\cf1  : Couleur ou NB.\cf2\par
\cf1 //\cf3 MovieSummaryValue\cf1  : R\'e9sum\'e9 du film.\cf2\par
\cf1 //\cf3 MoviePictureValue\cf1  : URL de l'image ou nom du fichier image.\cf2\par
\cf1 //MovieTrailerValue : URL de la Vid\'e9o ou nom du ficheri vid\'e9o.\par
//\cf5 AddMovieDirectors\cf1  (Nom)\cf0\par
\cf1 //\cf5 AddMovieWriters\cf1  (Nom)\cf0\par
\cf1 //\cf5 AddMovieComposers\cf1  (Nom)\cf0\par
\cf1 //\cf5 AddMovieActors\cf1  (Nom, R\'f4le)\par
//______________________________________________________________________________\par
\cf2\lang1036\par
\cf1 // cette page liste les prochaines sorties de films \cf2\par
HtmlSearchPage is \cf4 String\cf2  = \cf5 GetPage\cf2 ("http://megavente.dvdzap.ca/recherche/", \cf6 TitleToSearch\cf2  , ".html" )\par
\cf4\par
\cf2\par
//arborescence g\'e9n\'e9rale\par
Movies_Delimiter is \cf4 String\cf2  = "<div id=""resultbox"">"\par
Movies_Number is \cf4 Int \cf2 = \cf5 StringCounter\cf2 (HtmlSearchPage, Movies_Delimiter)\par
\cf4 If\cf2  Movies_Number = 0 \cf4 Then\cf2\par
\tab\cf5 UserErrorMessage\cf2 ("D\'e9sol\'e9, le film n'est probablement pas repertori\'e9 dans la base de donn\'e9e de location")\par
\tab\cf4 Return\cf2\par
\cf4 End\cf2\par
\par
i is int\par
FilmIndex, FilmLien, TitreFilm, TitreAngl,TitreFilmOrig, FilmURL, HtmlPage are \cf4 String\cf2\par
\par
\cf4 For\cf2  i=2 to Movies_Number + 1\par
\tab FilmIndex = \cf5 StringExtraction\cf2  (HtmlSearchPage, i ,Movies_Delimiter )\par
\tab FilmLien = \cf5 BetweenStrings\cf2  (FilmIndex , "<a href=""/location-dvd" , ".html""><div class=" )\par
\tab\cf3 MovieIDValue\cf2  = \cf5 BetweenStrings\cf2 (Filmlien , "/", \cf1\lang3084 "/\cf2\lang1036 ")\par
\tab\cf3 MovieIDValue\cf2  = \cf5 StringReplace\cf2 (\cf3 MovieIDValue\cf2 , "\cf1\lang3084 d0\cf2 ","")\lang1036\par
\cf1\tab TitreFilmOrig = \cf5 BetweenStrings\cf1 (FilmIndex, "/a> (<b>" , "</b>)</h2></td>")\par
\cf2\tab\cf1 TitreFilmOrig\cf2  = \cf5 StringReplace\cf2 (\cf1 TitreFilmOrig\cf2 , "&ecirc;", "e")\par
\tab TitreFilmOrig = \cf5 StringRefine\cf2  (\cf1 TitreFilmOrig\cf2 )\par
\tab TitreFilm = \cf5 BetweenStrings\cf2 (FilmIndex, "\cf1 <h2><a href=""/location-dvd/\cf2 " , "html")\par
\tab TitreFilm = \cf5 BetweenStrings\cf2 (titreFilm,"/",".")\par
\tab TitreFilm = \cf5 StringReplace\cf2 (TitreFilm,"-"," ")\par
\tab TitreFilm = \cf5 StringRefine\cf2 (TitreFilm)\par
\tab TitreFilm = \cf5 StringReplace\cf2 (titreFilm, "&ecirc;", "e")\par
\tab TitreFilm = \cf5 FormatString\cf2  (\cf5 FormatString\cf2 (TitreFilm, "WOA"), "UC")\par
\tab\cf3 T\cf2 itreFilm = \cf5 RemoveHTMLTags\cf2 (TitreFilm)\par
\cf1\tab TitreAngl = \cf5 BetweenStrings\cf1  (filmIndex, "englishonly"">Cet item est offert en "," seulement")\cf2\par
\cf1\tab TitreAngl = \cf5 FormatString\cf1 (TitreAngl,"WOS")\par
\cf2\tab\cf4 If\cf1  TitreAngl <> "\'04"\cf4 Then\cf2\par
\cf1\tab TitreFilm = TitreFilm + "(" +TitreAngl+ ")"\par
\tab\cf4 End\cf2\par
\tab TitreFilm = TitreFilm+\cf1 "("+\cf2 TitreFilmOrig+\cf1 ")"\cf2\par
\tab FilmURL = "http://megavente.dvdzap.ca/location-dvd"+FilmLien+ ".html"\par
\tab\cf4 If\cf2  (\cf3 MovieIDValue\cf2  = "") OR (\cf3 MovieIDValue\cf2  = "\'04") OR (TitreFilm = CR) OR (TitreFilm = "\'04") \cf4 Then\cf2\par
\tab\tab Goto Pas_Add\par
\tab\cf4 Else\cf2\tab\par
\tab\tab\cf5 AddMovieToList\cf2 (i,\cf3 MovieIDValue\cf2 ,TitreFilm,\cf1 FilmURL\cf2 )\par
\tab\cf4 End\cf2\par
\par
Pas_Add:\par
\tab\par
//MODE DEBUG : enlever les deux slash devant \cf7 Trace\cf2  pour tester la capture des titres\par
\cf1 //\cf7 Trace\cf1 (\cf3 MovieIDValue\cf1 , TitreFilm, FilmURL)\par
\cf4 End\par
\cf2\par
\cf1 // Ouverture de la liste des films trouv\'e9s\cf2\par
\cf5 OpenMoviesList\cf2 ()\par
\par
\cf3\fs20\par
\cf4\fs18 If\cf2  (\cf3 MovieIDValue\cf2  = "") OR (\cf3 MovieIDValue\cf2  = "\'04")\cf4 Then\cf2\par
\tab\cf5\fs20 UserErrorMessage\cf1 ("Vous n'avez s\'e9lectionn\'e9 aucun film." + CR + CR\cf2 +"Ou la liste \'e9tait vide.\cf1 ")\cf2\fs18\par
\tab\cf4\fs20 Return\cf1\par
\cf4 End\cf1\par
\par
\cf2\par
\fs18\par
\cf1 //-----OUVERTURE DE LA PAGE CONTENANT LA FICHE DU FILM CHOISI\cf2\par
\par
\cf1 P\cf2 ageFicheFilm, \cf1 Synopsis, acteur\cf2 ,\cf1  \cf2\lang3084 Realisateur, \cf1\lang1036 NomActeur\cf2 , \lang3084 NomRealisateur, Genre, Sortie, Annee, Temps, Minutes\lang1036  are \cf4 String\par
\cf2 NbAct, NbReal, j, k are inT\par
\cf1\fs20\par
\cf2\fs18 PageFicheFilm = \cf5 GetMovie\cf2 (\cf3\lang3084 MovieURLValue\cf2 ,"","")\par
If \lang1036 PageFicheFilm\lang3084  = "" Then\par
\tab UserErrorMessage("Cette page n'a pas \'e9t\'e9 trouv\'e9e")\par
\tab Return\par
\cf4 End\par
\cf2\par
\cf3 MovieTitleValue\cf2 =\cf5 StringReplace\cf2 (\cf3 MovieTitleValue\cf2 ,"(anglais)","")\cf1\par
\cf3 MovieOriginalTitleValue\cf1  = \cf5 BetweenStrings\cf1  (\cf3\lang1036\fs20 MovieTitleValue\cf1 ,"(",")")\cf7\lang3084\fs18\par
\cf4\lang1036 If\cf2  \cf3\lang3084 MovieOriginalTitleValue\cf2\lang1036   = "\'04" \cf4 Then\cf2\par
\tab\tab\tab\cf3\lang3084 MovieOriginalTitleValue\cf2\lang1036  = ""\par
\tab\cf4 End\cf1\fs20\par
\cf2\lang3084\fs18\par
\cf7\par
\cf1 //Info(\cf3 MovieURLValue\cf1 )\cf2\par
\cf1\lang1036 //\cf7 Trace\cf1 (pagefichefilm)\cf2\par
\par
\cf1 //REMPLACEMENT DU TITRE\cf2\par
\cf3\fs20 MovieTitleValue\cf1  = \cf5 BetweenStrings\cf1 (\cf2 PageFicheFilm,"\fs18 <h2>"\cf1\fs20 ,"\cf2\fs18 </h2>\cf1\fs20 ")\par
\cf3 MovieTitleValue\cf2\fs18  = \cf5 StringRefine\cf2 (\cf3\fs20 MovieTitleValue\cf2\fs18 )\par
\cf3\fs20 MovieTitleValue\cf2\fs18  = \cf5 StringReplace\cf2 (\cf3\fs20 MovieTitleValue\cf2\fs18 , "&ecirc;", "e")\par
\cf3\fs20 MovieTitleValue\cf2\fs18  = \cf5 FormatString\cf2  (\cf5 FormatString\cf2 (\cf3\fs20 MovieTitleValue\cf2\fs18 , "WOA"), "UC")\par
\cf4 If\cf2  \cf3\fs20 MovieTitleValue\cf2\fs18   = "\'04" \cf4 Then\cf2\par
\tab\tab\tab\cf3\fs20 MovieTitleValue\cf2\fs18   = ""\par
\tab\cf4 End\cf1\fs20\par
\cf2\par
\cf1 //SYNOPSIS\cf2\par
Synopsis \cf1 = \cf5 BetweenStrings\cf1 (\cf2 PageFicheFilm,"<div class=""resultat"">\fs18 "\cf1\fs20 ,"\cf2 <h4>En vedette</h4>\cf1 ")\par
\cf2 Synopsis = \cf5 RemoveHTMLTags\cf2 (Synopsis)\par
Synopsis = \cf5 FormatString\cf2 (Synopsis,"WOS")\par
\cf3\lang3084\fs18 MovieSummaryValue\cf2  = Synopsis\par
\cf3 MovieSummaryValue\cf2\lang1036  = \cf5 StringRefine\cf2 (\cf3\lang3084 MovieSummaryValue\cf2\lang1036 )\par
\cf3\lang3084 MovieSummaryValue\cf2\lang1036  = \cf5 StringReplace\cf2 (\cf3\lang3084 MovieSummaryValue\cf2\lang1036 , "&ecirc;", "e")\par
\cf4 If\cf2  \cf3\lang3084 MovieSummaryValue\cf2\lang1036  = "\'04" \cf4 Then\cf2\par
\tab\tab\tab\cf3\lang3084 MovieSummaryValue\cf2\lang1036  = ""\par
\tab\cf4 End\cf2\par
\cf1\lang3084\par
//ACTEUR\par
\par
Acteur = \cf5 BetweenStrings\cf1 (PageFicheFilm,"<h4>En vedette</h4>","<h4>R&eacute;alisation</h4>")\par
\cf2\lang1036 NbAct = \cf5 StringCounter\cf2  (PageFicheFilm, "href=""/acteur")\par
\cf4 If\cf2  NbAct > 20 \cf4 Then\cf2  NbAct = 20\par
\tab\cf4 For\cf2  j = 2 TO NbAct +1\par
\tab\tab Acteur  = \cf5 StringExtraction\cf2 (PageFicheFilm , \cf1 j\cf2  , "href=""/acteur")\par
\cf1\tab\tab NomActeur = \cf5 BetweenStrings\cf1  (Acteur, """>" , "</")\cf2\par
\tab\tab\cf4 If\cf2  NomActeur = "\'04" \cf4 Then\cf2\par
\tab\tab\tab NomActeur = ""\par
\tab\cf4 End\cf2\par
\tab\cf5 AddMovieActors\cf2  (NomActeur , "")\par
\cf4 End\cf2\par
\lang3084\par
\cf1 //R\'c9ALISATEUR\cf2\par
Realisateur = \cf5 BetweenStrings\cf2 (\lang1036 PageFicheFilm,\lang3084 "\cf1 <h4>R&eacute;alisation</h4>\cf2 " , "<h4>Cat&eacute;gorie(s)</h4>")\par
NbReal  = \cf5 StringCounter\cf2  (\lang1036 PageFicheFilm,\lang3084  "href=""/realisateur")\par
\cf4 If\cf2  NbReal > 10 \cf4 Then\cf2  NbReal = 10\par
\tab\cf4 For\cf2  k = 2 TO NbReal +1\par
\tab\tab Realisateur  = \cf5 StringExtraction\cf2  (\lang1036 PageFicheFilm\lang3084  , k , "href=""/realisateur")\par
\tab\tab NomRealisateur = \cf5 BetweenStrings\cf2  (Realisateur, """>" , "</")\par
\tab\tab\cf4 If\cf2  nomRealisateur = "\'04" \cf4 Then\cf2\par
\tab\tab\tab NomRealisateur = ""\par
\tab\cf4 End\cf2\par
\tab\cf5 AddMovieDirectors\cf2 (NomRealisateur)\par
\cf4 End\par
\cf2\par
\cf1 //GENRES DU FILM\par
\cf2 Genre = \cf5 BetweenStrings\cf2 (\lang1036 PageFicheFilm,\lang3084  "<h4>Cat&eacute;gorie(s)</h4>"\lang1036 ,\lang3084 "\cf1 <h4>Date de sortie</h4>\cf2 ")\par
Ge\cf1 nre = \cf5\lang1036 StringExtraction \cf1 (Genre, 2 ,"<p>")\cf2\lang3084\par
\cf7 G\cf2 enre = \cf5 RemoveHTMLTags\cf2 (Genre)\par
Genre = \cf5 FormatString\cf2 (Genre,"WOS")\cf7\par
\cf3 MovieFamilyValue \cf2 = Genre\par
\cf4 If \cf3 MovieFamilyValue\cf2  = "\'04" \cf4 Then\cf2\par
\tab\cf3 MovieFamilyValue\cf2  = ""\par
\cf4 End\cf2\par
\par
\par
\cf1 //ANN\'c9E DE SORTIE\par
\cf2 Sortie = \cf5 BetweenStrings\cf2 (PageFicheFilm,"<h4>Date de sortie</h4>", "!-- FIN SOMMAIRE -->")\par
Annee= \cf5 BetweenStrings\cf2 (Sortie,"<p>","-")\par
\cf3 MovieYearValue\cf2  = Annee\par
\cf4 If \cf3 MovieYearValue\cf2  = "\'04" \cf4 Then\cf2\par
\tab\cf3 MovieYearValue\cf2  = ""\par
\cf4 End\cf2\par
\par
\cf1 //DUR\'c9E DU FILM\par
\cf2\par
TEMPS = \cf5 BetweenStrings\cf2 (PageFicheFilm,"<h4>Dur&eacute;e</h4>","<h4>Langue(s)</h4>")\par
Minutes = \cf5 BetweenStrings\cf2  (Temps,"<p>",".</p>")\par
Minutes = \cf5 EliminateLetters\cf2 (Minutes)\par
\cf3 MovieDurationValue\cf2  = Minutes\par
\par
\cf1 //COULEUR MIS PAR D\'c9FAUT\cf2\par
\cf3\lang1036\fs20 MovieColorBWValue\cf2  = "Couleur"\par
\lang3084\fs18\par
\cf1 //PAYS NON DISPONIBLE SUR LE SITE DE DVDZAP\cf2\par
\par
\par
\cf1 //JAQUETTE\par
\cf3\lang2057\fs20 MoviePictureValue\cf2  ="\cf1\lang3084\fs18 http://media.dvdzap.ca/xml/dvd/private/collection/\cf2 "\lang2057\fs20 +\cf3 MovieIDValue\cf2\lang3084\fs18 +\lang2057\fs20  "/full.jpg"\cf1\lang3084\fs18\par
\cf4\lang1036 If\cf2  (\cf3\lang3084 MovieTitleValue\cf2\lang1036  = "") OR (\cf3\lang3084 MovieTitleValue\cf2\lang1036  = "\'04")\cf4 Then\cf2\lang3084\par
\cf3\tab MoviePictureValue\cf2  = ""\par
\cf4 End\par
\cf2\lang2057\fs20\par
\cf1\lang3084\fs18 //\cf7 Trace\cf1 (\cf3 MoviePictureValue\cf1 )\par
\cf2\par
//CREATION DE LA FICHE DU FILM\par
\cf1 CreateMovie()\par
\cf2\par
\par
\cf1 // Messages d'erreurs ET Gestion des champs en Blanc\cf2\par
Message1, Message2, Message3, Message4, Message5, Message6, Message7, Message8 are \cf4 String\cf2\par
\par
GESTION_ERREUR is \cf4 String\par
\cf2\par
\cf1 //__________________________________________________________________________________________________________________________\par
\cf4\lang1036\fs20 If\cf2  GESTION_ERREUR <> "0" \cf4 Then\cf1\par
\cf4\tab If\cf1  (\cf3 MoviePictureValue\cf1  = "\lang3084\fs18 http://media.dvdzap.ca/xml/dvd/private/collection/"+\cf2 "\cf1\lang1036\fs20\'04\cf2\lang2057 "+"/full.jpg\cf1\lang1036 ") OR (\cf3 MoviePictureValue\cf1  =  "") \cf4 Then\cf1  \par
\tab\tab message1 = "- Aucune jaquette Grand Format pour ce film - d\'e9sol\'e9"\par
\tab\tab\cf3 MoviePictureValue\cf1  = ""\par
\cf4\tab Else\cf1\par
\tab\tab message1 = "- Image = OK"\par
\cf4\tab End\cf1\par
\tab\par
\cf2\tab\cf4 If\cf1  (\cf3 MovieDurationValue\cf1  = "0") OR (\cf3 MovieDurationValue\cf1  = "") OR (\cf3 MovieDurationValue\cf1  = "\'04")\cf4 Then\cf1\par
\tab\tab message2 = "- Aucune dur\'e9e pour ce film - d\'e9sol\'e9 "\par
\tab\tab\cf3 MovieDurationValue\cf1  = ""\par
\cf4\tab Else\cf1\par
\tab\tab message2 = "- Dur\'e9e = OK"\tab\par
\cf4\tab End\cf1\par
\par
\cf4\tab If\cf1  (\cf3 MovieYearValue\cf1  = "\'04") OR (\cf3 MovieYearValue\cf1  = "") \cf4 Then\cf1\par
\tab\tab message4 = "- Aucune ann\'e9e de r\'e9alisation pour ce film - d\'e9sol\'e9"\par
\tab\tab\cf3 MovieYearValue\cf1  = ""\par
\cf4\tab Else\cf1\par
\tab\tab message4 = "- Ann\'e9e = OK"\par
\cf4\tab End\cf1\par
\par
\cf4\tab If\cf1  (\cf3 MovieSummaryValue\cf1  = "\'04") OR (\cf3 MovieSummaryValue\cf1  = "") \cf4 Then\cf1\par
\tab\tab message5 = "- Aucun r\'e9sum\'e9 pour ce film - d\'e9sol\'e9"\par
\tab\tab\cf3 MovieSummaryValue\cf1  = ""\par
\cf4\tab Else\cf1\par
\tab\tab message5 = "- R\'e9sum\'e9 = OK"\par
\cf4\tab End\cf1\par
\par
\cf4\tab If\cf1  (\cf3 MovieFamilyValue\cf1  = "\'04") OR (\cf3 MovieFamilyValue\cf1  = "") \cf4 Then\cf1\par
\tab\tab message6 = "- Aucun Genre pour ce film - d\'e9sol\'e9"\par
\tab\tab\cf3 MovieFamilyValue\cf1  = ""\par
\cf4\tab Else\cf1\par
\tab\tab message6 = "- Genre = OK"\par
\cf4\tab End\cf1\par
\par
\cf4\tab If\cf1  (\cf3 MovieCountryValue\cf1  = "\'04") OR (\cf3 MovieCountryValue\cf1  = "") \cf4 Then\cf1\par
\tab\tab message7 = "- LE \lang3084\fs18 PAYS EST NON DISPONIBLE SUR LE SITE DE DVDZAP\lang1036\fs20 "\par
\tab\tab\cf3 MovieCountryValue\cf1  = ""\par
\cf4\tab Else\cf1\par
\tab\tab message7 = "- Pays = OK"\par
\cf4\tab End\cf1\par
\tab\par
\cf4\tab If\cf1  (\cf3 MovieColorBWValue\cf1  = "Couleur") AND (\cf3 MovieColorBWValue\cf1  <> "NB") \cf4 Then\cf1  \par
\tab\tab message8 = "- Couleur u\cf2 tilis\'e9e\cf1  par d\'e9faut."\par
\cf4\tab Else\cf1\par
\tab\tab message8 = "- Couleur = OK"\par
\cf4\tab End\par
\cf1\par
\tab\cf5 UserInformationMessage\cf1  ("La fiche a \'e9t\'e9 cr\'e9\'e9e : " + CR + CR +...\par
\tab\tab\tab\tab\tab message1 + CR + ...\par
\tab\tab\tab\tab\tab message5 + CR + ...\par
\tab\tab\tab\tab\tab message6 + CR + ...\par
\tab\tab\tab\tab\tab message2 + CR + ...\par
\tab\tab\tab\tab\tab message4 + CR + ...\par
\tab\tab\tab\tab\tab message7 + CR + ...\par
\tab\tab\tab\tab\tab message8 + CR + CR + ...\par
\tab\tab\tab\tab\tab "S'il vous manque beaucoup d'informations sur cette fiche , \cf2 v\'e9ri\cf4 f\cf2 ier aver le site directement\cf1 .")\par
\cf4 End\par
\cf2\fs18\par
\par
\par
\par
}