Редактирование

← →
Serg!!!!!!!!!!! (2005-06-06 22:23) [0]

Помогите плиз немогу справится есть файл в нем
Клиент№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) [1]

читаем построчно.
если в строке есть одно из ключевых слов
Клиент
Пришло
Ушло
Остаток
Обший

и позиция равна 1 то - наша строка.

Редактирование Найти похожие ветки