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"');
if ...

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'), 0) > 0 ...

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', '</section ...

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 ...

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 ...

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, 'filmPreview ...

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 pole. Po ...

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ś tego potrzebuje oczywiście ...

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(Value ...

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 moich ...

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 := '0 ...

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 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 ...