[DJ Mogarych]

Powershell

Код:

$dir = "C:\temp\in"

$files = dir $dir
foreach ($f in $files) {
    $n = ($f.BaseName -replace '\D').Substring(0,14)
    $newName = "$($n.Substring(0,4))-$($n.Substring(4,2))-$($n.Substring(6,2)) $($n.Substring(8,2))-$($n.Substring(10,2))-$($n.Substring(12,2))$($f.extension)"
    $f |Rename-Item -NewName $newName
}

[YuS_2]

DJ Mogarych, только тут проще переводить всё в дату-время и форматировать выход, чем сабстринить посимвольно

Код:

...
     $n = [datetime]::parseexact(($f.BaseName -replace '\D').Substring(0,14),'yyyyMMddHHmmss',$null)
     $newName = get-date($n) -f 'yyyy-MM-dd HH-mm-ss'
...

[megaloman]

Код:

@Echo Off &Cls &>nul Chcp 1251
	Set "BoxIn=Z:\Soft_Arc"
	Set "Mask=*.*"
	Set "Reg=20[0-9][0-9]-*[0-2][0-9]-*[0-3][0-9]-*_*[0-2][0-9]-*[0-5][0-9]-*[0-5][0-9]"

	Pushd "%BoxIn%"||(Echo Folder "%BoxIn%\" not found &Pause &Exit /B 2)
		For /F "usebackq delims=" %%f In (`2^>nul Dir "%Mask%" /B /A:-D ^|Findstr /R /C:"%Reg%"`) Do Call :MyRen "%%f"
	Popd
Pause
Exit /B

:MyRen
	Set "Name=%~1"
	Echo %Name%|>nul FindStr /R /C:"^20[0-9][0-9]"||Set "Name=%Name:*_=%"
	Set "Name=%Name:_=%"
	Set "Name=%Name:-=%"
	Ren %1 "%Name:~0,4%-%Name:~4,2%-%Name:~6,2% %Name:~8,2%-%Name:~10,2%-%Name:~12,2%%~x1" 
Exit /B

[Super_Kolobok]

Спасибо