Ms-Dos - Renombrar archivos eliminar texto desde el último espacio

 
Vista:
sin imagen de perfil
Val: 1
Ha disminuido 1 puesto en Ms-Dos (en relación al último mes)
Gráfica de Ms-Dos

Renombrar archivos eliminar texto desde el último espacio

Publicado por Adonet (1 intervención) el 02/09/2018 11:20:20
Hola! estoy automatizando para que un .bat me renombre todos los archivos .doc de una carpeta de la siguiente manera:

Mi archivo estonomeinteresa.doc --> Mi archivo.doc
Esto es otro ejemplo yestoloquieroborrar.doc --> Esto es otro ejemplo.doc

alguna idea para determinar como borrar a partir del último espacio?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.419
Oro
Ha mantenido su posición en Ms-Dos (en relación al último mes)
Gráfica de Ms-Dos

Renombrar archivos eliminar texto desde el último espacio

Publicado por Antoni Masana (811 intervenciones) el 03/09/2018 07:11:08
Este es el bat:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
@echo off
For %%a in (*.doc) do call :Ren  "%%a"  %%~na
goto :eof
 
:Ren
   set Orig=%1
   set Dest=
   Shift
 
:Destino
   IF not "%2" == "" set Dest=%Dest% %1
   IF     "%2" == "" Goto Copia
   shift
   goto Destino
 
:Copia
   set Dest=%Dest:~1%
   REN  %Orig% "%Dest%.doc"

Y este seria el resultado
1
2
REN  "Esto es otro ejemplo yestoloquieroborrar.doc" "Esto es otro ejemplo.doc"
REN  "Mi archivo estonomeinteresa.doc" "Mi archivo.doc"

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar