Official Forum
https://forum.antp.be/phpbb3/
Niestety, ale przestało pobierać
Żeby to naprawić trzeba w
Code: Select all
procedure GetMovieTitles(Address: string);Code: Select all
MovieAddress := 'https://www.filmweb.pl' + TextBetween(Line, 'filmPreview__link" href="', '"><h');Code: Select all
MovieAddress := 'https://www.filmweb.pl' + TextBetween(Line, 'filmPreview__link" href="', '"');Code: Select all
MovieTitle := TextBetween(Line, 'class="filmPreview__title">', '</h');Code: Select all
MovieTitle := TextBetween(Line, 'itemprop="name">', '</h');
Code: Select all
//Pressbook
function Pressbook(Page: TStringList): string;
var
Line, Line1, Line2, Value: string;
StartPos : Integer;
begin
Value := '';
Line := TextBetween(Page.Text, 'class="page__text filmPressbooksSection__list', 'data-group="g8');
while Pos('class="filmPressbooksSection__item"', Line) > 0 do
begin
Line1 := TextBetween(Line, 'class="filmPressbooksSection__subtitle">', '</h3>');
Line1 := FormatHTMLText(Line1);
Value := Value + '> ' + Line1 + ' <' + #13#10;
Line2 := TextBetween(Line, 'data-item-id="pressbook', 'class="filmPressbooksSection__adminButtons');
Line := RemainingText;
Line2 := TextBetween(Line2, '>', '</div><div');
Line2 := FormatHTMLText(Line2);
Line2 := StringReplace(Line2, '?', '"');
Value := Value + Line2;
if Pos('class="filmPressbooksSection__subtitle">', Line) > 0 then
Value := Value + #13#10 + SepPoziomy;
end;
Result := FullTrim(Value);
end;U mnie podobniekazeciak wrote: 2020-08-06 22:08:19 Niestety znowu nie pobiera reżyser, produkcja, scenariusz, muzyka, obsada aktorów.
Działa, ale i tak coś znowu zje.... na filmwebie, bo nie znajduje reżysera, obsady i podobnych danychathe wrote: 2020-08-13 07:54:24Żeby to naprawić trzeba wzmienić dwie linijkiCode: Select all
procedure GetMovieTitles(Address: string);naCode: Select all
MovieAddress := 'https://www.filmweb.pl' + TextBetween(Line, 'filmPreview__link" href="', '"><h');iCode: Select all
MovieAddress := 'https://www.filmweb.pl' + TextBetween(Line, 'filmPreview__link" href="', '"');naCode: Select all
MovieTitle := TextBetween(Line, 'class="filmPreview__title">', '</h');to tak na szybko.PozdrawiamCode: Select all
MovieTitle := TextBetween(Line, 'itemprop="name">', '</h');
Code: Select all
function Obsada(Page: TStringList; Typ: string; Adres: string; Nazwa: string): string;Code: Select all
Result := '';
Line := TextBetween(Page.Text, '">' + Typ + '</h3>', '<h3 class="filmFullCastSection__header');
if Length(Line) = 0 then
Line := TextBetween(Page.Text, '">' + Typ + '</h3>', '</section>');
StartPos := Pos('filmFullCastSection__item castRoleListElement', Line) + Length('filmFullCastSection__item castRoleListElement');
if Length(Line) > 0 then
begin
VTemp := TextBetween(Line, 'filmFullCastSection__item castRoleListElement', '</a></div></div></div></div>');
while ((Pos('data-item-id', VTemp) > 0) and (Aktorile > 0)) do
beginCode: Select all
VTemp := TextBetween(Line, 'filmFullCastSection__item castRoleListElement', '</a></div></div></div></div>');Code: Select all
VTemp := TextBetween(Line, 'filmFullCastSection__item castRoleListElement', '</span></div></div>');Code: Select all
while ((Pos('data-item-id', VTemp) > 0) and (Aktorile > 0)) doCode: Select all
while ((Pos('class="castRoleListElement__info', VTemp) > 0) and (Aktorile > 0)) doPobiera tylko po jednej osobie z obsady i twórcówathe wrote: 2020-08-22 10:35:30 Kurde z nimi na tym filmweb.
Trzeba w funkcji obsadaw częściCode: Select all
function Obsada(Page: TStringList; Typ: string; Adres: string; Nazwa: string): string;zmienić linięCode: Select all
Result := ''; Line := TextBetween(Page.Text, '">' + Typ + '</h3>', '<h3 class="filmFullCastSection__header'); if Length(Line) = 0 then Line := TextBetween(Page.Text, '">' + Typ + '</h3>', '</section>'); StartPos := Pos('filmFullCastSection__item castRoleListElement', Line) + Length('filmFullCastSection__item castRoleListElement'); if Length(Line) > 0 then begin VTemp := TextBetween(Line, 'filmFullCastSection__item castRoleListElement', '</a></div></div></div></div>'); while ((Pos('data-item-id', VTemp) > 0) and (Aktorile > 0)) do beginnaCode: Select all
VTemp := TextBetween(Line, 'filmFullCastSection__item castRoleListElement', '</a></div></div></div></div>');Powinno pomóc. Ja u siebie zamieniłem jeszcze linięCode: Select all
VTemp := TextBetween(Line, 'filmFullCastSection__item castRoleListElement', '</span></div></div>');naCode: Select all
while ((Pos('data-item-id', VTemp) > 0) and (Aktorile > 0)) dochociaż to generalnie niczego nie zmienia, przynajmniej teraz. Tym z Was, którzy będą mieli problem z samodzielnym wpisaniem tych poprawek, mam nadzieję, że Dekert poratuje wstawiając aktualizację skryptu.Code: Select all
while ((Pos('class="castRoleListElement__info', VTemp) > 0) and (Aktorile > 0)) do
Dekert odpisałem Ci na priv.
Code: Select all
procedure PodstawoweDane(Address: string; Page: TStringList);Code: Select all
StartPos := Pos('filmFullCastSection__item castRoleListElement', Line) + Length('filmFullCastSection__item castRoleListElement');
Line := Copy(Line, StartPos, Length(Line));
VTemp := TextBetween(Line, 'filmFullCastSection__item castRoleListElement', '</a></div></div></div></div>');
Aktorile := Aktorile - 1;
end;
end;
Result := Copy(Result, 0, Length(Result) - Length(Sufix));
Lista.Free;
UniToPol(Result);
end;
procedure PodstawoweDane(Address: string; Page: TStringList);Code: Select all
VTemp := TextBetween(Line, 'filmFullCastSection__item castRoleListElement', '</a></div></div></div></div>');Code: Select all
VTemp := TextBetween(Line, 'filmFullCastSection__item castRoleListElement', '</span></div></div>');
Wszystko ok, ale pozostał jeden mankament, który zgłaszałem wcześniej; przestał pobierać odcinki dla seriali.Dekert wrote: 2020-08-26 22:32:48 Uaktualnienie skryptu... sporo się nazbierało, wersja Filmweb+(PL)+3.1.3c.
http://www.mediafire.com/file/hpt1nj3aywi6ncb
Pole niestandardowe: