asp之字符串函数示例

最新推荐文章于 2016-05-26 18:07:00 发布

lazycatw

最新推荐文章于 2016-05-26 18:07:00 发布

阅读量2.1k

点赞数

分类专栏： ASP 文章标签： asp vbscript string fun vb 脚本

ASP 专栏收录该内容

35 篇文章 1 订阅

订阅专栏

用字符串函数对字符串进行截头去尾、大小写替换等操作。函数语法功能 Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数。 Trim Trim(string) 将字符串前后的空格去掉 Ltrim Ltrim(string) 将字符串前面的空格去掉 Rtrim Rtrim(string) 将字符串后面的空格去掉 Mid Mid(string,start,length) 从string字符串的start字符开始取得length长度的字符串，如果省略第三个参数表示从start字符开始到字符串结尾的字符串 Left Left(string,length) 从string字符串的左边取得length长度的字符串 Right Right(string,length) 从string字符串的右边取得length长度的字符串 LCase LCase(string) 将string字符串里的所有大写字母转化为小写字母 UCase UCase(string) 将string字符串里的所有大写字母转化为大写字母 StrComp StrComp(string1,string2[，compare]) 返回string1字符串与string2字符串的比较结果，如果两个字符串相同，则返回0，如果小于则返回-1，如果大于则返回1 InStr InStr(string1,string2[, compare]) 返回string1字符串在string2字符串中第一次出现的位置 Split Split(string1,delimiter[, count[, start]])

将字符串根据delimiter拆分成一维数组，其中delimiter用于标识子字符串界限。如果省略，使用空格("")作为分隔符。
count 返回的子字符串数目，-1 指示返回所有子字符串。
start为 1 执行文本比较；如果为 0 或者省略执行二进制比较。

Replace Replace(expression, find, replacewith[, compare[, count[, start]]]) 返回字符串，其中指定数目的某子字符串(find)被替换为另一个子字符串(replacewith)。

1、Len函数示例：

下面的示例利用 Len 函数返回字符串中的字符数目：

Dim MyString

MyString = Len("VBSCRIPT") 'MyString 包含 8。





2、Trim、Ltrim、Rtrim函数示例：

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

Dim MyVar

MyVar = LTrim("  vbscript ")  'MyVar 包含 "vbscript "。

MyVar = RTrim("  vbscript ")  'MyVar 包含 "  vbscript"。

MyVar = Trim("  vbscript ")   'MyVar 包含"vbscript"。

3、Mid函数示例：

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

Dim MyVar

MyVar = Mid("VB脚本is fun!", 4, 6) 'MyVar 包含 "Script"。

4、Left函数示例：

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

Dim MyString, LeftString

MyString = "VBSCript"

LeftString = Left(MyString, 3) 'LeftString 包含 "VBS

5、Right函数示例：

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

Dim AnyString, MyStr

AnyString = "Hello World"      '定义字符串。

MyStr = Right(AnyString, 1)    '返回 "d"。

MyStr = Right(AnyString, 6)    ' 返回 " World"。

MyStr = Right(AnyString, 20)   ' 返回 "Hello World"。





6、LCase函数示例：

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

Dim MyString

Dim LCaseString

MyString = "VBSCript"

LCaseString = LCase(MyString) ' LCaseString 包含 "vbscript"。





7、 UCase函数示例：

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

Dim MyWord

MyWord = UCase("Hello World")    ' 返回"HELLO WORLD"。

8、StrComp函数示例：

下面的示例利用 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。

9、InStr示例：

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

Dim SearchString, SearchChar, MyPos

SearchString ="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