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

ASP
asp分页(自己整理的2个分页程序)
ASP常用的系统配置函数
雨哲防采集策略之列表篇
雨哲浅谈关于防采集而不影响收录内容篇
asp数据库连接函数
ajax XMLHTTP Post Form时的表单乱码综合解决
ASP注入详细命令40条
用ASP实现MSSQL用户密码破解
ASP创建对象的两种方法比较
ASP字符串转换为整形、双精度型、布尔
ASP计算str2在str1中出现的次数
asp采集抓取网上房产信息的代码
ASP注册登陆实例代码
ASP中使用FileSystemObject时提高性能的方法
分享一个好东东,动态Include文件 (Dynamic File Includes)
解决 JScript 中使用日期类型数据时出现类型错误的问题
在ASP里面创建GUID
在JScript中使用缓存技术的实际代码
ASP javascript Application对象的Contents和StaticObjects做Cache的一些经验
海阳2006+功能中的潜水王

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 47 ::
收藏到网摘: 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