Скачать: CL | DM;

Парсер строки   Найти похожие ветки 

← →
novai   (2009-12-10 11:15) [40]

> Если ты гарантируешь, что строки в файле не могут быть иными,
>  нежели вида

да все слитно и разделено пробелами, значит на 33 посте остановлюсь...
еще раз - Спасибо!

---

← →
angvelem   (2009-12-12 04:30) [41]

> зачем мне еще сторонние компоненты? для этой цели и свое
> подойдет...
> всем спасибо, остановлюсь на своем варианте...


RX тем и хорош, что идёт в исходниках. Выбирай любую процедуру (функцию) и используй или корректируё под себя.

---

← →
Rouse_ ©   (2009-12-12 14:19) [42]

А чем стандартный TParser из Classes не устраивает?

---

← →
Rouse_ ©   (2009-12-12 14:23) [43]

Вот кстати пример: http://www.cyberguru.ru/delphi-sources/classes-vcl/primer-tparser.html

ЗЫ: вообще я им спокойно исходники парсил для графа зависимостей модулей проекта - целый простор для творчества

---

← →
Nucer   (2009-12-12 14:53) [44]

Написал на днях процедуру, аналогичную Explode из PHP:
procedure Explode(Separator: Char; S: string; Strings: TStringList; Limit: Integer = 0);
var
 I, N: Integer;
 Start: Integer;
 Done: Boolean;
begin
 Strings.BeginUpdate;
 try
  Strings.Clear;
  if S = "" then Exit;
  N := 0;
  Start := 1;
  Done := False;
  repeat
    Inc(N);
    I := PosEx(Separator, S, Start);
    if (I = 0) or (N = Limit) then
      begin
        I := Length(S) + 1;
        Done := True;
      end;
    Strings.Add(Copy(S, Start, I - Start));
    Start := I + 1;
  until Done;
 finally
   Strings.EndUpdate;
 end;
end;
Насколько могу судить, код оптимальный. Значительно ускорить разделение вряд ли получится.

Explode(" ", "установить 100 100", MyStringList, 3);

---

Страницы: 1 2 вся ветка

Скачать: CL | DM;



Память: 0.52 MB
Время: 0.007 c