[deepred]

Seryoga204,

Код:

Echo on & Chcp 1251
Set "$SRS=F:\probe\переименование\1.txt"
Set "$DST=F:\probe\переименование\2.txt"

:loop
Set /a $num+=1
If /i %$num% GTR 6 goto :Eof
Set $Crt=^/%$num%000

For /f "tokens=*" %%a in ('^<%$SRS% Find /i "%$Crt%"') Do Echo %%a >> %$DST%
goto loop

[Seryoga204]

Спасибо большое все отлично работает, только батник не завершает работу, а по кругу отбирает записи?

[deepred]

Seryoga204,

почему не завершает? Сколько там у Вас записей с подобным критерием отбора?

goto :Eof »

- там не просто так...

[Seryoga204]

Все получилось! Спасибо!

[amel27]

Код:

FindStr /BRC:"/[1-6]000" 1.txt >2.txt

[Seryoga204]

amel27,Спасибо! а если еще надо строки которые начинаются со слова "Отдел", так чтобы в файле 2.txt сохранилась последовательность?

[amel27]

еще надо строки которые начинаются со слова "Отдел" »

зависит от исходной кодировки текстового файла, для DOS (OEM/866) всё просто:

Код:

FindStr /BRC:"/[1-6]000" /C:"Отдел" 1.txt >2.txt

для WIN (ANSI/1251) требуется промежуточная перекодировка во временный файл, типа:
(см. аттач, спецсимволы не дали корректно запостить код)

...либо вместо штатной FINDSTR использовать альтернативы типа GREP

[Seryoga204]

FindStr /BRC:"/[1-6]000" /C:"Отдел" 1.txt >2.txt

А можно сделать так:
чтобы также копировалась следующая строка идущая после строки удовлетворяющей условию?
и в файле 2.txt в начале скопированных строк прописывалось значение "999 "?

[amel27]

чтобы также копировалась следующая строка идущая после строки удовлетворяющей условию »

штатными средствами непросто, как вариант (текстовый файл в DOS-кодировке):

Код:

@echo off 
SetLocal EnableDelayedExpansion

set fi=1.txt
set fo=1.out

(for /f "tokens=1 delims=:" %%i in ('findstr /brnc:"/[1-6]000" /c:"Отдел" "%fi%"') do (
 set /a $j=%%i+1& for /f "tokens=1* delims=[]" %%a in (
'find /v /n ""^<"%fi%"^|findstr /bc:"[%%i]" /c:"[!$j!]"') do echo.%%b
)) >"%fo%"

вариант на SED (текстовый файл в WIN-кодировке):

Код:

set fi=2.txt
set fo=2.out

sed -n "/^\/[1-6]\|^Отдел/{p;n;p;}" "%fi%" >"%fo%"

вариант на AWK (текстовый файл в WIN-кодировке):

Код:

set fi=3.txt
set fo=3.out

awk "{p-=1};/^\/[1-6]|^Отдел/{p=2};p>0" %fi% >%fo%