中国DOS联盟

在我C:\123文件夹中有以下文件，我想批量重命名把后面的1去掉，如：资产负债表1.xlsm重命名为：资产负债表.xlsm，应该怎么写代码？？


资产负债表1.xlsm
月销售报表1.xlsm
员工考核测评表1.xlsm
员工工资数据表1.xlsm
用户权限管理系统1.xlsm
一月份销售部工资管理1.xlsm
销售数据汇总分析1.xlsm
销售额预测1.xlsm
销售部员工资料表1.xlsm
销售部全年记录1.xlsm
现金流量表1.xlsm
损益表1.xlsm
市场调查问卷数据管理1.xlsm
商品销售数据表1.xlsm
商品销售方式决策1.xlsm
商品进货量决策1.xlsx
商品分期付款决策1.xlsm
日程安排表1.xlsm
马尔可夫预测法1.xlsm
客户资料管理表1.xlsm
考勤管理1.xlsm
建立复杂级联菜单1.xlsm
公司文档资料管理1.xlsm
格式化商品销售明细清单1.xlsm
二月份销售部工资管理1.xlsm
包含同名同姓员工的销售部员工资料表1.xlsm
商品库存需求分析表1.xlsm

这个应该很简单啊

@echo off

setlocal enabledelayedexpansion

for /f "delims=" %%i in ('dir/b') do (

set File_n=%%~ni

set File_x=%%~xi

set File_n=!File_n:~,-1!

ren "%%i" "!File_n!!File_x!"

)

@echo off

setlocal EnableDelayedExpansion

for %%a in (c:\123\*) do (

  set str=%%~nxa

  ren "%%a" "!str:1%%~xa=%%~xa!"

)