asp之字串函數樣本

asp之字串函數樣本
用字串函數對字串進行截頭去尾、大小寫替換等操作。

函數	文法	功能
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 MyStringMyString = Len("VBSCRIPT") 'MyString 包含 8。2、Trim、Ltrim、Rtrim函數樣本：

下面的樣本利用 LTrim, RTrim, 和 Trim 函數分別用來除去字串開始的空格、尾部空格、 開始和尾部空格：

Dim MyVarMyVar = LTrim("  vbscript ")  'MyVar 包含 "vbscript "。MyVar = RTrim("  vbscript ")  'MyVar 包含 "  vbscript"。MyVar = Trim("  vbscript ")   'MyVar 包含"vbscript"。

3、Mid函數樣本：

下面的樣本利用 Mid 函數返回字串中從第四個字元開始的六個字元：

Dim MyVarMyVar = Mid("VB指令碼is fun!", 4, 6) 'MyVar 包含 "Script"。

4、Left函數樣本：

下面的樣本利用Left 函數返回MyString 的左邊三個字母：

Dim MyString, LeftStringMyString = "VBSCript"LeftString = Left(MyString, 3) 'LeftString 包含 "VBS

5、Right函數樣本：

下面的樣本利用 Right 函數從字串右邊返回指定數目的字元：

Dim AnyString, MyStrAnyString = "Hello World"      '定義字串。MyStr = Right(AnyString, 1)    '返回 "d"。MyStr = Right(AnyString, 6)    ' 返回 " World"。MyStr = Right(AnyString, 20)   ' 返回 "Hello World"。6、LCase函數樣本：

下面的樣本利用 LCase 函數把大寫字母轉換為小寫字母：

Dim MyStringDim LCaseStringMyString = "VBSCript"LCaseString = LCase(MyString) ' LCaseString 包含 "vbscript"。7、 UCase函數樣本：

下面的樣本利用 UCase 函數返回字串的大寫形式：

Dim MyWordMyWord = UCase("Hello World")    ' 返回"HELLO WORLD"。

8、StrComp函數樣本：

下面的樣本利用 StrComp 函數返回字串比較的結果。如果第三個參數為 1 執行文本比較；如果第三個參數為 0 或者省略執行二進位比較。

Dim MyStr1, MyStr2, MyCompMyStr1 = "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, MyPosSearchString ="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