VBA字符串用法(自整理)[参照].pdf

VBA 字符串用法

一、字符串比较：

1．解读 Like运算符

Like 运算符是字符串比较时经常使用的运算符，也是 VBA 较难掌握的运算符。

语法：

result = string Like pattern

Like 运算符的语法具有以下几个部分：

部分 描述

result 必需的；任何数值变量。

pattern 中的字符 符合 string 中的

? 任何单一字符

* 零个或多个字符

# 任何一个数字（ 0-9）

[字符列表 ] 字符列表中的任何一个字符

[! 字符列表 ] 不在字符列表中的任何一个字符

其它字符 (串) 与自身匹配

1). Like 在字符串比较时受 Option Compare 语句的影响，在默认情况下（ Option Compare

Binary），字符比较根据内部二进制表示法（ ASCII码）进行，是区分大小写的，此时 "A" Like

"a" 的结果为 False。如果声明了 Option Compare Text，则不区分大小写比较， "A" Like "a" 的

3). 字符列表

理解字符列表的用法是学会 Like 的难点

(1) 一个字符列表匹配的是字符串中的一个字符，不管字符列表中实际有多少个字符。

"A" Like [ABCDEGHIJ2345] 结果为 True

"AB" Like [ABCDEGHIJ2345] 结果为 False

唯一的例外是 [] 被看作长度为零的字符串。

问：

“一个字符列表匹配的是字符串中的一个字符，不管字符列表中实际有多少个字符。 ”

"A" Like [ABCDEGHIJ2345]

结果为

True

1.它是有 1 个字符组成的字符串 .因为这个模式只有一个字符列表 .

2.这个字符是 ABCDEGHIJ2345中的一个 .

"A"

所以为

TRUE

"AB"不符合第 1 个条件 .结果为 FALSE

问：

"AB" 不也是包含在 ABCDEGHIJ2345 的吗？难道有两个字符以上就不能比较是否包含

在另一个字符串（字符列表）里面？谢谢！

答：

如果要判断字符串是否由两个上面的字符组成 :

[ABCDEGHIJ2345]可以简化为 [A-EG-J2-5]，连字符要遵循从小到大的顺序（升序） ，即连字符

(-)右端的字符应大于左端的字符，如其中的 A-E 不能写成 E-A，后者系统会报错。但多个区

间之间没有顺序要求，这意味着 [G-J2-5A-E]、[2-5G-JA-E]...等是同一表达。但下面的表达是错

误的，同时也是常见的：

[A-E G-J 2-5]、[A-E,G-J,2-5]、[A-E;G-J;2-5]

也许只是一种习惯或想当然，第一个除了要求表达的 ABCDEGHIJ2345外，还多加了一个空

格；后面两个分别多了逗号 (,)和分号 (;)。

"," Like [A-EG-J2-5] 结果为 False

"," Like [A-E,G-J,2-5] 结果为 True

(4) 被中括号（ []）括起的字符列表中的字符， ?、* 、#不被理解为通配符，而是表示符号自

组外可以作为个别字符使用。

(5) 在字符列表加上 !(感叹号）开头，表示要匹配的是不在字符列表中的任一字符（不包括

开头的 !自身）。[!!] 表示除了感叹号之外的任一字符。

4). 例子

下面是 EXCEL/VBA帮助中举的几个 Like 运算符的例子，对照结果看看，如果和你想的结果

都一样，说明你已经基本掌握了 Like 用法。

Dim MyCheck

MyCheck = "aBBBa" Like "a*a" ' 返回 True。

MyCheck = "F" Like "[A-Z]" '

返回

True

。

MyCheck = "F" Like "[!A-Z]" ' 返回 False。

MyCheck = "a2a" Like "a#a" ' 返回 True。

MyCheck = "aM5b" Like "a[L-P]#[!c-e]" ' 返回 True。

MyCheck = "BAT123khg" Like "B?T*" ' 返回 True。

MyCheck = "CAT123khg" Like "B?T*" '

返回

False

。

5). 思考题

假设有一字符串 s，写出表达式，判断 s 是否是仅由字母组成并且以字母 e（E）结尾的字符

Dim b As Long, a As Long

If Mid(s, Len(s), 1) Like "[eE]" Then

End If

If b = Len(s) Then

End If

End Function

字符串

Dim b As Long, a As Long

Dim s As String

s = "aasdfasdbaE"

' End If

If b = Len(s) And Right(s, 1) Like "[eE]" Then

Else

End If

End Sub

2．StrComp函数

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

如果参数 Compare 设置为常数 vbUseCompareOption 或-1 或忽略该参数，将使用 Option

如果参数 Compare 设置为常数 vbDatabaseCompare 或 2，此时仅适用于 Microsoft Access，

进行基于数据库信息的比较。

如果 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

返回

MsgBox "StrComp(MyStr1, MyStr2, 0)

的结果为

:" & MyComp2

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

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

示例说明：如果 StrComp 函数的第三个参数值为 1，则以文本比较的方式进行字符串比较；

如果第三个参数值为 0 或忽略该参数， 则以二进制比较的方式进行字符串比较。 注意， 文本

比较的方式不区分字母大小写，而二进制比较方式则区分大小写。

示例：完成一次简单的单一比较，如

If UCase(sString1)<UCase(sString2) Then

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

在模块级别中使用，用于声明字符串比较时所用的缺省比较方法。

语法： Option Compare {Binary | Text | Database}

比较。在 Microsoft Windows 中，排序顺序由代码页确定。

Option Compare Text 根据由系统国别确定的一种不区分大小写的文本排序级别来进行字符

(A=a) < ( _=_) < (B=b) < (E=e) < (_=_) < (Z=z) < (_=_)

二、字符串替换： Mid 语句

Mid 语句：替换字符串的部分内容

是的，你没有看错，我是说 Mid 语句，而不是 Mid 函数。

让我们看一个例子。

已知：字符串 s="12345" ，整数 i=2

要求 :将 s 的第 i 个字符替换为 "d"

通常的方法 (Mid 函数 )：

s=left(s,i-1) & "d" & mid(s,i+1)

Mid 语句的方法：

Mid(s, i, 1) = "d"