- ubuntu12.04环境下使用kvm ioctl接口实现最简单的虚拟机
- Ubuntu 通过无线网络安装Ubuntu Server启动系统后连接无线网络的方法
- 在Ubuntu上搭建网桥的方法
- ubuntu 虚拟机上网方式及相关配置详解
CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.
这篇CFSDN的博客文章VBS批量重命名文件并且操作前备份原有文件由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.
核心函数 。
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
|
'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.0
'
' NAME:
'
' AUTHOR: Microsoft , Microsoft
' DATE : 2014/7/9
'
' COMMENT: '批量修改文件夹下对应的所有文件名
'
'==========================================================================
'选择我的电脑作为根目录,来选择目录
Const
MY_COMPUTER = &H11&
Const
WINDOW_HANDLE = 0
Const
OPTIONS = 0
Set
objShell = CreateObject(
"Shell.Application"
)
Set
objFolder = objShell.
Namespace
(MY_COMPUTER)
Set
objFolderItem = objFolder.Self
strPath = objFolderItem.Path
Set
objShell = CreateObject(
"Shell.Application"
)
Set
objFolder = objShell.BrowseForFolder _
(WINDOW_HANDLE,
"Select a folder:"
, OPTIONS, strPath)
If
objFolder
Is
Nothing
Then
Wscript.Quit
End
If
Set
objFolderItem = objFolder.Self
objPath = objFolderItem.Path
'MsgBox objFolderItem.name
'===================================================================
'选择指定盘符下的目录
' Const WINDOW_HANDLE = 0
' Const OPTIONS = 0
'
' Set objShell = CreateObject("Shell.Application")
' Set objFolder = objShell.BrowseForFolder _
' (WINDOW_HANDLE, "Select a folder:", OPTIONS, "C:\")
'
' If objFolder Is Nothing Then
' Wscript.Quit
' End If
'
' Set objFolderItem = objFolder.Self
' objPath = objFolderItem.Path
'
' MsgBox objPath
'=========================================================================
'定义变量
dim file_path,prefix_name,suffix_name,repeat_name,repeat_edit
Dim
OneLine,TwoLine,ThreeLine,FourLine,FiveLine
i=0
test = createobject(
"Scripting.FileSystemObject"
).GetFile(Wscript.ScriptFullName).ParentFolder.Path
'Wscript.echo test
filepath=test&
"\config.ini"
'WScript.Echo filepath
' file_path = "C:\Users\Administrator\Desktop\1\music"'目标文件夹的路径
dst_file_path=
"C:\"&objFolderItem.name&"
_bak"
file_path=objPath
'-----得到文件夹路径,且打开配置文件
Set
fso = CreateObject(
"Scripting.FileSystemObject"
)
Set
folder = fso.getfolder(file_path)
Set
fs = folder.files
Set
file=fso.OpenTextFile(filepath,1)
'----------------在操作前,备份一下原有的文件
fso.CopyFolder file_path,dst_file_path,
True
'----------------------------------
'取出第一行中的两个数
OneLine=file.ReadLine
OneLineStr=Split(OneLine,
"="
)
OneLineCount=UBound(split(OneLine,
"="
))
For
i1=0
To
OneLineCount
'WScript.Echo OneLineStr(i1)
Next
'-------------------------------------
'取出第二行中的两个数
TwoLine=file.ReadLine
TwoLineStr=Split(TwoLine,
"="
)
TwoLineCount=UBound(split(TwoLine,
"="
))
For
i2=0
To
TwoLineCount
'WScript.Echo TwoLineStr(i2)
Next
'-------------------------------------------
'取出第三行中的两个数
ThreeLine=file.ReadLine
ThreeLineStr=Split(ThreeLine,
"="
)
ThreeLineCount=UBound(split(ThreeLine,
"="
))
For
i3=0
To
ThreeLineCount
'WScript.Echo ThreeLineStr(i3)
Next
'-------------------------------------------
'取出第四行中的两个数
FourLine=file.ReadLine
FourLineStr=Split(FourLine,
"="
)
FourLineCount=UBound(split(FourLine,
"="
))
For
i4=0
To
FourLineCount
'WScript.Echo FourLineStr(i4)
Next
'-----------------------------------------
'取出第五行中的两个数
FiveLine=file.ReadLine
FiveLineStr=Split(FiveLine,
"="
)
FiveLineCount=Ubound(split(FiveLine,
"="
))
For
i5=0
To
FiveLineCount
'WScript.Echo FiveLineStr(i5)
Next
'---------------------------------------------
'调用过程
'Function_Main()
Function
Function_Main()
If
OneLineStr(1)=
"true"
Then
Function_Prefix_Name()
Elseif OneLineStr(1)=
"false"
Then
Function_Suffix_Name()
Elseif OneLineStr(1)=
"number"
Then
Function_Number_Value()
Elseif OneLineStr(1)=
"array"
Then
Function_MyArrayReName()
Elseif OneLineStr(1)=
""
Then
WScript.Quit
End
If
End
Function
'-----------------------------------------
'在原有名称前增加前缀
Function
Function_Prefix_Name()
For
Each
file in fs
File.Name=TwoLineStr(1)&File.Name
Next
End
Function
'--------------------------------------
'在原有名称前增加后缀
Function
Function_Suffix_Name()
For
Each
file in fs
Name=Mid(file.name,1,instrrev(file.name,
"."
)-1)
'取到.号前面的文件名
Format=Mid(file.name,instrrev(file.name,
"."
))
'取到.号后面的后缀格式
file.Name=Name&ThreeLineStr(1)&Format
Next
End
Function
'--------------------------------------------
'在原有名称前增加有序自增数字
Function
Function_Number_Value()
For
Each
file
In
fs
FourLineStr(1)=FourLineStr(1)+1
file.name=FourLineStr(1)&file.name
Next
End
Function
'Function_Suffix_Name()
'--------------------------------------------------
'批量更改文件名称
Function
Function_MyArrayReName()
Const
BeforAlarm=
"发生犯人暴狱,请注意观察"
Const
AfterAlarm=
"发生犯人暴狱,各小组按预案处置"
Dim
MyArray(12)
n=1
y=0
For
i=0
To
12
If
i=11
Then
MyArray(i)=
"监门哨"
Elseif i=12
Then
MyArray(i)=
"自卫哨"
Else
MyArray(i)=n&
"号哨"
n=n+1
End
If
' WScript.Echo MyArray(i)
Next
For
Each
file
In
fs
Format=Mid(file.name,instrrev(file.name,
"."
))
'MsgBox Format
'MsgBox MyArray(y)
If
FiveLineStr(1)=
"before"
Then
file.name=MyArray(y)&BeforAlarm&Format
Elseif FiveLineStr(1)=
"after"
Then
file.name=MyArray(y)&AfterAlarm&Format
Else
MsgBox
"请先设置是确认前还是确认后!"
,,
"提示"
WScript.Quit
End
If
y=y+1
'WScript.Echo file.name
Next
End
Function
'=======================================================================
' If prefix_name <> "" then'批量加前缀
' For each f in fs
' f.name = prefix_name&f.name
' Next
' End If
'
' if suffix_name <> "" then'批量加后缀
' For each f in fs
' name = Mid(f.name,1,InstrRev(f.name,".")-1)
' format = Mid(f.name,InstrRev(f.name,"."))
' f.name = name & suffix_name & format
' Next
' end If
'
' if repeat_name <> "" then'批量删除相同字符
' For each f in fs
' On Error Resume Next
' f.name = Replace(f.name,repeat_name,repeat_edit)
' Next
' end If
' '-----文件操作结束
'
' set fso = nothing'释放内存
'
' MsgBox("完成!")
|
需用用到配置文件 。
1
2
3
4
5
6
|
config.ini文件内容:
statue=
prefix_name=[320kbp]
suffix_name=[结束]
i=20140100
array=
|
参数配置使用方法:
statue=true时为增加前缀 statue=false时为增加后缀 statue=number 时为增加有序自增数字。 statue=array 为调用数组函数 statue=空值时为空,不作处理,退出脚本操作。 array=before时,设置为确认前。 array=after时,设置为确认后。 array=空时,弹出提示信息,退出脚本操作.
好了这篇文章就介绍到这了,主要用到了FileSystemObject与mid函数 。
原文链接:https://www.cnblogs.com/jinjiangongzuoshi/p/3930248.html 。
最后此篇关于VBS批量重命名文件并且操作前备份原有文件的文章就讲到这里了,如果你想了解更多关于VBS批量重命名文件并且操作前备份原有文件的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。
我正在努力做到这一点 在我的操作中从数据库获取对象列表(确定) 在 JSP 上打印(确定) 此列表作为 JSP 中的可编辑表出现。我想修改然后将其提交回同一操作以将其保存在我的数据库中(失败。当我使用
我有以下形式的 Linq to Entities 查询: var x = from a in SomeData where ... some conditions ... select
我有以下查询。 var query = Repository.Query() .Where(p => !p.IsDeleted && p.Article.ArticleSections.Cou
我正在编写一个应用程序包,其中包含一个主类,其中主方法与GUI类分开,GUI类包含一个带有jtabbedpane的jframe,它有两个选项卡,第一个选项卡包含一个jtable,称为jtable1,第
以下代码产生错误 The nested query is not supported. Operation1='Case' Operation2='Collect' 问题是我做错了什么?我该如何解决?
我已经为 HA redis 集群(2 个副本、1 个主节点、3 个哨兵)设置了本地 docker 环境。只有哨兵暴露端口(10021、10022、10023)。 我使用的是 stackexchange
我正在 Desk.com 中构建一个“集成 URL”,它使用 Shopify Liquid 模板过滤器语法。对于开始日期为 7 天前而结束日期为现在的查询,此 URL 需要包含“开始日期”和“结束日期
你一定想过。然而情况却不理想,python中只能使用类似于 i++/i--等操作。 python中的自增操作 下面代码几乎是所有程序员在python中进行自增(减)操作的常用
我需要在每个使用 github 操作的手动构建中显示分支。例如:https://gyazo.com/2131bf83b0df1e2157480e5be842d4fb 我应该显示分支而不是一个。 最佳答
我有一个关于 Perl qr 运算符的问题: #!/usr/bin/perl -w &mysplit("a:b:c", /:/); sub mysplit { my($str, $patt
我已经使用 ArgoUML 创建了一个 ERD(实体关系图),我希望在一个类中创建两个操作,它们都具有 void 返回类型。但是,我只能创建一个返回 void 类型的操作。 例如: 我能够将 book
Github 操作仍处于测试阶段并且很新,但我希望有人可以提供帮助。我认为可以在主分支和拉取请求上运行 github 操作,如下所示: on: pull_request push: b
我正在尝试创建一个 Twilio 工作流来调用电话并记录用户所说的内容。为此,我正在使用 Record,但我不确定要在 action 参数中放置什么。 尽管我知道 Twilio 会发送有关调用该 UR
我不确定这是否可行,但值得一试。我正在使用模板缓冲区来减少使用此算法的延迟渲染器中光体积的过度绘制(当相机位于体积之外时): 使用廉价的着色器,将深度测试设置为 LEQUAL 绘制背面,将它们标记在模
有没有聪明的方法来复制 和 重命名 文件通过 GitHub 操作? 我想将一些自述文件复制到 /docs文件夹(:= 同一个 repo,不是远程的!),它们将根据它们的 frontmatter 重命名
我有一个 .csv 文件,其中第一列包含用户名。它们采用 FirstName LastName 的形式。我想获取 FirstName 并将 LastName 的第一个字符添加到它上面,然后删除空格。然
Sitecore 根据 Sitecore 树中定义的项目名称生成 URL, http://samplewebsite/Pages/Sample Page 但我们的客户有兴趣降低所有 URL(页面/示例
我正在尝试进行一些计算,但是一旦我输入金额,它就会完成。我只是希望通过单击按钮而不是自动发生这种情况。 到目前为止我做了什么: Angular JS - programming-fr
我的公司创建了一种在环境之间移动文件的复杂方法,现在我们希望将某些构建的 JS 文件(已转换和缩小)从一个 github 存储库移动到另一个。使用 github 操作可以实现这一点吗? 最佳答案 最简
在我的代码中,我创建了一个 JSONArray 对象。并向 JSONArray 对象添加了两个 JSONObject。我使用的是 json-simple-1.1.jar。我的代码是 package j
我是一名优秀的程序员,十分优秀!