POLAND site SCRIPTs

[admas]

Jeśli coś mogę zrobić sam, to robię, również w skryptach. Potłumaczyłem funkcje w skryptach, których używam na polski i pozmieniałem lekko kod, aby pasował do wymaganych przeze mnie pól niestandardowych i dodatków oraz ich nazewnictwa. Dostępne są na mojej stronie. Zasadniczo zajmuję się tylko tłumaczeniem, tego i paru innych programów i nie robię tego zawodowo, a z czystej przyjemności. Zawsze tak jest, że ktoś robi coś, co potrafi najlepiej

[Ariell]

Oficjalna wersja 2.0.4.03B (21.09.2015) by Ariell

- Dodano Ciekawostki (wymaga customfields (tekst))
Nazwa pola - Ciekawostki
- Dodano pobieranie zdjęć aktorów do dodatków
czyli to co robił IMDB (Actors)
- Poprawiono pobieranie komentarzy.

https://www.sendspace.com/file/4czr03

Zgłaszajcie błędy.

[admas]

Widzę, że szybko poszło. Zaraz zabieram się za testy.
Dzięki

[Ariell]

hehe jak pisałem na forum to już trwały ostatnie testy

[admas]

Fotosy aktorów działają wyśmienicie
Co do biografii: jak jest więcej niż jedna biografia, to nie pobiera żadnej; np. Harrison Ford, Sean Connery, Mel Gibson
Czas pobierania z biografiami znacząco się nie wydłuża, chyba że pobiera się pełną obsadę, ale to już drobnostka.

Błędne znaki pojawiające się w biografiach

Code: Select all

  Value := StringReplace(Value, '’', '’');
  Value := StringReplace(Value, '‘', '‘');

Opisy i komentarze oraz ciekawostki działają świetnie, ale jakbyś pomyślał w ciekawostkach nad dodaniem <li></li> zamiast numeracji...

I jeszcze jedno; może zmieniłbyś; w dodatkach Actors na Aktorzy - tak bardziej po polsku

I może komuś będzie pomocne; rozdzielam do pól niestandardowych ekipę z pola obsada (zostawiam tylko aktorów)

Code: Select all

  // Zdjęcia (2014-10-19 modify by wojteos ) źródło = <h2 class="hdr hdr-big" id=cinematographer>zdjęcia
	Value := GetMaterials(Page, 'cinematographer');
	if (Length(Value) > 0) then SetCustomField('Cinematographer', Trim(Value));

  // Montaż (2014-10-19 modify by wojteos ) źródło = <h2 class="hdr hdr-big" id=montage>montaż
	Value := GetMaterials(Page, 'montage');
	if (Length(Value) > 0) then SetCustomField('Editor', Trim(Value));

  // Scenografia (2014-10-19 modify by wojteos ) źródło = <h2 class="hdr hdr-big" id=productionDesigner>scenografia
	Value := GetMaterials(Page, 'productionDesigner');
	if (Length(Value) > 0) then SetCustomField('ProductionDesigner', Trim(Value));

  // Kostiumy (2014-10-19 modify by wojteos ) źródło = <h2 class="hdr hdr-big" id=costumeDesigner>kostiumy
	Value := GetMaterials(Page, 'costumeDesigner');
	if (Length(Value) > 0) then SetCustomField('CostumeDesigner', Trim(Value));

  // Dzwięk (2014-10-19 modify by wojteos ) źródło = <h2 class="hdr hdr-big" id=sound>dźwięk
	Value := GetMaterials(Page, 'sound');
	if (Length(Value) > 0) then SetCustomField('Sound', Trim(Value));

  // Materiały do scenariusza (2014-10-19 modify by wojteos ) źródło = <h2 class="hdr hdr-big" id=originalMaterials>materiały do scenariusza
	Value := GetMaterials(Page, 'originalMaterials');
	if (Length(Value) > 0) then SetCustomField('OriginalMaterials', Trim(Value));

Dzięki

[admas]

I jeszcze jedno...
Wcześniejsze testy przeprowadzałem na pobieraniu info do nowych filmów, więc było tak, jak napisałem powyżej.
Jednak podczas aktualizacji filmów należy zwrócić uwagę na to, co jest zapisywane/zmieniane. Jeśli w dodatkach były już wcześniej fotosy aktorów, fanarty, fotosy z filmu, etc., to zostaną one usunięte i zastąpione tylko przez aktualnie pobrane fotosy aktorów.

Należy więc odznaczyć pozycje, które chcemy zostawić.

[Ariell]

No więc tak:

Nazwa Actors zmieniona na Aktor - poprawione
Pobieranie biografii jak jest więcej niż jedna - poprawione
Poprawiono kasowanie obcych dodatków
Poprawiono pobieranie komentarzy z obrazkami

dodatek Nagrody - w trakcie prac. - Zrobione
dodatek Dodatkowe okładki w Dodatkach - Zrobione
dodatek Pobieranie zdjęć z filmu w Dodatkach - Zrobione
dodatek Pobieranie tytułów AKA do customfields - Odrzucone (obce znaki powodują za dużo błędów).

Wersja 2.0.4.03C wprowadzi wiele nowości.
Wysłana do twórcy programu w celu udostępnienia.

Przy takim natłoku danych testowa baza 100 filmów zajmuje 400MB
A ten skrypt stanie się najlepszym w programie

Skrypt poprawiam pod siebie ale inni też mogą z tego skorzystać


Błąd na który nie mam wpływu jak w komentarzach były tylko ciekawostki bez komentarzy to niestety trzeba je ręcznie usunąć bo inaczej się zdublują będą zarówno w komentarzach i ciekawostkach.

[admas]

Nazwa Actors zmieniona na Aktor - poprawione
Pobieranie biografii jak jest więcej niż jedna - poprawione

Dzięki

dodatek Nagrody - w trakcie prac.
dodatek Dodatkowe okładki w Dodatkach - w trakcie prac.
dodatek Pobieranie zdjęć z filmu w Dodatkach - w trakcie prac.
dodatek Pobieranie tytułów AKA do customfields - w trakcie prac.

Bardzo interesujące; szczególnie nagrody i fotosy z filmu

Przy takim natłoku danych testowa baza 100 filmów zajmuje 150MB

Wszystko zależy od tego jaką ilość danych chcesz zgromadzić, aktorów i fotosów wystarczy np. po 10, a nie całą obsadę, ale baza na pewno jest obszerniejsza niż do tej pory. Jednakże w porównaniu do eXtreme movie Manager, to jest pikuś.

A ten skrypt stanie się najlepszym w programie

Dlaczego inne nacje mają mieć lepsze

a lili możesz sobie dodać poprzez zamianę linijek 369 i 386 (lub coś koło tego bo ja już mam tam parę zmian) z

Code: Select all

Value := Value + IntToStr(i) + '. ' + TmpLine + #13#10;

na

Code: Select all

Value := Value + '<li></li>' + TmpLine + #13#10;

Zmieniłem na

Code: Select all

Value := Value + '<li>' + TmpLine + '</li>' + #13#10;

Teraz tylko na początku i końcu wstawiam ręcznie

Code: Select all

<ul type="square"></ul>

To i tak jest dużo lepiej jak do tej pory. Dzięki.

Jeszcze dwie sprawy:
Gdy w nazwiskach aktorów występują znaki charakterystyczne dla danego języka, to fotosy nie są pobierane (w polu Obsada aktor występuje i zapisany jest poprawnie), np. Gérard Depardieu, Ángela Molina, Tchéky Karyo, Kô Shibasaki, etc.
Czasem zdarza się, że komentarze nie są pobierane w całości. Z tego co zauważyłem, to dzieje się tak, gdy w tekście komentarza występują fotosy z filmu, bo pobierana jest tylko pierwsza część do fotosu.

[Ariell]

admas jak coś zauważysz to podaj link do filmu gdzie to się dzieje. inaczej marne szanse że to znajdę i naprawię.

Aktorów ze znaczkami znalazłem i poprawiłem ale komentarzy nie mogę znaleźć.

[admas]

Np. http://www.filmweb.pl/film/Avengers%3A+ ... 015-637247
Pobieranie komentarza kończy się po pierwszym akapicie, przed fotosem.
Pobierany jest jeszcze opis fotosu " Chris Evans,   Chris Hemsworth Marvel".

Również http://www.filmweb.pl/film/47+ronin%C3%B3w-2013-548326
Pobieranie komentarza kończy się po pierwszym akapicie, przed fotosem.
Pobierany jest jeszcze opis fotosu "Keanu Reeves Universal Pictures".

Fotosy zazwyczaj są w recenzjach redakcji filmwebu.

[Ariell]

poprawione czytaj parę postów wyżej

[admas]

Świetnie
Chętnie bym przetestował nowe funkcje, szczególnie pobieranie fotosów.

[Ariell]

no co poprostu zapisuje zdjęcia z filmu do katalogu nic nowego działa jak ze zdjęciami aktorów

oczekuj na oficjalny release

[Ariell]

Oficjalna wersja z końcówką C jest dostępna do pobierania. Wiele poprawek i nowości

Jak na razie osiągnąłem to co jest mi potrzebne jeśli coś jeszcze potrzeba piszcie. W planach dodanie do customfields takich pozycji jak budżet, zarobiona kasa, studio, wydawca i inne ale to w przyszłości

[admas]

Przetestowałem na 20 filmach i jak na razie wszystko działa bardzo dobrze
Fajna sprawa z bazą aktorów, nie ma teraz powtarzających się fotosów. Przydatne gdy ma się w posiadaniu obszerną kolekcję; 476 filmów i 86 seriali
Jedyna sprawa, do której mogę się "przyczepić", to brak możliwości wyboru ilości pobieranych fotosów, ale można to inaczej rozwiązać.
Dzięki

[Ariell]

Co to jest niecałe 500 ja mam 1300 skatalogowanych i kilkaset jeszcze do skatalogowania ale obecnie nie posiadam napędu BD w laptopie. Zrezygnowałem z niego na rzecz 4 dodatkowych dysków SSD.

[admas]

Nieźle
Miałem wcześniej trochę ponad tysiąc, ale zrobiłem "inwentaryzację" i pozbyłem się połowy - mniej znaczące pozycje, do których na pewno nie powrócę. A to co oglądałem mogę sprawdzić na filmwebie.
Sam też przesiadłem się na dyski wymienne, taniej wychodzi od kupna płyt, zawsze też można dysk podłączyć do TV.
No... teraz można na spokojnie aktualizować dane , oby tylko na filmwebie nie zmienili za szybko kodu strony.

[Ariell]

nawet jakby zmienili to niewiele większość i tak będzie działać a drobne poprawki w tym co zrobiłem każdy wprowadzi. Co do grubszych takich jak nowe funkcje to nie mam pewności czy ktoś taki jest tu

[athe]

Ale wypas! Coś pięknego! Szacun Ariell. Podpowiedz łaskawie co powinienem zaznaczyć, żeby wraz ze zdjęciami aktorów pobierało opis (tak jak u Ciebie na poprzedniej stronie). W Dodatkach mam zaznaczone Tytuł i Info. Dziękuję
Od siebie chciałbym dorzucić to:

Code: Select all

  //Dystrybucja
  Value := TextBetween(Page.Text, 'dystrybucja:', 'studio:');
  Value := StringReplace(Value, '</dd>', ',');
  Value := StringReplace(Value, ',', ', ');
  HTMLRemoveTags(Value);
  HTMLDecode(Value);
  if Copy(Value, Length(Value) - 1, 2) = ', ' then
  Value := Copy(Value, 0, Length(Value) - 2);
  SetCustomField('Distribution', Trim(Value));
   
  //Studio
  Value := TextBetween(Page.Text, 'studio:', 'inne tytuły:');
  Value := StringReplace(Value, '</li><li>', ',');
  Value := StringReplace(Value, ',', ', ');
  HTMLRemoveTags(Value);
  HTMLDecode(Value);
  Value := StringReplace(Value, '(więcej...)', '');
  if Copy(Value, Length(Value) - 1, 2) = ', ' then
  Value := Copy(Value, 0, Length(Value) - 2);
  SetCustomField('Studio', Trim(Value));

może ktoś będzie chciał. Są to dodatkowo utworzone CustomField, pozdrawiam

[admas]

@Ariell
Widzę, że wczorajszy post usunięty. Więc nie będzie aktualizacji?