antp.be forum

Posted: **2015-11-25 08:50:14**

Ariell wrote: Liczba sezonów: ponad 10

http://www.filmweb.pl/serial/Chirurdzy-2005-165277
http://www.filmweb.pl/serial/Nie+z+tego ... 005-225833
http://www.filmweb.pl/serial/Ko%C5%9Bci-2005-233995

Ariell wrote: Liczba sezonów: brak ale na przykład kilka pierwszych odcinków już jest.

Nie wiem czy to się nada:
http://www.filmweb.pl/serial/Pos%C5%82a ... 015-711134
http://www.filmweb.pl/serial/Heroes+Reborn-2015-709874
http://www.filmweb.pl/serial/The+Franke ... 015-728032

Ariell wrote: Liczba sezonów: dowolna ale są odcinki specjalne poza sezonami.

http://www.filmweb.pl/serial/Chirurdzy-2005-165277
http://www.filmweb.pl/serial/Nie+z+tego ... 005-225833
http://www.filmweb.pl/serial/Teoria+wie ... 007-402989
http://www.filmweb.pl/serial/Gra+o+tron-2011-476848

Posted: **2015-11-26 19:40:27**

Kto czeka na import nazw odcinków?

Testy czas zacząć

Dodano listę odcinków. Ja tego nie testowałem więc zgłaszać błędy.
Wymaga CustomField.
http://www85.zippyshare.com/v/UUc2yEhO/file.html

Posted: **2015-11-26 19:46:25**

Na razie pierwszy tytuł, ściągnął 1, 3 i 5 sezon

http://www.filmweb.pl/serial/Dwie+sp%C5 ... 011-616779

tutaj podobnie:
http://www.filmweb.pl/serial/The+100-2014-689083

Zauważyłem jeszcze jedną rzecz, przy odpaleniu skryptu w celu znalezienia zaktualizowanych pozycji, tylko za pierwszym razem przy danym tytule, próbuje zmienić biografie jednego z aktorów, na inną (nie pasującą).. przy drugim odpaleniu już nie wyświetla tej zmiany

Posted: **2015-11-26 21:32:39**

procedure PobierzOdcinki(Address : String);
var
Line, Line2, Value, Sezon, Odcinek, Tytul, Data : String;
Page : TStringList;
begin
Page := TStringList.Create;
Page.Text := UTF8Decode(GetPage(Address));
Line := TextBetween(Page.Text, '<body>', '</body>');
if (Pos('episodesTable', Line) > 0) then
begin
Line := TextBetween(Line, 'episodesTable', '<a rel="nofollow"') + '<a rel="nofollow"';
while (Pos('</dd>', Line) > 0) do
begin
if (Pos('<h3 class="', Line) < 0) then
begin
Line2 := TextBetween(Line, '<dd class="expanded"', '</dd>');
end
else
begin
Line2 := TextBetween(Line, '<dd class="expanded"', '</dd>');
Sezon := TextBetween(Line, '<h3 class="', '/h3>');
Sezon := TextBetween(Sezon, '>', '<');
Value := Value + Sezon + #13#10;
end;
Line := TextBetween(Line, '</dd>', '<a rel="nofollow"') + '<a rel="nofollow"';
while (Pos('<div class="pull-left normal">', Line2) > 0) do
begin
Odcinek := TextBetween(Line2, '<div class="pull-left normal">', '<');
Odcinek := StringReplace(Odcinek, ' ', ' ');
Tytul := TextBetween(Line2, '<div class="normal title">', '<');
Data := TextBetween(Line2, 'data-code', '/div>');
Data := TextBetween(Data, '>', '<');
Value := Value + Odcinek + Tytul + ' ' + Data + #13#10;
Line2 := Copy(Line2, Pos('</li>', Line2) + Length('</li>'), Length(Line2));
end;
Value := Value + #13#10;
Line := TextBetween(Line, '</dd>', '<a rel="nofollow"') + '<a rel="nofollow"';
end;
end;
if (Value <> '') then
begin
if (not ((GetOption('Aktualizacja') = 2) and (GetCustomField('Odcinki')=Trim(Value)))) then SetCustomField('Odcinki', Trim(Value));
end;
Page.Free;
end;

Skasuj czerwoną linijkę (zdublowało mi się przypadkiem).

Co do biografii zobaczę to.
Możliwe że plik aktor.adx został uszkodzony skasuj go i zobacz czy problem występuje ponownie.

Posted: **2015-11-26 21:40:27**

Teraz się pięknie wszystkie odcinki zaciągają, tylko specjalne wyświetlają się tak "odcinki specjalne".

Czy jest szansa, żeby kiedyś jakoś oddzielić datę odcinka, np. w nawias?!

Posted: **2015-11-26 21:42:35**

Data w nawiasie
zamień: Value := Value + Odcinek + Tytul + ' ' + Data + #13#10;
na Value := Value + Odcinek + Tytul + ' (' + Data + ')' + #13#10;

Proste jak kłębek sznurka w kieszeni

Naprawa odcinków specjalnych

if (Value <> '') then
begin
Value := StringReplace(Value , ' ', ' '); -Dodaj tą linijkę

Posted: **2015-11-26 21:49:19**

Niestety skasowanie pliku nie przyniosło efektu

Posted: **2015-11-27 10:52:32**

Przy niektórych tytułach nie pobiera się lista odcinków, poniżej kilka z nich.
Nie wynika czasami to z tego, że w linku nie ma "serial"?!

http://www.filmweb.pl/Gotowe.Na.Wszystko
http://www.filmweb.pl/Ally.Mcbeal
http://www.filmweb.pl/Dexter
http://www.filmweb.pl/Przyjaciele

Posted: **2015-11-28 09:39:58**

Ariell, zauważyłem, że nie zawsze pobiera ciekawostki.

Code: Select all

	case GetOption('Ciekawostki') of
		1:	begin
				Line := TextBetween(Page.Text, ' ciekawostki </a>', '</span>');
				LineNr := StrToInt(TextBetween(Line, '(', ')'), 0);
				if LineNr > 0 then
				begin
					GetFilmCuriosities(Address + '/trivia');
				end;
			end;
	end;

Zmienna Line jest pusta. Np przy tym filmie :http://www.filmweb.pl/film/Dekameron-2007-191336

Posted: **2015-11-28 11:32:14**

Popoprawiam to ale w przyszłym tygodniu chwilowo nie mam czasu.

Posted: **2015-11-28 13:57:47**

znalazłem rozwiązanie

Code: Select all

		case GetOption('Ciekawostki') of
		1:	begin
				Line := TextBetween(Page.Text, 'ciekawostki<span>', '</span>');
				LineNr := StrToInt(TextBetween(Line, '(', ')'), 0);
				if LineNr > 0 then
				begin
					GetFilmCuriosities(Address + '/trivia');
			end;
	end;
end;

Widocznie cały czas grzebią w kodzie na filmweb-ie, pozdrawiam

Posted: **2015-12-12 18:30:03**

Witam.
Może to śmieszne ale nie mam zielonego pojęcia o czym piszecie natomiast podoba mi efekt. Jest jakaś szansa że ktoś łopatologicznie napisze co zrobić aby uzyskać efekty takie jak wyżej?

Posted: **2015-12-14 22:07:03**

nachwile wrote:Witam.
Może to śmieszne ale nie mam zielonego pojęcia o czym piszecie natomiast podoba mi efekt. Jest jakaś szansa że ktoś łopatologicznie napisze co zrobić aby uzyskać efekty takie jak wyżej?

Owszem podczas uruchamiania skryptu masz po prawej opcje przejrzyj je.
parę stron wstecz były potrzebne pliki które trzeba sobie pobrać i poimportować.

A teraz tak oficjalnie do świąt mnie nie będzie ale kto był grzeczny to napewno dostanie prezent.

Posted: **2015-12-14 22:10:27**

Ariell wrote: A teraz tak oficjalnie do świąt mnie nie będzie ale kto był grzeczny to napewno dostanie prezent.

Hehe.. Święty Mikołaj

Posted: **2015-12-17 10:02:41**

W święta zaczną działać pola:
Boxoffice
Budżet
Studio
Dystrybucja
Poprawiono Odcinki i Ciekawostki.

Niestety nadal nie będzie tytułów AKA ale to wkrótce.

Wprowadzono kilka drobnych poprawek.
zmniejszono ilość błędów alloc memory.

Kto czeka na poprawki?

Posted: **2015-12-17 10:06:54**

Się jeszcze pytasz

Posted: **2015-12-19 09:20:10**

z niecierpliwością, Ariell. Pozdrawiam

Posted: **2015-12-19 11:49:25**

Premiera 24.12.2015
Tak to wygląda:

Posted: **2015-12-19 12:16:58**

Jak wygląda baza aktorów u was ile zaoszczędziliście?

Posted: **2015-12-23 16:46:32**

antp.be forum

POLAND site SCRIPTs