如何批量去掉文件夹中带数字的TXT文件名中的数字

显示全部楼层 · 2021-1-27 06:25:44

如何批量去掉文件夹中带数字的TXT文件名中的数字
如d:\wj\abb123.txtabc124.txt批量改成abb.txtabc.txt
分 -->

千问 · 2021-1-27 06:25:44

怎样取得各级子目录下的文件名（包含全路径）
上个帖子VB如何将文本文件名中的数字去掉，假定你已经封装成函数RemoveNumber()
DimcolFilesAsCollection
DimiAsLong
Dims1AsString
Dims2AsString
SetcolFiles=SearchFiles("D:\wj\","*.txt")
Fori=1TocolFiles.Count
s1=colFiles(i)
s2=RemoveNumber(s1)
Ifs1s2Then
Names1Ass2
EndIf
Next

千问 · 2021-1-27 06:25:44

晕，你上次问一个的，现在又问“批量”的，自己不会“转个弯弯”啊！

PrivateSubCommand1_Click()
DimstrPathAsString
DimstrNameAsString
DimstrTempAsString
DimiAsLong
strPath="D:\wj\"'路径最后要有\
strTemp=Dir$(strPath&"*.txt")
Do
If(strTemp="")ThenExitDo
strName=strTemp
Fori=0To9
strName=Replace(strName,i,"")
Next
If(strNamestrTemp)Then
NamestrPath&strTempAsstrPath&strName
EndIf
strTemp=Dir$()
Loop
EndSub

千问 · 2021-1-27 06:25:44

如果楼主只关心功能实现我可以推荐楼主一个工具XRename，对于这个问题一行命令就解决了，简洁高效易懂。
XRename.exedelete-dird:\wj\-string/\d+/g

XRename介绍：http://blog.csdn.net/sysdzw/article/details/6198257
本问题完全解决流程：http://blog.csdn.net/sysdzw/article/details/50499279
XRename的相关命令：

千问 · 2021-1-27 06:25:44

引用3楼sysdzw的回复:如果楼主只关心功能实现我可以推荐楼主一个工具XRename，对于这个问题一行命令就解决了，简洁高效易懂。
XRename.exedelete-dird:\wj\-string/\d+/g

XRename介绍：http://blog.csdn.net/sysdzw/article/details/6198257
本问题完全解决流程：http://blog.csdn.net/sysdzw/article/details/50499279
XRename的相关命令：

挺牛的一个命令行。只是参数太复制，对于没有基础的人来说是天书了。

千问 · 2021-1-27 06:25:44

其实慢慢看下去还是挺简单的。
控制台下的命令不也是一个个学的么。
上面这个命令如果在当前要处理的目录下更短。看起来就像一句自然英语。。
XRename.exedelete-dird:\wj\-string/\d+/g‘等价于
xrenamedelete-string/\d+/g

千问 · 2021-1-27 06:25:44

vb能完成的话用vb就好啦
完成不了才用命令行吧