一些新学习的VBS知识笔记
2015-09-09 18:11
260 查看
一.流程与函数
区别:
Sub无返回值;
Function有返回值;
示例:
二.把字符串分成数组
split,可以把有规律的字符串转为数组
三.判断今天星期几
weekday(date),返回值为整数。
周一时返回2,周二时返回3,周六时返回7,周日时返回1。
四.判断文件和文件夹是否存在
fso.fileExists与fso.folderExists
例:
五.保留几位小数,当然也可以直接取整
取整的话是Round(pi, 0),后方的数决定几位小数。
六.判断当前是当天第几秒
timer
貌似一般用于查看程序花多长时间
例:
区别:
Sub无返回值;
Function有返回值;
示例:
Sub tian(a) msgbox a End Sub tian "Hello World!"
Function tian2(a) tian2 = a - 3 End Function MsgBox tian2(4)
二.把字符串分成数组
split,可以把有规律的字符串转为数组
MyString ="VBScriptXisXfun!" MyArray =Split(MyString, "x", -1, 1) Msg =MyArray(0)&" "&MyArray(1)&" "&MyArray(2) MsgBox Msg
三.判断今天星期几
weekday(date),返回值为整数。
周一时返回2,周二时返回3,周六时返回7,周日时返回1。
四.判断文件和文件夹是否存在
fso.fileExists与fso.folderExists
例:
Set fso=CreateObject("Scripting.FileSystemObject") msgbox fso.fileExists("C:\Users\Administrator\Desktop\test.vbe") If fso.fileExists("C:\Users\Administrator\Desktop\test.vbe") Then msgbox "存在" else msgbox "不存在" end if
Set fso=CreateObject("Scripting.FileSystemObject") msgbox fso.folderExists("C:\Users\Administrator\Desktop") If fso.fileExists("C:\Users\Administrator\Desktop") Then msgbox "存在" else msgbox "不存在" end if
五.保留几位小数,当然也可以直接取整
取整的话是Round(pi, 0),后方的数决定几位小数。
Dim MyVar, pi pi =3.14159 MyVar =Round(pi, 2) 'MyVar contains 3.14。
六.判断当前是当天第几秒
timer
貌似一般用于查看程序花多长时间
例:
Dim StartTime, EndTime StartTime =Timer For I =1 To 10000000 Next EndTime =Timer TimeIt =EndTime - StartTime MsgBox TimeIt
相关文章推荐
- vb.net 只读模式预览Excel文件
- vb.net DataGridViewCheckBox 状态
- VBA for Excel 晋升高手之路-兰晓宇-专题视频课程
- vbs与bat混编修改虚拟盘符的卷标
- vb.net Excel文件转二进制文件,及反转
- [其它招式]强大的VBS,自动化利器
- 求 李天生VB.NET 视频教程 及解压密码
- VBO, VAO, Generic Vertex Attribute
- VB+DX游戏编程教程 第四话:多彩的纹理
- vb 中获取所有本地用户清单
- Win10 Vbox 桥接找不到网卡的解决办法
- Vbs脚本执行不同版本的Windows OS激活任务(MAK&KMS激活)
- Microsoft VBScript 运行时错误 800a01ad 解决办法总结
- VB短信接口开发经验及具体开发实现
- Vbs脚本实现数据CUT备份及自动轮询删除备份数据
- DVB-AD 注册
- VBA 字符串操作
- VBA 使用区域和当前区域
- VBA 公式中使用相对位置
- VB6 padleft padright