Редактирование [D7, WinME, Win2k, WinXP]
Serg!!!!!!!!!!! © (2005-06-06 22:23:00)
Помогите плиз немогу справится есть файл в нем
Клиент№1
Пришло,12.00
Ушло,212.00
Остаток,0.00
Обший счет,221.00
,,"Данные1 ","Данные2 ",
Данные3 ,01.03.2001, Данные4,Данные5
,,"Данные6 ","
",
Данные7,Данные8 ,Данные9, Данные10,
Данные11,,0.00
,,"Данные1 ","Данные2 ",
Данные3 ,01.01.2001, Данные4,Данные5
,,"Данные6 ","
",
Данные7,Данные8 ,Данные9, Данные10,
Данные11,,0.00
Клиент№1
Пришло,11.00
Ушло,21.00
Остаток,0.00
Обший счет,21.00
// и так далее
Надо сделать так чтоб строки типа Данные1 Данные2..ДанныеN
были удалены т.е.все что находится между Общий счет,221.00 и
Клиент№N
а также всё с нулевыми значениями (например ушло,0.00) в
голову нечего нелезет кроме
S := RE1.Lines.Text;
F := 'Ушло,0.00';
While Pos(F, S) > 0 do
Delete(S, Pos(F, S),Length(F));
RE1.Lines.Text := S;
end;неписать же мне 10 таких процедур для каждой
строки или можно читать при открытии только нужное может кто делал
подобное поделитесь кодом если несложно пожалуйста!!! И еще
маленький вопросик как удалять пустые строки типа:
Строка
Строка
Строка
Строка
чтоб получилось:
Строка
Строка
Строка
Строка
KilkennyCat (2005-06-06 22:26:00) [1]
читаем построчно.
если в строке есть одно из ключевых слов
Клиент
Пришло
Ушло
Остаток
Обший
и позиция равна 1 то - наша строка.
Наверх 
ЧАТ |
Орешник |
|
