vb常用字符串函数.docx

vb常用字符串函数.docx

《vb常用字符串函数.docx》由会员分享，可在线阅读，更多相关《vb常用字符串函数.docx（7页珍藏版）》请在冰豆网上搜索。

vb常用字符串函数

1.ASC（X），Chr（X）：

转换字符字符码

[格式]：

P=Asc（X）返回字符串X的第一个字符的字符码

P=Chr（X）返回字符码等于X的字符

[范例]：

（1）P=Chr（65）

输出字符A,因为A的ASCII码等于65

（2）P=Asc（“A”）

输出65

2.Len（X）：

计算字符串X的长度

[格式]：

P=Len（X）

[说明]：

空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2Bytes，但也算一个字符。

[范例]：

（1）令X=””（空字符串）

Len（X）输出结果为0

（2）令X=”abcd” 

Len（X）输出结果为4

（3）令X=”VB教程”

Len（X）输出结果为4

3.Mid（X）函数：

读取字符串X中间的字符

[格式]：

P=Mid（X,n）

由X的第n个字符读起，读取后面的所有字符。

P=Mid（X,n,m）

由X的第n个字符读起，读取后面的m个字符。

[范例]：

（1）X=”abcdefg”

P=Mid（X,5）

结果为：

P=”efg”

（2）X=”abcdefg”

P=Mid（X,2,4）

结果为P=”bcde”

4.Replace:

将字符串中的某些特定字符串替换为其他字符串

[格式]：

P=Replace（X,S,R）

[说明]：

将字符串X中的字符串S替换为字符串R，然后返回。

[范例]：

X=”VBisverygood”

P=Replace（X,good,nice）

输出结果为：

P=”VBisverynice”

5.StrReverse：

反转字符串

[格式]：

P=StrReverse（X）

[说明]：

返回X参数反转后的字符串

[范例]：

（1）X=”abc”

P=StrReverse（X）

输出结果：

P=”cba”

6.Ucase（X），Lcase（X）：

转换英文字母的大小写

[格式]：

P=Lcase（X）

‘将X字符串中的大写字母转换成小写

P=Ucase（X）

‘将X字符串中的小写字母转换成大写

[说明]：

除了英文字母外，其他字符或中文字都不会受到影响。

[范例]：

（1）令X=”VBandVC”

则Lcase（X）的结果为”vbandvc”，Ucase（X）的结果为”VBANDVC”

7.InStr函数：

寻找字符串

[格式]：

P=InStr（X,Y）

从X第一个字符起找出Y出现的位置

P=InStr（n,X,Y）

从X第n个字符起找出Y出现的位置

[说明]：

（1）若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。

（2）InStr（X,Y）相当于InStr（1,X,Y）。

（3）若字符串长度，或X为空字符串，或在X中找不到Y，则都返回0。

（4）若Y为空字符串，则返回0。

----------------------------------------------------------------------------------------------

mid（字符串，从第几个开始，长度）ByRef在[字符串]中[从第几个开始]取出[长度个字符串]

例如mid（"小欣无敌",1,3）则返回"小欣无"

instr（从第几个开始,字符串1,字符串2）ByVal从规定的位置开始查找，返回字符串2在字符串1中的位置

例如instr（1,"小欣无敌","小"）则返回1,instr（2,"小欣无敌","小"），则返回0。

0表示未找到

InStrRev（字符串1,字符串2,从第几个开始）ByVal从规定的位置开始，从后住前查找，返回字符串2在字符串1中的位置，此处注意，虽是从后住前查找，但是返回的值还是从前往后算的。

例如instrRev（"小欣无敌","小",2）则返回2;instrRev（"小欣无敌","欣",1）则返回0,因为它从"小欣无敌"的第1个字开始往前查找，所以找不到。

0表示未找到

left（字符串,长度）ByVal从[字符串]的左边开始返回[长度]个字符

例如Left（"小欣无敌,3）则返回"小欣无"

right（字符串,长度）ByVal从[字符串]的右边开始返回[长度]个字符

例如Right（"小欣无敌",3）则返回"欣无敌"

ucase（字符串）ByVal返回[字符串]的大写形式，只对英文字符有效

例如ucase（"xiaoXINwuDi"）则返回"XIAOXINWUDI"

lcase（字符串）ByVal返回[字符串]的小写形式，只对英文字符有效

例如lcase（"xiaoXINwuDi"）则返回"xiaoxinwudi"

asc（字符）Byval返回[字符]的ascii编码，若有多个字符，则只返回首字符的ascii编码,和Chr（）函数是一个可逆的过程

例如asc（"小"）则返回-12127;asc（"小欣无敌"）也返回-12127

chr（ASCii编码）Byval返回[Ascii]编码所代表的字符，和Chr（）函数是一个可逆的过程

例如chr（-12127）则返回"小"；chr（asc（"小"））则返回"小"（这里是为了说明asc和chr的可逆性，例用此特性可以加密文本）

trim（字符串）Byval返回去掉了前、后之后的[字符串]

例如trim（" 小欣无敌"）则返回"小欣无敌"，中间的空格不受任何影响

string（个数,字符）Byval返回[个数]个[字符]

例如string（3,"小"）则返回"小小小",而string（3,"小欣无敌"）也返回"小"，只有首字符才有效

space（个数）Byval返回[个数]个空格

例如space（5）则返回""

strconv（字符串,转换的类型）Byval将字符串转成指定的类型。

常用的类型只有两个,vbwide半角转成全角,vbNarrow全角转成半角

例如strconv（"xiao",vbwide）则返回"ＸＩＡＯ",而strconv（"ＸＩＡＯ",vbnarrow）则返回"XIAO"

'备注vbwide=4,vbnarrow=8

len（字符串）Byval返回[字符串]的长度

例如len（"小欣无敌"）则返回4

------------------------------------------------------------------------------------------

∙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函数返回字符串中的字符数目：

DimMyString

MyString=Len（"VBSCRIPT"）'MyString包含8。

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

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

DimMyVar

MyVar=LTrim（"vbscript"）'MyVar包含"vbscript"。

MyVar=RTrim（"vbscript"）'MyVar包含"vbscript"。

MyVar=Trim（"vbscript"）'MyVar包含"vbscript"。

3、Mid函数示例：

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

DimMyVar

MyVar=Mid（"VB脚本isfun!

",4,6）'MyVar包含"Script"。

4、Left函数示例：

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

DimMyString,LeftString

MyString="VBSCript"

LeftString=Left（MyString,3）'LeftString包含"VBS

5、Right函数示例：

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

DimAnyString,MyStr

AnyString="HelloWorld"'定义字符串。

MyStr=Right（AnyString,1） '返回"d"。

MyStr=Right（AnyString,6） '返回"World"。

MyStr=Right（AnyString,20）'返回"HelloWorld"。

6、LCase函数示例：

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

DimMyString

DimLCaseString

MyString="VBSCript"

LCaseString=LCase（MyString）'LCaseString包含"vbscript"。

7、UCase函数示例：

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

DimMyWord

MyWord=UCase（"HelloWorld"） '返回"HELLOWORLD"。

8、StrComp函数示例：

下面的示例利用StrComp函数返回字符串比较的结果。

如果第三个参数为1执行文本比较；如果第三个参数为0或者省略执行二进制比较。

DimMyStr1,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搜索字符串：

DimSearchString,SearchChar,MyPos

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

------------------------------------------------------------------------------------------------

1．Chr[$]（数值）函数

返回标准扩展码的对应字符。

说明：

（1）数值范围在0到255之间。

（2）Chr（）返回的是数值类型，而Chr$（）则返回字符类型。

（3）ANSI是ASCII码的扩充，其前128个字符都与ASCII码相同。

例如，我们常用以下的语句加入回车换行符。

Chr（13）+Chr（10）

2．Asc（"字符"）函数

此函数用来返回字符的ANSI码值。

说明：

若输入为一字符串，则只返回第一个字符的ASCII码值。

例如，

x=Asc（"a"），则，x=97

x=Asc（"ab"），则，x=97

3．String[$]（个数，字符）

用于重复某一个字符。

说明：

（1）“个数”用来指定重复的次数。

（2）若“字符”为一字符串，则只重复复制第一个字符。

4．Len（字符串）函数

用于返回字符串的长度。

5．Left[$]（字符串，字符个数）

用于返回“字符串”最左边的长度为“字符个数”的字符串。

例如，

DimsubstrAsString

substr=Left（"VisualBasic",3）

则

substr="Vis"

6．Right[$]（字符串，字符个数）

用于返回“字符串”最右边的长度为“字符个数”的字符串。

例如，

DimsubstrAsString

substr=Right（"VisualBasic",3）

则

substr="sic"

7．Mid[$]（字符串，起始位置，[字符个数]）

用于返回一个子字符串。

说明：

（1）子字符串从“起始位置”开始，以“字符个数”为长度。

（2）若省略“字符个数”，则从起始位置到字符串的结尾。

8．Lcase（字符串）和Ucase（字符串）函数

Lcase：

不论字符串中的字符为大写还是小写，一律输出为小写。

Ucase：

不论字符串中的字符为大写还是小写，一律输出为小写。

9．Ltrim（字符串）、Rtrim（字符串）、Trim（字符串）函数

Ltrim（字符串）：

用于去掉字符串中左边的空格。

Rtrim（字符串）：

用于去掉字符串中右边的空格。

Trim（字符串）：

用于去掉字符串中左右两边的空格。

10．Str（数值）函数和Val（字符串）函数

Str（数值）：

用于将数字转化为字符串。

Val（字符串）：

用于将字符串转化为数值。

例如，

DimaAsString

DimbAsLong

a=Str（345.45）

b=Val（"234.45"）

则

a="345.45"

b=234.45