Wenas!
chavess, si no te funciona no sé a qué se debe porque, vuelto a comprobar ahora mismo, funciona bien
Salu2.

Chavess mira a ver que en la pantalla del script del ant, el script de alpacine aparece con nombre distinto al que tenia anteriormente ahora aparece con el nombre cine -alpacine

Saludoss y a ver si hay suerte

Wenas,

Sip, como dice Pantic, el problema puede venir por ahi y que el archivo se llama "alpacine (ES).ifs" y el q tuvieras anteriormente no tenga ese nombre.

Si quieres ponerlo bien, editas el fichero con el bloc de notas y en las primeras lineas te indica esto:

Bueno, ya esta solucionado, reinstale el AM y cambie esa linea.
Gracias a todos.

Actualizado el script y sin problemas.
Gracias
Salu2.

Buenas no sé si a alguno más le ha pasado, al crear algunas fichas el año de la película no aparece, me había pasado ya antes y hoy me he acordado de postearlo . Si lo quereis probar me ha pasado con la película Quiz Show

Sip, el script se lia un poco cuando el titulo de la pelicula lleva paréntesis como el caso que citas de Quiz Show (El Dilema).
Prueba ahora, buscando por "dilema" y te saldrá bien.

Salu2!

Pues sí, se vuelve loco con todas las películas que llevan paréntesis y deja de poner el año

Tambien me ha dado guerra con la pelicula Cry Baby, el titulo traducido lo deja solo en Cry, parece que tampoco se lleva bien con los guiones

He probado con:
-quiz show (El Dilema)
-el dilema
en ambos casos va perfecto añade todos los datos de la pagina incluido el año.
No se donde puede estar el fallo que os da, en cuanto algunos titulos que contienen guion (-) ejemplo Cry-Baby
ya lo he arreglado.
adjunto la modificacion o todo el script para el que lo desee.Puede editarse el script con el bloc de notas o wordpad.

Para corregir el guion del titulo buscar esta cadena.(sin asteriscos)
***************
// Titulo traducido
LineNr := FindLine(' Line := Page.GetString(LineNr);
Item := TextBetween (Line, 'content="', '-');
Item := AnsiLowerCase(Item);
Item := AnsiUpFirstLetter(Item );
HTMLDecode(Item);
SetField(fieldTranslatedTitle, Trim (Item));
****************
y cambiar por esta
****************
// Titulo traducido
LineNr := FindLine(' Line := Page.GetString(LineNr);
Item := TextBetween (Line, 'content="', ' - ');
Item := AnsiLowerCase(Item);
Item := AnsiUpFirstLetter(Item );
HTMLDecode(Item);
SetField(fieldTranslatedTitle, Trim (Item));
****************

para el que quiera todo el script(con los asteriscos)procurar que en el inicio del script no haya ninguna linea vacia osea que empieze la primera linea con (****... tampoco debe haber lineas en blanco despues del ultimo End.

(***************************************************
Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/
[Infos]
Authors=Legrad
Title=Alpacine
Description=
Site=www.alpacine.com
Language=Cine
Version=1.1
Requires=3.5.0
Comments=
License=
GetInfo=1
[Options]
***************************************************
program Alpacine;
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 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
strPage, MovieAddr, MovieTitle, MovieDate, MovieID, Movie: string;
BeginPos, EndPos: Integer;
BeginPoss, EndPoss: Integer;
begin
strPage := GetPage(Address);
BeginPos := Pos('class="resultados">', strPage);
if(BeginPos > -1)then
begin
PickTreeClear;
Delete(strPage, 1, BeginPos);
BeginPos := Pos('', strPage);
MovieId := Copy(strPage,+42, EndPos-42);
MovieAddr := 'http://www.alpacine.com/pelicula/' + MovieId;
BeginPoss := Pos('/"',strPage);
EndPoss := Pos('', strPage);
MovieTitle := Copy(strPage,BeginPoss+2, EndPoss);
MovieTitle := StringReplace(MovieTitle , '>', '');
MovieTitle := AnsiUpFirstLetter(MovieTitle);
DeleteTags(MovieTitle);
MovieTitle:= StringReplace(MovieTitle ,#13#10, '');
MovieTitle:= StringReplace(MovieTitle ,' ', '');
PickTreeAdd(MovieTitle, MovieAddr);
BeginPos := Pos(' Line := Page.GetString(LineNr);
Item := TextBetween (Line, 'content="', ' - ');
Item := AnsiLowerCase(Item);
Item := AnsiUpFirstLetter(Item );
HTMLDecode(Item);
SetField(fieldTranslatedTitle, Trim (Item));
// Titulo Original
LineNr := FindLine('Título original:', Page, 0);
if LineNr <> -1 then
begin
Line := Page.GetString(LineNr);
Item := TextBetween (Line, '', '