批量重命名文件名称小软件
说在前面
先扯会,如果不是Android开发的,要使用本小软件,可以直接到下面正题
在Android开发中,有时会遇到大量文件需要重命名的情况,特别是一些图片文件。有两个同学遇到过这种情况,我暂时还没遇到,但这种情况以后肯定会遇到的。
可以用批处理命令(move,ren)来解决,但要一条一条写命令,写修改后的文件名,还要写原文件名。如果有些修改后的名称直接是a001.txt,a002.txt,a003.txt,……毫无疑问这样有规律的名称,用万能的Excel解决最快了,一个拖拉就搞定。以前也写过类似的批量修改软件,虽然功能不一样,但最核心的原理是一样的。好久没有写VB了,写起来真别扭。用惯了AS(Android Studio),感觉这就是一个天堂,一个地狱。
在现有的情况下,如果文件被引用了,需要重命名,在中,只能一个一个更改(Win:Shift+F6)。但如果文件还没有被引用,需要重命名,那就可以使用本小软件助您一臂之力。
本来要上传到CSDN的资源里,可是一直弹出让我登录。点击“确定”还不行,也关闭不了页面,不知道的还以为是中病毒了。还好咱们都是有经验的人,一个勾选,最后页面显示服务器异常。尝试了好多遍都不行,最后放弃,投向百度云的怀抱
回归正题
下载地址:http://pan.baidu.com/s/1qYGJ3VQ
解压后,里面有一个.xls文件,就是所谓的小软件。另一个是folder文件夹,用于存放需要重命名的文件。
注意:
1. Excel文件和folder文件夹必须在同一目录下
2. 切勿更名此folder文件夹的名称
操作步骤:
【1】 打开Excel,你就能看到华丽的页面出来了
【2】 但要完成功能,需要手动开启宏。一般在上面会弹出此警告,点击“启用内容”即可
【3】 把你的文件放入到folder文件夹中
【4】 点击按钮“获取folder文件夹中的所有文件”
会把folder中所有的文件名显示出来,如步骤1中图片。有时只需要在旧名称上修改一点点即可,为了减少工作量,把新名称和新名称的后缀名也填成了旧名称的
【5】修改新的名称(⊙﹏⊙b后面的执行结果,是等到下一步修改名称后才会出现的,Sorry)
【6】点击“批量修改文件名”,folder文件夹中的文件将改头换面了
OK,完成了。。。
赠送福利
除了这基本的功能外,还有两个额外的功能:
A、除了新名称和其后缀名可以编辑外,其他都禁止编辑,为了防止你的一个不小心。但可以调整宽度,给你更好的视觉查看超长名称
B、新名称中如果有相同的(因为你没有看到过在哪个文件夹中存在两个一样的文件名称),将报红色警告,给您温馨的提示。
年终奖
Android开发过程中,如果没有大神们的开源项目,大家都不知道在哪里摸爬滚打。支持OpenSource
Option Explicit'************************************************
'获取folder文件夹中所有的文件
'************************************************
Sub GetFiles_Click()
Dim myPath$, myFile$, eachwirexls As Workbook
Dim num%
num = 0 '获取本软件目录下的folder文件路径
myPath = ThisWorkbook.Path & "/folder/" On Error GoTo Error_handle
Call unlockSheet '解锁
With Application.ThisWorkbook.ActiveSheet
' 清除所有单元格区域
Range("A3:F65536") = "" '获取路径中所有的文件
myFile = Dir(myPath, vbNormal)
Do Until Len(myFile) = 0
num = num + 1
Cells(num + 2, 1) = num
'Debug.Print myFile '立即窗口测试打印结果
Dim temp As Variant
Dim results() As String
temp = splitSuffix(myFile)
results() = temp
Cells(num + 2, 2) = results(1)
Cells(num + 2, 4) = results(1)
Cells(num + 2, 3) = results(2)
Cells(num + 2, 5) = results(2)
myFile = Dir
Loop
'Debug.Print myFile End With
Call lockSheet
MsgBox "共查找到 " & num & " 个文件"
Exit SubError_handle:
Call lockSheet
MsgBox "查找文件失败,请检查"End Sub'************************************************
'获取文件名称中的后缀名
'************************************************
Private Function splitSuffix(fileName As String) As Variant
Dim sum%, location%, i%
Dim results(2) As String
results(1) = fileName
results(2) = ""
sum = Len(fileName)
location = 0
For i = sum To 1 Step -1
If Mid(fileName, i, 1) = "." Then
location = i
GoTo End_Handle
End If
NextEnd_Handle:
If location <> 0 Then
results(1) = Left(fileName, location - 1) '文件名
results(2) = Right(fileName, sum - location + 1) '文件后缀名
End If
splitSuffix = results
End Function'************************************************
'批量修改文件名称
'************************************************
Sub Rename_Click()
Dim myPath$, i%
myPath = ThisWorkbook.Path & "/folder/"
Call unlockSheet
With Application.ThisWorkbook.ActiveSheet
.Unprotect
For i = 3 To [A65536].End(3).Row
Name myPath & Trim(Cells(i, 2)) & Trim(Cells(i, 3)) As myPath & Trim(Cells(i, 4)) & Trim(Cells(i, 5))
Cells(i, 6) = "OK"
Next
End With
Call lockSheet
MsgBox "批量修改完成"
End Sub'************************************************
'工作表解锁
'************************************************
Private Function unlockSheet()
Application.ThisWorkbook.ActiveSheet.Unprotect
End Function'************************************************
'工作表上锁
'************************************************
Private Sub lockSheet()
Application.ThisWorkbook.ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingColumns:=True, AllowDeletingRows:=True, _
AllowFiltering:=True
End Sub
批量重命名文件名称小软件相关推荐
- 如何通过Java批量重命名文件名称
日常生活中,我们需要大量重命名文件名称时,如果手动一个个修改,太过浪费时间,我们可以通过写一个Java类,简单执行来实现批量重命名文件名称,我们先指定需要需要重命名文件的路径,将所有文件读取出来,循环 ...
- 批量重命名 文件名称命名错误后如何恢复原本名称
我们在给文件重命名后发现重命名错误,要如何恢复成原本的名称呢?下面分享一个自由切换的重命名方法,一起来看看操作步骤吧! 第一步,运行文件批量改名高手,在文件批量重命名界面,首先"添加文件&q ...
- 【Linux 】使用 Shell 批量重命名文件名称
将 devicename__mac.json 文件名称改为mac.json, 期望:dev1__00_11_22_33_44_55.json --> 001122334455.json #!/b ...
- 批量重命名文件 - Renamer JAVA File
批量重命名文件的小工具 Renamer是一个帮助您整理硬盘文件的小工具.这次的软件使用JAVA语言开发. Renamer的主要功能: 1.按照指定的规则重命名文件,如IMG ...
- 计算机怎么快速改图片名称,电脑如何批量重命名文件
大家在用电脑时,经常会遇到需要批量重命名文件的问题.如果文件不多还好办,不然挨个重命名是很麻烦的事,那么你知道电脑如何批量重命名文件吗?下面是学习啦小编整理的一些关于电脑批量重命名文件的相关资料,供你 ...
- 【Windows小技巧】批量重命名文件
2016/12/14更新 注:如果文件名包含空格,命令应写成ren "s0 (1).gif" s001.gif,简而言之,就是加上双引号!!!原因:系统将s0和(1).gif认为是 ...
- 计算机给文件重命名快捷键,实用电脑小技巧:批量重命名文件常用的小工具也可以设快捷键...
沪江小编:对于很多人来说,电脑应该算是使用频率最高的工具了,可是你真的会用电脑么?实用电脑小技巧,用最简单明了的方式给你无比有趣的电脑使用新体验. [视觉遗像]注视图形中央的四个黑点30秒,然后闭眼仰 ...
- 如何批量重命名文件?
如何批量重命名文件?批量重命名文件就是同时修改大量文件的名称,有些人在工作中会产生大量的文件,所以有时候需要批量修改大量的文件名称.有的小伙伴不知道如何批量修改,就只能采用一个一个修改的方法,这种方法 ...
- 批量重命名文件并排序,操作步骤介绍
如何批量重命名文件并排序?有些小伙伴的工作比较特殊,会产生大量的文件,文件数量一多如果名称不同,电脑就会变得很乱,这样很容易引起文件的丢失造成不可挽回的损失,也不利用我们建档进行保存.所以我们需要对这 ...
最新文章
- 为什么前端开发这么不稳定?
- C++之操作符重载和运算符重载
- 解决popup不随着window一起移动的问题
- 【CodeForces - 616C】The Labyrinth(bfs,并查集,STLset)
- Leetcode--11. 盛水最多的容器
- BestCoder Round #33
- PowerShell说“此系统上的脚本执行被禁用。”
- Nginx 安装 启动 停止 重启
- (转)Rust:Vec、String 内存布局
- 为何腾讯一直在推广“低配版”的QQ
- 视频和视频帧:H264编码格式整理
- web前端学习(总结/心得)
- JAVA中Session的使用
- android 转音频格式,android_Lame转换音频格式
- 本地差分隐私 随机响应_本地化差分隐私:如何面对非可信的世界
- 一级网站域名与二级域名的区别,如何注册网站一级域名
- Ubuntu系统腾讯会议使用ffmpeg屏幕录制+声音录制
- 人人都要有底层逻辑 - 底层逻辑一定要围绕人
- 【每日一道智力题】之猴子搬香蕉
- 博图编写温度程序_西门子PLC博图V15编写程序