VPF::[Delphi] Чтение из файла - Форум программистов

Goth

Дата 10.5.2009, 12:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 18.5.2007

Репутация: нет
Всего: нет

Такой вопрос: как из файла прочитать сложную структуру данных, типа

Word -100.2344 24.19
Letter (123, 11.00, 223)

чтобы в итоге я вырвал оттуда две строки (Word, Letter), и 5 чисел (разные по типу)? Перешел на делфи недавно, поэтому не в курсе, как это делается =)

Chazer

Дата 13.5.2009, 17:59 (ссылка)

(нет голосов)

Загрузка ...

Упоротый гентушник

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 18.5.2006
Где: Украина

Репутация: нет
Всего: нет

Если речь идёт о текстовом файле то:
Обязательно ТАК хранить?
проще будет так

Код


Word
-100.2344 24.19
Letter
123 11.00 223

иначе заранее нужно знать размер каждой строки в байтах или искать её окончание по пробелу.
вот пример:

Код


program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var  f:text;
  s1,s2,tmps:string;
  x1,x2,x3:real;
  y1,y2,tmpi:integer;
  tmp:char;
begin
s1:='';
s2:='';
assign(f,'maza.txt');
reset(f);
{Считываем первую строчку посимвольно до первого пробела}
while not eof(f) do
  begin
  read(f,tmp);
  if tmp=' 'then break;
  s1:=s1+tmp;
  end;

{Считываем две переменные дробного типа без всякого гимора}
read(f,x1,x2);

{Считываем вторую строчку посимвольно до первого пробела}
while not eof(f) do
  begin
  read(f,tmp);
  if tmp=' 'then break;
  s2:=s2+tmp;
  end;

{Считываем ненужную дужку '('}
read(f,tmp);

{Далее считываем временную строчку посимвольно ДО запятой}
tmps:='';
while not eof(f)do
  begin
  read(f,tmp);
  if tmp=',' then break;
  tmps:=tmps+tmp;
  end;
{И переводим результат в числовой тип Integer, который присваиваем переменной}
y1:=StrToInt(tmps);

{Аналогично и здесь. Считываем посимвольно строчку До запятой}
tmps:='';
while not eof(f)do
  begin
  read(f,tmp);
  if tmp=',' then break;
  tmps:=tmps+tmp;
  end;
{По идее, в временной строчке должно быть дробное число, которое
мы закинем в определённую переменную}
val(tmps,x3,tmpi);

{И считываем посимвольно строчку, только на этот раз ДО дужки ')'}
tmps:='';
while not eof(f)do
  begin
  read(f,tmp);
  if tmp=')' then break;
  tmps:=tmps+tmp;
  end;
{И переводим результат в числовой тип Integer, который присваиваем переменной}
y2:=StrToInt(tmps);

close(f);
{Просматриваем результат}
write(s1);
writeln(s2);
writeln(x1:10:4);
writeln(x2:10:2);
writeln(x3:10:2);
writeln(y1);
writeln(y2);
readln;
end.

...да, это жуткий быдлокод. У кого-то есть другие идеи?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »