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 MyString
MyString = Len("VBSCRIPT") ''MyString 包含82、Trim、Ltrim、Rtrim函数示例：
2、LTrim, RTrim, 和Trim函数示例：
下面的示例利用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。