antp.be forum

Posted: **2007-03-30 10:08:59**

Despues de mucho pelear al final he conseguido hacer algunos scripts, quiza los expertos me machaquen, puede que

sean scripts simples a mi ya me cubren mis espectativas aqui pondre tres para a quien le sea util,dos son de

"carteles metropoli-global" uno completo que solo carga la primera caratula que suele ser la de español, el otro

script de metropoli solo es para elegir la caratula que mas se ajuste a nuestra necesidad, asi tambien os dejo un

script de SOFTONIC para el que quiera llevar un control de software.

Me canse en este foro de pedir ayuda, nadie parece dispuesto a ayudar a nadie, espero no molestar a nadie.
Me he achicharrado el seso con el tema, de no tener ni idea ahora puedo decir que tengo en mi poder un centenar de

scripts hechos por mi, la mayoria de recetas de cocina (por mi parienta) otros de mi aficion, los documentales y

alguno de cine.

Continuare indagando sobre el tema, para aportar lo que pueda, y espero no tener que contestar lo que a mi me

contestaron en ocasiones mas o menos "buscate la vida" espero que nadie se ofenda por mis comentarios, no pretendo

pasar por un experto, en este foro se que hay gente con muchos conocimientos, espero que entre todos podamos

aportar scripts en Español.
Un saludo: LEGRAD

Code: Select all

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

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

[Infos]
Authors=Ledrag
Title=Carteles Metropoli Global Caratula.ifs
Description=Para elegir caratula
Site=
Language=ES
Version=
Requires=3.5.0
Comments=
License=
GetInfo=1

[Options]

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

 program Metropoliglobal;


const

  BaseURL1 = '';

  

var
  MovieName: string;
  MovieURL: string;

//------------------------------------------------------------------------------------
            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 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);

      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 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, MovieAddr, MovieTitle, MovieDate, MovieID, Movie: string;
  BeginPos, EndPos: Integer;
  BeginPoss, EndPoss: Integer;
begin
  strPage := GetPage(Address);
  BeginPos := Pos('<font size=-1>Cartel de:', strPage);
  if(BeginPos > -1)then
    begin
      PickTreeClear;
      Delete(strPage, 1, BeginPos);
      BeginPos := Pos('href="http://carteles.metropoliglobal.com/paginas/pgrande.php?id=', strPage);
      EndPos := 1;
      while ((BeginPos > 0) and (EndPos > 0)) do
      
        begin
          Delete(strPage, 1, BeginPos);
          EndPos := Pos('" clas', strPage);
          MovieId := Copy(strPage,+65, EndPos-65);
          MovieAddr := 'http://carteles.metropoliglobal.com/paginas/pgrande.php?id=' + MovieId;
          BeginPoss := Pos('Cartel de:',strPage);
          EndPoss := Pos(' Dimensiones: ', strPage);
          MovieTitle := Copy(strPage,BeginPoss+9, EndPoss);
          DeleteTags(MovieTitle);
          MovieTitle := TextBetween (MovieTitle, ':', '.');
          PickTreeAdd(MovieTitle, MovieAddr);
          BeginPos := Pos('href="http://carteles.metropoliglobal.com/paginas/pgrande.php?id=', strPage);
          if(Pos('</body>', strPage) < BeginPos) then
           BeginPos := -1;
        end;

    end;
    PickTreeExec(Address)
    AnalyzeMoviePage(Address);
end;
//------------------------------------------------------------------------------------

procedure AnalyzeMoviePage(Address: string);
var
  Page: TStringList;
  LineNr: Integer;
  Line: string;
  Item: string;

begin

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

// Caratula
  LineNr := FindLine('#FFFFFF"><img src="', Page, 0);
  if LineNr <> -1 then
  begin
     Line := Page.GetString(Linenr);
     Item := TextBetween (Line, '<img src="', '" width');
     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('MetropiliGlobal', 'Caratula:', MovieName);

     if(GetOption('No se ha encontrado') = 0) then  Input('MetropiliGlobal', 'Caratula:', 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=any&as_dt=i&as_sitesearch=carteles.metropoliglobal.com&as_rights=&safe=images');

end.

Code: Select all

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

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

[Infos]
Authors=Legrad
Title=Carteles Metropoli Global Sinposis
Description=Sinopsis de MetropoliGlobal
Site=carteles.metropoliglobal.com
Language=es
Version=1.0
Requires=3.5.0
Comments=Solo se busca la sinopsis y la primera caratula, recomendado buscar con una sola palabra del título
License=
GetInfo=1

[Options]

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

 program Metropoliglobal;



const

  BaseURL = 'http://carteles.metropoliglobal.com/paginas/ficha.php?qbtitulo=';
  BaseURL2 = '&qbbuscar=titulo&Submit=Buscar&qsec=buscar';

  

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

                              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 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 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, MovieAddr, MovieTitle, MovieDate, MovieID, Movie: string;
  BeginPos, EndPos: Integer;
  BeginPoss, EndPoss: Integer;
begin
  strPage := GetPage(Address);
  BeginPos := Pos('href="ficha.php?qsec=peli&qid=', strPage);
  if(BeginPos > -1)then
    begin
      PickTreeClear;
      //PickTreeAdd('Resultados para: ' + MovieName, '');
      Delete(strPage, 1, BeginPos);
      BeginPos := Pos('href="ficha.php?qsec=peli&qid=', 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('">', strPage);
          //MovieId direccion completa de carga datos
          MovieId := Copy(strPage,+30, EndPos-30);
          MovieAddr := 'http://carteles.metropoliglobal.com/paginas/ficha.php?qsec=peli&qid=' + MovieId;
          BeginPoss := Pos('peli&qid=',strPage);
          EndPoss := Pos('</td>', strPage);
          MovieTitle := Copy(strPage,BeginPoss-1, EndPoss+1);
         MovieTitle := TextBetween (MovieTitle, '">', '</a>');
          DeleteTags(MovieTitle)
          PickTreeAdd(MovieTitle, MovieAddr);
          BeginPos := Pos('href="ficha.php?qsec=peli&qid=', strPage);
          if(Pos('</body>', strPage) < BeginPos) then
           BeginPos := -1;
        end;

    end;
    PickTreeExec(Address)
    AnalyzeMoviePage(Address);
end;
//------------------------------------------------------------------------------------

procedure AnalyzeMoviePage(Address: string);
var
  Page: TStringList;
  LineNr: Integer;
  Line: string;
  Item: string;
  Comments: string;
  Actors: string;
  Directors: string;
  Description: string;
  BeginPoss: Integer ;
begin
  Description := '';

  // URL
  SetField(fieldURL, Address);
  Page := TStringList.Create;
  Page.Text := GetPage(Address);
  
   // Título Traducido
  LineNr := FindLine('class="title">', Page, 0);
  if LineNr > 0 then
  begin
    Item := copy(Page.Text, pos('class="title">',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'class="title">', '(');
    Item := StringReplace(Item , #13#10, '');
    Item  := StringReplace(Item , '   ', '');
    Item  := Trim(Item );
    HTMLDecode(Item);
    DeleteTags(Item)
  SetField(fieldTranslatedTitle, Trim (Item));
  end;

  // Título Original
  LineNr := FindLine('align="bottom">', Page, 0);
  if LineNr > 0 then
  begin
    Item := copy(Page.Text, pos('align="bottom">',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '<br>', ',');
   Item := StringReplace(Item , #13#10, '');
    Item  := StringReplace(Item , '   ', '');
    Item  := Trim(Item );
    HTMLDecode(Item);
    DeleteTags(Item)
  SetField(fieldOriginalTitle, Trim (Item));
  end;
   // Año
  LineNr := FindLine('class="title">', Page, 0);
  if LineNr > 0 then
  begin
    Item := copy(Page.Text, pos('class="title">',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '(', ')');
   Item := StringReplace(Item , #13#10, '');
    Item  := StringReplace(Item , '   ', '');
    Item  := Trim(Item );
    HTMLDecode(Item);
    DeleteTags(Item)
    SetField(fieldYear, Trim (Item));
  end;
      // País
  LineNr := FindLine('align="bottom"><br>', Page, 0);
  if LineNr > 0 then
  begin
    Item := copy(Page.Text, pos('align="bottom"><br>',Page.Text), length(Page.Text));
    Item := TextBetween (Item, ',',',');
    Item := StringReplace(Item , #13#10, '');
    Item  := StringReplace(Item , '   ', '');
    Item  := Trim(Item);
    HTMLDecode(Item);
    SetField(fieldCountry, Trim (Item));
  end;
       // Duración
  LineNr := FindLine('align="bottom"><br>', Page, 0);
  if LineNr > 0 then
  begin
    Item := copy(Page.Text, pos('align="bottom"><br>',Page.Text), length(Page.Text));
    Item := TextBetween (Item, ', ','Min');
    Item := StringReplace(Item , #13#10, '');
    Item  := StringReplace(Item , '   ', '');
    Item  := StringReplace(Item , ',', '');
    Item  := StringReplace(Item , 'A', '');
    Item  := StringReplace(Item , 'B', '');
    Item  := StringReplace(Item , 'C', '');
    Item  := StringReplace(Item , 'D', '');
    Item  := StringReplace(Item , 'E', '');
    Item  := StringReplace(Item , 'F', '');
    Item  := StringReplace(Item , 'G', '');
    Item  := StringReplace(Item , 'H', '');
    Item  := StringReplace(Item , 'I', '');
    Item  := StringReplace(Item , 'J', '');
    Item  := StringReplace(Item , 'K', '');
    Item  := StringReplace(Item , 'L', '');
    Item  := StringReplace(Item , 'M', '');
    Item  := StringReplace(Item , 'N', '');
    Item  := StringReplace(Item , 'Ñ', '');
    Item  := StringReplace(Item , 'O', '');
    Item  := StringReplace(Item , 'P', '');
    Item  := StringReplace(Item , 'Q', '');
    Item  := StringReplace(Item , 'R', '');
    Item  := StringReplace(Item , 'S', '');
    Item  := StringReplace(Item , 'T', '');
    Item  := StringReplace(Item , 'U', '');
    Item  := StringReplace(Item , 'V', '');
    Item  := StringReplace(Item , 'W', '');
    Item  := StringReplace(Item , 'X', '');
    Item  := StringReplace(Item , 'Y', '');
    Item  := StringReplace(Item , 'Z', '');
    Item  := Trim(Item );
    HTMLDecode(Item);
    DeleteTags(Item)
    SetField(fieldLength, Trim (Item));
  end;
  
  // Director
  LineNr := FindLine('class="setperpageselect">Director:', Page, 0);
  if LineNr > 0 then
  begin
    Item := copy(Page.Text, pos('class="setperpageselect">Director:',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'valign="top">','</td>');
    Item := StringReplace(Item , #13#10, '');
    Item  := StringReplace(Item , '   ', '');
    Item  := Trim(Item);
    HTMLDecode(Item);
    SetField(fieldDirector, Trim (Item));
  end;
  // Actores
  LineNr := FindLine('setperpageselect">Intérpretes:', Page, 0);
  if LineNr > 0 then
  begin
    Item := copy(Page.Text, pos('setperpageselect">Intérpretes:',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'valign="top">','</td>');
    Item := StringReplace(Item , #13#10, '');
    Item  := StringReplace(Item , '   ', '');
    Item  := Trim(Item);
    HTMLDecode(Item);
    SetField(fieldActors, Trim (Item));
  end;
  // Descripcion
  LineNr := FindLine('setperpageselect">Intérpretes:', Page, 0);
  if LineNr > 0 then
  begin
    Item := copy(Page.Text, pos('setperpageselect">Intérpretes:',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '<td colspan="2" valign="top">','</td>');
    Item := StringReplace(Item , #13#10, '');
    Item  := StringReplace(Item , '   ', '');
    Item  := Trim(Item);
    HTMLDecode(Item);
    SetField(fieldDescription, Trim (Item));
  end;
  // Picture
  LineNr := FindLine('src="../galerias/data/', Page, 0);
  if LineNr <> -1 then
  begin
     Line := Page.GetString(LineNr);
     Item := TextBetween (Line, 'src="', '-thumb');
   GetPicture (Item+'.jpg');
  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('MetropiliGlobal', 'Sinopsis', MovieName);

     if(GetOption('No se ha encontrado') = 0) then  Input('MetropiliGlobal', 'Sinopsis', MovieName);

   AnalyzePage(BaseURL + UrlEncode(MovieName) + BaseURL2);


end.

Code: Select all

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

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

[Infos]
Authors=Ledrag
Title=Softonic
Description=Software
Site=www.www.softonic.com
Language=es
Version=1.0
Requires=3.5.0
Comments=
License=
GetInfo=1

[Options]

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

 program Softonic;

const

  BaseURL1 = 'http://www.softonic.com';
  BaseURL2 = 'http://scr.softonic.com/s2/12000/' ;

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

                              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;

//------------------------------------------------------------------------------------
                               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);


      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
   Page: TStringList;
   LineNr: Integer;
   Line,Line2: string;
   Count: Integer;
   MovieTitle, MovieAddress: string;

begin

   Count := 0;
   Page  := TStringList.Create;
   Page.Text := GetPage(Address);
     PickTreeClear;


   LineNr := 0;

while TRUE do
   begin

      LineNr := FindLine('" class="Underline"><b>', Page, LineNr + 1);
      if LineNr = -1 then
      begin
         LineNr := FindLine('<b>siguientes >></b>', Page,0);
         if LineNr = -1 then
            break;

                    Line      := Page.GetString(LineNr);
              Address   := TextBetween (Line, '.softonic.com/', '" class=');
         Page.Text := GetPage(Address);
         LineNr    := 0;
         continue;
      end;

            Line         := Page.GetString(LineNr);
      Line2        := Line;
      MovieAddress := TextBetween (Line, '<a href="', '" class=');
           MovieTitle   := TextBetween (Line2, 'class="Underline"><b>', '</b>');

      HTMLDecode(MovieTitle);
      DeleteTags(MovieTitle);

      if (MovieAddress<>' ') AND (MovieTitle <>'') then
         PickTreeAdd(MovieTitle,  MovieAddress);
   end;

   if PickTreeExec(Address) then
           AnalyzeMoviePage(Address);

   Page.Free;
end;
//------------------------------------------------------------------------------------
procedure AnalyzeMoviePage(Address: string);
var
  Page: TStringList;
  LineNr: Integer;
  Line: string;
  Item: string;
  Comments: string;
  Actors: string;
  Directors: string;
  Description: string;
begin
  Description := '';

  // URL
  SetField(fieldURL, Address);

  Page := TStringList.Create;
  Page.Text := GetPage(Address);

  // Nombre de programa
  LineNr := FindLine('"Programas similiares a ', Page, 0);
  Line := Page.GetString(LineNr);
  Item := TextBetween (Line, '"Programas similiares a ', '"><b>');
  HTMLDecode(Item);
  SetField(fieldTranslatedTitle, Trim (Item));

  // Nombre original
  LineNr := FindLine('"Programas similiares a', Page, 0);
  if LineNr <> -1 then
  begin
    Line := Page.GetString(LineNr);
    Item := TextBetween (Line, '"Programas similiares a', '"><b>');
    HTMLDecode(Item);
    SetField(fieldOriginalTitle, Trim (Item));
  end;

// Web
  LineNr := FindLine('<dt>Web:', Page, 0);
  if LineNr <> -1 then
  begin
    Line := Page.GetString(LineNr);
    Item := TextBetween (Line, 'href="', '"');
    HTMLDecode(Item);
    SetField(fieldDirector, Trim (Item));
  end;
  // Version
  LineNr := FindLine('class="Txt10 Gris">', Page, 0);
  if LineNr <> -1 then
  begin
    Line := Page.GetString(LineNr);
    Item := TextBetween (Line, 'class="Txt10 Gris">', '</span>');
    HTMLDecode(Item);
    SetField(fieldActors, Trim (Item));
  end;
  // Tamaño
  LineNr := FindLine('Tamaño:', Page, 0);
  if LineNr <> -1 then
  begin
    Line := Page.GetString(LineNr);
    Item := TextBetween (Line, '</dt><dd>', '</dd>	');
    HTMLDecode(Item);
    SetField(fieldSize, Trim (Item));
  end;
  // Puntuacion
  LineNr := FindLine('"average_rank8">', Page, 0);
  if LineNr <> -1 then
  begin
    Line := Page.GetString(LineNr);
    Item := TextBetween (Line, '"average_rank8">', '</span>');
    HTMLDecode(Item);
    SetField(fieldRating, Trim (Item));
  end;

  // Categoria
  LineNr := FindLine('href="http://www.softonic.com/windows/', Page, 0);
  if LineNr > 0 then
  begin
    Item := copy(Page.Text, pos('href="http://www.softonic.com/windows/',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '">', '</a>');
   Item := StringReplace(Item , #13#10, '');
    Item  := StringReplace(Item , '   ', '');
    Item  := Trim(Item );
    HTMLDecode(Item);
    DeleteTags(Item)
    SetField(fieldCategory, Trim (Item));
  end;

  // Idioma
  LineNr := FindLine('width="16" height="12" title="', Page, 0);
  if LineNr <> -1 then
  begin
    Line := Page.GetString(LineNr);
    Item := TextBetween (Line, 'width="16" height="12" title="', '">&nbsp');
    HTMLDecode(Item);
    Item  := StringReplace(Item , '">', '');
    DeleteTags(Item)
    SetField(fieldLanguages, Trim (Item));
  end;
        // Detalles
  LineNr := FindLine('<span id="intelliTXT">', Page, 0);
  if LineNr > 0 then
  begin
    Item := copy(Page.Text, pos('<span id="intelliTXT">',Page.Text), length(Page.Text));
    Item := TextBetween (Item, '<span id="intelliTXT">', '</span>');
   Item := StringReplace(Item , #13#10, '');
    Item  := StringReplace(Item , '   ', '');
    Item  := Trim(Item );
    HTMLDecode(Item);
    DeleteTags(Item)
    SetField(fieldDescription, trim (Item));
  end;
  
  //comentarios
   LineNr := FindLine('<span id="intelliTXT">', Page, 0);
  if LineNr > 0 then
  begin
    Item := copy(Page.Text, pos('necesitas:</h3><div class="ML10">',Page.Text), length(Page.Text));
    Item := TextBetween (Item, 'necesitas:</h3><div class="ML10">', '</div>');
    Item := StringReplace(Item , #13#10, '');
    Item  := StringReplace(Item , '   ', '');
    HTMLDecode(Item);
    DeleteTags(Item)
    SetField(fieldComments, trim (Item));
  end;

// Picture
  LineNr := FindLine('screenshots"><img src="', Page, 0);
  if LineNr <> -1 then
  begin
     Line := Page.GetString(LineNr);
     Item := TextBetween (Line, 'screenshots"><img src="', '"');
      Item  := StringReplace(Item , '1_', '0_');
     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(fieldOriginalTitle);
   if MovieName = '' then
            MovieName := GetField(fieldTranslatedTitle);
Input('Softonic', 'Software:', MovieName);

     if(GetOption('Sin resultado') = 0) then  Input('Softonic', 'Software:', MovieName);

   AnalyzePage('http://www.softonic.com/s/' + UrlEncode(MovieName));
end.

Posted: **2007-03-30 11:03:18**

Estoy totalmente de acuerto por eso ya me he cambiado de software, no lo diré por no hacer publicidad pero es en ESPAÑOL, hecho por un ESPAÑOL y con un foro muy bien llevado por él.
En la proxima version permitirá importar a la perfeccion de Ant a este catalogador, asique para los que me contestaron "que me busque la vida", ya lo he hecho. GRACIAS por darme esa ayuda porque sino hubiera seguido con este software que solo se mueve para los extrangeros y los españoles que hay....te dicen eso que tu dices legrad.-

De momento no voy a copiar estos scrips legrad, te lo agradezco, pero es que la version nueva del catalogador que te comento está al caer.-

Posted: **2007-04-22 09:48:50**

Que razón tienes legrad. Están un poco abandonados los scripts en español, y por mucho que se piden actualizaciones ahí se quedan parados pa siempre

y para buscar los datos de una peli, toca pasar por 3 o 4 scripts

Gracias por tus aportaciones. Se ve que por lo menos alguien con conocimiento para hacerlo se preocupa de mantenernos al día.

Ahora va una nueva petición, para ver si alguien se anima a arreglar los scripts de
Zinema.com
Labutaca.net

Particularmente me conformo con un script que me saque el resultado de los actores con este formato: Actor (Personaje)

Interpretación: Tim Allen (Doug Madsen), John Travolta (Woody Stevens), Martin Lawrence (Bobby Davis), William H. Macy (Dudley Frank), Ray Liotta (Jack), Marisa Tomei (Maggie), Jill Hennessy (Kelly Madsen), Kevin Durand (Red), M.C. Gainey (Murdock), Stephen Tobolowsky (Charley).

Me iba de maravilla el de zinema (sacaba lo justo y necesario), pero dejo de funcionar y así se quedó

Si se pueden arreglar estos scripts, o si conoceis algún otro (aunke sea guiri) donde salga el resultado como os marco, lo agradecería enormemente.

Tampoco estaría mal un script para la página de elitefreak.net
(Yo es que soy freakmaniaco y me descargo casi todo de akí)

Lo dicho. Muchas thank yous legrad por la nueva colección de scripts.

Xalu2

Posted: **2007-04-22 17:02:29**

Ahora mismo posteare una version de elitefreek, aunque es una pagina que no contiene mucha informacion,el titulo original no siempre esta puesto, y cuando lo esta esta pegado al titulo traducido en fin espero que sirva.
En cuanto al script de la butaca, han puesto algo que no deja acceder si no es a traves de la pgina por el metodo tradicional, siempre se lanza el mensaje de FORBIDDEN, aqui en el foro no he encontrado ningun post que hable de paginas de este tipo y com evitar el problema, tendre que estudiar mas.
En cuanto al script de zinema lo estoy estudiando, ya que esta pagina no sigue una estructura de codigo fuente en las fichas de cine que sea comun en todas ellas, eso hace complicado el rellenar los campos de AMC ya que unas veces se carga bien la informacion en otrs peliculas se introducen datos no validos en fin seguire indagando

un saludo

Posted: **2007-04-22 17:48:15**

Eres un artista legrad
Muchas gracias por el esfuerzo. Al script de zinema le tengo muchas ganas, y seguro q lo sabrás resolver (tampoco te comas demasiado el tarro q no es plan

)
Xalu2 y gracias de nuevo

antp.be forum

(ES) scripts metropiliglobal y softonic

(ES) scripts metropiliglobal y softonic