[deepred]

Seryoga204,

на скорую руку, хотя надо еще попробовать с enableddelayedexpansion. Какая у Вас ОС?

Код:

Echo on & [b]Chcp 1251[b]
Set "$SRS=F:\probe\переименование\001" & rem папка источник
Set "$DST=F:\probe\переименование\002" & rem папка приемник

Cd %$SRS%
For /f %%a in ('Dir /b %$SRS%') Do ^
For /f "skip=1" %%b in (%%~a) Do ^
call :RNCOPY "%%b" "%%a"
goto :EOF
:RNCOPY
Set $nm=%~1
Set $nm=%$nm:~9,6%
Copy "%~2" "%$DST%\%$nm%~x2"

[Seryoga204]

Какая у Вас ОС?

Win XP.SP3
вот log

Код:

L:\TOOLS\Print>Echo on   & Chcp 866
Текущая кодовая страница: 866

L:\TOOLS\Print>Set $SRS="L:\1"   & rem яряър шёЄюіэшъ

L:\TOOLS\Print>Set $DST="L:\2"   & rem яряър яЁшхьэшъ

L:\TOOLS\Print>Cd "L:\1"

L:\1>For /F %a in ('Dir /b "L:\1" ') Do For /F "skip=1" %b in (%~a) Do call :RNC
OPY "%b" "%a"

L:\1>For /F "skip=1" %b in (0000) Do call :RNCOPY "%b" "0000"

L:\1>call :RNCOPY "отделы" "0000"

L:\1>Set $nm=отделы

L:\1>Set $nm=

L:\1>Copy "0000" ""L:\2" \~x2"
Системе не удается найти указанный путь.
Скопировано файлов:         0.

[Seryoga204]

Строка №2 содержит пробелы?

пример: отделы отчетный № 8456/2060
хотелось чтобы файл назывался 2060.txt

"Chcp 1251"

Файлы в досовской кодировке, или это не влияет?

[Seryoga204]

deepred, Спасибо большое! Подскажите пожалуйста как на первом примере вытащить из файла не первое слово 2-ой строки, а всю строку

Код:

1>call :RNCOPY "отделы отчетный № 8456/2060" "0000"

[Seryoga204]

deepred,

Код:

Код:  Echo on & Chcp 866 
Set $SRS="F:\probe\переименование\001"  
Set $DST="F:\probe\переименование\002"    
Cd %$SRS%  For /f %%a in ('Dir /b %$SRS%') Do ^  
For /f "skip=1 tokens=2 delims=/" %%b in (%%~a) Do ^  
Copy "%%a" "%$DST%\%%b%%~xa"  
pause

Почему то берется название не со второй строки, а почти со всех где в тексте есть "/".
Из 20 файлов в папке "F:\probe\переименование\002" появилось 4900 шт.
Первый пример берет название из нужной (из второй строки), но лиш первое слово "отделы", а надо из второй строки : "отделы отчетный № 8456/2060............................" извлечь 2060 (с 24-ого по 27-ой символ). Структура второй строки во всех файлах одинаковая. Буду эксперементировать. Спасибо.

[deepred]

Seryoga204,

в них самих во второй строке с 10 по 15 знак. »

отделы отчетный № 8456/2060 »

вытащить из файла не первое слово 2-ой строки, а всю строку »

а надо из второй строки : "отделы отчетный № 8456/2060............................" извлечь 2060 (с 24-ого по 27-ой символ) »

приведите, что у Вас во второй строке полностью и пример последующих строк..., на этом раз счет символов именно тот, который нужно извлекать?

[Seryoga204]

Вот пример файлика, кол-во строк может быть разным, но структура первых трех всегда одинаковая.

в них самих во второй строке с 10 по 15 знак.

- обшибся в начале, надо имено

"отделы отчетный № 8456/2060" извлечь 2060 даже не (с 24-ого по 27-ой символ) а с 25-ого по 28-ой символ (там есть два пробела вместе)

[deepred]

Seryoga204,

попробуйте:

Код:

Echo on & Chcp 1251
Setlocal EnabledelayedExpansion
Set "$SRS=F:\probe\переименование\001\" & rem папка источник
Set "$DST=F:\probe\переименование\002\" & rem папка приемник

Cd %$SRS%
For /f %%a in ('Dir /b %$SRS%') Do ^
For /f "skip=1" %%b in (%$SRS%%%~a) Do (
set /a $N+=1
call :RNCOPY "%%b" "%%a")
goto :EOF


:RNCOPY
If /i %$N% GTR 1 set $N=0 & goto :Eof
Set $nm=%~1
Set $nm=%$nm:~23,4%
Copy "%$SRS%%~2" "%$DST%%$nm%%~x2"

предыдущие посты с кодами я удалил - условиям задачи они не соответствуют... (да я уже на них смотрю и не понимаю, что сделать надо было....)

[gora]

deepred, немного упростил и подправил Ваш вариант:

Код:

Echo on & Chcp 1251
Setlocal EnabledelayedExpansion
Set "$SRS=F:\probe\переименование\001\" & rem папка источник
Set "$DST=F:\probe\переименование\002\" & rem папка приемник

Cd %$SRS%
For /f %%a in ('Dir /b %$SRS%') Do call :RNCOPY "%%a"
goto :EOF

:RNCOPY
For /f "skip=1 tokens=*" %%b in (%$SRS%%~1) Do (
	Set $nm=%%b
	Set $nm=!$nm:~24,4!
	Copy "%$SRS%%~1" "%$DST%!$nm!%~x1"
	goto :Eof
)