Official Forum
https://forum.antp.be/phpbb3/
Code: Select all
https://www.filmweb.pl/film/%C5%BBycie+za+%C5%9Bmier%C4%87-2005-123550/photosCode: Select all
https://www.filmweb.pl/film/Siódmy+syn-2014-462549Code: Select all
https://www.filmweb.pl/film/Zwarcie-2021-837065Code: Select all
https://www.filmweb.pl/film/%C5%BBycie+za+%C5%9Bmier%C4%87-2005-123550/photosCode: Select all
https://www.filmweb.pl/film/Siódmy+syn-2014-462549Code: Select all
https://www.filmweb.pl/film/Zwarcie-2021-837065
))Hello. Could you fix it so that it takes the movie genre? Thanksantp wrote: ↑2024-09-19 13:00:54 In the end, as it was quite easy to do, I had a few minutes just now to do that, and it seems to work.
You can get version 3.2.21 via "update scripts" or from https://update.antp.be/amc/scripts/
It seems to work fine, at least for the few movies I tested
Images are converted to jpeg 92% quality, I don't know in term of size how that compares to the images that were previously provided by filmweb.
In case they are much smaller/bigger (in file size), that could be adjusted.
Code: Select all
// Gatunek
Line := TextBetween(Page.Text, '<div class="filmPosterSection__buttons tags-container"', '</div>');
if Length(Line) > 0 then
begin
case GetOption('SeparatorGatunku') of
0: Separator := ' / ';
1: Separator := ', ';
2: Separator := '/';
end;
Value := '';
while Pos('/ranking/film', Line) > 0 do
begin
Line2 := TextBetween(Line, '/ranking/film', '/a>');
Line := RemainingText;
Line2 := TextBetween(Line2, 'itemprop="genre">', '<');
Value := Value + Line2 + Separator;
end;
Value := Copy(Value, 1, Length(Value) - Length(Separator));
Value := StringReplace(Value, ', ', Separator);
UniToPol(Value);
if Length(Value) > 0 then
SetField(fieldCategory, Trim(Value));
end;Code: Select all
// Ratting filmweb
Line := TextBetween(Page.Text, 'filmRating filmRating--filmRate filmRating--hasPanel', 'filmRatingHeader');
Rates := TextBetween(Line, 'filmRating__rateValue">', '<');
Rates := StringReplace(Rates, ',', '.');
if Length(Rates) > 0 then
SetField(fieldRating, Trim(Rates));
if CanSetCustomField('VotesFilmweb') then
begin
Value := TextBetween(Line, ' data-count="', '">');
if Length(Value) > 0 then
SetCustomField('VotesFilmweb', Trim(Value));
end;
Też chciałbym być taki zielony w kodowaniuMaster_Rafael wrote: ↑2024-09-24 12:09:05 Uprzedzam, że może to nie działać ze wszystkimi filmami dobrze bo nie testowałem tego na dużą skalę. Dodatkowo mogę stwierdzić, że raczej jestem zielony w kodowaniu
Działa jak należy na nowych i starych filmach Możesz dalej być tak zielony, jak jesteś w kodowaniu, skrypt działa jak ulał, wielkie dziękiMaster_Rafael wrote: ↑2024-09-24 12:09:05
Uprzedzam, że może to nie działać ze wszystkimi filmami dobrze bo nie testowałem tego na dużą skalę. Dodatkowo mogę stwierdzić, że raczej jestem zielony w kodowaniu
