Пример парсинга текста

Posted by Chas under Пост-обзор

Функция должна заменять в тексте конструкции типа [вася|петя|маша] на случайно выбранное из такой конструкции слово.

Serge_Bliznykov:
иногда проще написать своё, чем разобраться в чужом

вот полный, самодостаточный (т.е. не использующий каких-то дополнительных процедур и функций),
РАБОЧИЙ код:

implementation

{$R *.DFM}
function GetWordNum(const s: string; const DelimChar: char; iNum: integer): string;

var

  sIn: string;

  i: integer;

begin

  i := iNum - 1;

  if i < 0 then GetWordNum := '::' // признак ошибки
  else begin
    sIn := s;
    while (i > 0) and (Pos(DelimChar, sIn) > 0) do begin

      Delete(sIn, 1, Pos(DelimChar, sIn));

      Dec(i);

    end;
    i := Pos(DelimChar, sIn);

    if i > 0 then Delete(sIn, i, Length(sIn) - i + 1);
    GetWordNum := sIn;

  end;

end;
function StrCharCount(const S: AnsiString; C: AnsiChar): Integer;

var

  I: Integer;

begin

  Result := 0;

  for I := 1 to Length(S) do

    if S[I] = C then

      Inc(Result);

end;
function parsetext(s: Ansistring): AnsiString;

var

  buf, x: AnsiString;

  p1, p2 : integer;

  j: integer;

begin

  p1 := Pos('[', s);

  p2 := Pos(']', s);

  while (p1>0) and (p2>p1) do begin

    buf := Copy(s, p1+1, p2-p1-1);

    x := GetWordNum(buf, '|', random(StrCharCount(buf, '|')+1) + 1);

    Delete(s, p1, p2-p1+1);

    Insert(x, s, p1);

    p1 := Pos('[', s);

    p2 := Pos(']', s);

  end;

  result := s;

end;
procedure TForm1.FormCreate(Sender: TObject);

begin

  randomize;

end;
procedure TForm1.Button1Click(Sender: TObject);

begin

  Memo1.Lines.Text := parsetext(Memo1.Lines.Text);

end;

p.s. обратите внимание, что я вынес Randomize из функции. Иницилизацию счётчика случайных чисел нужно выполнять ОДИН раз для приложения.
Вызывать его постоянно — это, конечно, не ошибка. Но может привести к совершенно неожиданным результатам…

тема на форуме

Похожие статьи

• Перенести программу из Delphi в Lazarus
• Тест в Delphi с помощью RadioGroup
• Random слов в Memo
• Плавное перемещение Image больших размеров
• Выдвижное меню
• Получение яндекс каптчи в Image
• Добавить строку с верха вниз StringGrid
• Выбор таблицы в ComboBox
• Указать координаты для создания компонента
• Скопировать данные из Edit в Word