Quote (Jaw)
Выложи пример списка с анекдотами.
все зависит от сайта)
а вообще просто делаешь так s:=содержимое html кода страницы
к примеру качаешь код сраницы.
потом к примеру так
берем функцию
function Pars(T_, ForS, _T: string): string;
var
a, b: integer;
begin
Result := '';
if (T_ = '') or (ForS = '') or (_T = '') then
Exit;
a := Pos(T_, ForS);
if a = 0 then
Exit
else
a := a + Length(T_);
ForS := Copy(ForS, a, Length(ForS) - a + 1);
b := Pos(_T, ForS);
if b > 0 then
Result := Copy(ForS, 1, b - 1);
end;
и юзаем
var
punkt:string;
begin
punkt:= pars('в какой тег заключен пункт списка',s,'то же самое как закрывается тег');
While punkt<>'' do begin
Form1.spisokantkdotov.lines.add('punkt');
StringReplace(s,''в какой тег заключен пункт списка'+punkt+'то же самое как закрывается тег','',[rfreplaceall]);
end;
end;
p.s. писал код без делфи, могут быть ошибки.