[Pavlo059]

как фио отделяется от служебной инфы. Из чего состоит служебная инфа. Пример нескольких реальных названий пожалуйста »

Иванов Иван Иванович Заявление.doc
Иванов Иван Иванович Уведомление.doc

[megaloman]

Если "Фамилия Имя Отчество Что то еще.doc" отделяются пробелами, то

Код:

@Echo Off &rem Cls
	Set "BoxIn=Z:\Box_In"
	Set "Mask=* * * *.doc"
	Set "BoxOut=Z:\Box_In"

	If Not Exist "%BoxIn%\" (Echo !!! Folder "%BoxIn%" not found &Pause &Exit /B 2) 
	If Not Exist "%BoxOut%\" (Echo !!! Folder "%BoxOut%" not found &Pause &Exit /B 2) 

	For /F "usebackq tokens=1,2,3* delims= " %%i In (`2^>nul Dir /B /A:-D "%BoxIn%\%Mask%"`) Do (
		If Not Exist "%BoxOut%\%%i %%j %%k" Md "%BoxOut%\%%i %%j %%k"
		>nul Move "%BoxIn%\%%i %%j %%k %%l" "%BoxOut%\%%i %%j %%k\" 
	)
pause
Exit /B 0

[Pavlo059]

Если "Фамилия Имя Отчество Что то еще.doc" отделяются пробелами, то »

Сработало, огромный респект!

[Daswerone]

Добрый день! прошу помощи!

Ситуация похожая с вышеописанными, но подработать под мои данные мозгов не хватает.

Программа выгружает файлы такого вида "текстовая часть""цифровая часть".pdf
-цифровая часть состоит из 8 символов (цифр), эта часть у всех файлов уникальна
-в текстовой части может быть что угодно, одинаковая текстовая часть встречается у нескольких файлов

задача чтобы положить в папку к этим файлам батник, запустить его и в этой же папке создались папки с именами "текстовых частей" файлов, а в них распределились файлы с соответствующими "текстовыми частями". то есть по несколько файлов в каждую папку.
но еще надо чтобы у раскиданных по папкам файлов из имени пропадала "текстовая часть" и оставалась только "цифровая часть"

[megaloman]

Код:

@Echo Off
cls
SetLocal EnableExtensions EnableDelayedExpansion
	Set "BoxIn=%~dp0"
rem	Set "BoxIn=Z:\Box_In"

	Set "Mask=.*[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]\.*.*"

	Pushd "%BoxIn%" ||(Echo !!! Folder "%BoxIn%" not found &Pause &Exit /B 2) 
	For /F "usebackq delims=" %%f In (`2^>nul Dir /B /A:-D ^|FindStr /B /R /C:"%Mask%"`) Do (
		Set "Name=%%~nf"
		Set "FName=!Name:~-8!"
		Call Set "Name=%%Name:  !FName!=!FName!%%"
		Call Set "Name=%%Name: !FName!=!FName!%%"
		2>nul Md "!Name:~0,-8!"
		>nul Call Move /Y "%%f" "!Name:~0,-8!\!FName!%%~xf"
	)
	Popd
pause
Exit /B 0

перед цифровой частью не должно быть более 3 пробелов

[Daswerone]

Это просто супер! работает!
но если честно между текстовой и числовой частью просто огромное количество пробелов, даже не знаю сколько
ограничение в 3 пробела это от винды? или можно как-то поправить

Все равно, огромнейшее СПАСИБО

[megaloman]

между текстовой и числовой частью просто огромное количество пробелов, даже не знаю сколько »

Сложность эти пробелы отрезать

Код:

@Echo Off
cls
SetLocal EnableExtensions EnableDelayedExpansion
	Set "BoxIn=%~dp0"
rem	Set "BoxIn=Z:\Box_In"

	Set "Mask=.*[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]\.*.*"

	Pushd "%BoxIn%" ||(Echo !!! Folder "%BoxIn%" not found &Pause &Exit /B 2) 
	For /F "usebackq delims=" %%f In (`2^>nul Dir /B /A:-D ^|FindStr /B /R /C:"%Mask%"`) Do (
		Set "Name=%%~nf"
		Call :Right "%%f" "!Name:~0,-8!" "!Name:~-8!%%~xf" 
	)
	Popd
pause
Exit /B 0

:Right
	Set "Txt=%~2"
	Set /A i=0
	:Begin
		Set /A i-=1
		If "!Txt:~%i%,1!"==" " GoTo :Begin
	Set /A i+=1
	If %i% Neq 0 Set "Txt=!Txt:~0,%i%!"
	2>nul Md "%Txt%"
	>nul Move /Y %1 "%Txt%\%~3"
Exit /B

[Daswerone]

megaloman,
Вы просто волшебник, работает на УРА!!! думаю многим пригодится.
еще раз спасибо!

[Deaded]

Добрый день!
Подскажите пожалуйста написать батник следующего формата
Есть куча папок , со вложенными файлами pdf
Пример: Иванов Иван Иванович 1969 года (внутри скан с названием например 6)
Петров Петр Петрович (в папке скан с именем Петров) и т.д.
Папок более 1000+

Нужно:
Скопировать только Сканы (пдф) в определенное место , переименовав их как название папки
Заранее спасибо

[DJ Mogarych]

Powershell v5

Код:

$otkuda = 'C:\temp\from'
$kuda = 'C:\temp\to'

dir $otkuda -Recurse -File |% {
    cp $_.FullName "$kuda\$($_.Directory.Name)$($_.Extension)"
}

Скрипт копирует файлы.
Чтобы он переносил их, замените cp на mv.