Текущий архив: 2010.02.07;
Скачать: 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 вся ветка
Текущий архив: 2010.02.07;
Скачать: CL | DM;
Память: 0.54 MB
Время: 0.011 c
