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
Script Filmaffinity
-
- Posts: 21
- Joined: 2009-04-06 15:51:36
Re: Script Filmaffinity
Acabo de encontrar una solución:
a) Comento la línea 251 porque ya no funciona:
b) A continuación añado las siguientes líneas (nuevas líneas 252-259):
c) Y ya está.
Pruébalo y me dices.
a) Comento la línea 251 porque ya no funciona:
Code: Select all
// MovieYear := TextBetween(Line, '</a> (', ') <img class="nflag" src="/imgs/countries2/');
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
Pruébalo y me dices.
-
- Posts: 10
- Joined: 2011-11-10 17:06:31
Re: Script Filmaffinity
Hola cinecampillos:
Ha ido perfecto, ya me aparece el año de la pelicula.
Muchas gracias y un saludo.
Ha ido perfecto, ya me aparece el año de la pelicula.
Muchas gracias y un saludo.
-
- Posts: 21
- Joined: 2009-04-06 15:51:36
Re: Script Filmaffinity
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 .
Re: Script Filmaffinity
He actualizado con un apaño.
Dentro de la parte "procedure AnalyzeAdvPage(Address: string);"
Borra esto:
Y sustitúyelo por esto:
A mi por ahora me funciona. Por lo menos hasta que lo arreglen en condiciones.
Saludos!
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);
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!
-
- Posts: 21
- Joined: 2009-04-06 15:51:36
Re: Script Filmaffinity [Solucionado]
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.
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.
Re: Script Filmaffinity [Solucionado]
Gracias a ti. Fue al ver tu solución que pude llegar a la mía.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.
Un saludo!!!
Re: Script Filmaffinity
Thanks for the fix, I updated the script on the server.
Sorry for the late reply, I missed your post above
Sorry for the late reply, I missed your post above