一.流程与函数
区别:
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