Печать текстовых файлов с добавлением символа переноса

@alexansh1 · Регистрация: 02.04.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте !
Задача такая: есть 2 каталога (исходный и каталог назначения).
Например, PRT1 - исходный каталог, Arck_PRT1 - каталог назначения.
В PRT1 периодически попадают текстовые файлы (иногда по одному, а иногда и сразу по нескольку) - *.prt.

По мере поступления в каталог PRT1 их нужно распечатывать на принтере и копировать в Arck_PRT1.
Причем, в каждом из этих файлов отсутствуют CR и LF (символы возврата каретки и переноса строки). Поэтому, в каждом файле при печати нужно вставлять символы CR и LF после 81 символа, например.
Т.е., каждый файл нужно распечатывать, нарезая строки по 81 символу. Ну, а в самом конце, что осталось.

Как это лучше сделать и более оптимально с использованием BAT-команд ?

@alpap · 21.09.2015, 12:03

Сообщение от alexansh1

нарезая строки по 81 символу. Ну, а в самом конце, что осталось.

- можно вот это подробнее, пример-бы, если не сложно.

@alexansh1 · 21.09.2015, 12:17 **[ТС]**

Имею в виду, распечатать содержимое всего файла не одной "длинной" строкой, которая в нем содержится, а отдельными строками с фиксированной длиной в 81 символ. Т.е., "порезать" "длинную" строку файла и выдать на печать.

@Garry Galler · 21.09.2015, 20:15

alexansh1,
Вряд ли cmd подходит для таких задач. Но так как с 2006 года на всех клиентских версиях windows (>=Vista) установлена новая командная оболочка - powershell, то советую посмотреть в ее сторону.
К примеру, ваша задача скриптом на PoSh решается примерно так:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function _PrintFile($file) {
if ($file -eq $null) {"файл=null";return}
    $block= New-Object char[] 81
    [IO.TextReader] $reader = [IO.File]::OpenText($file)
 
while (($count=$reader.ReadBlock($block, 0, 81)) -gt 0)
{  
    $newtext+=-join $block[0..($count-1)]+"`r`n"
}
 
$newtext|lp
$reader.Close();$newtext=$null
# копирование отправленного на печать файла в другой каталог
copy -Path $file -Destination d:\PRT2
}
# здесь указывается исходный каталог и маска файлов
$files=[IO.Directory]::GetFiles("D:\PRT1","*.prt")
# получив массив объектов файлов - отправляем их функции _PrintFile 
$files| %{_PrintFile $_}

Скрипт не создает промежуточных (порезанных) файлов - так как непонятно, а нужны ли они вам - а сразу отправляет отформатированный текст на печать принтеру по умолчанию.
PS: Не знаю, возможны ли проблемы с одновременной отправкой на печать сразу множества файлов (команда lp не ждет завершения задания, а сразу возвращает управление) - для отслеживания каждого задания нужен отдельный скрипт, но у меня три файлов отпечаталась без проблем.

@alexansh1 · 22.09.2015, 17:08 **[ТС]**

Спасибо, Garry за то, что откликнулись на мое обращение. Powershell не использовал ранее. Посмотрю, что это такое. Надо попробовать.

volodin661 · 23.09.2015, 21:25

Сообщение от Garry Galler

Вряд ли cmd подходит для таких задач. Но так как с 2006 года на всех клиентских версиях windows (>=Vista) установлена новая командная оболочка - powershel

начиная с середины 90-х годов прошлого века для Windows появилось много бесплатных инструментальных
средств, пришедших главным образом из мира Unix, которые облагородили искажённое жаждой наживы лицо
операционной системы корпорации Microsoft.

вышепоставленная задача, например, решается с помощью одного из этих средств строчкой в 15-25 латинских букв:

Code
1
s/.{81}\K/\r\n/g  file.txt

,

и при скорости набора 250 знаков в минуту набор данной строки займёт около 6 секунд + несколько миллисекунд на исполнение, которыми можно пренебречь.

@alexansh1 · 24.09.2015, 10:15 **[ТС]**

Да, на unix можно писать скрипты. Я знаю.

"с помощью одного из этих средств..." - Какого из средств ?

Это у Вас просто комментарий, что в unix-овых инструментальных средствах можно написать красиво ? Я знаю.
Но здесь-то я обращаюсь за помощью в решении конкретной задачи.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@alexansh1 0 / 0 / 0 Регистрация: 02.04.2013 Сообщений: 31

	Печать текстовых файлов с добавлением символа переноса 21.09.2015, 11:42. Показов 1509. Ответов 6 Метки нет (Все метки) Здравствуйте ! Задача такая: есть 2 каталога (исходный и каталог назначения). Например, PRT1 - исходный каталог, Arck_PRT1 - каталог назначения. В PRT1 периодически попадают текстовые файлы (иногда по одному, а иногда и сразу по нескольку) - *.prt. По мере поступления в каталог PRT1 их нужно распечатывать на принтере и копировать в Arck_PRT1. Причем, в каждом из этих файлов отсутствуют CR и LF (символы возврата каретки и переноса строки). Поэтому, в каждом файле при печати нужно вставлять символы CR и LF после 81 символа, например. Т.е., каждый файл нужно распечатывать, нарезая строки по 81 символу. Ну, а в самом конце, что осталось. Как это лучше сделать и более оптимально с использованием BAT-команд ? 0

@alexansh1 0 / 0 / 0 Регистрация: 02.04.2013 Сообщений: 31
	21.09.2015, 12:17 [ТС]
	Имею в виду, распечатать содержимое всего файла не одной "длинной" строкой, которая в нем содержится, а отдельными строками с фиксированной длиной в 81 символ. Т.е., "порезать" "длинную" строку файла и выдать на печать. 0

@alexansh1 0 / 0 / 0 Регистрация: 02.04.2013 Сообщений: 31
	22.09.2015, 17:08 [ТС]
	Спасибо, Garry за то, что откликнулись на мое обращение. Powershell не использовал ранее. Посмотрю, что это такое. Надо попробовать. 0

@alexansh1 0 / 0 / 0 Регистрация: 02.04.2013 Сообщений: 31
	24.09.2015, 10:15 [ТС]
	Да, на unix можно писать скрипты. Я знаю. "с помощью одного из этих средств..." - Какого из средств ? Это у Вас просто комментарий, что в unix-овых инструментальных средствах можно написать красиво ? Я знаю. Но здесь-то я обращаюсь за помощью в решении конкретной задачи. 0