excel VBA 处理字符串详解教程

来源:互联网 时间:2016-01-03

目录

1 VBA中的字符串

2 VBA中处理字符串的函数

2.1 比较字符串

2.2 转换字符串

2.3 创建字符串

2.4 获取字符串的长度

2.5 格式化字符串

2.6 查找字符串

2.7 提取字符/字符串

2.8 删除空格

2.9 返回字符代码

2.10 返回数值代表的相应字符

2.11 使用字节的函数

2.12 返回数组的函数

2.13 连接字符串

2.14 替换字符串

2.15 反向字符串

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

1 VBA中的字符串

VBA不仅可以处理数字,也可以处理文本(字符串)。VBA提供了两类字符串:

一类为固定长度的字符串,声明时包含指字的字符数。例如,下面的语句

Dim strFixedLong As String*100

声明字符串变量后,无论赋予该变量多少个字符,总是只包含100个字符,但字符串最长不超过65526个字符,且需要使用Trim函数去掉字符串中多余的空格。定长字符串只有在必要时才使用。

另一类为动态字符串。例如,声明字符串变量Dim strDynamic As String后,可以给该变量任意赋值,最多可包含20亿个字符。

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

2 VBA中处理字符串的函数

2.1 比较字符串

通常,在VBA中进行字符串比较时,会用到比较运算符(如=、>等)、Like运算符和StrComp函数。此外,在模块的开头用Option Compare语句指定比较方式。

2.1.1 比较运算符

可以采用简单的逻辑运算符进行两个字符串的比较,即<(小于)、<=(小于或等于)、>(大于)、>=(大于或等于)、=(等于)、<>(不等于)。此外,还可以使用Like运算符进行比较。

2.1.2 StrComp函数

StrComp函数返回字符串比较的结果。其语法为:

StrComp(string1,string2[,compare])

其中,参数string1和strng2为必需的参数,可以是任何有效的字符串表达式。

参数Compare为可选参数,如果该参数为Null,将发生错误。如果参数Compare设置为常数vbUseCompareOption或-1或忽略该参数,将使用Option Compare语句设置进行比较;如果忽略该参数且没有设置Option Compare语句,则按二进制进行比较;如果参数Compare设置为常数vbBinaryCompare或0,则用二进制进行比较;如果参数Compare设置为常数vbTextCompare或1,则按文本进行比较;如果参数Compare设置为常数vbDatabaseCompare或2,此时仅适用于Microsoft Access,进行基于数据库信息的比较。

StrComp函数的返回值为:如果String1<String2,则返回值为-1;如果String1=String2,则返回值为0;如果String1>String2,则返回值为1;如果String1或String2为Null,则返回值为Null。

看看下面的示例:

Sub testStringCompare()

Dim MyStr1 As String, MyStr2 As String, MyComp1, MyComp2, MyComp3, MyComp4

MyStr1 = "ABCD"

MyStr2 = "abcd"

MyComp1 = StrComp(MyStr1, MyStr2, 1) ' 返回 0

MyComp2 = StrComp(MyStr1, MyStr2, 0) ' 返回 -1

MyComp3 = StrComp(MyStr1, MyStr2) ' 返回 -1

MyComp4 = StrComp(MyStr2, MyStr1) '返回1

MsgBox "StrComp(MyStr1, MyStr2, 1)的结果为:" & MyComp1

MsgBox "StrComp(MyStr1, MyStr2, 0)的结果为:" & MyComp2

MsgBox "StrComp(MyStr1, MyStr2)的结果为:" & MyComp3

MsgBox "StrComp(MyStr2, MyStr1)的结果为:" & MyComp4

End Sub

示例说明:如果StrComp函数的第三个参数值为1,则以文本比较的方式进行字符串比较;如果第三个参数值为0或忽略该参数,则以二进制比较的方式进行字符串比较。注意,文本比较的方式不区分字母大小写,而二进制比较方式则区分大小写。

[编程方法和技巧] 完成一次简单的单一比较,如

If UCase(sString1)<UCase(sString2) Then

比使用StrComp函数:

If StrComp(sString1,sString2,vbTextCompare)=-1 Then

在性能上要提高30%,且更容易阅读和理解。

2.2 转换字符串

2.2.1 StrConv函数

使用StrConv函数来按指定类型转换字符串。其语法为:

StrConv(string,conversion,LCID)

其中,参数string为要转换的字符串,参数conversion为指定转换的类型,参数LCID为可选参数。

如果将参数conversion设置为vbUpperCase或1,则将字符串转换成大写;设置为vbLowerCase或2,则将字符串转换成小写;设置为vbProperCase或3,则将字符串中每个字的开头字母转换成大写;设置为vbUnicode或64,则根据系统的缺省码页将字符串转换成Unicode;设置为vbFromUnicode或128,则将字符串由Unicode转换成系统的缺省码页。

在将ANSI格式的Byte数组转换成字符串时,应使用StrConv函数;转换Unicode格式的数组时,使用赋值语句。下面的例子使用StrConv函数将Unicode字符串转换成ANSI字符串:

Sub testConverseString()

Dim i As Long

Dim x() As Byte

x = StrConv("ABCDEFG", vbFromUnicode) ' 转换字符串。

For i = 0 To UBound(x)

Debug.Print x(i)

Next

End Sub

下面的例子将句子中每个词语的首字母转换为大写:

Sub testConverseString2()

Debug.Print StrConv("my book is this book.", vbProperCase)

End Sub

程序运行后,在VBE窗口中的立即窗口中将会看到上述结果。

下面的示例演示了如何把一个字符串转换为字节数组,以便使用在API函数调用中:

Sub Test()

Dim byArray() As Byte

Dim sString As String

sString = "Some stuff"

byArray = StrConv(sString, vbFromUnicode)

End Sub

StrConv函数将下面的字符看成是字的分隔符:

Null:Chr$(0)

水平制表符:Chr$(9)

换行符:Chr$(10)

垂直制表符:Chr$(11)

换页符:Chr$(12)

回车符:Chr$(13)

空格:Chr$(32)

[编程方法和技巧] 在使用API时该函数很重要,很多程序调用都要求传递给它们Unicode字符,或者赋给返回变量Unicode字符。

2.2.2 Str函数

将数值转换成字符串,即返回代表一个数值的字符串。其语法为:

Str(number)

当一个数字转成字符串时,总会在前面保留一个空位来表示正负,即字符串的第一位一定是空格或正负号。如果参数number为正,返回的字符串前面包含一空格。Str函数将句点(.)作为有效的小数点。示例如下:

MyString = Str(459) ' 返回 " 459"

MyString = Str(-459.65) ' 返回 "-459.65"

MyString = Str(459.001) ' 返回 " 459.001"

[编程方法和技巧] 使用LTrim函数可删除Str函数在返回的字符串开头添加的前导空格。此外,CStr函数和Format函数已经取代了Str函数,CStr函数不用为正数的符号而添加前导空格,Format函数能够用来识别小数点。

2.2.3 CStr函数

CStr将数值表达式转换成String数据类型。示例如下:

MyDouble = 437.324 ' MyDouble 为 Double 类型

MyString = CStr(MyDouble) ' MyString 的内容为"437.324"

[编程方法和技巧] 传递给CStr的未初始化的数字数据类型返回“0”,传递给CStr的未初始化的日期变量返回“0:00:00”。

2.3 创建字符串

2.3.1 Space函数

该函数返回指定数的空格的字符串。语法为:

Space(number)

其中,参数number必须,为字符串中指定的空格数。

如下例所示:

Sub CreateString1()

Dim MyString

' 返回 10 个空格的字符串。

MyString = Space(10)

' 将 10 个空格插入两个字符串中间。

MyString = "Hello" & Space(10) & "World"

End Sub

该函数可用于在调用外部DLL时建立字符串缓冲区,特别是在调用Window API时。此外,使用该函数还可以使字符串在特定长度的缓冲区左对齐或右对齐。

注意,如果参数number是负数,则会产生运行时错误5:“无效的过程调用或参数”。

[编程方法和技巧] 可以使用Space函数添加和清除存储在定长字符串中的数据,例如,下面的代码用空格填充一个定长字符串:

Dim strFixed As String * 32

……

strFixed = Space(Len(strFixed))

2.3.2 String函数

该函数返回重复的字符或字符串。其语法为:

String(number,character)

其中,参数number必须,指定所返回的字符串的长度;参数character必须,指定字符的字符代码或字符串表达式。

例如,下面使用String函数生成指定长度且只含单一字符的字符串。

Sub CreateString2()

Dim MyString

MyString = String(5, "*") ' 返回 "*****"

MyString = String(5, 42) ' 返回 "*****"

MyString = String(10, "ABC") ' 返回 "AAAAAAAAAA"

End Sub

如果参数number包含Null,则返回Null;如果参数character包含Null,则返回Null;参数character可以指定为字符串或者是ANSI字符代码,如:

strString1=String(128,”=”) ‘用”=”填充

strString2=String(128,0) ‘用Chr$(0)填充

[编程方法和技巧]

(1) String函数在用于创建较长的“_”,“-”,或者“=”构成的水平线以便给报表分段时十分有用。

(2) 当调用API函数向缓冲区写入字符串值时,首先要用String函数创建一个长度合适的字符串变量,并且用诸如Chr$(0)之类的单个字符来填充。

相关阅读:
Top