Помощь - Поиск - Пользователи - Календарь
Полная версия: Проблема с чтением из файла...
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Костян
Народ отсень простенький вопрос(в поиске не нашел, так что спрашиваю напрямую). Есть файл file.txt и нужно сделать прогу которая бы выводила текст этого файла на экран. Вот и все. Вот что у меня получилось:
Код
program qest;
uses crt;
var
fiile : text;
begin
clrscr;
assign(fiile,'file.txt');  reset(fiile);
writeln(fiile);
readkey;
end.
Обьясните же мне старому дурню шо тут не так. smile.gif
volvo
assign(fiile,'file.txt');  reset(fiile);
writeln(fiile); { <--- Здесь ! }

Ошибка твоя - в том, что ты пытаешься НЕ распечатать файл, а записать в него пустую строку (ну вот такой у Паскаля синтаксис smile.gif ), причем будет ошибка, ибо файл-то у тебя открыт для чтения, а не для записи!

А делать-то надо было вот так:
program qest;
uses crt;
var
  fiile : text;
begin
  assign(fiile,'file.txt');  reset(fiile);
  while not eof(fiile) do begin
    readln(fiile, s); { <--- Читаешь строку из файла ... }
    writeln(s); { <--- и пишешь ее на экран }
  end;
  readkey;
end.
Костян
Огромное спасибо все заработало, но возникла еще одна проблема- при чтении из файла русского языка
на экран выдается набор символов, как это можно исправить?
Бродяжник
Тут слишком много вопросов:
- в какой кодировке набран текстовый файл?
- он точно текстовый? в смысле ASCII?
- в каком режиме работает программа?
Соответственно и решений может быть много:
- перекодировать входной файл
- перед запуском программы подгружать русификатор экрана
- в самой программе переводить считанные строки в требуемую кодировку, а уж потом выводить на экран
- и тогда, может быть, нужно будет предусмотреть возможность разных режимов,
типа "считать файл KOI-8R и вывести его в альтернативной кодировке".
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.