VPF::Изъятие текста из файла - Форум программистов

olga90

Дата 14.3.2007, 10:11 (ссылка)

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

Загрузка ...

Шустрый

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

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

В текстовом файле находится текст на русском языке

Мне нужно поместить весь текст в строковую переменную и работать с ним.

Код


var
  rus_text_file:text;
  s,s2:  string;
  str:string;

begin
clrscr;
{open file with russian text}
assign(rus_text_file,'Text.txt');
reset(rus_text_file);
 while not EOF(rus_text_file) do
  begin
   readln(rus_text_file, str);
  end;
close(rus_text_file);

writeln('Текст из файла: ',str);
end.

выводится не русский текст а каракули. С латинице все нормально.
А вот с русским языком проблемы. Как это решить.

Пробовала на разных версия Паскаля - то же самое

В блокноте выставлен шрифт Times New Roman

ama_kid

Дата 14.3.2007, 10:47 (ссылка)

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

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

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

В блокноте используется кодировка Windows-1251, паскакаль работает под режимом ДОС с устаревшей кодировкой 866. Набирай файл в ворде - он позволяет сохранить текстовый файл в режиме ДОС (Сохранить как... -> Обычный текст (*.txt) -> Режим MS-DOS)

--------------------

самурай без меча подобен самураю с мечом, но только без меча

olga90

Дата 14.3.2007, 11:56 (ссылка)

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

Загрузка ...

Шустрый

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

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

ama_kid, спасибо - сработало smile

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