Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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 то - наша строка.

---

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

Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.042 c