(*************************************************** Ant Movie Catalog importation script www.antp.be/software/moviecatalog/ [Infos] Authors=Dedej (origine Draco31.fr) Title=CinemaMontreal Description=Texte et Image de CinemaMontreal Site=http://www.cinemamontreal.com Language=FR Version=1.2 du 28/02/2014 Requires=3.5 Comments=Ce script nécessite le fichier ScorEpioNCommonScript.pas|.==.| : ' ( ( ( ( /\ | "==()))))): © ScorEpioN ©| ( ( ( ( \_/ License=This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. | GetInfo=1 RequiresMovies=1 [Options] Mise à jour du Script=1|1|0=Pas de mise à jour|1=Mise à jour du script Type de Lancement=0|0|0=Demande le titre avant de lancer le script|1=Ne demande pas le titre avant de lancer le script|2=Lancement automatique sur l'adresse web Format du Titre=2|2|0=Titre en minuscule|1=Titre en majuscule|2=Première lettre du titre en majuscule|3=Première lettre de chaque mot du titre en majuscule|4=Formatage identique au site d'origine Recherche sur le titre=1|0|0=Version canadienne|1=Original Affichage des résultats=0|0|0=Uniquement si plus de 2 résultats|1=Toujours, même si un seul résultat Affiche=1|1|0=Pas d'affiche|1=Avec affiche Extra : Photos du film=1|0|0=Pas d' extra|1=Avec photos du film en extra Lien URL=0|0|0=Lien vers la fiche de CinemaMontreal|1=Lien vers le site officiel Critiques=1|1|0=Pas de critique|1=Prends la première page de critique (50 max)|2=Prends la totalité des critiques Champs personnalisés=1|0|0=Ne pas utiliser de champs personnalisés|1=Utiliser des champs personnalisés Garder commentaires=1|0|0=Ne pas garder anciens commentaires|1=Garder les anciens commentaires [Parameters] ***************************************************) program CinemaMontreal; uses BatchCommon7552, ScorEpioNCommonScript; const VersionScript = '1.2 du 28/02/2014'; NomScript = 'CinemaMontreal'; urlDomain = 'http://www.cinemamontreal.com'; urlCMSearch = 'http://www.cinemamontreal.com/recherche?r=que&m=Montreal&aga=&key='; // http://www.cinemamontreal.com/recherche?r=que&m=Montreal&aga=&key=prometheus&mysubmit=Go! urlCMSearchGo = '&mysubmit=Go'; ScriptName = 'CinemaMontreal (FR).ifs'; SiteUrl = 'http://joel.desseaux.free.fr/CinemaMontreal (FR)/'; timetosleep = 500; var MovieName, Titre, urlTitre, temp, pgphotos : string; Maj, PMaj, Nb : Integer; //--OK-------------------------------------------------------------------------- // ANALYSE RESULTAT DE RECHERCHE //------------------------------------------------------------------------------ procedure AnalyzeSearchPage(urlSearch: string); var Line : string; nbchoix, i : integer; begin Line := GetPage(urlSearch); PickTreeClear; // Controle le nb de résultat dans la liste nbchoix := 0; urlTitre := ''; Titre := ''; // Supprimme le haut de la page Delete(Line,1,Pos('
',Line)); // Supprimme la 1ère ligne de la liste des films Delete(Line,1,Pos('
',infos,'0'); Delete(infos,1,Pos('
',infos)-1); Titre := FindInfo('html">','',infos,'0'); temp1 := FindInfo('','',infos,'0'); if (temp1 <> '') then Titre := Titre+' '+temp1; if (temp2 <> '') then Titre := Titre+' ('+temp2+')'; // Analyse la syntaxe du texte Titre := Texte(Titre); end; //------------------------------------------------------------------------------ // ANALYSE LA PAGE DU FILM //------------------------------------------------------------------------------ procedure AnalyzeMoviePage(url : string); var Line, Comments, Resume, PageC, PageAnn, PageI, minute, heure, temp1, t1, t2, t3, url1, Nom, Tag : string; i, j, m, h, NumPage : Real; begin temp := ''; Comments := ''; Line := GetPage(url); // Supprimme les parties inutiles Delete(Line,1,Pos('