Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 1274
Благодарности: 564

Профиль | Отправить PM | Цитировать


hancogruss,
Будьте внимательны! Основной файл будет удален, поэтому сделайте его копию в отдельную папку.
Во всех файлах будет по 1024 (или задайте свое) строки, кроме возможно последнего, уж сколько ему останется:
Код: Выделить весь код
@echo off
set "chs=1024"
set "f=file"& set "rf=txt"
:l
set/a b+=1
setlocal enabledelayedexpansion
 <"%f%%a%.%rf%">nul find/v "" || (del "%f%%a%.%rf%"& goto :eof)
 <"%f%%a%.%rf%">"%b%.%rf%" (for /f "delims=" %%a in ('more') do @set/a c+=1& if !c! leq %chs% echo %%a)
 <"%f%%a%.%rf%">"%f%%b%.%rf%" (more +%chs%)& del "%f%%a%.%rf%"
endlocal
set/a a+=1& goto l
exit/b
.
Это сообщение посчитали полезным следующие участники:

Отправлено: 05:14, 18-09-2016 | #5