Вообще гордиться особо нечем. Просто взял да спарсил.
Прога пишется за пять минут, выполняется за пятнадцать.
На форму ставятся два текстовых поля у обоих выключается перенос строк, idHTTP это компонент на вкладке indi clients,его просто лепим на форму.
procedure parsbash;
var i,i2:integer;
begin
for i:=1 to 505 do
begin
memo1.Text:=IdHTTP1.Get(‘http://bash.org.ru/index/’+inttostr(i));
memo1.Lines.SaveToFile(‘temp’);
memo1.Lines.LoadFromFile(‘temp’);
for i2:=0 to memo1.Lines.Count do
if pos(‘<div>’,memo1.Lines[i2])=3 then
memo2.Lines.Add(memo1.Lines[i2]);
memo2.Lines.SaveToFile(‘vse.txt’);
end;
end;
Результат правда надо почистить от тегов <div> и </div> но уж это точно может каждый.
Выкладываю итоговый результат. Каждая строка это отдельная запись. Лишние теги уже убрал.
elsper.ru/wp-content/vse.rar
Автор: Elsper.ru