Цитата megaloman:
Код:
@Echo Off &Cls &>nul Chcp 1251
Set "FileIn=Z:\Box_In\allstring.txt"
Set "BoxOut=Z:\Box_Out"
For /F "usebackq delims=" %%s In (`2^>nul More "%FileIn%"`) Do (
Call :Out "%%s"
)
Pause
Exit /B
:Out
Set "Name=%~1"
(>>"%BoxOut%\%Name:~0,19%" Echo %~1)
Exit /B
|
Почему то при большом исходном файле (около 2500 строк) картина немного другая. Пробовал несколько раз, создаётся 11-15 файлов, каждый раз по разному (если разделить вручную, то выходит около 40). При этом в консоль выводит информацию Процесс не может получить доступ к файлу. Количество проверяемых символов я изменил до 16, но проблема была и до изменения.