Текущий архив: 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.01 c
