Cómo cambiar el nombre de archivos: eliminar el nombre y conservar el número

Question

Necesito cambiar el nombre de muchos archivos que contienen un nombre y un número de placa.

Los archivos se ven así: "John Doe 1234.txt" y debo cambiarle el nombre a 1234.txt
(el nuevo archivo debe contener solo el número de placa).
Además, el número de placa no es fijo, puede contener entre 3 y 4 números.

Actualización: el nombre de archivo contiene 2-3 nombres separados por espacios. Por ejemplo: "John Doe 123.txt" o "John Junior Doe 1234.txt"

Estaba pensando en eliminar todas las letras y espacios del nombre y conservar solo los números, pero no conozco Powershell lo suficientemente bien.

¿Puede alguien ayudarme?

Answer 1

Nombres de archivosno puedocontiene caracteres especiales ( /\:*?"<>|), pero puede contener caracteres como %y !que pueden provocar cmd.exeuna intercepción errónea, por lo que el código no es infalible. EL CÓDIGO AHORA ES INfalible.

@echo off
SETLOCAL ENABLEDELAYEDEXPANSION

set "dir=YOUR DIRECTORY HERE"
set "_output="
set "map=0123456789"

pushd "%dir%"

FOR %%a in (*.txt) do (
    SETLOCAL
    set "file=%%~na"
    1>temp.log echo(!file!
    for %%b in (temp.log) do set /A len=%%~zb-2
    del /F /Q temp.log
    for /L %%A in (0 1 !len!) do (
        for /F "delims=*~ eol=*" %%? in ("!file:~%%A,1!") do if "!map:%%?=!" NEQ "!map!" set "_output=!_output!%%?"
    )
    ren "!file!.txt" "!_output!.txt"
    ENDLOCAL
)
ENDLOCAL

Captura de pantalla:

---

Nota: sólo puede manejar hasta 31 archivos, debido a laSETLOCAL MI SUPUESTO ERA EQUIVOCADO.Puede manejar infinitos archivos, gracias a los archivos emparejados SETLOCALy ENDLOCAL.

Answer 2

Suponiendo que todos los nombres de archivos tengan el formato "Primero, último número.txt

Tu puedes correr:

pushd "C:\Temp\su\"
dir | ? { $_.Name -like "*.txt" } | 
% { Rename-Item $_ "$($_.BaseName.split(' ')[2])$($_.Extension)" }
popd

Cambie la primera línea para que coincida con su ruta. (pegue el fragmento completo y presione enter dos veces)

Answer 3

Suponiendo que todos los archivos de entrada terminan con un espacio y luego al menos un dígito, esta parece ser otra forma más de hacer el trabajo. Aunque NO comprueba si hay números duplicados. [sonrisa]

Que hace ...

• define los directorios de origen y destino.
  Siempre estoy nervioso por dañar los archivos originales, por lo que estolos copiaen lugar derenombrarlos. Si desea hacerlo directamente, reemplace el Copy-Itemcon Rename-Item.
• crea algunos directorios y archivos de prueba y
  elimina toda esa región cuando esté listo para hacer cosas de verdad.
• define el tipo de archivo a capturar
• obtiene los archivos que coinciden con el filtro
• elimina cualquier archivo cuyos .BaseNameaccesorios NO terminen con un espacio y al menos un dígito
• divide .Basenamelos espacios y toma el último elemento en los resultados
• agrega el .Extensionaccesorio a lo anterior
• construye elnuevonombre de archivo completo
• copia el nombre de archivo completo ANTIGUO al nombre de archivo completo NUEVO
• el -PassThruen la Copy-Itemlínea envía información "creó un archivo" a la pantalla

el código ...

$SourceDir = "$env:TEMP\InFiles"
$DestDir = "$env:TEMP\OutFiles"

#region >>> make some test dirs & files
$SourceDir, $DestDir |
    ForEach-Object {
        $Null = mkdir -Path $_ -ErrorAction 'SilentlyContinue'
        }
# the last file is not to be worked on - wrong pattern
@'
FName LName 1234.txt
Alfa Bravo Charlie 89.txt
First Middle Last 666.txt
Wiki Tiki Exotica Music.txt
'@ -split [System.Environment]::NewLine |
    ForEach-Object {
        $Null = New-Item -Path $SourceDir -Name $_ -ItemType 'File' -ErrorAction 'SilentlyContinue'
        }
#endregion >>> make some test files

$Filter = '*.txt'
Get-ChildItem -LiteralPath $SourceDir -Filter $Filter -File |
    Where-Object {
        # filter out any basename that does NOT end with a space followed by at least one digit
        $_.BaseName -match ' \d{1,}$'
        } |
    ForEach-Object {
        # split on the spaces & take the last item from the resulting array
        $NewBaseName = $_.BaseName.Split(' ')[-1]
        $NewFileName = '{0}{1}' -f $NewBaseName, $_.Extension
        $FullNewFileName = Join-Path -Path $DestDir -ChildPath $NewFileName
        Copy-Item -LiteralPath $_.FullName -Destination $FullNewFileName -PassThru
        }

Answer 4

Puede hacer esto con un archivo por lotes utilizando el siguiente método.

Esto funcionará independientemente de cuántas letras y espacios haya al principio.

@echo off
setlocal enabledelayedexpansion

set "fPath=C:\test\my files\"

:: For each .txt file found in path %fPath% do....
for /F "tokens=*" %%a in ('DIR /B /ON "%fPath%*.txt"') do (
    echo Processing: %%a
    set "oName=%%a"
    set "fName=%%a"
    call :loop
)
echo Finished
endlocal
pause

:eof
exit /B



::=====================================================================
:: Check if the name is only numbers plus ".txt" on the end and if not, then remove the first character and check again.
:: If only numbers remaining, rename the original file. If no characters left then no match found and should go to next file.

:loop
if "!fName!"==".txt" exit /B
echo !fName!|findstr /r /c:"^[0-9]*\.txt$">nul
if !errorlevel! NEQ 0 set "fName=!fName:~1!" && goto :loop
ren "%fPath%%oName%" !fName!
exit /B