[alpap]

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

[sdml]

Сколь раз делал что-то подобное всегда все нормально было. Происходит сортировка по имени, как она может быть разная?

[alpap]

дело ваше:

Код:

@echo off
set "sdir=C:\d"
set "ext1=ass"
set "ext2=mkv"

cd /d "%sdir%"
for /f "tokens=1* delims=[]" %%a in ('dir /a-d/b "*.%ext1%"^|find /n /v ""') do call :#_ren "%%a" "%%b"
pause& exit

:#_ren
  for /f "tokens=1* delims=[]" %%a in ('dir /a-d/b "*.%ext2%"^|find /n /v ""^|find "%~1"') do 2>nul ren "%%b" "%~n2%%~xb"
exit /b

[Iska]

На WSH:

Скрытый текст

Код:

Option Explicit

Dim objFSO
Dim objFile

Dim objDictMKV
Dim objDictASS

Dim arrMKV
Dim arrASS

Dim iMaxCount
Dim i


Set objFSO     = WScript.CreateObject("Scripting.FileSystemObject")

Set objDictMKV = WScript.CreateObject("Scripting.Dictionary")
Set objDictASS = WScript.CreateObject("Scripting.Dictionary")

For Each objFile In objFSO.GetFolder(WScript.CreateObject("WScript.Shell").CurrentDirectory).Files
	Select Case objFSO.GetExtensionName(objFile.Name)
		Case "mkv"
			objDictMKV.Add objFile.Name, ""
		Case "ass"
			objDictASS.Add objFile.Name, ""
		Case Else
			' Nothing to do
	End Select
Next

If objDictMKV.Count > 0 And objDictASS.Count > 0 Then
	arrMKV = objDictMKV.Keys
	arrASS = objDictASS.Keys
	
	If objDictMKV.Count <= objDictASS.Count Then
		iMaxCount = objDictMKV.Count
	Else
		iMaxCount = objDictASS.Count
	End If
	
	For i = LBound(arrMKV) To iMaxCount - 1
		WScript.Echo "Rename file [" & arrASS(i) & "] into [" & objFSO.GetBaseName(arrMKV(i)) & "." & objFSO.GetExtensionName(arrASS(i)) & "]."
		objFSO.MoveFile arrASS(i), objFSO.GetBaseName(arrMKV(i)) & "." & objFSO.GetExtensionName(arrASS(i))
	Next
Else
	WScript.Echo "Nothing found for renaming."
	WScript.Quit 1
End If

Set objDictASS = Nothing
Set objDictMKV = Nothing

WScript.Quit 0

[megaloman]

Еще вариант

Код:

@Echo Off
cls
	Set "File1=Z:\Box_In\*.ass"
	Set "File2=Z:\Box_In\*.mkv"

	Call :Mass "%File1%" "@ass" "N1" 
	Call :Mass "%File2%" "@mkv" "N2" 

	If Not "%N1%"=="%N2%" (Echo ??? Error!!!  N1=%N1%^<^>%N2%=N2 &Pause &Exit /B 2)
	For /L %%i In (1,1,%N1%) Do Call :MyRen "%%@ass%%i%%" "%%@mkv%%i%%"
pause
Exit /B 0

:Mass
	Set /A @N=0
	For /F "usebackq delims=" %%f In (`2^>nul Dir %1 /B /A:-D /O:N`) Do Set /A @N+=1 &Call Set "%~2%%@N%%=%~dp1%%f"
	Set /A %~3=%@N%
Exit /B

:MyRen
	Ren %1 "%~n2%~x1"
Exit /B

[sdml]

Предложенный alpap вариант не работает, если в именах есть квадратные скобки и собственно переименование по-моему не в ту сторону. Но на основе его варианта сделал свой велосипед.

Код:

@echo off
SETLOCAL EnableDelayedExpansion
set /a i = 0
for %%a in (*.ass) do (
set /a i += 1
call :#_ren !i! "%%a"
)

:#_ren
set /a j = 0
for %%b in (*.mkv) do (
set /a j += 1
if !j! equ %1 (
ren %2 "%%~nb%~x2"
exit /b
)
)

Все отрабатывает как надо, только 1й цикл почему то заходит на 2й круг когда уже все переименовано и все это завершается сообщением об ошибке.
Потестил вариант megaloman - вроде ОК. Как тут хитро с массивами сделано...

[alpap]

если в именах есть квадратные скобки »

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

[megaloman]

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

Всегда можно подобрать данные, способные одурачить любую программу

Например, SETLOCAL EnableDelayedExpansion приведет к ошибкам при наличии в имени файла ! Знака. Часто убеждаюсь, что иной раз надежнее при всяких копированиях/переименованиях прописывать chcp 1251 - меньшее количество символов, на которых батник не отработает. При этом возможны проблемы с xcopy и каким-то из find.
Имхо, надо понимать, где шагаешь, чтобы не втоптаться. Постановка ...

[Iska]

megaloman, отчасти потому я по-прежнему предпочитаю WSH: на порядок меньше шансов, что что-то где-то когда-то «рванёт» из-за того, что на пакетных файлах вообще нет строк, а PowerShell пользует С-шную логику для строк.