[Iska]

Запускаем пакетный файл и получаем в папке "B" файлы с именами 1.mp4, 2.mp4, 3.mp4, 20.mp4, 25.mp4 Содержимое файлов mp4. абсолютно одинаковое, поэтому не важно в какой последовательности они будут переименованы. »

И по какому принципу устанавливать соответствие между файлами в A и B?

[dedylka]

А что вы имеете ввиду под соответствием?

какой файл mp3 в "А" соответствует файлу mp4 в "B"? это не важно, как я написал, все файлы mp4 одинаковые. Главное, чтобы в "B" по итогу были файлы с такими же именами, как и в "A", кроме расширения.

[Iska]

Тогда зачем их там делать несколько штук? Или больше, чем есть mp3-файлов? Пусть один и будет.

На WSH:

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

Код:

Option Explicit

Dim strSourceFolder
Dim strDestFolder

Dim objFSO
Dim objFile
Dim objFile2
Dim boolFound


strSourceFolder = "C:\Мои проекты\0252\A"
strDestFolder   = "C:\Мои проекты\0252\B"

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

If objFSO.FolderExists(strSourceFolder) Then
	If objFSO.FolderExists(strSourceFolder) Then
		boolFound = False
		
		For Each objFile2 In objFSO.GetFolder(strDestFolder).Files
			If StrComp(objFSO.GetExtensionName(objFile2.Name), "mp4", 0) = 0 Then
				boolFound = True
				
				Exit For
			End If
		Next
		
		If boolFound Then
			boolFound = False
			
			For Each objFile In objFSO.GetFolder(strSourceFolder).Files
				If StrComp(objFSO.GetExtensionName(objFile.Name), "mp3", 0) = 0 Then
					boolFound = True
					objFile2.Copy objFSO.BuildPath(objFile2.ParentFolder, objFSO.GetBaseName(objFile.Name) & "." & objFSO.GetExtensionName(objFile2)), True
				End If
			Next
			
			If boolFound Then
				objFile2.Delete True
			End If
		Else
			WScript.Echo "Need at least one mp4 file in destination folder [" & strDestFolder & "]."
			WScript.Quit 3
		End If
	Else
		WScript.Echo "Can't find destination folder [" & strDestFolder & "]."
		WScript.Quit 2
	End If
Else
	WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
	WScript.Quit 1
End If

Set objFSO = Nothing

WScript.Quit 0

Может, лучше опишете саму задачу?

[dedylka]

Может, лучше опишете саму задачу? »

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

На WSH »

Простите, я не настоящий сварщик( Чтобы запустить этот скрипт нужно дополнительное ПО?

[Iska]

Чтобы запустить этот скрипт нужно дополнительное ПО? »

Нет. Сохранить в файл с расширением .vbs и запустить.

dedylka, вопрос по:

некоторая часть mp4 файлов одинаковая, »

А какая? Вообще, по уму, при одинаковости файлов, я бы даже не копии делал, а жёсткие ссылки на оригинал создавал, которые не занимают места на диске. Но тут уже, наверное, PowerShell будет потребен.

[alpap]

Код:

@echo off
set "dirA=A"
set "dirB=B"

setlocal enabledelayedexpansion
 for /f "delims=" %%a in ('dir /a-d/b "%dirA%\*"') do set /a "n+=1,nx=n+1,x=0"& set "c!n!=%%~na"
 for /f "delims=" %%a in ('dir /a-d/b "%dirB%\*"') do set /a m+=1& set "l!m!=%%a"& call :# "%%l!m!%%" "%%c!m!%%" "%dirA%" "%dirB%"
endlocal
pause& exit
 
:#
 if not "%~2"=="" (set "z=%~2") else (set /a x+=1& if not !x!==%nx% (call set "z=%%c!x!%%") else (set /a x=0& goto #))
 pushd "%~4"
  if not exist "%z%%~x1" ren "%~1" "%z%%~x1"
 popd
exit /b

если стр.14 изменить так

Код:

if not exist "%~n1_%z%%~x1" ren "%~1" "%~n1_%z%%~x1"

код будет переименовывать файлы в "B" именами файлов из "A" по кругу вот так
Файл 156828

[dedylka]

А какая? »

совсем небольшая, буквально капля в море, но требующая внимания, поэтому хочется этот процесс автоматизировать.

Нет. Сохранить в файл с расширением .vbs и запустить. »

спасибо большое, я протестировал скрипт, но он у меня отрабатывает немного некорректно(
он переименовывает первый файл, а дальше видимо копирует его столько раз сколько файлов в папке A и называет нужными именами, при этом остальные файлы в папке B, которые не были переименованы просто оставляет.
Таким образом папка B очень скоро будет завалена файлами(

[R.i.m.s.k.y.]

помогите, пожалуйста, с батником для переименования

Суть: нужно перекодировать dts в ас3
из dts вытаскиваем wav программой eac3to, она выдает файлы вида
2eng.C.wav
2eng.L.wav
2eng.LFE.wav
2eng.R.wav
2eng.SL.wav
2eng.SR.wav
а программа кодировщик хочет
2eng C.wav
2eng L.wav
2eng LFE.wav
2eng R.wav
2eng Ls.wav
2eng Rs.wav
т.е. после 2eng вместо точки поставить пробел и два файла переименовать:
2eng.SL.wav -> 2eng Ls.wav
2eng.SR.wav -> 2eng Rs.wav

имена вавок 2eng могут быть произвольными (с точками и пробелами), но концовка всегда .C .L .R .SL .SR

F1!

[megaloman]

dedylka, Попробуйте. Пути пропишИте свои без \ на конце

Код:

@Echo Off
	Set "FMP3=Z:\Box_In"
	Set "EMP3=mp3"

	Set "FMP4=Z:\Soft_In"
	Set "EMP4=mp4"

	Set /A N=1000000
	FOR %%f IN ("%FMP4%\*.%EMP4%") DO Ren "%%f" "~%%~nxf"
	FOR %%f IN ("%FMP4%\*.%EMP4%") DO Set /A N+=1 &Call Ren "%%f" "MP4@%%N%%.%EMP4%"

	Set /A N=1000000
	FOR %%f IN ("%FMP3%\*.%EMP3%") DO Set /A N+=1 &>nul 2>&1 Call Ren "%FMP4%\MP4@%%N%%.%EMP4%" "%%~nf.%EMP4%"
GoTo :Eof