Foro de elhacker.net

Hola amigos ¿como seria un bat que me borre los 4 ultimos caracteres de todos los archivos .xls contenidos en una carpeta? osea que me modifique los nombres de los archivos, por cierto los 4 ultimos caracteres siempre son .ctk (ojo que no es extensión la extension en si siempre es .xls)

Un saludo y gracias

quieres cambiar la extensión o el nombre.

Igual es complicado, porque que pasa si el nombre tiene 4 caracteres, ¿lo dejarás en nada?

Si lo hicieses en VBS sería más fácil.

Solo quiero cambiarle el nombre y todos los archivos xls siempre tienen nombres de mas de 4 caracteres estuve leyendo algo en este link sobre caracteres:

http://multingles.net/docs/bats.htm

Pero igual no se como aplicarlo ¿como seria en VBS? el detalle tambien es que voy a meterle otras ordenes a este .bat y ps tendria que repasar VBS desde cero y ps medio que le agarre un poco la onda a los script .bat

Un saludo y gracias

Un ejemplo de utilidad:

@echo off
set /p ext=Extension?
set /p cant=Cantidad final de caracteres?
call :len %ext%
set /a cnt2=%a%+%cant%
for %%a in (*.%ext%) do call :cll %%a
exit
:cll
set name=%1
call :len %1
if /I %a% geq %cnt2% (
	call set newn=%%name:~0,%cant%%%.%ext%
	ren %name% %newn%
)
goto :EOF
 
:len
if %1'==' goto :EOF
set w=%1
set a=0
set bol=0
:lp
call :cnt "%%w:~%a%,1%%" %a%
if %bol%==1 goto :EOF
set /a a=%a%+1 
goto lp
:cnt
set cur=%1
set len=%2
if %cur%a==""a (
	echo %len%
	set bol=1
)
goto :EOF

Saludos!

estamos trabajando para usted :D
espera que estoy haciendo pruebas.

@echo off
for %%a in (*.xls) do call :cll %%a
pause
exit
 
:cll
set name=%1
set t=%name:~-8%
call set fin=%%name:%t%=%%
ren %name% %fin%.xls
goto :EOF

Saludos!

menos lineas:

@echo off
for %%a in (*.xls) do (call :fr %%a)
pause&& exit
:fr
set act=%1
set nu=%act:.ctk=%
ren "%act%" "%nu%"
goto :EOF

Saludos!

Hola the shadow muchas gracias por la ayuda pero no me esta funcionando, me sale "el sistema no puede hallar el archivo especificado" varias veces
Un saludo y gracias de nuevamente

q code estas tratando de usar???

En este caso, para lo que quiere hacer, realmente no se si sea la mejor opciòn, creo que me quedo con batch  :P (solo en este caso XD)
Pero como ejemplo....

set objfso = createobject("scripting.filesystemobject")
set carpeta = objfso.getfolder("D:\Prueba")
set archivos = carpeta.files
for each f in archivos
objfso.movefile carpeta.path & "\" & f.name,carpeta.path & "\" & replace(f.name,".ctk","")
next
msgbox "Terminado"

Sería la ruta completa a la carpeta donde están los archivos  ;D

Saludos

El ultimo que pusistes aunque el penultimo tampoco me funciona
Un saludo

Hola Novlucker si funciono aunque siempre me quedare con la duda de como seria con un .bat

Un saludo y mil gracias nuevamente

[modificado]

He dejado un nuevo code, que cumple mejor los objetivos, en este mismo post más adelante.

Ejecutaste el .bat en la misma carpeta donde estan los *.ctk.xls??? . . .

akabo de revisar, y no ay errores . . . ademas . . . tmb me funka perfecto. . .

Saludos!

Bueno, finalmente escribí un bat que renombrara quitando los últimos 4 caracteres del nombre aceptando archivos que incluyan nombres con espacios.

Hola the shadow perdon por la demora en responder lo volvi a probar y ahora si me funciono de hecho ahora me funcionan todos e incluso se me ocurrio aprovechar que los ultimos 4 digitops son .ckt para eliminar la extension .xls y de esa forma la pc entendera que ahora la extenson es .ckt y ps ahora solo tengo que volver a cambiar de extension a .xls un saludo y gracias a todos por la ayuda