парсинг данных с bash.org.ru

[ivannes]

как сделать парсинг цитат с башорга??
p.s.: использую библу синапс

[TzX]

Вот, набросал на скорую руку. Используется Indy.

На форме Memo, Button, IdHTTP

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    Function podstr(str, pod: string): integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  i:integer;
begin
  s:=idhttp1.Get('http://bash.org.ru');  //Грузим код страницы
  for i:=1 to podstr(s,'утверждена') do  //Определяем количество цитат на странице
  Begin
    delete(S,1,pos('утверждена',s)); delete(S,1,pos('</div>',S)+5);               //Удаляем мусор до нужной цитаты
    memo1.Lines.Add(copy(S,pos('<div>',S)+5,pos('</div>',S)-pos('<div>',S)-5));   //Сам парсинг и вывод
    memo1.Lines.Add('');
  End;

end;

function TForm1.podstr(str, pod: string): integer; //Возваращает число вхождений подстроки в строку
var
  i,ln:integer;
begin
  i:=0;
   ln:=length(pod);
   while (pos(pod,str)>0) do
begin
  inc(i);
  delete(str,pos(pod,str),ln);
end;
result:=i;
end;

end.

[ivannes]

спасибо, за парсер

[sitema]

конечно врядли этот человек ещё здесь вертится, но я всё же спрошу:
ну и?... где рабочий парсер? Он многим интересен.
Выкиньте кто-нить пожалуйста... да и исходники не помешают.
Заранее всех благодарю!

[BDA]

Мой парсер баша (многое можно улучшить, но лень ).
UPD

добросить в архив скомпиленый экзешник

Добавил exe.

[sitema]

Спасибо... но можно ли вас попросить добросить в архив скомпиленый экзешник?

Большое спасибо... парсер классный, но можно ли вас попросить подправить его так, чтоб он все цитаты баша заливались в один текстовый файл, ну и разделитель между цитатами какой-нибудь было бы неплохо... допустим "- NEW -"
ну это конечно если вам не тяжело.

[BDA]

sitema, этот тот случай, когда лучше написать новое сообщение (случайно зашел в тему).