Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.28;
Скачать: CL | DM;

Вниз

Как выбрать даные из текстового файла.   Найти похожие ветки 

 
Vi-Vi   (2003-07-15 16:20) [0]

Привет всем.
необходимо чтобы програма делала выборку сумы из текстового файла такого формата:
------------------------------------------------------
: 1 : 2 : 3 : 4 :
------------------------------------------------------
2343424 23434 56656 566565
... ... ... ...
2343454 75676 7867 76767
------------------------------------------------------
1215555 6522147
Немогу раздуплится как организовать выборку сумы.


 
Serginio   (2003-07-15 16:26) [1]

У тебя данные разделены пробелами, либо имеют фиксированный размер. В первом случае парсь, во втором просто копируй тримуй и в зависимости от разделителя дробной части применяй Val или StrToFloat


 
Sandman25 ©   (2003-07-15 18:15) [2]


var
F: TextFile;
S: string;
Sum1, Sum2: integer;
begin
AssingFile(F, "myfile.txt");
Reset(F);
Count := 3;
repeat
Readln(F, S);
if Pos("---", S) > 0 then
Dec(Count);
until Count = 0;
Read(F, Sum1, Sum2);
CloseFile(F);
end;



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

Текущий архив: 2003.07.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
3-91659
khvalera
2003-07-06 21:41
2003.07.28
Поиск


14-91906
panov
2003-07-12 17:35
2003.07.28
Сообщение App и Marser


14-91867
sagchat
2003-07-11 15:20
2003.07.28
модем перестал набирать в тоновом режиме


14-91811
Ihor Osov'yak
2003-07-13 01:18
2003.07.28
Ну и как там


3-91652
MoonShiner
2003-07-04 13:09
2003.07.28
Проблема с отступом в dbf