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

ASP
[原创]asp下用实现模板加载的的几种方法总结
asp下利用fso实现文件夹或文件移动改名等操作函数
asp cint clng的范围与防止cint和clng的溢出解决方法大全
asp防范跨站点脚本攻击的的方法
独孤剑写的马克斯迅雷片库采集插件1.4 官方最新版提供下载了
根据日期得到生肖的ASP函数
不错的主要用于加密的vbs(asp)位移运算类
Script.VBS.Agent.ai juan.vbs专杀
循环取值Request.QueryString的用法
asp下实现字符串的补充fill()
无服务器做任意二级米子站
几种另类的ASP后门
asp事物功能简单小应用
ASP获取网页全部图片地址并保存为数组的正则
通过客户端验证上传图片文件大小的ASP源码
asp下计算分页的几种方法
谈动态多行多列,循环行和列,输出M行N列的ASP代码
asp在线执行sql语句的函数
asp正则html的图片,对图自动缩放大小
文件名 正则表达式提取方法

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


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