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

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c