Page 1 of 1

[FR] Script de recherche internet

Posted: 2005-01-22 08:42:24
by Alfredo
Je trouve très pratique le bouton de recherche sur Internet et la commodité avec laquelle on peut éditer son contenu.
...jusqu'à ce que par hasard je l'ai cliqué alors que le film sélectionné était
avait pour titre traduit "Chat blanc chat noir"
et pour titre original "Crnamacka, Belimacor"
Le bouton lance les recherches avec le titre traduit, il n'y a qu'IMDB qui le
reconnaisse.
Pour ne pas avoir à modifier les titres avant d'utiliser le bouton j'ai écrit ce petit script qui permet taper un titre et de choisir un site.

Code: Select all

// GETINFO SCRIPTING
// Recherche de films

program Recherche;

const
   kAllocine        = 'Allocine';
   kAmazon          = 'Amazon';
   kCinefil         = 'Cinefil';
   kDVDFR           = 'DVDFR';
   kMonsieur_Cinema = 'Monsieur_Cinema';
   kMoviecovers     = 'Moviecovers';
   kYoVideo         = 'YoVideo';
   kIMDB            = 'IMDB';
   kSeparator       = '---------------';

function BuildURL(psSite, psMovie : String) : String;
var
   lsMovie, lsText : String;
begin
   lsMovie := Trim(StringReplace(psMovie, '  ', ' '));
   case psSite of
      kAllocine:
         begin
            lsMovie := StringReplace(psMovie, ' ', '+');
            lsText := 'http://www.allocine.fr/recherche/?motcle=<<<MOVIE>>>&f=3&rub=0';
         end;
      kAmazon:
         lsText := 'http://www.amazon.fr/exec/obidos/search-handle-url/index=dvd-fr&field-title=<<<MOVIE>>>';
      kCinefil:
         lsText := 'http://www.cinefil.com/cinefil2005/CFM_Recherches/films.cfm?lachaine2=<<<MOVIE>>>';
      kDVDFR:
         begin
            lsMovie := StringReplace(psMovie, ' ', '+');
            lsText := 'http://www.dvdfr.com/search/search.php?multiname=<<<MOVIE>>>&x=0&y=0';
         end;
      kMonsieur_Cinema:
         lsText := 'http://cinema.tiscali.fr/recherche.aspx?file=http&keys=<<<MOVIE>>>&go.x=0&go.y=0';
      kMoviecovers:
         lsText := 'http://www.moviecovers.com/multicrit.html?titre=<<<MOVIE>>>';
      kYoVideo:
         lsText := 'http://www.yo-video.com/film/?nom=<<<MOVIE>>>&motor=1&base=0';
      kIMDB:
         lsText := 'http://french.imdb.com/Find?<<<MOVIE>>>';
      kSeparator:
         result := '';
      else
         Error;
   end;

   result := UrlEncode(StringReplace(lsText, '<<<MOVIE>>>', lsMovie)); 
end;

//entry

var
   lsSite, lsMovie, lsURL : String;
   lbBreak : Boolean;
begin
   if not CheckVersion(3,4,0) then
   begin
      ShowMessage('Ce script requiert une version plus récente de Ant Movie Catalog (au moins la version 3.4.0)')
      exit;
   end;
   
   lsMovie := '';
   lsSite  := '';

  if not Input('Recherche de films', 'Entre le titre du film :', lsMovie) then
     exit;
  if lsMovie = '' then
     exit;

   PickTreeClear;
//   PickTreeAdd('Site de recherche :', '');
   PickTreeAdd(kAllocine        , kAllocine);
   PickTreeAdd(kAmazon          , kAmazon);
   PickTreeAdd(kCinefil         , kCinefil);
   PickTreeAdd(kDVDFR           , kDVDFR);
   PickTreeAdd(kMonsieur_Cinema , kMonsieur_Cinema);
   PickTreeAdd(kMoviecovers     , kMoviecovers);
   PickTreeAdd(kYoVideo         , kYoVideo);
   PickTreeAdd(''               , kSeparator);
   PickTreeAdd(kIMDB            , kIMDB);

   lbBreak := False;
   repeat
      if not PickTreeExec(lsSite) then
         exit;
      if lsSite = '' then
         exit;
      if lsSite <> kSeparator then
         lbBreak := True;
   until lbBreak;

   lsURL := BuildURL(lsSite, lsMovie);
   if lsURL <> '' then
      Launch(lsURL, '');

   exit;
end.