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;
