Change the procedure AnalyzePageCulturalia by this new one:
(Starts at line number 896)
Code: Select all
procedure AnalyzePageCulturalia(Address: string);
var
Page: TStringList;
LineNr: Integer;
Code: string;
TitleFound: Boolean;
begin
TitleFound := False;
Page := TStringList.Create;
Page.Text := GetPage(Address);
LineNr := 1;
Page.Text := StringReplace(Page.Text, '<br>', #13#10);
if Pos('No se ha encontrado ningún artículo por título', Page.Text) = 0 then
begin
TitleFound := True;
Code := GetValueAfter(Page.GetString(LineNr), 'Codigo = ');
Address := (BaseURLCulturalia + '?catalogo=1&codigo=' + Code);
end;
if TitleFound then
AnalyzeMoviePageCulturalia(Address);
Page.Free;
end;
- Spanish
Hola, he visto que este script normalmente no escoge el título correcto de la pelicula. Echandole una ojeada al código vi que siempre elegía el último título de la lista proporcionada por Culturalia, así que lo modifique para que escogiese el primero.
Cambiar el procedimiento procedure AnalyzePageCulturalia por el código de arriba (Linea 896).
A mi me funciona al menos un 80% mejor que el original.
Espero que sirva, saludos.