[mwz]

G4X0.5 M99 O0021 M70 »

— по этому О тоже должно резать?

[Artas28]

— по этому О тоже должно резать? »

Да.

[megaloman]

Код:

@Echo Off
cls
	Set "BoxIn=Z:\Box_In\infile.txt"
	Set "BoxOut=Z:\Box_Out"
	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

[YuS_2]

Т.е. если в программе присутствует O, то он должен от неё и до другого O, вырезать эту часть текста и создать новый документ с этим текстом. »

powershell

Код:

gc test.txt|%{$i=0;$name="$i"+'.txt'}{if($_ -match '^O'){$i++;$name = "$i"+'.txt'};$_|ac $name}

[Iska]

PowerShell, токмо через split:

Код:

# gc test.txt|%{$i=0;$name="$i"+'.txt'}{if($_ -match '^O'){$i++;$name = "$i"+'.txt'};$_|ac $name}
(Get-Content -Path 'C:\Мои проекты\0257\Source.txt' -Raw) -split "`r`nO" |`
    ForEach-Object -Begin {
        $i = 0
    } -Process {
        $i++
        Set-Content -Path "C:\Мои проекты\0257\Dest_$i.txt" -Value $('O' + $_)
    }

[Artas28]

Спасибо!

[Artas28]

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

[Artas28]

вроде бы у меня сделано именно так! »

А через какую программу запускать этот код?
в PowerShell работать будет?

[megaloman]

Artas28,

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

вроде бы у меня сделано именно так!

А через какую программу запускать этот код? »

Сохранить код в файл с расширением .bat и запускать как любой другой исполнимый файл. Естественно, вместо моих путей прописать Ваши реальные