Script Filmaffinity

If you made a script you can offer it to the others here, or ask help to improve it. You can also report here bugs & problems with existing scripts.
Post Reply
carlesaran
Posts: 10
Joined: 2011-11-10 17:06:31

Script Filmaffinity

Post by carlesaran »

Hola:
Hace un par de dias me encuentro que cuando busco una pelicula en FilmAffinity (Movie importation script for FilmAffinity Spain) no me muestra el año de dicha pelicula (puede dar el caso mismo titulo, año diferente) y me sale el signo (), tiene solución.
Gracias y un saludo
cinecampillos
Posts: 21
Joined: 2009-04-06 15:51:36

Re: Script Filmaffinity

Post by cinecampillos »

Acabo de encontrar una solución:

a) Comento la línea 251 porque ya no funciona:

Code: Select all

// MovieYear := TextBetween(Line, '</a> (', ') <img class="nflag" src="/imgs/countries2/');
b) A continuación añado las siguientes líneas (nuevas líneas 252-259):

Code: Select all

LineNrax  := FindLine('div class="d-flex"', Page, LineNr);
if LineNrax <> -1 then
    begin
        Line:= Page.GetString(LineNrax+1);
        MovieYear:= TextBetween(Line, '<span class="mc-year">', '</span>');
        MovieYear:= DeleteTags(MovieYear);
        MovieYear:= LineDecode(MovieYear);
    end
c) Y ya está.

Pruébalo y me dices.
carlesaran
Posts: 10
Joined: 2011-11-10 17:06:31

Re: Script Filmaffinity

Post by carlesaran »

Hola cinecampillos:
Ha ido perfecto, ya me aparece el año de la pelicula.
Muchas gracias y un saludo.
cinecampillos
Posts: 21
Joined: 2009-04-06 15:51:36

Re: Script Filmaffinity

Post by cinecampillos »

Me acabo de dar cuenta que falla en algunos casos (por ejemplo, si busco "En los límites de la realidad"). Estoy depurándolo, lo siento :D .
Ronin666
Posts: 3
Joined: 2020-06-28 19:20:08

Re: Script Filmaffinity

Post by Ronin666 »

He actualizado con un apaño.

Dentro de la parte "procedure AnalyzeAdvPage(Address: string);"

Borra esto:

Code: Select all

      MovieYear := TextBetween(Line, '</a> (', ') <img class="nflag" src="/imgs/countries2/');
      if MovieYear = '' Then MovieYear := YearAnt
      else YearAnt := MovieYear;

      Line:= Page.GetString(LineNr-9);
Y sustitúyelo por esto:

Code: Select all

      LineNrax := FindLine('"><span class="mc-year">', Page, LineNr);
      if LineNrax <> -1 then
      begin
        Line:= Page.GetString(LineNrax);
        MovieYear := TextBetween(Line, '"><span class="mc-year">', '</span>');
        MovieYear := DeleteTags(MovieYear);
        MovieYear:= LineDecode(MovieYear);
      end;

      if MovieYear = '' Then MovieYear := YearAnt
      else YearAnt := MovieYear;

A mi por ahora me funciona. Por lo menos hasta que lo arreglen en condiciones.

Saludos!
cinecampillos
Posts: 21
Joined: 2009-04-06 15:51:36

Re: Script Filmaffinity [Solucionado]

Post by cinecampillos »

Perfecto, Ronin666. Mucho mejor tu solución que la mía.

Todo el "follón" es porque la búsqueda avanzada de FilmAffinity incorpora delante del año la bandera de la nacionalidad (como antes) pero precedida a su vez del tipo de "producto visual" al que se refiere: Serie, TV, Cortometraje, etc... y estaba teniendo problemas para saltármelo.

Muchas gracias, Ronin666.
Ronin666
Posts: 3
Joined: 2020-06-28 19:20:08

Re: Script Filmaffinity [Solucionado]

Post by Ronin666 »

cinecampillos wrote: 2024-03-13 15:31:41 Perfecto, Ronin666. Mucho mejor tu solución que la mía.

Todo el "follón" es porque la búsqueda avanzada de FilmAffinity incorpora delante del año la bandera de la nacionalidad (como antes) pero precedida a su vez del tipo de "producto visual" al que se refiere: Serie, TV, Cortometraje, etc... y estaba teniendo problemas para saltármelo.

Muchas gracias, Ronin666.
Gracias a ti. Fue al ver tu solución que pude llegar a la mía.

Un saludo!!!
antp
Site Admin
Posts: 9629
Joined: 2002-05-30 10:13:07
Location: Brussels
Contact:

Re: Script Filmaffinity

Post by antp »

Thanks for the fix, I updated the script on the server.
Sorry for the late reply, I missed your post above :)
Post Reply