Trim、Left、Right、Mid、Len、InStr、StrComp、Split、Replace Trim、Ltrim、Rtrim函数
语法 ： Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数
语法 ： Ltrim(string) 将字符串前面的空格去掉
语法 ： Rtrim(string) 将字符串后面的空格去掉
演示代码 ： <%
Dim MyVarLTrim,MyVarRTrim,MyVarTrim
MyVarLTrim = LTrim(" vbscript ") 'MyVar 包含 "vbscript "。
MyVarRTrim = RTrim(" vbscript ") 'MyVar 包含 " vbscript"。
MyVarTrim = Trim(" vbscript ") 'MyVar 包含"vbscript"。
%>
结果 ： vbscript
vbscript
vbscript
Left函数
语法 ： Left(string, length)
从字符串的左部返回指定数目的字符。
注：如果length为0，则返回空字符串""，如果length大于字符串长度，则返回整个字符串。
演示代码 ： <%
Dim MyString, LeftString
MyString = "VBSCript"
LeftString = Left(MyString, 3) 'LeftString 包含 "VBS"
%>
结果 ： VBS 'LeftString 包含 "VBS"
Right函数
语法 ： Right(string, length)
从字符串的左部返回指定数目的字符。
注：如果length为0，则返回空字符串""，如果length大于字符串长度，则返回整个字符串。
演示代码 ： <%
Dim MyString, RightString
MyString = "VBSCript"
RightString = Left(MyString, 3) 'RightString 包含 "ipt"
%>
结果 ： ipt 'RightString 包含 "ipt"
Mid函数
语法 ： Mid(string,start,length)
返回一个字符串中指定数目的子串。
其中：string为原字符串（必须），
start为开始位置（必须）（最左处为1），
length为返回字符数（可选，默认为原字符串中的字符数）。
注：如果start比原字符串所含字符数大，则函数返回空字符串""。
演示代码 ： <%
Dim MyMidVar
MyMidVar = Mid("VBScript is fun!", 3, 6) 'MyMidVar 包含 "Script"。
%>
结果 ： Script 'MyMidVar 包含 "Script"。
Len函数
语法 ： Len(string) 返回字符串内字符的数目，或是存储一变量所需的字节数
演示代码 ： <%
Dim MyStringLen
MyStringLen = Len("VBSCRIPT") 'MyString 包含 8。
%>
结果 ： 8 ' MyString 包含 8。
InStr函数
语法 ： InStr(string1,string2[, compare]) 返回string1字符串在string2字符串中第一次出现的位置
注意：返回的不是一个字符串在另一个字符串中第一次出现的字符位置，而是字节位置。
演示代码 ： <%
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"
SearchChar = "P"
MyPos = Instr(SearchString, SearchChar) '返回 9.
%>
结果 ： 9 '返回 9.
StrComp函数
语法 ： StrComp(string1,string2[，compare])
返回string1字符串与string2字符串的比较结果;
如果两个字符串相同，则返回0;
如果小于则返回-1，如果大于则返回1
下面的示例利用 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。
%>
结果 ： MyComp1：0
MyComp2：-1
MyComp3：1
Split函数
语法 ： Split(string1,delimiter[, count[, start]])
将字符串根据delimiter拆分成一维数组，其中delimiter用于标识子字符串界限。
如果省略，使用空格("")作为分隔符。
count 返回的子字符串数目，-1 指示返回所有子字符串。
start为 1 执行文本比较；如果为 0 或者省略执行二进制比较。
演示代码 ： <%
Dim MyString, MyArray, Msg
MyString = "VBScriptXisXfunXcoodXscriptXcctv!"
MyArray = Split(MyString, "x",-1,1)
' MyArray(0) contains "VBScript".
' MyArray(1) contains "is".
' MyArray(2) contains "fun!".
Response.Write(MyArray(5))
%>
结果 ： cctv!
请输入字符串 ：
Replace函数
语法 ： Replace(expression, find, replacewith[, compare[, count[, start]]])
替换字符串中的一部分。其中：
find为要被替换的字符串（必须）,
replacewith为替换后的字符串（必须），
start为开始位置（可选，默认为1），
count为替换的次数（可选，默认值为-1，即执行所有的替换），
compare为0或1（可选，默认值为0，其中0代表执行二进制比较，1代表执行文本比较）。
注1：二进制比较区分大小写，文本比较忽略大小写。
注2：如果find找不到，则返回原字符串。
注3：这一函数经常用于Replace(Trim(Request("UserName")),"'","")中，目的是过滤'字符，避免与SQL语句中的单引号混淆，出现错误。
演示代码 ： <%
Dim strLongWords
strLongWords = "日前，建设部表示尚未公布住房建设规划的城市，务必在12月20日前全面完成编制、公布和备案工作；尚未建立廉租住房制度的城市，必须在2006年年底前建立并实施。目前全国尚有65％的地级以上城市、91．1％的县级城市未公布住房建设规划的情况。" If Request.QueryString("KeyWords")<>"" Then KeyWords = Request.QueryString("KeyWords")
ArrKeyWords = Split(KeyWords, " ",-1,1) For i = LBound(ArrKeyWords) To UBound(ArrKeyWords)
strLongWords = Replace(strLongWords, ArrKeyWords(i), "<font color='#FF0000'>" & ArrKeyWords(i) & "</font>")
Next End If
%>
结果 ： 日前，建设部表示尚未公布住房建设规划的城市，务必在12月20日前全面完成编制、公布和备案工作；尚未建立廉租住房制度的城市，必须在2006年年底前建立并实施。目前全国尚有65％的地级以上城市、91．1％的县级城市未公布住房建设规划的情况。
|
