Как создать пакетный файл для переименования большого количества файлов в папке?

Я хотел бы переименовать большое количество файлов в папке в системе WinXP, предпочтительно используя командный файл.

В настоящее время файлы называются такими:

Vacation2010 001.jpg
Vacation2010 002.jpg
Vacation2010 003.jpg

И я хотел бы изменить их на:

Декабрь 001.jpg
Декабрь 002.jpg
Декабрь 003.jpg

Как я могу выполнить эту операцию?

Ответы

Ответ 1

@echo off
SETLOCAL ENABLEDELAYEDEXPANSION
SET old=Vacation2010
SET new=December
for /f "tokens=*" %%f in ('dir /b *.jpg') do (
  SET newname=%%f
  SET newname=!newname:%old%=%new%!
  move "%%f" "!newname!"
)

Что это делает, он перебирает все файлы .jpg в папке, где находится командный файл, и заменяет Vacation2010 на декабрь внутри имен файлов.

Ответ 2

dir /b *.jpg >file.bat

Это даст вам строки, такие как:

Vacation2010 001.jpg
Vacation2010 002.jpg
Vacation2010 003.jpg

Отредактируйте file.bat в любимом Windows текстовый редактор, выполняя эквивалент:

s/Vacation2010(.+)/rename "&" "December \1"/

Это regex; многие редакторы поддерживают их, но ни один из них не работает по умолчанию с Windows (насколько я знаю). Вы также можете получить инструмент командной строки, такой как sed или perl, который может получить точный синтаксис, который у меня выше, после выхода из командной строки.

Результирующие строки будут выглядеть так:

переименовать "Vacation2010 001.jpg" "December 001.jpg"
переименовать "Vacation2010 002.jpg" "December 002.jpg"
переименовать "Vacation2010 003.jpg" "Декабрь 003.jpg"

Вы можете распознать эти строки как команды переименования, по одному на файл из исходного списка.;) Запустите этот пакетный файл в cmd.exe.

Ответ 3

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

Set objFS = CreateObject("Scripting.FileSystemObject")
strFolder="c:\test"
Set objFolder = objFS.GetFolder(strFolder)
For Each strFile In objFolder.Files
    If objFS.GetExtensionName(strFile) = "jpg" Then    
        strFileName = strFile.Name
        If InStr(strFileName,"Vacation2010") > 0 Then           
            strNewFileName = Replace(strFileName,"Vacation2010","December")
            strFile.Name = strNewFileName
        End If 
    End If  
Next 

сохранить как myscript.vbs и

C:\test> cscript //nologo myscript.vbs 

Ответ 4

@ECHO off & SETLOCAL EnableDelayedExpansion

SET "_dir=" REM Must finish with '\'
SET "_ext=jpg"
SET "_toEdit=Vacation2010"
SET "_with=December"
FOR %%f IN ("%_dir%*.%_ext%") DO (
    CALL :modifyString "%_toEdit%" "%_with%" "%%~Nf" fileName 
    RENAME "%%f" "!fileName!%%~Xf"
)
GOTO end

:modifyString what with in toReturn
    SET "__in=%~3"
    SET "__in=!__in:%~1=%~2!"
    IF NOT "%~4" == "" (
        SET %~4=%__in%
    ) ELSE (
        ECHO %__in%
    )
    EXIT /B

:end

Этот script позволяет вам изменить имя всех файлов, содержащих Vacation2010 с тем же именем, но с December вместо Vacation2010.

Если вы скопируете и вставьте код, вы должны сохранить .bat в той же папке с фотографиями. Если вы хотите сохранить script в другом каталоге [E.G. у вас есть любимая папка для утилит], вам нужно изменить значение _dir с помощью пути к фотографиям.

Если вам нужно сделать ту же работу для других фотографий [или других файлов changig _ext], вам нужно изменить значение _toEdit на строку, которую вы хотите изменить [или стереть], и значение _with с строкой, которую вы хотите поместить вместо _toEdit [SET "_with=", если вы просто хотите удалить строку, указанную в _toEdit].

Ответ 5

Вам не нужен командный файл, просто сделайте это из powershell:

powershell -C "gci | % {rni $_.Name ($_.Name -replace 'Vacation2010', 'December')}"