asp之字符串函数示例

　　asp之字符串函数示例
用字符串函数对字符串进行截头去尾、大小写替换等操作。 函数语法功能LenLen(stringvarname)返回字符串内字符的数目，或是存储一变量所需的字节数。TrimTrim(string)将字符串前后的空格去掉LtrimLtrim(string)将字符串前面的空格去掉RtrimRtrim(string)将字符串后面的空格去掉MidMid(string,start,length)从string字符串的start字符开始取得length长度的字符串，如果省略第三个参数表示从start字符开始到字符串结尾的字符串LeftLeft(string,length)从string字符串的左边取得length长度的字符串RightRight(string,length)从string字符串的右边取得length长度的字符串LCaseLCase(string)将string字符串里的所有大写字母转化为小写字母UCaseUCase(string)将string字符串里的所有大写字母转化为大写字母StrCompStrComp(string1,string2[，compare])返回string1字符串与string2字符串的比较结果，如果两个字符串相同，则返回0，如果小于则返回-1，如果大于则返回1InStrInStr(string1,string2[, compare])返回string1字符串在string2字符串中第一次出现的位置SplitSplit(string1,delimiter[, count[, start]])

　　将字符串根据delimiter拆分成一维数组，其中delimiter用于标识子字符串界限。如果省略，使用空格()作为分隔符。
count 返回的子字符串数目，-1 指示返回所有子字符串。
start为 1 执行文本比较；如果为 0 或者省略执行二进制比较。

　　ReplaceReplace(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 = VBSCriptLeftString = Left(MyString, 3) LeftString 包含 VBS5、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 = VBSCriptLCaseString = 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