antp.be forum

Posted: **2007-03-31 15:30:22**

Aqui dejo un par de script para los españoles ya que vamos un poco faltos
Nota: es necesario "StringUtils7552.pas"

(***************************************************

Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/

[Infos]
Authors=Legrad
Title=decine21
Description=
Site=
Language=es
Version=1
Requires=3.5.0
Comments=
License=
GetInfo=1

[Options]

***************************************************)

program Decine21;
 Uses StringUtils7552;
const

  BaseURL1 = 'http://www.decine21.com/EstructurasBd/Peliculas\';



var
  MovieName: string;
  MovieURL: string;
//------------------------------------------------------------------------------------
function BorraComillas(var S: string): string;
var
   n,len, tag: Integer;
   c: char;
   t: String;
begin
   tag := 0;
   t := '';
   len := length(s);
   for n :=1 to len do
   begin
     c := Copy(s,n,1);
     // quitamos las comillas
     if c = '''' then
        c := ' ';
        t := t + c;
   end
   s := t;
   result := t;
end;
//---------------------------------------------------------

                               function DeleteTags(var S: string): string;
var
   n,len, tag: Integer;
   c: char;
   t: String;
begin

   tag := 0;
   t := '';
   len := length(s);

   for n :=1 to len do
   begin
      c := Copy(s,n,1);

      // quitamos los tabuladores
      if c = #9 then
         c := ' ';

      if(tag=1) then
      begin
         if(c='>') then tag := 0;
         continue;
      end
      else
      begin
         if(c='<') then
         begin
            tag := 1;
            continue;
         end;
         t := t + c;
      end;
   end
   s := t;
   result := t;
end;


//------------------------------------------------------------------------------------
procedure AnalyzePage(Address: string);
var
  strPage, strPages, MovieAddr, MovieTitle, MovieDate, MovieID: string;
  BeginPos, EndPos, BeginPo, EndPo: Integer;
  Line: string;
  LineNr: Integer;
  Page: TStringList;
begin
  strPage := GetPage(Address);
  BeginPos := Pos(' en el dominio <b>www.decine21.com', strPage);
  if(BeginPos > -1)then
    begin
      PickTreeClear;
      //PickTreeAdd('Resultados para: ' + MovieName, '');
      Delete(strPage, 1, BeginPos);
      BeginPos := Pos('href="http://www.decine21.com/FrmPeliculas.asp?id=', strPage);
      EndPos := 1;
      while ((BeginPos > 0) and (EndPos > 0)) do
        begin
        //Delete(strPage =elimina beginpos superior y deja el resto direccion
          Delete(strPage, 1, BeginPos);
          EndPos := Pos('" class', strPage);
          //MovieId direccion completa de carga datos
          MovieId := Copy(strPage, +50, EndPos-50);
          MovieAddr := 'http://www.decine21.com/FrmPeliculas.asp?id=' + MovieId;
          BeginPos := Pos('clk(this',strPage);
          EndPos := Pos('</a>', strPage);
          MovieTitle := Copy(strPage,BeginPos+20, EndPos-8);
          MovieTitle  := TextBetween (MovieTitle , 'l>', '-');
          MovieTitle  := UpFirstLetterWord(MovieTitle );
          MovieTitle  := StringReplace(MovieTitle , 'ã‘', 'ñ');
          MovieTitle  := StringReplace(MovieTitle , 'Â·', '');
          MovieTitle  := StringReplace(MovieTitle , 'ã', 'á');
          MovieTitle  := StringReplace(MovieTitle , 'ã©', 'é');
          MovieTitle  := StringReplace(MovieTitle , 'ã', 'í');
          MovieTitle  := StringReplace(MovieTitle , 'ã“', 'ó');
          MovieTitle  := StringReplace(MovieTitle , 'ã³', 'ó');
          MovieTitle  := StringReplace(MovieTitle , 'ãš', 'ú');
          MovieTitle  := StringReplace(MovieTitle , 'ãº', 'ú');
          MovieTitle  := StringReplace(MovieTitle , 'ã¡', 'á');
          MovieTitle  := StringReplace(MovieTitle , 'ã', 'í');
          MovieTitle  := StringReplace(MovieTitle , 'ã±', 'ú');
           MovieTitle  := StringReplace(MovieTitle , 'Ã¡', 'á');
           MovieTitle := StringReplace(MovieTitle , 'Ã©', 'é');
           MovieTitle  := StringReplace(MovieTitle , 'Ã', 'í');
           MovieTitle  := StringReplace(MovieTitle , 'Ã³', 'ó');
           MovieTitle  := StringReplace(MovieTitle , 'Ãº', 'ú');
           MovieTitle  := StringReplace(MovieTitle , 'ã±', 'ñ');
           MovieTitle  := StringReplace(MovieTitle , 'Ã±', 'ñ');
           MovieTitle  := StringReplace(MovieTitle , 'Â', '');
          DeleteTags(MovieTitle);
          PickTreeAdd(MovieTitle,  MovieAddr);
          BeginPos := Pos('href="http://www.decine21.com/FrmPeliculas.asp?id=', strPage);
          if(Pos('</body>', strPage) < BeginPos) then
           BeginPos := -1;
        end;
    end;
    PickTreeExec(Address)
    AnalyzeMoviePage(Address);
    SetField(fieldURL, Address);
end;
//------------------------------------------------------------------------------------

procedure AnalyzeMoviePage(Address: string);
var
  Page: TStringList;
  LineNr: Integer;
  Line: string;
  Item: string;
  Comments: string;
  Actors: string;
  Directors: string;
  Description: string;
  BaseURL2: string;
  Beginpos: string;
  titre_film: string;
  EndPos: string;
  Item1: string;
  Item2: string;
   Movie: string;
begin
  Description := '';

 // URL
  SetField(fieldURL, Address);
  Page := TStringList.Create;
  Page.Text := GetPage(Address);

   //Original Title
 LineNr := FindLine('columnadatos', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('columnadatos',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'titulooriginal', '</font><br><br><div');
     Item:= BorraComillas(Item);
     Item  := StringReplace(Item , '>', ' ');
    Item := StringReplace(Item , #13#10, ' ');
    Item  := StringReplace(Item , '   ', ' ');
    Item  := Trim(Item );
    DeleteTags(Item)
    HTMLDecode(Item);
    SetField(fieldOriginalTitle, Trim (Item));
      end;
  
  
  
  //Translated Title
 LineNr := FindLine('<title>', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('<title>',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '<title>', '-');
    Item := StringReplace(Item , #13#10, ' ');
    Item  := StringReplace(Item , '   ', ' ');
     Item:= BorraComillas(Item);
    Item  := Trim(Item );
    DeleteTags(Item)
    HTMLDecode(Item);
    SetField(fieldTranslatedTitle, trim (Item));
      end;


  // Director
  LineNr := FindLine('Direcci', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('Dirección:',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'Dirección:', '</a>');
    Item:= BorraComillas(Item);
    Item := StringReplace(Item , #13#10, ' ');
    Item  := StringReplace(Item , '   ', ' ');
    Item  := Trim(Item );
    DeleteTags(Item)
    HTMLDecode(Item);
    SetField(fieldDirector, trim (Item));
      end;


   // Año
  LineNr := FindLine('Año de producci', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('Año de producci',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '>', '<');
    Item := StringReplace(Item , #13#10, ' ');
    Item  := StringReplace(Item , '   ', ' ');
    Item  := Trim(Item );
    DeleteTags(Item)
    HTMLDecode(Item);
    SetField(fieldYear, trim (Item));
      end;

   // Actores
  LineNr := FindLine('<br>Intérpretes: ', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('<br>Intérpretes: ',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '<br>Intérpretes: ', '</font><br>Guión');
    Item := StringReplace(Item , #13#10, '');
    Item  := StringReplace(Item , '   ', '');
    Item  := Trim(Item );
    DeleteTags(Item)
    HTMLDecode(Item);
    SetField(fieldActors, trim (Item));
      end;
  //Categoria
  LineNr := FindLine('nero: <font class=', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('nero: <font class=',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '>', 'Extras');
  Item := StringReplace(Item , #13#10, '');
    Item  := StringReplace(Item , '   ', '');
    DeleteTags(Item);
  HTMLDecode(Item);
  SetField(fieldCategory, Trim (Item));
  end;

  //Duracion
  LineNr := FindLine('Duración: ', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('Duración: ',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '>', 'min');
    Item  := Trim(Item );
    DeleteTags(Item);
    HTMLDecode(Item);
  SetField(fieldLength, Trim (Item));
  end;

   //sinopsis
  LineNr := FindLine('style="MARGIN: 0cm 0cm 0pt">', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('style="MARGIN: 0cm 0cm 0pt">',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'style="MARGIN: 0cm 0cm 0pt">', '</div></td></tr><tr><td class=');
  Item := StringReplace(Item , #13#10, '');
    Item  := StringReplace(Item , '   ', '');
    DeleteTags(Item);
  HTMLDecode(Item);
    SetField(fieldDescription, trim (Item));
    end;


    //Pais
  LineNr := FindLine('Nacionalidad:', Page, 0);
  Line := Page.GetString(LineNr);
  Item := TextBetween (Line, 'Nacionalidad:', '</font>');
  Item  := StringReplace(Item , '.', '');
  DeleteTags(Item);
  HTMLDecode(Item);
  SetField(fieldCountry, trim (Item));

     // Comentarios
  LineNr := FindLine('</font><br>Guión: ', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('</font><br>Guión: ',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '</font><br>Guión: ', '<br>Distribuye');
    Item  := StringReplace(Item , ' ', #13#10);
    Item  := StringReplace(Item , '</a></font>', #13#10);
    Item  := StringReplace(Item , '</a></font><br>', '/');

    Item  := StringReplace(Item , '   ', ' ');
    Item  := Trim(Item );
    DeleteTags(Item);
    HTMLDecode(Item);
    SetField(fieldComments, trim ('Guión: '+Item));
  end;
   // Productor
  LineNr := FindLine('Produce:', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('Produce:',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'Produce:', '</span>');
    Item := StringReplace(Item , #13#10, ' ');
    Item  := StringReplace(Item , '   ', ' ');
    Item  := Trim(Item );
    DeleteTags(Item)
    HTMLDecode(Item);
    SetField(fieldProducer, trim (Item));
  end;
  // Pais
  LineNr := FindLine('País:</span>', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('País:</span>',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'class="texto">', '</span>');
    Item := StringReplace(Item , #13#10, ' ');
    Item  := StringReplace(Item , '   ', ' ');
    Item  := Trim(Item );
    DeleteTags(Item)
    HTMLDecode(Item);
    SetField(fieldCountry, trim (Item));
  end;


  // Picture
  LineNr := FindLine('Imagenes\Peliculas\Criticas', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('Imagenes\Peliculas\Criticas',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'http://www.decine21.com/EstructurasBd/Peliculas\', 'style=');
     Item:= BorraComillas(Item);
    Item := StringReplace(Item , #13#10, ' ');
    Item  := StringReplace(Item , '   ', ' ');
    Item  := Trim(Item );
    DeleteTags(Item)
    HTMLDecode(Item);
   GetPicture ('http://www.decine21.com/EstructurasBd/Peliculas\'+Item);
  end;
end;
 //-------------------------------------------------------------------------
begin
       if (CheckVersion(3,5,0)=FALSe) then
   begin
      ShowMessage('Se requiere Ant Movie Catalog versión 3.5 o superior');
      exit;
   end;

   MovieName := GetField(fieldTranslatedTitle);
   if MovieName = '' then
            MovieName := GetField(fieldOriginalTitle);
            Input('De cine 21', 'Buscar', MovieName);

     if(GetOption('') = 0) then  Input('De cine 21', 'Buscar', MovieName);

   AnalyzePage('http://www.google.es/search?as_q=' + UrlEncode(MovieName)+'&hl=es&num=100&btnG=Buscar+con+Google&as_epq=&as_oq=&as_eq=&lr=&as_ft=i&as_filetype=&as_qdr=all&as_occt=body&as_dt=i&as_sitesearch=www.decine21.com&as_rights=&safe=images');
end.

Code: Select all

(***************************************************

Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/

[Infos]
Authors=Legrad
Title=Todocine
Description=
Site=
Language=es
Version=1
Requires=3.5.0
Comments=
License=
GetInfo=1

[Options]

***************************************************)

program TodoCine;
 Uses StringUtils7552;
const

  BaseURL1 = 'http://www.todocine.com';



var
  MovieName: string;
  MovieURL: string;
//------------------------------------------------------------------------------------
function BorraComillas(var S: string): string;
var
   n,len, tag: Integer;
   c: char;
   t: String;
begin
   tag := 0;
   t := '';
   len := length(s);
   for n :=1 to len do
   begin
     c := Copy(s,n,1);
     if c = '''' then
        c := ' ';
        t := t + c;
   end
   s := t;
   result := t;
end;
//---------------------------------------------------------

                               function DeleteTags(var S: string): string;
var
   n,len, tag: Integer;
   c: char;
   t: String;
begin

   tag := 0;
   t := '';
   len := length(s);

   for n :=1 to len do
   begin
      c := Copy(s,n,1);

      // quitamos los tabuladores
      if c = #9 then
         c := ' ';

      if(tag=1) then
      begin
         if(c='>') then tag := 0;
         continue;
      end
      else
      begin
         if(c='<') then
         begin
            tag := 1;
            continue;
         end;
         t := t + c;
      end;
   end
   s := t;
   result := t;
end;


//------------------------------------------------------------------------------------
procedure AnalyzePage(Address: string);
var
  strPage, strPages, MovieAddr, MovieTitle, MovieDate, MovieID: string;
  BeginPos, EndPos, BeginPo, EndPo: Integer;
  Line: string;
  LineNr: Integer;
  Page: TStringList;
begin
  strPage := GetPage(Address);
  BeginPos := Pos(' href="http://www.todocine.com/mov/', strPage);
  if(BeginPos > -1)then
    begin
      PickTreeClear;
      //PickTreeAdd('Resultados para: ' + MovieName, '');
      Delete(strPage, 1, BeginPos);
      BeginPos := Pos('href="http://www.todocine.com/mov/', strPage);
      EndPos := 1;
      while ((BeginPos > 0) and (EndPos > 0)) do
        begin
        //Delete(strPage =elimina beginpos superior y deja el resto direccion
          Delete(strPage, 1, BeginPos);
          EndPos := Pos('" class', strPage);
          //MovieId direccion completa de carga datos
          MovieId := Copy(strPage, +34, EndPos-34);
          MovieAddr := 'http://www.todocine.com/mov/' + MovieId;
          BeginPos := Pos(')">',strPage);
          EndPos := Pos('</h2>', strPage);
          MovieTitle := Copy(strPage,BeginPos+20, EndPos-8);
          MovieTitle  := TextBetween (MovieTitle , '<b>', '</b>');
          MovieTitle  := UpFirstLetterWord(MovieTitle );
          MovieTitle  := StringReplace(MovieTitle , 'ã‘', 'ñ');
          MovieTitle  := StringReplace(MovieTitle , 'Â·', '');
          MovieTitle  := StringReplace(MovieTitle , 'ã', 'á');
          MovieTitle  := StringReplace(MovieTitle , 'ã©', 'é');
          MovieTitle  := StringReplace(MovieTitle , 'ã', 'í');
          MovieTitle  := StringReplace(MovieTitle , 'ã“', 'ó');
          MovieTitle  := StringReplace(MovieTitle , 'ã³', 'ó');
          MovieTitle  := StringReplace(MovieTitle , 'ãš', 'ú');
          MovieTitle  := StringReplace(MovieTitle , 'ãº', 'ú');
          MovieTitle  := StringReplace(MovieTitle , 'ã¡', 'á');
          MovieTitle  := StringReplace(MovieTitle , 'ã', 'í');
          MovieTitle  := StringReplace(MovieTitle , 'ã±', 'ú');
           MovieTitle  := StringReplace(MovieTitle , 'Ã¡', 'á');
           MovieTitle := StringReplace(MovieTitle , 'Ã©', 'é');
           MovieTitle  := StringReplace(MovieTitle , 'Ã', 'í');
           MovieTitle  := StringReplace(MovieTitle , 'Ã³', 'ó');
           MovieTitle  := StringReplace(MovieTitle , 'Ãº', 'ú');
           MovieTitle  := StringReplace(MovieTitle , 'ã±', 'ñ');
           MovieTitle  := StringReplace(MovieTitle , 'Ã±', 'ñ');
           MovieTitle  := StringReplace(MovieTitle , 'Â', '');
          DeleteTags(MovieTitle);
          PickTreeAdd(MovieTitle,  MovieAddr);
          BeginPos := Pos('href="http://www.todocine.com/mov/', strPage);
          if(Pos('</body>', strPage) < BeginPos) then
           BeginPos := -1;
        end;
    end;
    PickTreeExec(Address)
    AnalyzeMoviePage(Address);
    SetField(fieldURL, Address);
end;
//------------------------------------------------------------------------------------

procedure AnalyzeMoviePage(Address: string);
var
  Page: TStringList;
  LineNr: Integer;
  Line: string;
  Item: string;
  Comments: string;
  Actors: string;
  Directors: string;
  Description: string;
  BaseURL2: string;
  Beginpos: string;
  titre_film: string;
  EndPos: string;
  Item1: string;
  Item2: string;
   Movie: string;
begin
  Description := '';

 // URL
  SetField(fieldURL, Address);
  Page := TStringList.Create;
  Page.Text := GetPage(Address);

   //Original Title
 LineNr := FindLine('SIZE=2 COLOR=#FFFFFF><B>', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('SIZE=2 COLOR=#FFFFFF><B>',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'SIZE=2 COLOR=#FFFFFF><B>', '</B>');
     Item:= BorraComillas(Item);
     Item  := StringReplace(Item , '>', ' ');
    Item := StringReplace(Item , #13#10, ' ');
    Item  := StringReplace(Item , '   ', ' ');
    Item  := Trim(Item );
    DeleteTags(Item)
    HTMLDecode(Item);
    SetField(fieldOriginalTitle, Trim (Item));
      end;
  
  
  
  //Translated Title
 LineNr := FindLine('<TITLE>TodoCine:', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('<TITLE>TodoCine:',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '<TITLE>TodoCine:', '</TITLE>');
    Item := StringReplace(Item , #13#10, ' ');
    Item  := StringReplace(Item , '   ', ' ');
    Item:= BorraComillas(Item);
    Item  := Trim(Item );
    DeleteTags(Item)
    HTMLDecode(Item);
    SetField(fieldTranslatedTitle, trim (Item));
      end;


  // Director
  LineNr := FindLine('Dirección:', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('Dirección:',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'SIZE=2>', '<BR>');
    Item:= BorraComillas(Item);
    Item := StringReplace(Item , #13#10, ' ');
    Item  := StringReplace(Item , '   ', ' ');
    Item  := Trim(Item );
    DeleteTags(Item)
    HTMLDecode(Item);
    SetField(fieldDirector, trim (Item));
      end;


   // Año
  LineNr := FindLine('A&ntilde', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('A&ntilde',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'COLOR=#FFFFFF><B> ', '</B>');
    Item := StringReplace(Item , #13#10, ' ');
    Item  := StringReplace(Item , '   ', ' ');
    Item  := Trim(Item );
    DeleteTags(Item)
    HTMLDecode(Item);
    SetField(fieldYear, trim (Item));
      end;

   // Actores
  LineNr := FindLine('<B>Reparto:', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('<B>Reparto:',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'htm">', '</I></TD></TR></TABLE></TD></TR>');
    Item := StringReplace(Item , #13#10, '');
    Item  := StringReplace(Item , '   ', '');
    Item  := Trim(Item );
    DeleteTags(Item)
    HTMLDecode(Item);
    SetField(fieldActors, trim (Item));
      end;
  //Categoria
  LineNr := FindLine('Género:', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('Género:',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'SIZE=2 COLOR=#FFFFFF><B>', '</B>');
  Item := StringReplace(Item , #13#10, '');
    Item  := StringReplace(Item , '   ', '');
    DeleteTags(Item);
  HTMLDecode(Item);
  SetField(fieldCategory, Trim (Item));
  end;

  //Duracion
  LineNr := FindLine('Duración:', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('Duración:',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'SIZE=2 COLOR=#FFFFFF><B>', 'min');
    Item  := Trim(Item );
    DeleteTags(Item);
    HTMLDecode(Item);
  SetField(fieldLength, Trim (Item));
  end;

   //sinopsis
  LineNr := FindLine('Sinópsis:', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('Sinópsis:',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'SIZE=2>', '</TABLE>');
  Item := StringReplace(Item , #13#10, '');
    Item  := StringReplace(Item , '   ', '');
    DeleteTags(Item);
  HTMLDecode(Item);
    SetField(fieldDescription, trim (Item));
    end;


    //Pais
  LineNr := FindLine('Nacionalidad:', Page, 0);
  Line := Page.GetString(LineNr);
  Item := TextBetween (Line, 'SIZE=2 COLOR=#FFFFFF><B>', '</B>');
  Item  := StringReplace(Item , '.', '');
  DeleteTags(Item);
  HTMLDecode(Item);
  SetField(fieldCountry, trim (Item));

     // Comentarios
  LineNr := FindLine('Fotografía:', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('Fotografía:',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'Fotografía:', '</A><BR></TD></TR>');
    Item := StringReplace(Item , #13#10,'');
    Item := StringReplace(Item , '</B></TD></TR><TR><TD>', #13#10);
    Item := StringReplace(Item , '<B>', #13#10);
    Item  := Trim(Item );
    DeleteTags(Item);
    HTMLDecode(Item);
    SetField(fieldComments, trim ('Fotografía: '+Item));
  end;
   // Productor
  LineNr := FindLine('Produce:', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('Produce:',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'Produce:', '</span>');
    Item := StringReplace(Item , #13#10, ' ');
    Item  := StringReplace(Item , '   ', ' ');
    Item  := Trim(Item );
    DeleteTags(Item)
    HTMLDecode(Item);
    SetField(fieldProducer, trim (Item));
  end;
  // Pais
  LineNr := FindLine('País:</span>', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('País:</span>',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'class="texto">', '</span>');
    Item := StringReplace(Item , #13#10, ' ');
    Item  := StringReplace(Item , '   ', ' ');
    Item  := Trim(Item );
    DeleteTags(Item)
    HTMLDecode(Item);
    SetField(fieldCountry, trim (Item));
  end;


  // Picture
  LineNr := FindLine('SRC="http://www.todocine.com/img', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('SRC="http://www.todocine.com/img',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'SRC="', '" ALT');
    Item  := StringReplace(Item , 't/', '/');
    Item := StringReplace(Item , #13#10, ' ');
    Item  := StringReplace(Item , '   ', ' ');
    Item  := Trim(Item );
    DeleteTags(Item)
    HTMLDecode(Item);
   GetPicture (Item);
  end;
end;
 //-------------------------------------------------------------------------
begin
       if (CheckVersion(3,5,0)=FALSe) then
   begin
      ShowMessage('Se requiere Ant Movie Catalog versión 3.5 o superior');
      exit;
   end;

   MovieName := GetField(fieldTranslatedTitle);
   if MovieName = '' then
            MovieName := GetField(fieldOriginalTitle);
            Input('Todo cine', 'Buscar:', MovieName);

     if(GetOption('') = 0) then  Input('Todo cine', 'Buscar:', MovieName);

   AnalyzePage('http://www.google.es/search?as_q=' + UrlEncode(MovieName)+'&hl=es&num=100&btnG=Buscar+con+Google&as_epq=&as_oq=&as_eq=&lr=&as_ft=i&as_filetype=&as_qdr=all&as_occt=title&as_dt=i&as_sitesearch=www.todocine.com&as_rights=&safe=images');
end.

Posted: **2007-03-31 16:06:48**

Thanks

Posted: **2007-04-04 18:55:57**

legrad wrote:Aqui dejo un par de script para los españoles ya que vamos un poco faltos

¡Hola!

Yo juraría que después de los scripts en inglés, los españoles son los que más hay (o sino, los terceros).

Muchas gracias por la aportación.

Saludos, folgui.

antp.be forum

(ES) Nuevo script "TodoCine" y "DeCine21"

(ES) Nuevo script "TodoCine" y "DeCine21&quot

Re: (ES) Nuevo script "TodoCine" y "DeCine21&