Nuevo script EliteFreek V1.0 (ES) Peticion del foro

legrad · Post by **legrad** » 2007-04-22 17:04:10

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

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

[Infos]
Authors=Legrad
Title=elitefreak
Description=
Site=www.elitefreak.net
Language=ES
Version=1.0
Requires=3.5.0
Comments=
License=
GetInfo=1

[Options]

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

program elitefreak;
 Uses StringUtils7552;



var
  MovieName: string;
  MovieURL: string;
//------------------------------------------------------------------------------------
 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;
//---------------------------------------
function UpFirstLetterWord(texto:string):string;
var espaco:integer;
sst:string;
begin
texto:=AnsiUpFirstLetter(AnsiLowerCase(texto));
repeat
    espaco:=Pos(' ',texto);
    sst:=AnsiUpperCase(Copy(texto,espaco+1,1));

texto:=Copy(texto,1,espaco-1)+'/|\'+sst+Copy(texto,espaco+2,length(texto));
until Pos(' ',texto)=0;
texto := StringReplace(texto, '/|\', ' ');
if Copy(texto,1,1)=' ' then
  texto:=Copy(texto,2,length(texto));
result:=texto;
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('<select name="calidad" class="buscacali" onChange="consul(1);">', strPage);
  if(BeginPos > -1)then
    begin
      PickTreeClear;
      Delete(strPage, 1, BeginPos);
      BeginPos := Pos('<A HREF="peliculas/', strPage);
      EndPos := 1;
      while ((BeginPos > 0) and (EndPos > 0)) do
        begin
          Delete(strPage, 1, BeginPos);
          EndPos := Pos('">', strPage);
          MovieId := Copy(strPage, +19, EndPos-19);
          MovieAddr := 'http://www.elitefreak.net/peliculas/' + MovieId;
          BeginPos := Pos('.htm',strPage);
          EndPos := Pos('</tr>', strPage);
          MovieTitle := Copy(strPage,BeginPos, EndPos);
          MovieTitle  := TextBetween (MovieTitle , '">', '</td></tr>');
          MovieTitle  := StringReplace (MovieTitle ,#13#10, '--');
          MovieTitle  := UpFirstLetterWord(MovieTitle );
          HTMLRemoveTags(MovieTitle);
          PickTreeAdd(MovieTitle,  MovieAddr);
          PickTreeSort;
          BeginPos := Pos('<A HREF="peliculas/', 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;
  Movie: string;
begin
  Description := '';
  Comments := '';
 // URL
  SetField(fieldURL, Address);
  Page := TStringList.Create;
  Page.Text := GetPage(Address);

    //Titulo Traducido
 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,'EliteFreak - ','');
    Item  := Trim(Item );
    DeleteTags(Item);
    HTMLDecode(Item);
    SetField(fieldOriginalTitle, Trim (Item));
    SetField(fieldTranslatedTitle, Trim (Item));
  end;
  //Género
 LineNr := FindLine('<div align="right"><b>Genero:</b></div>', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('<div align="right"><b>Genero:</b></div>',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '<td width="43%">', '</td>');
    Item  := Trim(Item );
    HTMLDecode(Item);
    SetField(fieldCategory, trim (Item));
  end;


  // Año
  LineNr := FindLine('<div align="right"><b>Año:</b></div>', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('<div align="right"><b>Año:</b></div>',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '<td width="43%">', '</td>');
    Item  := Trim(Item );
    HTMLRemoveTags(Item);
    HTMLDecode(Item);
    SetField(fieldYear, trim (Item));
  end;


   // Formato Video
  LineNr := FindLine('<div align="right"><b>Formato:</b></div>', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('<div align="right"><b>Formato:</b></div>',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '<td width="34%">', '</td>');
    Item  := Trim(Item );
    HTMLRemoveTags(Item);
    HTMLDecode(Item);
    SetField(fieldMediaType, trim (Item));
  end;

   // Calificación
  LineNr := FindLine('http://www.imdb.com/title/', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('http://www.imdb.com/title/',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '>', '/');
    Item  := Trim(Item );
    HTMLRemoveTags(Item);
    HTMLDecode(Item);
    SetField(fieldRating, trim (Item));
  end;
    // Director
  LineNr := FindLine('<div align="right"><b>Calidad:</b></div>', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('<div align="right"><b>Director:</b></div>',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '<td colspan="3">', '</tr>');
    Item  := StringReplace(Item ,#13#10,'');
    Item  := Trim(Item );
    DeleteTags(Item);
    HTMLDecode(Item);
    SetField(fieldDirector, trim (Item));
  end;
  // Tamaño
  LineNr := FindLine('<U>BitTorrent</U>', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('<U>BitTorrent</U>',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '</A> (', ')</td></tr>');
    HTMLDecode(Item);
    SetField(fieldSize, trim (Item));
  end;

      
      // Reparto
  LineNr := FindLine('Actores:</b></div>', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('Actores:</b></div>',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '<td colspan="3">', '</td>');
    Item  := StringReplace(Item , ')',')*');
    Item  := StringReplace(Item , '*',#13#10);
    Item  := StringReplace(Item , ', ',#13#10);
    Item  := Trim(Item );
    HTMLRemoveTags(Item);
    HTMLDecode(Item);
    SetField(fieldActors, trim (Item));
  end;
  //Sinopsis
  LineNr := FindLine('<td style="TEXT-ALIGN: justify" colspan="2">', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('<td style="TEXT-ALIGN: justify" colspan="2">',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '<td style="TEXT-ALIGN: justify" colspan="2">', '</td>');
    HTMLRemoveTags(Item);
    HTMLDecode(Item);
    SetField(fieldDescription, Trim (Item));
  end;
  // Calidad
  LineNr := FindLine('<div align="right"><b>Calidad:</b></div>', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('<div align="right"><b>Calidad:</b></div>',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '<td width="43%">', '</td>');
    Comments := Comments + 'CALIDAD: ' + Item + #13#10+'*********************'+#13#10;
  end;

  // Vinculo1
 LineNr := FindLine('<b>Archivo:</b>', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('<b>Archivo:</b>',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'HREF="', '"><U>');
    Comments := Comments + 'EDONKEY:' + Item + #13#10+'*********************'+#13#10;
  end;


  // Vinculo2
  LineNr := FindLine('<U>eDonkey/eMule</U>', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('<U>eDonkey/eMule</U>',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'HREF="', '"><U>');
    Comments := Comments + 'TORRENT: ' + Item + #13#10;
  end;



  // Picture
  LineNr := FindLine('<td width="18%"><img src="images/fichas/peliculas/', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('<td width="18%"><img src="images/fichas/peliculas/',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'src="', '" width');
    HTMLDecode(Item);
   GetPicture ('http://www.elitefreak.net/'+Item);
  end;
  HTMLDecode(Comments);
  SetField(fieldComments, Comments);
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('elitefreak', 'Buscar:', MovieName);

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

   AnalyzePage('http://www.elitefreak.net/elitefreak.php?cod=peliculas&bus1=Titulo&bus2=' + UrlEncode(MovieName));
end.

RANICUAJO · Post by **RANICUAJO** » 2007-04-22 17:56:11

Comprobado y funcionando.
Gracias por la rápida respuesta
Una "pequeñita" sugerencia (solo si es fácil)
¿Se puede cambiar para que los intérpretes en vez de salir asín?

Daniel Craig (James Bond)

Eva Green (Vesper Lynd)

Mads Mikkelsen (Le Chiffre)

Jeffrey Wright (Felix Leiter)

...

Salgan asín:

Daniel Craig (James Bond), Eva Green (Vesper Lynd), Mads Mikkelsen (Le Chiffre), Jeffrey Wright (Felix Leiter)...

Si supone mucho curro, no te comas el tarro, que bastante has hecho ya.

Mil gracias

legrad · Post by **legrad** » 2007-04-22 19:11:29

Only for this user (custom)

(Elitefreek)No tocare el original, simplemente tienes que abrir el script con el bloc de notas, buscas esto.

Code: Select all

 // Reparto
  LineNr := FindLine('Actores:</b></div>', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('Actores:</b></div>',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '<td colspan="3">', '</td>');
    Item  := StringReplace(Item , ')',')*');
    Item  := StringReplace(Item , '*',#13#10);
    Item  := StringReplace(Item , ', ',#13#10);
    Item  := Trim(Item );
    HTMLRemoveTags(Item);
    HTMLDecode(Item);
    SetField(fieldActors, trim (Item));
  end;

y cambiar por esto

Code: Select all

 // Reparto
  LineNr := FindLine('Actores:</b></div>', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('Actores:</b></div>',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '<td colspan="3">', '</td>');
    //Item  := StringReplace(Item , ')',')*');
    //Item  := StringReplace(Item , '*',#13#10);
    //Item  := StringReplace(Item , ', ',#13#10);
    Item  := Trim(Item );
    HTMLRemoveTags(Item);
    HTMLDecode(Item);
    SetField(fieldActors, trim (Item));
  end;

Caso parecido para para el script de zinema

Code: Select all


 // Reparto
  LineNr := FindLine('Intérpretes</strong>', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('Intérpretes</strong>',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '<strong>', 'Guión</strong>');
    Item  := StringReplace(Item ,#13#10,'');
    Item  := StringReplace(Item ,')',')*');
    Item  := StringReplace(Item ,'*',#13#10);
    Item  := Trim(Item );
    DeleteTags(Item);
    HTMLDecode(Item);
    Item  := StringReplace(Item ,'  ','');
    Item  := StringReplace(Item ,'">','');
    SetField(fieldActors, trim (Item));
      end;

y cambiar por esto

Code: Select all

 // Reparto
  LineNr := FindLine('Intérpretes</strong>', Page, 0);
  if LineNr <> -1 then
  begin
    Item := copy(Page.Text, pos('Intérpretes</strong>',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '<strong>', 'Guión</strong>');
    Item  := StringReplace(Item ,#13#10,'');
    Item  := StringReplace(Item ,')',')*');
    Item  := StringReplace(Item ,'*',', ');
    Item  := StringReplace(Item ,'</font></strong></td>',',');
    Item  := Trim(Item );
    DeleteTags(Item);
    HTMLDecode(Item);
    Item  := StringReplace(Item ,'  ','');
    Item  := StringReplace(Item ,'">','');
    SetField(fieldActors, trim (Item));
      end;

RANICUAJO · Post by **RANICUAJO** » 2007-04-23 17:00:53

Ambos script funcionan a la perfección y además con el arreglo que me has hecho para obtener el resultado como a mi me mola.
Que mas puedo pedir. No puedo decir mas que:
GRACIAS LEGRAD. Eres el MEJOR

Fer69 · Post by **Fer69** » 2011-06-23 08:36:11

No funciona.

Algún alma caritativa que lo actualice?

legrad · Post by **legrad** » 2011-06-29 16:55:21

CORREGIDO Version con las correcciones necesarias para carga de datos, la web cambio el codigo fuente, ahora carga caratula aunque de baja resolucion, ya que es la que esta disponible en la web, se ha añadido algunos extras en el campo comentarios. Un saludo

Code: Select all

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

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

[Infos]
Authors=
Title=Elitefreak.ifs
Description=
Site=www.elitefreak.net
Language=ES
Version=07.2011
Requires=3.5.1
Comments=
License=
GetInfo=1

[Options]

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

 

   

  program elitefreak; 
   



  var 
    MovieName: string; 
    MovieURL: string; 
    //------------------------------------------------------------------ 


  //------------------------------------------------------------------------------------ 
   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; 
  //--------------------------------------- 
  function UpFirstLetterWord(texto:string):string; 
  var espaco:integer; 
  sst:string; 
  begin 
  texto:=AnsiUpFirstLetter(AnsiLowerCase(texto)); 
  repeat 
      espaco:=Pos(' ',texto); 
      sst:=AnsiUpperCase(Copy(texto,espaco+1,1)); 

  texto:=Copy(texto,1,espaco-1)+'/|\'+sst+Copy(texto,espaco+2,length(texto)); 
  until Pos(' ',texto)=0; 
  texto := StringReplace(texto, '/|\', ' '); 
  if Copy(texto,1,1)=' ' then 
    texto:=Copy(texto,2,length(texto)); 
  result:=texto; 
  end; 
   //--------------------------------- 
   function FindLine(Pattern: string; List: TStringList; StartAt: Integer): Integer; 
 var 
   i: Integer; 
 begin 
   Result := -1; 
   if StartAt < 0 then 
     StartAt := 0; 
   for i := StartAt to List.Count-1 do 
     if Pos(Pattern, List.GetString(i)) <> 0 then 
     begin 
       Result := i; 
       Break; 
     end; 
 end; 
 //------------------------------------------------------------------------------------ 

 function TextBetween(var S: string; StartTag: string; EndTag: string): string; 
 var 
   InitialPos: Integer; 
 begin 
   InitialPos := Pos(StartTag, S); 
   if InitialPos = 0 then 
     result := '' 
   else 
   begin 
     Delete(S, 1, InitialPos + Length(StartTag) - 1); 
     InitialPos := Pos(EndTag, S); 
     if InitialPos = 0 then 
       result := S 
     else 
     begin 
       result := copy(S, 1, InitialPos - 1); 
       Delete(S, 1, InitialPos + 1); 
     end; 
   end; 
 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('<!-- Navigational Queries View All Results Link -->', strPage);
    if(BeginPos > -1)then 
      begin 
        PickTreeClear; 
        Delete(strPage, 1, BeginPos); 
        BeginPos := Pos('www.elitefreak.net/peliculas/', strPage);
        EndPos := 1; 
        while ((BeginPos > 0) and (EndPos > 0)) do 
          begin 
            Delete(strPage, 1, BeginPos); 
            EndPos := Pos('''', strPage);
            MovieId := Copy(strPage, +29, EndPos-29);
            MovieAddr := 'http://www.elitefreak.net/peliculas/' + MovieId; 
            BeginPos := Pos('htm',strPage);
            EndPos := Pos('</a>', strPage);
            MovieTitle := Copy(strPage,BeginPos, EndPos); 
            MovieTitle  := TextBetween (MovieTitle , 'target="_blank', '">EliteFreak');
            MovieTitle  := TextBetween (MovieTitle , '">', '-');

            HTMLDecode(MovieTitle);
            MovieTitle := UTF8Decode(MovieTitle);
            HTMLRemoveTags(MovieTitle); 
            PickTreeAdd(MovieTitle,  MovieAddr); 
            PickTreeSort; 
            BeginPos := Pos('www.elitefreak.net/peliculas/', 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; 
    Item1: string; 
    Item2: string; 
    Item3: string; 
    Comments: string; 
    Actors: string; 
    Directors: string; 
    Description: string; 
    BaseURL2: string; 
    Beginpos: string; 
    titre_film: string; 
    EndPos: string; 
    Movie: string; 
  begin 
    Description := ''; 
    Comments := ''; 

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

      //Titulo Traducido 
   LineNr := FindLine('<div class="tit_ficha">', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('<div class="tit_ficha">',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '<div class="tit_ficha">', '<'); 
      Item := StringReplace (Item, #13#10, ''); 
      Item  := Trim(Item ); 
      DeleteTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldTranslatedTitle, Trim (Item)); 
      SetField(fieldOriginalTitle, Trim (Item)); 
    end; 
     
     //Titulo Original 
   LineNr := FindLine('_original''>', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('_original''>',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '_original''>', '</span>'); 
      Item  := Trim(Item ); 
      DeleteTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldOriginalTitle, Trim (Item)); 
   end; 
    //Género 
    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, '">', '</td>'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldCategory, trim (Item)); 
    end; 


    // Año 
    LineNr := FindLine('Año:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Año:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '">', '</td>'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldYear, trim (Item)); 
    end; 

    // nacionalidad 
    LineNr := FindLine('País:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('País:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '">', '</td>'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldCountry, trim (Item)); 
    end; 

    // Director 
    LineNr := FindLine('Director:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Director:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '">', '</td>'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldDirector, trim (Item)); 
    end; 
     // Rating 
    LineNr := FindLine('<div class="nota_imdb">', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('<div class="nota_imdb">',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '<div class="nota_imdb">', '</div>'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldRating, trim (Item)); 
    end; 
    // Reparto 
    LineNr := FindLine('Intérpretes:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Intérpretes:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '">', '</td>'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldActors, trim (Item)); 
    end; 
    // Sinopsis 
    LineNr := FindLine('Sinopsis:</td>', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Sinopsis:</td>',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '">', '</td></tr>'); 
      Item := StringReplace (Item,'                        ', ''); 
      Item := StringReplace (Item,#13#10, ''); 
      Item := StringReplace (Item,'								', '');
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldDescription, trim (Item)); 
    end; 
    // Productor 
    LineNr := FindLine('Producción:</td>', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Producción:</td>',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '">', '</td></tr>'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldProducer, trim (Item)); 
       // duración 
    LineNr := FindLine('Duración:</td>', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Duración:</td>',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '">', 'minutos'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldLength, trim (Item)); 
    end; 
         // Guión 
    LineNr := FindLine('Guión:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Guión:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '">', '</td></tr>'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldComments, trim (Item)); 
      Comments := Comments + 'Guión: ' + Item + #13#10; 
      end; 
       // Fotografia 
    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, '">', '</td></tr>'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldComments, trim (Item)); 
      Comments := Comments + 'Fotografía: ' + Item + #13#10; 
      end; 
       // Musica 
    LineNr := FindLine('Música:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Música:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '">', '</td></tr>'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldComments, trim (Item)); 
      Comments := Comments + 'Música: ' + Item + #13#10; 
      end; 
     // Dir.Artistica 
    LineNr := FindLine('Dir. Arte:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Dir. Arte:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '">', '</td></tr>'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldComments, trim (Item)); 
      Comments := Comments + 'Dir. Arte: ' + Item + #13#10; 
      end; 
      // Productora 
    LineNr := FindLine('Productora:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Productora:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '">', '</td></tr>'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldComments, trim (Item)); 
      Comments := Comments + 'Productora: ' + Item + #13#10; 
      end; 
      // Productora 
    LineNr := FindLine('Distribuidora:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Distribuidora:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '">', '</td></tr>'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldComments, trim (Item)); 
      Comments := Comments + 'Distribuidora: ' + Item + #13#10; 
      end; 

      // Web oficial 
    LineNr := FindLine('Web oficial:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Web oficial:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '">', '</td></tr>'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldComments, trim (Item)); 
      Comments := Comments + 'Web oficial: ' + Item + #13#10; 
      end; 
      // Enlace IMDB 
    LineNr := FindLine('href="http://www.imdb.es/title/', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('href="http://www.imdb.es/title/',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, 'href="http://www.imdb.es/title/', '"'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldComments, trim (Item)); 
      Comments := Comments + 'Enlace IMDB: ' + 'http://www.imdb.es/title/'+Item + #13#10; 
      end; 
       // Trailer 
    LineNr := FindLine('<div class="trailer">', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('<div class="trailer">',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, 'src="', '"'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldComments, trim (Item)); 
      Comments := Comments + 'Trailer: ' + Item + #13#10+'-------------------------------------------------------------------------------------------'+ #13#10+'DATOS DE LA DESCARGA'+ #13#10; 
      end; 
       // Archivo 
    LineNr := FindLine('Archivo:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Archivo:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '<a href="', '"'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldComments, trim (Item)); 
      Comments := Comments + 'Archivo: ' + Item + #13#10; 
      end; 
       
      // Subtitulos 
    LineNr := FindLine('Subtitulos:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Subtitulos:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '<a href="', '"'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldComments, trim (Item)); 
      Comments := Comments + 'Subtitulos: ' + Item + #13#10; 
      end; 
         // Calidad 
    LineNr := FindLine('Calidad:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Calidad:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '">', '</'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldComments, trim (Item)); 
      Comments := Comments + 'Calidad: ' + Item + #13#10; 
      end; 
      // estreno en cine 
    LineNr := FindLine('<td class="dato">Cine:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('<td class="dato">Cine:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, 'a_justificar">', '</td>'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldComments, trim (Item)); 
      Comments := Comments + 'Estreno en cine: ' + Item + #13#10; 
      end; 
       // estreno en DVD 
    LineNr := FindLine('<td class="dato">DVD:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('<td class="dato">DVD:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, 'a_justificar">', '</td>'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldComments, trim (Item)); 
      Comments := Comments + 'Estreno en DVD: ' + Item + #13#10; 
      end; 
      // Formato 
    LineNr := FindLine('Formato:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Formato:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '<td>', '</'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldComments, trim (Item)); 
      SetField(fieldMediaType, (Item)); 
      end; 
      // Lenguaje 
    LineNr := FindLine('Idioma:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Idioma:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '<td>', '</'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldComments, trim (Item)); 
      SetField(fieldLanguages, (Item)); 
      end; 
      // Bitrate 
    LineNr := FindLine('Bitrate:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Bitrate:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '<td>', '</'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldComments, trim (Item)); 
      SetField(fieldVideoBitrate, (Item)); 
      end; 
       // Media 
    LineNr := FindLine('Códec Video:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Códec Video:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '<td>', '</'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldComments, trim (Item)); 
      SetField(fieldVideoFormat, (Item)); 
      end; 
       // resolucion 
    LineNr := FindLine('Resolución:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Resolución:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '<td>', '</'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldComments, trim (Item)); 
      SetField(fieldResolution, (Item)); 
      end; 
      // codec audio 
    LineNr := FindLine('Códec Audio:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Códec Audio:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '<td>', '</'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldComments, trim (Item)); 
      SetField(fieldAudioFormat, (Item)); 
      end; 
      // Framerate 
    LineNr := FindLine('Framerate:', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('Framerate:',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, '<td>', '</'); 
      Item  := Trim(Item ); 
      HTMLRemoveTags(Item); 
      HTMLDecode(Item); 
      SetField(fieldComments, trim (Item)); 
      SetField(fieldFrameRate, (Item)); 
      end; 
    // Comentarios 
    LineNr := FindLine('<td width="18%"><img src="images/fichas/peliculas/', Page, 0); 
    if LineNr <> -1 then 
    begin 
      Item := copy(Page.Text, pos('<td width="18%"><img src="images/fichas/peliculas/',Page.Text), length(Page.Text)); 
      Item := TextBetween (Item, 'src="', '" width'); 
      HTMLDecode(Item); 
     GetPicture ('http://www.elitefreak.net/'+Item); 
    end; 
    HTMLDecode(Comments); 
    SetField(fieldComments, Comments); 
  end; 
  // Caratula 
   LineNr := FindLine('content="http://www.elitefreak.net/images/fichas/peliculas/', Page, 0); 
   if LineNr <> -1 then 
   begin 
     Item := copy(Page.Text, pos('content="http://www.elitefreak.net/images/fichas/peliculas/',Page.Text), length(Page.Text)); 
     Item := TextBetween (Item, 'content="http://www.elitefreak.net/images/fichas/peliculas/', '" />'); 
     HTMLDecode(Item); 
     GetPicture ('http://www.elitefreak.net/images/fichas/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('elitefreak', 'Buscar:', MovieName); 

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

     AnalyzePage('http://www.webcrawler.com/webcrawler/ws/results/Web/' + UrlEncode(MovieName)+'%20site!3Ahttp!3A!2F!2Fwww!FEelitefreak!FEnet!2Fpeliculas/1/417/TopNavigation/Relevance/iq=true/zoom=off/_iceUrlFlag=7?_IceUrl=true');
  end.

Fer69 · Post by **Fer69** » 2011-07-02 08:48:39

He probado con varias pelis y me da siempre el mismo resultado: una lista en la que no está el título que busco.

¿Puede ser un bug o estoy haciendo algo mal?

Gracias legrad.

Post by **antp** » 2011-07-02 15:53:52

Indeed it does not seem to work

legrad · Post by **legrad** » 2011-07-03 18:55:23

El script del post anterior lo he editado y ya está corregido.
Tenia unos errores siento la confusion

Post by **antp** » 2011-07-05 09:20:39

Thanks. It seems to work better, but there is still an error when getting the picture (at least in the movie I tested: Spiderman)

raulsara · Post by **raulsara** » 2013-06-12 20:47:19

Hola a todos, parece que elitefreak ha dejado de funcionar ya que han rehecho la web, algún alma caricativa que actualice el script ¿?

antp.be forum

Nuevo script EliteFreek V1.0 (ES) Peticion del foro

Nuevo script EliteFreek V1.0 (ES) Peticion del foro

Eres un artista