通过VBS操作文件比如Excel,Word,txt文件等
常用函数
Abs(number)
返回一个数的绝对值Mid(string,start,length)
从string字符串的start字符开始取得length长度的字符串,如果省略第三个参数表示从start字符开始到字符串结尾的字符串Left(string,length)
从string字符串的左边取length长度的字符串LCase(string)
将字符串里的所有大写字母转化成小写字母InStr(string1,string2)
回string2字符串在string1字符串中第一次出现的位置
通过VBS给Excel文件加密
在window环境下创建一个扩展名为.vbs的文件 比如test.vbs
,文件内容如下。直接双击运行test.vbs
1 | Function ProtectExcel(byval filepath,byval filename) |
VBS正则表达式使用
*
、.
、+
是贪婪的,.?
是非贪婪版本
1 | Dim cert_str, re, ms, m |
读取txt证书到excel
1 | ' 读取证书文件txt写入Excel表格,文件类ANSI,excel文件名与目录名不要出现中文 |