чтение текстового файла Опции

[doorway]

есть текстовый файл:

Код

1 2
3

как эти цифры присвоить переменным a, b, c. что-то у меня не получается, напишите, пожалуйста, кому не лень только блок с read

[volvo]

var a, b, c: integer;
// ...
  read(f, a, b, c);

Я надеюсь, уроки из прошлой темы извлечены, и теперь признаки конца строки соответствующие в файле?

[doorway]

var a, b, c: integer;
// ...
  read(f, a, b, c);

Я надеюсь, уроки из прошлой темы извлечены, и теперь признаки конца строки соответствующие в файле?

ага, понял все, вот просто у меня есть текстовый файл, там данные типа

Код

<string> <integer> <char>

(типы разделены пробелами),

вот их не получается считать таким способом

Сообщение отредактировано: doorway - 20.09.2010 22:11

[Unconnected]

Ну так любую цифру (1 2 3 твои) можно считать как в string, так и в integer, и в char...

Ну если там перенос после 2, то наверное надо:

readln(f, a, b);
read(f, c);

Сообщение отредактировано: Unconnected - 20.09.2010 22:13

[sheka]

проблема в том, что в таком случае надо точно знать какое количество символов отводится на <string>. Т.е:

var a:string; b: integer; c: char; k: byte;
// ...
  read(f, a: k, b, c);

Сообщение отредактировано: sheka - 20.09.2010 22:23

[doorway]

Ну так любую цифру (1 2 3 твои) можно считать как в string, так и в integer, и в char...

Ну если там перенос после 2, то наверное надо:

readln(f, a, b);
read(f, c);

получается так:
файл такой:

Код

aaa 1
2

код

a:string;
b,c: integer;
...
readln(f, a, b);
read©;
write(a,'--',b,'--',c);

выводит aaa 1--2--0

т.е., если первая переменная(a) при чтении файла имеет тип стринг, то данные с файла в переменную будут читаться не до пробела, а до конца строки. провел ни один эксперимент уже

Добавлено через 10 мин.

проблема в том, что в таком случае надо точно знать какое количество символов отводится на <string>. Т.е:

var a:string; b: integer; c: char; k: byte;
// ...
  read(f, a: k, b, c);

Сообщение отредактировано: doorway - 20.09.2010 22:49

[volvo]

т.е., если первая переменная(a) при чтении файла имеет тип стринг, то данные с файла в переменную будут читаться не до пробела, а до конца строки.

Разумеется. Потому что строка из файла читается
1) либо до тех пор, пока выделенное под нее место не будет заполнено полностью
2) либо пока не встретится #13(символ конца строки). Всё, больше ничего. Пробел концом строки не является.

Вообще-то это один из первых советов при работе с текстовыми файлами: не использовать смешанные списки ввода. Нужно читать в строку до пробела - читай посимвольно (Char-ом) и соединяй символы в строку.

проблема в том, что в таком случае надо точно знать какое количество символов отводится на <string>

Проблема - в том, что при ЧТЕНИИ нельзя указывать ширину поля, только при ЗАПИСИ это возможно.

[doorway]

есть файл из 10 строк, где записаны в строке
фамилию год пол

так вот эти данные надо считать и сравнить людей по годам, я собирался считать циклом каждую часть строки в двумерный массив. в один стринговый массив фамилию, в другой целый год, и в чарный пол. вот загвоздка на том, что первая идет фамилия стринговый тип и считывает всю строку.

[Unconnected]

Читай по строке в string, а потом эту строку разбивай на фамилию, год и пол, с помощью функций copy и pos.

Сообщение отредактировано: Unconnected - 20.09.2010 22:55

[doorway]

Читай по строке в string, а потом эту строку разбивай на фамилию, год и пол, с помощью функций copy и pos.

впринципе можно. а как получится, год же должен быть интегер

[Lapp]

как получится, год же должен быть интегер

Используй процедуру Val

[doorway]

Используй процедуру Val

процедуры нельзя в программе использовать

[sheka]

Если я не ошибаюсь, read - тоже процедура.

[doorway]

var a:string; b: integer; c: char; k: byte;
// ...
read(f, a: k, b, c);

в read после : говорит, что нужна ), почему?

Сообщение отредактировано: doorway - 21.09.2010 23:01

[Lapp]

в read после : говорит, что нужна ), почему?

Может, не после, а вместо?
Потому что в Паскале нет форматного read (как тебе уже говорил volvo). Строка читается до конца.
Сообщение, я согласен, не очень точное - там может быть и запятая..

[doorway]

Может, не после, а вместо?
Потому что в Паскале нет форматного read (как тебе уже говорил volvo). Строка читается до конца.
Сообщение, я согласен, не очень точное - там может быть и запятая..

а если надо считать строку только первые 15 символов?

[volvo]

doorway, ответы надо не просматривать, а читать. Внимательно читать.

а если надо считать строку только первые 15 символов?

И об этом я тоже написал. Повторять как-то не особо хочется. Ибо не факт, что ты соизволишь прочесть со второй попытки.

[sheka]

Виноват. Забыл. Хотел написать следующее:

var a:string[15]; b: integer; c: char; k: byte;
// ...
  read(f, a, b, c);

[volvo]

Ответ неверный В C будет совсем не то, что ты ожидаешь

[sheka]

Дык я не обращал внимание на это, ведь о строке думал :yes:
Согласен, там будет пробел, верно?

var a:string[15]; b: integer; c: char; k: byte;
// ...
  read(f, a, b, c, с);