Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.05.2009, 23:05   #1
delphyok
Пользователь
 
Регистрация: 22.02.2009
Сообщений: 19
Вопрос Как прочесть длинную строку из файла?

Здравствуйте! Вот столкнулся с проблемой, хочу сделать программку для обработки текста, но т.к. Паскаль не может считывать строки длиннее 255 символов, то полноценной работы программы не получится, т.к. в исходном текстовом файле содержаться строки на порядок длиннее. Конечно, вроде как можно попробовать представить длинную строку как единый массив символов и работать с ним, но я думаю, это слишком как-то не удобно. Возможно есть какая-нибудь функция, или модуль, который позволяет работать со строками длиннее 255 символов также как и с обычными? Подскажите, кто знает

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

Код:
program long_string;
var
   text_in,text_out:text;
   stroka:string;
begin

{ ОТКРЫВАЮ ФАЙЛ СО СТРОКОЙ И СЧИТЫВАЮ ЕЕ }

   assign(text_in,'text_in.txt');
   reset(text_in);
   readln(text_in,stroka);
   close(text_in);

{ ЗАПИСЫВАЮ СЧИТАННУЮ СТРОКУ В ДРУГОЙ ФАЙЛ }

   assign(text_out,'text_out.txt');
   rewrite(text_out);
   writeln(text_out,stroka);
   close(text_out);

   readln;
end.
delphyok вне форума Ответить с цитированием
Старый 13.05.2009, 08:51   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

никто не отменял работу с массивами.
Код:
var
   s : array[1..25000] of char; {на ДВА порядка больше}
потом наберите в TurboPascal'е
BlockRead выделите слово и нажмите F1 (внизу есть Sample Code: — это пример использования)
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как прочесть секцию в ini Volkogriz Общие вопросы Delphi 8 04.02.2009 09:37
Как прочесть исходный текст? Ruber Общие вопросы по Java, Java SE, Kotlin 0 05.06.2008 21:45
Как прочесть два массива из файла Need_Help Паскаль, Turbo Pascal, PascalABC.NET 5 20.05.2007 16:40
Как прочесть текст в чужом окне? ffo Win Api 3 27.04.2007 13:50