[Artas28]

Естественно, вместо моих путей прописать Ваши реальные »

@Echo Off
cls
Set "BoxIn=C:\Newfolder\FileName.txt"
Set "BoxOut=C:\Newfolder\"
Set "Delim=O"

Set "OutFile=Err.txt"
FOR /F "usebackq delims=" %%i IN ("%BoxIn%") DO Call :Out "%BoxOut%" "%%i"
pause
Exit /B 0

:Out
Set "Str=%~2"
If "%Str:~0,1%"=="%Delim%" FOR /F "delims=(" %%j IN ("%Str%") DO (
Set "OutFile=%%j"
2>nul Del "%~1\%%j"
)
>>"%~1\%OutFile%" Echo %~2
Exit /B 0

Так?

[Iska]

что бы он файл называл не 1 или dest_1 а по названию программы в файле, если он вырезал O0003 то и файл будет называться 0003 или 3 или О0003 ? »

Код:

$sDelim = 'O'
(Get-Content -Path 'C:\Мои проекты\0257\Source.txt' -Raw) -split "`r`n$sDelim" |`
    ForEach-Object -Begin {
        $sDelim = ''
    } -Process {
        $sDestName = $sDelim + ($_ -split "`r`n")[0] -replace '\<|\>|:|"|/|\\|\||\?|\*', '_'
        Set-Content -Path "C:\Мои проекты\0257\$sDestName.txt" -Value $($sDelim + $_)
        if($sDelim -eq '') { $sDelim = 'O' }
    }

[megaloman]

Set "BoxOut=C:\Newfolder\" »

Без слэжа

Код:

Set "BoxOut=C:\Newfolder"