VBScript 常用函数与类型转化

VBScript 变量可以不声明直接使用，如果这么做会有很大的弊端，所以还是建议强制声明为显示定义变量 ，可在文件开始处添加option Explicit

option Explicit

'1 绝对值
Dim MyNumber1
MyNumber1 = Abs(50.3)  ' Returns 50.3.
MyNumber1 = Abs(-50.3) ' Returns 50.3.

'2 数组使用方法1
Dim A2
Dim B2
A2 = Array(10,20,30)
B2 = A2(2)   ' B is now 30.

'3 数组使用方法2 注意此处比C++，java多了一个元素 
dim fname3(5)
fname3(0) = "George"
fname3(1) = "John"
fname3(2) = "Thomas"
fname3(3) = "James"
fname3(4) = "Adrew"
fname3(5) = "Martin"

'4Asc函数返回与字符串的第一个字母对应的 ASCII 字符代码
Dim MyNumber4
MyNumber4 = Asc("A")       ' Returns 65.
MyNumber4 = Asc("a")       ' Returns 97.
MyNumber4 = Asc("Apple")   ' Returns 65.

'5 将一个表达式转变成 Boolean类型,如果表达式是无效的则会产生异常
Dim A5, B5, Check5
A5 = 5: B5 = 5           ' Initialize variables.
Check5 = CBool(A5 = B5)   ' Check contains True.
A5 = 0                  ' Define variable.
Check5 = CBool(A5)       ' Check contains False.
'Check5 = CBool("Hello world")‘产生异常操作

'6将表达式转换为字节（Byte）类型
Dim MyDouble6, MyByte6
MyDouble6 = 125.5678        ' MyDouble is a Double.
MyByte6 = CByte(MyDouble6)   ' MyByte contains 126.

'7 CCur 函数可把表达式转换Currency类型
Dim MyDouble7, MyCurr7
MyDouble7 = 1234.214588         ' MyDouble is a Double.
MyCurr7 = CCur(MyDouble7)   'MyCurr7 = 1234.2146

'8 把acci马转化为字符
Dim MyChar8
MyChar8 = Chr(65)   ' Returns A.
MyChar8 = Chr(97)   ' Returns a.
MyChar8 = Chr(62)   ' Returns >.
MyChar8 = Chr(37)   ' Returns %.

'9 转化为interger类型
Dim MyDouble9, MyInt9
MyDouble9 = 2345.5678     ' MyDouble is a Double.
MyInt9 = CInt(MyDouble9)   ' MyInt contains 2346.

'10 转化为字符串类型
Dim MyDouble, MyString
MyDouble = 437.324         ' MyDouble is a Double.
MyString = CStr(MyDouble)   ' MyString contains "437.324".


'11 
Dim MyVar11, MyCheck11
MyCheck11 = IsEmpty(MyVar11)   ' Returns True.
MyVar11 = Null   ' Assign Null.
MyCheck11 = IsEmpty(MyVar11)   ' Returns False.
MyVar11 = Empty   ' Assign Empty.
MyCheck11 = IsEmpty(MyVar11)   ' Returns True.

'12
Dim MyVar12, MyCheck12
MyCheck12 = IsNull(MyVar12)   ' Returns False.
MyVar12 = Null   ' Assign Null.
MyCheck12 = IsNull(MyVar12)   ' Returns True.
MyVar12 = Empty   ' Assign Empty.
MyCheck12 = IsNull(MyVar12)   ' Returns False.

'13
'Dim MyInt13, MyCheck13, MyObject13
'Set MyObject13 = CreateObject("Excel.Application")
'MyCheck13 = IsObject(MyObject13)   ' Returns True.
'MyCheck13 = IsObject(MyInt13)   ' Returns False.

'14 判断变量是不是数组
Dim MyVariable
Dim MyArray(3)
MyArray(0) = "Sunday"
MyArray(1) = "Monday"
MyArray(2) = "Tuesday"
MyVariable = IsArray(MyArray) ' MyVariable contains "True".

'15 获取数组的上写边界
Dim UboundNum, LboudNum
Dim a(10)
a(0)="Saturday"
a(1)="Sunday"
a(2)="Monday"
a(3)="Tuesday"
a(4)="Wednesday"
a(5)="Thursday"
UboundNum = UBound(a) '10
LboudNum = LBound(a) '0

'16 大小写转化
Dim MyString16
Dim UCaseString
Dim LCaseString16
MyString16 = "VBSCript"
LCaseString16 = LCase(MyString16)   ' LCaseString contains "vbscript".
UCaseString = UCase(MyString16) 'UCaseString contains "VBSCRIPT"

'17 把数组合并成一个字符串
Dim MyString17
Dim MyArray17(3)
MyArray17(0) = 9
MyArray17(1) = "John "
MyArray17(2) = "Doe "
MyArray17(3) = "III"
MyString17 = Join(MyArray17) ' 9 contains "Mr. John Doe III".

'18 去掉空格
Dim MyVar
MyVar = LTrim("   vbscript ")   ' MyVar contains "vbscript ".
MyVar = RTrim("   vbscript ")   ' MyVar contains "   vbscript".
MyVar = Trim("   vbscript ")   ' MyVar contains "vbscript".

'19 获取子字符串
Dim MyVar19

MyVar19 = Mid("VBScript is fun!", 3, 6) ' MyVar contains "Script".


'20 字符串比较
Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd"   ' Define variables.
MyComp = StrComp(MyStr1, MyStr2, vbTextCompare)   ' Returns 0.
MyComp = StrComp(MyStr1, MyStr2, vbBinaryCompare)   ' Returns -1.
MyComp = StrComp(MyStr2, MyStr1)   ' Returns

'21 字符串替换
Dim MyString21
' A binary comparison starting at the beginning of the string.
MyString21 = Replace("XXpXXPXXp", "p", "Y")
' Returns "XXYXXPXXY".

' A textual comparison starting at position 3.
MyString21 = Replace("XXpXXPXXp", "p", "Y", 3, -1, 1)
' Returns "YXXYXXY".