antp.be forum

Zaproponuję inne rozwiązanie. Sądzę, że te będzie szybsze, na czym zależało koledze Dekert. Część skryptu dotycząca oceny i ilości głosów z IMdB powinna wyglądać tak: // Ocena z IMDb i ilość głosów Value := ''; Line := TextBetween(Pagetmp, '"aggregateRating":{', '"datePublished"'...

Da się. Trzeba w części // Ocena z IMDb i ilość głosów Value := ''; Line := TextBetween(Pagetmp, '<strong title="', '</a>'); Value := TextBetween(Line, 'ratingValue">', '</span>'); Value := StringReplace(Value, '.', ','); if Value <> '' then begin zmienić na linie: // Ocena z IMDb i ilość ...

admas w linijce //Zdjęcia if ((Pos('/photos"><h2>Galeria', Page.Text) > 0) and (GetOption('Zdjecia') = 1) and (StrToInt(GetParam('IleZdjec'), 0) > 0)) then begin zmień na //Zdjęcia if ((Pos('/photos"><h2>', Page.Text) > 0) and (GetOption('Zdjecia') = 1) and (StrToInt(GetParam('IleZdjec'), ...

admas, a może spróbuj tymczasowo przenieść skrypt na pulpit i ponownie go wgrać do folderu skrypty. Pamiętam, że ktoś już pisał o takim rozwiązaniu, gdy skrypt mu "nie chodził". U mnie skrypt pobiera zdjęcia do filmu.

admas, skrypt pobiera fotosy z Twojego linku. Może coś się zmieniło w ustawieniach skryptu?

Witam, jak komuś nadal nie pobiera ról aktorów, to w funkcji function Obsada(Page: TStringList; Typ: string; Adres: string; Nazwa: string): string; trzeba zmienić linię Rola := TextBetween(VTemp, 'data-role-source>', '</div>'); na Rola := TextAfter(TextBetween(VTemp, 'span data-n-id="', '</span...

Żeby pobierało zdjęcia z filmu trzeba w funkcji function Zdjecia(Page: TStringList): string; linię Line := TextBetween(Page.Text, '<section class="page__section gallerySection GallerySection', '</section>'); zmienić na Line := TextBetween(Page.Text, 'class="gallerySection GallerySection', ...

Na końcu funkcji obsada przed procedure PodstawoweDane(Address: string; Page: TStringList); jest linia, którą też trzeba zmienić. Chodzi o tą część StartPos := Pos('filmFullCastSection__item castRoleListElement', Line) + Length('filmFullCastSection__item castRoleListElement'); Line := Copy(Line, Sta...

Kurde z nimi na tym filmweb. Trzeba w funkcji obsada function Obsada(Page: TStringList; Typ: string; Adres: string; Nazwa: string): string; w części Result := ''; Line := TextBetween(Page.Text, '">' + Typ + '</h3>', '<h3 class="filmFullCastSection__header'); if Length(Line) = 0 then Line :...

Witam, jak kogoś interesuje pressbook i ma najnowszą wersję skryptu czyli Filmweb (PL) 3.1.2b, to poniżej w całości poprawiony kod do pobierania danych //Pressbook function Pressbook(Page: TStringList): string; var Line, Line1, Line2, Value: string; StartPos : Integer; begin Value := ''; Line := Tex...

Nie wyszukuje filmów :??: Żeby to naprawić trzeba w procedure GetMovieTitles(Address: string); zmienić dwie linijki MovieAddress := 'https://www.filmweb.pl' + TextBetween(Line, 'filmPreview__link" href="', '"><h'); na MovieAddress := 'https://www.filmweb.pl' + TextBetween(Line, 'film...

Możesz sam je utworzyć w programie AMC. Wchodzisz w Narzędzia->Zarządzanie polami. Domyślnie dla wartości 'Pole' wybrana jest opcja "Nowe pole', zostawiasz jak jest. Wpisujesz do pola Tag 'Trailer', do pola Nazwa wpisujesz 'Trailer', jako Typ wybierasz 'URL' Zatwierdzasz OK i masz już swoje pol...

Dziękuję, reszta na Twój priv, pozdrawiam

Cześć, zauważyłem, że nie pobiera linku do trailera z YouTube. Żeby pobierał trzeba zmienić linijkę z procedury Pobierz Trailer z YouTube VideoId := findInfo('<a href="/watch?v=', '"', Line, '4'); na: VideoId := findInfo('{"url":"/watch?v=', '"', Line,'4'); jak ktoś teg...

Witam, jak ktoś chce, to niżej jest kod do pobierania dat premier: polskiej i światowej. We wcześniejszym poście była tylko data premiery światowej. //daty premier if (CanSetCustomField('Polskapremiera')) then begin Value := TextBetween(Page.Text, 'class="block">', '(Polska)'); if Length(V...

Jak wiecie nie jestem programistą, dlatego poprosiłem Dekerta aby umieścił całą procedurę pobierania info z IMDB mojego autorstwa w skrypcie filmweb. Zrobiłem tak, ponieważ aktualny skrypt jest bardzo ładnie poukładany i nie chcę już w nim "mieszać". Poza tym mój skrypt jest dopasowany do ...

Ta część odpowiada za datę premiery, trzeba ją w całości zastąpić //daty premier if (CanSetCustomField('Swiatowapremiera')) then begin Value := TextBetween(Page.Text, 'class="block">', '('); Value := Trim(Value); Value := StringReplace(Value, ' ', '-'); if Pos('-', Value) = 2 then Value :=...

Nie działa, ponieważ w folderze gdzie znajdują się skrypty do programu nie masz któregoś z plików .pas, wymienionych w tej linii. Możesz je pobrać ze strony AMC. Tu masz link http://update.antp.be/amc/scripts/

Zastanawiam się czynie utworzyć nowego pliku z funkcją filmWebCodePage w której można by było poustawiać wszystkie obce znaki z którymi są duże problemy. Co o tym sądzicie? Athe pomógł byś w tej opcji? Pewnie, że tak, jestem gotów Ci pomóc. Przygotuję taką listę i prześlę ją na Twojego priva, żebyś...

Żeby pozbyć się pustej linii w obsadzie przy opcji 3, należy w funkcji Obsada wyłączyć linię lub ją usunąć (zależy od Ariella) VTemp := VTemp + Sufix; ponieważ wczesniejsza VTemp := VTemp + Prefix + Rola + Sufix; zrobiła to samo. begin Aktor := TextBetween(VTemp, 'data-person-source>', '<'); Rola :=...