![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
NEFFboy |
![]()
Сообщение
#1
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 15 Пол: Мужской Реальное имя: Александр Репутация: ![]() ![]() ![]() |
есть текстый файл, который содержит текст, его нужно открыть, перемешать строки текста в нём в произвольном порядке и сохранить в другом файле.
кусок кода: Код begin Edit1.Text; // сдесь исходный файл, в котором берём строки. //тут нужен код который пермешивает строки. Edit2.Text; // здесь сохраняем перемешанный текст. -------------------- не дня без строчки кода.
|
![]() ![]() |
klem4 |
![]()
Сообщение
#2
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
читаешь строки в массив, а потом делаешь что-то вроде этого:
Добавлено через 3 мин. ну или заюзать для работы TStrings всесто массива. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
![]() ![]() |
![]() |
Текстовая версия | 24.06.2025 0:41 |