Текстовый файл - Форум «Всё о Паскале»

Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++

Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

Текстовый файл

Опции

Маша	14.03.2007 18:01 Сообщение #1
Гость	Помогите пожалуйста с задачей: Переписать текст из одного файла в другой, утраивая все пустые строки?

klem4	14.03.2007 18:54 Сообщение #2
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44	Файлы Там была ? Сама пробовала делать ? Что конкретно не понятно ? Читаешь строки из одного файла, смотришь, если строка пустая, в новый файл пишешь 3 пустые строки, иначе просто переписываешь эту строку в файл. Как работать с файлами, смотри по приведенной мною выше ссылке. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'

Гость	14.03.2007 19:15 Сообщение #3
Гость	Klem4, не совсем понятно, по какому критерию определять пустоту строки. Пробовала проверять с помощью seekeoln, но так не работает. И вообще равносильна ли пустая строка строке со всеми пробелами?

klem4	14.03.2007 19:20 Сообщение #4
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44	Читаешь строку readln(f, s); и смотришь if length(s) = 0 then // строка пустая Цитата И вообще равносильна ли пустая строка строке со всеми пробелами? Врятли, хотя это тебе нудо задание уточнять ... -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'

Маша	14.03.2007 20:08 Сообщение #5
Гость	Спасибо!

« Предыдущая тема · Задачи · Следующая тема »

1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)

Пользователей: 0