Цитата DJ Mogarych:
У первой строки есть совпадения с пятой и шестой, и я вам выше показал, как это выглядит с точки зрения компьютера.
Решение вашей задачи тоже приведено.
|
Да, это я был невнимателен. Спасибо, все работает!
Цитата 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
|
Ваш код тоже отлично работает, только не задаёт файлам расширение txt, у себя подправил, спасибо!
