admin 管理员组

文章数量: 887031


2024年1月26日发(作者:java静态网页制作步骤)

VB 常用字符串函数 (1

作者:来源:发布时间:07-11-03 浏览:12899 次

PART 1

1. ASC (X, Chr(X:转换字符字符码

[格式 ]:

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

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

[范例 ]:

(1P=Chr(65

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

(2P=Asc(“A”

„ 输出 65

2. Len (X:计算字符串 X 的长度

[格式 ]:

P=Len(X

[说明 ]:

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

[范例 ]:

(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=”VB is very good”

P=Replace(X,good,nice

输出结果为:P=”VB is very nice”

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=”VB and VC”

则 Lcase(X的结果为 ”vb and vc” , Ucase(X的结果为 ”VB AND VC”

7. InStr 函数:寻找字符串

[格式 ]:

P=InStr(X,Y [Page]

从 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。

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

PART 2

mid(字符串,从第几个开始,长度 ByRef 在 [字符串 ]中 [从第几个开始 ]取出 [长度个字符 串 ]

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

instr(从第几个开始 , 字符串 1, 字符串 2 ByV al 从规定的位置开始查找, 返回字符串 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 全角转成半角 [Page]

例如 strconv("xiao",vbwide 则返回 " XIAO ", 而 strconv("XIAO ",vbnarrow 则返回 "XIAO"

' 备注 vbwide = 4 ,vbnarrow = 8

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

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

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

PART 3

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[Page]

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!".

(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(字符串) 函数 用于返回字符串的长度。[Page] 5.Left[$](字符串,字符个数) 用于返回“字符串”最左边的长度为“字符个数”的字符串。 例如, Dim substr As String

substr=Left("Visual Basic",3) 则 substr="Vis" 6.Right[$](字符串,字符个数)

用于返回“字符串”最右边的长度为“字符个数”的字符串。 例如, Dim substr As

String substr=Right("Visual Basic",3) 则 substr="sic" 7.Mid[$](字符串,起始位置,[字符个数]) 用于返回一个子字符串。 说明: (1)子字符串从“起始位置”开始,以“字符个数”为长度。 (2)若省略“字符个数”,则从起始位置到字符串的结尾。 8.Lcase(字符串)和 Ucase(字符串)函数 Lcase:不论字符串中的字符为大写还是小写,一律输出为小写。 Ucase:不论字符串中的字符为大写还是小写,一律输出为小写。 9.Ltrim(字符串)、Rtrim(字符串)、Trim(字符串)函数

Ltrim(字符串):用于去掉字符串中左边的空格。 Rtrim(字符串):用于去掉字符串中右边的空格。 Trim(字符串):用于去掉字符串中左右两边的空格。

10.Str(数值)函数 和 Val(字符串) 函数 Str(数值):用于将数字转化为字符串。 Val(字符串):用于将字符串转化为数值。 例如, Dim a As String Dim b As

Long a=Str(345.45) b=Val("234.45") 则 a="345.45" b=234.45


本文标签: 字符串 返回 字符 函数 用于