[REL] [PL] FilmWeb.pl 3.0 - The Best Polish Script

[athe]

Ta część odpowiada za datę premiery, trzeba ją w całości zastąpić

Code: Select all

//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' + Value;
		Value := StringReplace(Value, 'stycznia', '01');
		Value := StringReplace(Value, 'lutego', '02');
		Value := StringReplace(Value, 'marca', '03');
		Value := StringReplace(Value, 'kwietnia', '04');
		Value := StringReplace(Value, 'maja', '05');
		Value := StringReplace(Value, 'czerwca', '06');
		Value := StringReplace(Value, 'lipca', '07');
		Value := StringReplace(Value, 'sierpnia', '08');
		Value := StringReplace(Value, 'września', '09');
		Value := StringReplace(Value, 'października', '10');
		Value := StringReplace(Value, 'listopada', '11');
		Value := StringReplace(Value, 'grudnia', '12');
     TestV := Copy(Value, 7, 4) + '-' + Copy(Value, 4, 2) + '-' + Copy(Value, 1, 2);
	if ((Length(TestV) > 6) and (not ((AUpdate = 2) and (GetCustomField('Swiatowapremiera')=Trim(TestV))))) then SetCustomField('Swiatowapremiera', Trim(TestV));
	end;

Wcześniej napisał to Ariell.

[Infoposter]

Pierwszy pozytyw
A co z oceną IMDb? i jak mogę pomóc "dotować"

[athe]

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 potrzeb i zdarzało mi się, że nie zawsze wyłapywałem różnice między moim skryptem a tym oficjalnym. Niech zrobi to ktoś, kto się na tym zna. Pozdrawiam.
P.S.Dotacją jest już samo to, że inni również będą zadowoleni.

[Mietek]

Przestał mi działać skrypt filmweb (Filmweb (PL) 3.1.0a.ifs) - nie wyszukuje mi informacji o filmach - zwraca mi pusty plik. Wcześniej mi działał. Proszę o pomoc

[admas]

Pobierz skrypt z tego posta:
http://forum.antp.be/phpbb3/viewtopic.p ... 211#p49211

[Mietek]

Niestety dostaję komunikat:
---------------------------
Błąd skryptu "FILMWEBPL" : unit is not found w linii 11
---------------------------

[admas]

Niestety dostaję komunikat:
---------------------------
Błąd skryptu "FILMWEBPL" : unit is not found w linii 11
---------------------------

Do poprawnego działania skryptu musisz mieć w folderze Scripts również pliki: cp1250.pas, StringUtils7552.pas, BatchCommon7552.pas, ScorEpioNCommonScript.pas. Zapewne nie przeniosłeś do folderu pliku cp1250.pas, który był w archiwum razem ze skryptem.

[Mietek]

Zadziałało chociaż nie ściąga reżysera ani aktorów. Dzięki

Zmieniłem ustawienia i zadziałało. Jeszce raz dzięki.

[athe]

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.

Code: Select all

	//daty premier
	if (CanSetCustomField('Polskapremiera')) then
	begin
	Value := TextBetween(Page.Text, 'class="block">', '(Polska)');
	if Length(Value)>0 then
	begin
	   Value := Trim(Value);
	   Value := StringReplace(Value, ' ', '-');
        if Pos('-', Value) = 2 then Value := '0' + Value;
		Value := StringReplace(Value, 'stycznia', '01');
		Value := StringReplace(Value, 'lutego', '02');
		Value := StringReplace(Value, 'marca', '03');
		Value := StringReplace(Value, 'kwietnia', '04');
		Value := StringReplace(Value, 'maja', '05');
		Value := StringReplace(Value, 'czerwca', '06');
		Value := StringReplace(Value, 'lipca', '07');
		Value := StringReplace(Value, 'sierpnia', '08');
		Value := StringReplace(Value, 'września', '09');
		Value := StringReplace(Value, 'października', '10');
		Value := StringReplace(Value, 'listopada', '11');
		Value := StringReplace(Value, 'grudnia', '12');
     TestV := Copy(Value, 7, 4) + '-' + Copy(Value, 4, 2) + '-' + Copy(Value, 1, 2);
	if ((Length(TestV) > 6) and (not ((AUpdate = 2) and (GetCustomField('Polskapremiera')=Trim(TestV))))) then SetCustomField('Polskapremiera', Trim(TestV));
	end;
	end;
        Value := '';
        If CanSetCustomField('Swiatowapremiera') then
        begin
        Value := TextBetween(RemainingText, 'class="block">', '(świat)');
	Value := Trim(Value);
		Value := StringReplace(Value, ' ', '-');
        if Pos('-', Value) = 2 then Value := '0' + Value;
		Value := StringReplace(Value, 'stycznia', '01');
		Value := StringReplace(Value, 'lutego', '02');
		Value := StringReplace(Value, 'marca', '03');
		Value := StringReplace(Value, 'kwietnia', '04');
		Value := StringReplace(Value, 'maja', '05');
		Value := StringReplace(Value, 'czerwca', '06');
		Value := StringReplace(Value, 'lipca', '07');
		Value := StringReplace(Value, 'sierpnia', '08');
		Value := StringReplace(Value, 'września', '09');
		Value := StringReplace(Value, 'października', '10');
		Value := StringReplace(Value, 'listopada', '11');
		Value := StringReplace(Value, 'grudnia', '12');
     TestV := Copy(Value, 7, 4) + '-' + Copy(Value, 4, 2) + '-' + Copy(Value, 1, 2);
	if ((Length(TestV) > 6) and (not ((AUpdate = 2) and (GetCustomField('Swiatowapremiera')=Trim(TestV))))) then SetCustomField('Swiatowapremiera', Trim(TestV));
	end;

Pozdrawiam

[Dekert]

Dodałem pobieranie premier z filmwebu oraz częściową obsługę IMDb .
Dzięki athe za kod źródłowy, dość mocno go przerobiłem i zeszło z czasem.

Ten update jest tak naprawdę wartościowy tylko dla tych którzy korzystają z dodatkowych pól.

Poniżej link do pliku ze skryptem „Filmweb (PL) 3.1.1.zip”. Tak jak zawsze należy go w całości rozpakować do katalogu AntMovieCatalog\Scripts\:
https://www.mediafire.com/file/ibm6lo0347g0iak

Pozdrawiam

[Mietek]

Skrypt przestał mi ściągać postać graną przez aktora. czy coś się zmieniło?

[kazeciak]

Skrypt przestał mi ściągać postać graną przez aktora. czy coś się zmieniło?

Nie tylko aktorzy się posypali, bo faktycznie ról granych przez nich nie pobiera wcale do żadnego filmu. Czasami także brakuje tytułów i reżyserów .... Coś namieszali niestety znowu.

[wrobelp]

Nie pobiera też Polskiego tytułu, ale daje w jego miejsce oryginalny tytuł.

[Dekert]

Witam, ciągle coś zmieniają na stronie i trzeba aktualizować. Poniżej macie link do wersji "Filmweb (PL) 3.1.2".
Główne zmiany:
-uaktualniona część skryptu odpowiedzialna za polski tytuł oraz pobieranie aktorów
-zmienione formatowanie tekstu na czytelniejsze
-nowa opcja "SeparatorPoziomy" do rozdzielania opisów i komentarzy/recenzji
Dodatkowe pola:
-pobieranie alternatywnych tytułów (opcja: TytułyAKA)
-pobieranie tytułów dla odcinków seriali (opcja: Odcinki)
-pobieranie danych do pola Pressbook (dzieki athe za kod)
-uaktualnienie do listy nagród

https://www.mediafire.com/file/6zxu5qzbhxa1zzx

Pozdrowienia dla twórców oraz użytkowników skryptu. Czas na .

[Mietek]

Dzięki, działa

[athe]

Cześć, zauważyłem, że nie pobiera linku do trailera z YouTube. Żeby pobierał trzeba zmienić linijkę z procedury Pobierz Trailer z YouTube

Code: Select all

VideoId := findInfo('<a href="/watch?v=', '"', Line, '4');

na:

Code: Select all

VideoId := findInfo('{"url":"/watch?v=', '"', Line,'4');

jak ktoś tego potrzebuje oczywiście, pozdrawiam

[Dekert]

Ok , dodałem twoje uaktualnienie do trailera (+kilka innych drobnych zmian).
Link do wersji "Filmweb (PL) 3.1.2b":
https://www.mediafire.com/file/ykzot2s5e3jsvua

[athe]

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

[Dekert]

Kolejna wersja "Filmweb (PL) 3.1.2c", ze zwiastunami filmwebu od athe.

https://www.mediafire.com/file/91zjrssehqqxrrt

[Infoposter]

Dopiero zauważyłem że brakuje pola "trailer" z YT, ktoś wie dlaczego?
Poprzednie wersje skryptów też nie mają go, a niby powinno być.