当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp之字符串函数示例

ASP
asp生成三维饼图的函数
ASP下的简洁的多重查询的方法与函数 真不错
发一个ASP的ADODB类代码
A利用ASP小偷和Google实现在线翻译功能的代码
ASP类型网站结合动网论坛会员的方法
Asp下实现多表单域无组件文件上传的实例
asp制作中常用到的函数库集合
易心asp分页类 v1.0
asp中xmlhttp组件发包
检测是否为数字类型的asp代码
可以获得文件的文件名的asp函数
用asp实现访问远程计算机上MDB access数据库文件的方法
用ASP实现写IIS日志的代码
asp在IE浏览器中下载服务端上的各类文件的实现方法
asp汉字中文图片验证码的实现代码
asp WAP获取手机终端信息的一段代码
asp取得数组中的最大值的方法
用asp实现的截取指定格式字符串的代码
asp jmail发邮件 详细解析
ASP编程中连接数据库和数据库操作的常用代码

ASP 中的 asp之字符串函数示例


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 83 ::
收藏到网摘: n/a

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,如果大于则返回1
InStrInStr(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 = "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) ' 返回 0MyComp = StrComp(MyStr1, MyStr2, 0) ' 返回 -1MyComp = 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