函數 文法 功能
Len Len(string|varname) 返回字串內字元的數目,或是儲存一變數所需的位元組數。
Trim Trim(string) 將字串前後的空格去掉
Ltrim Ltrim(string) 將字串前面的空格去掉
Rtrim Rtrim(string) 將字串後面的空格去掉
Mid Mid(string,start,length) 從string字串的start字元開始取得length長度的字串,如果省略第三個參數表示從start字元開始到字串結尾的字串
Left Left(string,length) 從string字串的左邊取得length長度的字串
Right Right(string,length) 從string字串的右邊取得length長度的字串
LCase LCase(string) 將string字串裡的所有大寫字母轉化為小寫字母
UCase UCase(string) 將string字串裡的所有大寫字母轉化為大寫字母
StrComp StrComp(string1,string2[,compare]) 返回string1字串與string2字串的比較結果,如果兩個字串相同,則返回0,如果小於則返回-1,如果大於則返回1
InStr InStr(string1,string2[, compare]) 返回string1字串在string2字串中第一次出現的位置
Split Split(string1,delimiter[, count[, start]]) 將字串根據delimiter拆分成一維數組,其中delimiter用於標識子字串界限。如果省略,使用空格("")作為分隔字元。
count 返回的子字串數目,-1 指示返回所有子字串。
start為 1 執行文本比較;如果為 0 或者省略執行二進位比較。
Replace Replace(expression, find, replacewith[, compare[, count[, start]]]) 返回字串,其中指定數目的某子字串(find)被替換為另一個子字串(replacewith)。
1、Len函數樣本:
下面的樣本利用 Len 函數返回字串中的字元數目:
Dim MyString
MyString = Len("VBSCRIPT") ““MyString 包含 8。
2、Trim、Ltrim、Rtrim函數樣本:
下面的樣本利用 LTrim, RTrim, 和 Trim 函數分別用來除去字串開始的空格、尾部空格、 開始和尾部空格:
Dim MyVar
MyVar = LTrim(" vbscript ") ““MyVar 包含 "vbscript "。
MyVar = RTrim(" vbscript ") ““MyVar 包含 " vbscript"。
MyVar = Trim(" vbscript ") ““MyVar 包含"vbscript"。
3、Mid函數樣本:
下面的樣本利用 Mid 函數返回字串中從第四個字元開始的六個字元:
Dim MyVar
MyVar = Mid("VB指令碼is fun!", 4, 6) ““MyVar 包含 "Script"。
4、Left函數樣本:
下面的樣本利用Left 函數返回MyString 的左邊三個字母:
Dim MyString, LeftString
MyString = "VBSCript"
LeftString = Left(MyString, 3) ““LeftString 包含 "VBS
5、Right函數樣本:
下面的樣本利用 Right 函數從字串右邊返回指定數目的字元:
Dim AnyString, MyStr
AnyString = "Hello World" ““定義字串。
MyStr = Right(AnyString, 1) ““返回 "d"。
MyStr = Right(AnyString, 6) ““ 返回 " World"。
MyStr = Right(AnyString, 20) ““ 返回 "Hello World"。
6、LCase函數樣本:
下面的樣本利用 LCase 函數把大寫字母轉換為小寫字母:
Dim MyString
Dim LCaseString
MyString = "VBSCript"
LCaseString = LCase(MyString) ““ LCaseString 包含 "vbscript"。
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