zoukankan
html css js c++ java
VBS 版批量重命名
Code
1
rem 读取配置文件
2
Dim config
3
config
=
"
conf.txt
"
4
set
fso
=
createobject(
"
scripting.filesystemobject
"
)
5
set
a
=
createobject(
"
scripting.dictionary
"
)
6
set
file
=
fso.opentextfile(config)
7
do
while
file.atendofstream
<>
true
8
m
=
m
+
1
9
a.add m,file.readline
10
src
=
a(m)
11
RenameSubPage src
12
loop
13
file.close
14
Set fso
=
Nothing
15
msgbox
"
操作已完成
"
,
4096
,
"
文件重命名
"
16
17
Sub RenameSubPage(strURL)
18
Dim path
19
For i
=
19
To
100
20
path
=
Replace(strURL ,
"
.html
"
,
"
_
"
&
i
&
"
.html
"
)
21
If fso.fileexists(path)
=
True Then
22
target
=
path
&
"
.tmp
"
23
fso.movefile path , target
24
Else
25
'
do nothing
26
End If
27
Next
28
End Sub
29
注释: conf.txt 文件内容如下:
D:\a\b\c.html
D:\d\e\f.html
查看全文
相关阅读:
[转]Windows Azure入门教学系列 (六):使用Table Storage
[书目20140902]实战Windows Azure——微软云计算平台技术详解 --徐子岩
[转]IE11下Forms身份认证无法保存Cookie的问题
[转]C#开发ActiveX控件,.NET开发OCX控件案例
[转]查询表达式 (F#)
[转]符号和运算符参考 (F#)
[转]F# Samples 101
[转]Walkthrough: Your First F# Program
[转]Keyword Reference (F#)
[转]Visual F# Samples and Walkthroughs
原文地址:https://www.cnblogs.com/infozero/p/1376355.html
最新文章
云计算之路-试用Azure:每一次删除都让人如此“心惊”团队
云计算之路-试用Azure:拐弯抹角的负载均衡团队
云计算之路-试用Azure:一次失败的SQL Server向SQL Azure的迁移尝试团队
云计算之路-试用Azure-飞流直下三千尺:实测虚拟机磁盘IO团队
上周热点回顾(9.2-9.8)团队
云计算之路-试用Azure:如何建立虚拟机之间的内网连接团队
云计算之路-试用Azure:竟然无法重置虚拟机的管理员密码团队
上周热点回顾(8.26-9.1)团队
云计算之路-阿里云上:踩着RDS的2个坑团队
上周热点回顾(8.19-8.25)团队
热门文章
Ubuntu14.04下Cloudera安装搭建部署大数据集群(图文分五大步详解)(博主强烈推荐)(在线或离线)
MySQL命令学习之技巧(博主推荐)
Java面试概念之String、StringBuffer与StringBuilder的区别
Windows下的Jupyter Notebook 的介绍(写给新手)(图文详解)
Windows下的Jupyter Notebook 安装与自定义启动(图文详解)
Windows下的Python 3.6.1的下载与安装(适合32bits和64bits)(图文详解)
MySQL学习笔记之右连接
MySQL学习笔记之左连接
MySQL学习笔记之内连接
我的正则表达式学习心得(推荐)
Copyright © 2011-2022 走看看