antp.be forum

hola, cambiando el script de filmaffinity por este nuevo me busca perfectamente, pero me ocurre un problema. Cuando le das a f6, sale la lista de script, si pulso en cualquiera me deja introducir el texto a buscar, pero en este en concreto, el de filmaffinity, no me deja buscar, y automáticamente me saca una búsqueda anterior que hice de "EL legado de Bourne". Da igual que cancele, que acepte, que guarde los datos, he probado a cambiar todo tipo de opciones, pero siempre me busca solo esa película y no me deja buscar otra. A ver si alguien me puede echar una mano.
También he desinstalado y vuelto a instalar y nada, me ocurre lo mismo

Gracias

I do not understand the translation from Google, so I can't help, sorry

Here is a very rough, but hopefully understandable, translation:

Hi, changing the script for this new filmaffinity worked for me perfectly, but happens to me a problem. When you hit f6, script out the list, if I click on what I want it let me enter the search string, but in this particular, that of filmaffinity will not let me look, and it automatically shows a previous search I did for "The Bourne Legacy ". Whether you cancel, to accept, to save the data, I tried to change all kinds of options, but it always just looks for that movie and not let me find another. Let's see if someone can lend a hand.
I have also uninstalled and reinstalled and nothing, the same thing happens to me

It is already a little better, thanks

Maybe it is the options on the right of the scripts list: there is a "DontAsk" option that can be set to 1 to skip the title ask (double-click on it to change it).

i have that option with 0. I cant write text when i press f6. The script directly search. I have unnistalled and clear all folders, but i have same problem. only with filmaffinity.es. I only use that script.

Do you have the version 2.68 of the script?
As one of the first things the script does is asking the title if the option is set to 0 so I do not see what would prevent it from doing it

i have the script from this post in first page. I have the option set in 0. im going to copy and paste first part of the script so tell me what is the error please

thanks, sorry for my english.

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

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

[Infos]
Authors=aviloria (aviloria@yahoo.com) modded by: rodpedja (rodpedja@gmail.com), kreti (bisoft@hotmail.com), MrK, gilistico, juliojs
Title=FilmAffinity (ES)
Description=Movie importation script for FilmAffinity Spain
Site=http://www.filmaffinity.com
Language=ES
Version=2.65
Requires=3.5.0
Comments=Updated to 2013/04/16 version of the web-page. Added an option to choose Actor list format (ActorsInALine).
License=The source code of the script can be used in another program only if full credits to script author and a link to Ant Movie Catalog website are given in the About box or in the documentation of the program.|
GetInfo=1
RequiresMovies=1

[Options]
DontAsk=0|0|1=Método rápido: No te pregunta el titulo al principio, ni te pide confirmar si sólo hay un resultado|0=Método lento: Confirmas la información manualmente
ActorsInALine=0|0|1=Actores separados por comas|0=Actores en lineas independientes

[Parameters]

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

program FilmAffinity;
const
BaseURL = 'http://www.filmaffinity.com';
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(S: string; StartTag: string; EndTag: string): string;
var
ini, fin: Integer;
begin
Result := '';
ini := Pos(StartTag, S);
if ini <> 0 then
begin
ini := ini + Length(StartTag);
fin := Pos(EndTag, S);
if (fin <> 0) and (fin > ini) then
begin
Result := Copy(S, ini, fin - ini);
end;
end;
end;

//------------------------------------------------------------------------------------

function DeleteTags(S: string): string;
var
n, len, tag: Integer;
c, p: char;
begin
HTMLDecode(S);
len := Length(S);
tag := 0;
p := ' ';
Result := '';
for n := 1 to len do
begin
c := Copy(S,n,1);

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

// Los espacios redundantes no se procesan
if (c <> ' ') or (p <> ' ') then
begin
// Eliminamos los tags de HTML
if tag = 0 then
begin
if c <> '<' then
begin
Result := Result + c;
p := c;
end
else tag := 1;
end
else if c = '>' then tag := 0;
end;
end
if p = ' ' then Result := Copy(Result, 1, Length(Result) - 1);
end;

//------------------------------------------------------------------------------------

procedure AnalyzePage(Address: string);
var
Page: TStringList;
LineNr: Integer;
Line: string;
Count: Integer;
MovieTitle, MovieAddress: string;

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

// Get how much search results have been found
LineNr := FindLine('</strong> resultados.</div>', Page, 0);
if LineNr <> -1 then
begin
Line := Page.GetString(LineNr);
Count := StrToInt(TextBetween(Line, '<div style="text-align:right;"><strong>', '</strong> resultados.</div>'), 0);
end;

// Add the results to the PickTree
if Count = 0 then
ShowMessage('No se ha encontrado ningún registro')
else
begin
LineNr := 0;
while true do
begin
LineNr := FindLine('<div class="mc-title"><a href="', Page, LineNr + 1);
if LineNr = -1 then
begin
LineNr := FindLine('<b>siguientes >></b>', Page, 0);
if LineNr = -1 then
break;
Line := Page.GetString(LineNr);
Page.Text := GetPage(TextBetween(Line, '<a href="', '">'));
LineNr := 0;
continue;
end;

Line := Page.GetString(LineNr);
MovieAddress := TextBetween(Line, '<div class="mc-title"><a href="', '.html">') + '.html';

MovieTitle := DeleteTags(TextBetween(Line, '.html">', '<img src="'));

if (Length(MovieAddress) <> 0) and (Length(MovieTitle) <> 0) then
PickTreeAdd(MovieTitle, BaseURL + MovieAddress);
end;

if ((Count = 1) and (GetOption('DontAsk') = 1)) or PickTreeExec(Address) then
AnalyzeMoviePage(Address);
end;
Page.Free;
end;

That looks like an old script anyway, you should update it. It is version 2.65 as indicated in its header, current one is 2.68.
Run the script "update scripts" to get the latest one.
You can also get it manually from http://update.antp.be/amc/scripts/

Oh Thanks man!!!!!

i had updated this script manually, and didnt work.

Auto update worked ok.

Alot of thanks

Thank you!!!!! now it works for me too
Just auto update.