7、 UCase函数示例:
下面的示例利用 UCase 函数返回字符串的大写形式:
Dim MyWord
MyWord = UCase("Hello World") '''' 返回"HELLO WORLD"。
8、StrComp函数示例:
下面的示例利用 StrComp 函数返回字符串比较的结果。如果第三个参数为 1 执行文本比较;如果第三个参数为 0 或者省略执行二进制比较。
Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd" ''''定义变量。
MyComp = StrComp(MyStr1, MyStr2, 1) '''' 返回 0。
MyComp = StrComp(MyStr1, MyStr2, 0) '''' 返回 -1。
MyComp = StrComp(MyStr2, MyStr1) '''' 返回 1。
9、InStr示例:
下面的示例利用 InStr 搜索字符串:
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"???
SearchChar = "P"??
MyPos = Instr(SearchString, SearchChar)???''''返回 9.
注意:返回的不是一个字符串在另一个字符串中第一次出现的字符位置,而是字节位置。
10、Split函数示例:
Dim MyString, MyArray, Msg
MyString = "VBScriptXisXfun!"
MyArray = Split(MyString, "x",-1,1)
'''' MyArray(0) contains "VBScript".
'''' MyArray(1) contains "is".
'''' MyArray(2) contains "fun!".
Response.Write(MyArray(0))
11、Replace函数示例:
Replace("ABCD", "BC", "12") ''''得到A12D