[DJ Mogarych]

Читали? http://forum.oszone.net/forumdisplay...ilter_by=title

[Wicked43]

Я в принципе нашел решение данного вопроса на форуме но батник не работает с символом %. Приходится через нотепад заменять % на # и уже тогда все начинает работать. Но хочется исключить нотепад из цепочки.
Использовал несколько готовых решений. Я далек от этой темы если честно.

ren *.anc *.txt

@echo off
set "f=file.txt"

setlocal enabledelayedexpansion
<"%f%" (for /f "delims=" %%a in ('find /v ""') do @echo %%a|>nul find "#" && (set /a n+=1& rem:>"f!n!.txt") || (if exist "f!n!.txt" >>"f!n!.txt" echo:%%a))

endlocal
del /f /s /q file.txt,f2.txt,f4.txt,f6.txt,f8.txt,f10.txt,f12.txt,f14.txt,f16.txt,f18.txt,

setlocal enabledelayedexpansion
set "count=1001"
set a="*.txt"
for /f "usebackq delims=*" %%f in (`dir /b /o:-d %a%`) do (ren "%%f" list-!count:~1!.anc
set /a count+=1
)
pause>nul

[megaloman]

Код:

@Echo Off &Cls
	Set "FileIn=Z:\Box_In\file.anc"
	Set "BoxOut=Z:\Box_Out"

	Set /A N=0, M=0
	For /F "usebackq delims=" %%i In (`2^>nul More "%FileIn%"`) Do Call :Out "%FileIn%" "%%i"
Pause
Exit /B

:Out
	If %2=="" If %N% EQU 0 (Set /A M+=1, N=1 &Exit /B) Else (Set /A N=0 &Exit /B)
	If %N% EQU 1 2>nul Del "%BoxOut%\%~n1%M%%~x1" 
	Set /A N+=1
	>>"%BoxOut%\%~n1%M%%~x1" Echo %~2
Exit /B

Вариант с лидирующими нулями в номере файла

Код:

@Echo Off &Cls
	Set "FileIn=Z:\Box_In\file.anc"
	Set "BoxOut=Z:\Box_Out"

	Set /A N=0, M=1000
	For /F "usebackq delims=" %%i In (`2^>nul More "%FileIn%"`) Do Call :Out "%FileIn%" "%%i"
Pause
Exit /B

:Out
	If %2=="" If %N% EQU 0 (Set /A M+=1, N=1 &Exit /B) Else (Set /A N=0 &Exit /B)
	If %N% EQU 1 2>nul Del "%BoxOut%\%~n1%M:~-3%%~x1" 
	Set /A N+=1
	>>"%BoxOut%\%~n1%M:~-3%%~x1" Echo %~2
Exit /B

[DJ Mogarych]

Powershell

Код:

$inputFile = 'C:\temp\file.anc'
$outputFolder = 'C:\temp'
$enc = @{
    Encoding = 'default'
}

$c = 1
gc $inputFile |% {
$outputFile = "$outputFolder\file$($c).anc"
    if ($_ -eq '%') {
        if ($writing) {
            $writing = $false
            "%" |Out-File $outputFile @enc -Append
            $c++
        }
        else {
            $writing = $true
            "%" |Out-File $outputFile @enc
        }
    }
    else {
        $_ |Out-File $outputFile @enc -Append
    }
}

[Sham]

со split'ом ещё

Код:

$file = 'file.anc'
(Get-Content $file -Raw).trim('%') -split '%\r?\n?%' |
  ForEach-Object {
    '%{0}%' -f $_ |
    Set-Content -Path ($file -replace '\.\w+$', "$(++$c; $c)$&")
  }

[Wicked43]

всем огромное спасибо. Все работает