zl程序教程

您现在的位置是:首页 >  移动开发

当前栏目

asp之字符串函数示例

ASP 函数 字符串 示例
2023-06-13 09:13:57 时间
asp之字符串函数示例
用字符串函数对字符串进行截头去尾、大小写替换等操作。函数语法功能LenLen(string|varname)返回字符串内字符的数目,或是存储一变量所需的字节数。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函数返回字符串中的字符数目:

DimMyStringMyString=Len("VBSCRIPT")"MyString包含8。2、Trim、Ltrim、Rtrim函数示例:

下面的示例利用LTrim,RTrim,和Trim函数分别用来除去字符串开始的空格、尾部空格、开始和尾部空格:

DimMyVarMyVar=LTrim("vbscript")"MyVar包含"vbscript"MyVar=RTrim("vbscript")"MyVar包含"vbscript"MyVar=Trim("vbscript")"MyVar包含"vbscript"
3、Mid函数示例:

下面的示例利用Mid函数返回字符串中从第四个字符开始的六个字符:

DimMyVarMyVar=Mid("VB脚本isfun!",4,6)"MyVar包含"Script"
4、Left函数示例:

下面的示例利用Left函数返回MyString的左边三个字母:

DimMyString,LeftStringMyString="VBSCript"LeftString=Left(MyString,3)"LeftString包含"VBS
5、Right函数示例:

下面的示例利用Right函数从字符串右边返回指定数目的字符:

DimAnyString,MyStrAnyString="HelloWorld""定义字符串。MyStr=Right(AnyString,1)"返回"d"MyStr=Right(AnyString,6)"返回"World"MyStr=Right(AnyString,20)"返回"HelloWorld"。6、LCase函数示例:

下面的示例利用LCase函数把大写字母转换为小写字母:

DimMyStringDimLCaseStringMyString="VBSCript"LCaseString=LCase(MyString)"LCaseString包含"vbscript"。7、UCase函数示例:

下面的示例利用UCase函数返回字符串的大写形式:

DimMyWordMyWord=UCase("HelloWorld")"返回"HELLOWORLD"

8、StrComp函数示例:

下面的示例利用StrComp函数返回字符串比较的结果。如果第三个参数为1执行文本比较;如果第三个参数为0或者省略执行二进制比较。

DimMyStr1,MyStr2,MyCompMyStr1="ABCD":MyStr2="abcd""定义变量。MyComp=StrComp(MyStr1,MyStr2,1)"返回0MyComp=StrComp(MyStr1,MyStr2,0)"返回-1MyComp=StrComp(MyStr2,MyStr1)"返回1

9、InStr示例:

下面的示例利用InStr搜索字符串:

DimSearchString,SearchChar,MyPosSearchString="XXpXXpXXPXXP"???SearchChar="P"??MyPos=Instr(SearchString,SearchChar)???"返回9.注意:返回的不是一个字符串在另一个字符串中第一次出现的字符位置,而是字节位置。

10、Split函数示例:

DimMyString,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