Любой язык - Замена лишних пробелов в имени директорий

Iska · Отправлено: **16:59, 18-10-2016** | #2

Одного уровня или искать и во вложенных?

Kazun · Отправлено: **17:01, 18-10-2016** | #3

Код:

Get-ChildItem C:\Temp -Recurse -Directory | Where {$_.Name -match "\s{2,}"} | Rename-Item -NewName {$_.FullName -replace "\s{2,}"," "}

Iska · Отправлено: **17:19, 18-10-2016** | #4

Kazun, Get-ChildItem сначала выберет всё, и только затем передаст объекты по конвейеру? Если так, то не случится ли так, что родительский каталог сменит имя, а дочерние не будут обработаны зараз?

Update: так и есть.

megaloman · Отправлено: **19:10, 18-10-2016** | #5

Скрипт удаляет все пробелы в наименованиях папок (спасибо замечанию Iska-я не до конца осознал проблему)

Код:

@Echo Off

Set "InDir=С:\Temp"

SetLocal EnableExtensions EnableDelayedExpansion
For /F "usebackq delims=" %%D In (`Dir "%InDir%" /B /S /A:D 2^>nul^|Sort /R`) Do (
	Set "DirName=%%~nxD"
   	Ren "%%D" "!DirName: =!" 
)

Iska · Отправлено: **20:06, 18-10-2016** | #6

Цитата megaloman:

|Sort /R »

Логично, коллега!

Только с заменой Вы переборщили

— надо не убирать все пробелы, а вместо нескольких оставлять единственный.

megaloman · Отправлено: **21:53, 18-10-2016** | #7

Этот скрипт оставляет в наименованиях папок не более одного пробела. Каюсь за недостаточно внимательное отношение к условию задачи

Код:

@Echo Off

Set "InDir=С:\Temp"

SetLocal EnableExtensions EnableDelayedExpansion
For /F "usebackq delims=" %%D In (`Dir "%InDir%" /B /S /A:D 2^>nul^|Sort /R`) Do (
	Set "DirName=%%~nxD"
	Call :Replace 
   	Ren "%%D" "!DirName!" 
)
GoTo :Eof

:Replace
	Set "iDirName=!DirName!"
	Set "DirName=!DirName:  = !"
	If Not "!iDirName!"=="!DirName!" GoTo :Replace
GoTo :Eof