VBA字符串处理(下)

2.6 查找字符串

2.6.1 InStr函数

可使用InStr函数返回一字符串在另一字符串中的位置，因此，也可以使用该函数确定一个字符串中是否包含有另一个字符串。其语法为：

    InStr([Start,]string1,string2[,compare])

其中，参数Start为可选参数，设置查找的起点，如果省略，则从第一个字符的位置开始查找，当指定了参数Compare时，则要指定此参数。参数string1为被查找的字符串，参数string2为要查找的字符串，这两个参数都是必需的。

如果在String1中没有找到String2，返回0；如果找到String2，则返回String2第一个出现的首字符位置(即1到String1的长度)；如果String2的长度为零，返回Start。

可看看下面的示例：

Sub test()

  Dim SearchString, SearchChar, MyPos

  SearchString = "XXpXXpXXPXXP"   '被搜索的字符串

  SearchChar = "P"   '要查找字符串 "P"

 '从第四个字符开始，以文本比较的方式找起，返回值为 6(小写 p)

  '小写 p 和大写 P 在文本比较下是一样的

  MyPos = InStr(4, SearchString, SearchChar, 1)

  Debug.Print MyPos

  '从第一个字符开使，以二进制比较的方式找起，返回值为 9(大写 P)

  '小写 p 和大写 P 在二进制比较下是不一样的

  MyPos = InStr(1, SearchString, SearchChar, 0)

  Debug.Print MyPos

  '缺省的比对方式为二进制比较(最后一个参数可省略)

  MyPos = InStr(SearchString, SearchChar)    '返回 9

  Debug.Print MyPos

  MyPos = InStr(1, SearchString, "W")   '返回 0

  Debug.Print MyPos

End Sub

2.6.2 InStrRev函数

也可以使用InStrRev函数返回一个字符串在另一个字符串中出现的位置，与InStr函数不同的是，从字符串的末尾算起。其语法为：

    InStrRev(String1,String2[,[Start[,compare])

参数String1为被查找的字符串，参数String2为要查找的字符串，这两个参数都是必需的。参数Start为可选参数，设置每次查找开始的位置，若忽略则使用-1，表示从上一个字符位置开始查找。参数Compare为可选参数，表示所使用的比较方法，如果忽略则执行二进制比较。

下面的示例使用了InStr函数和InStrRev函数，相应的结果不同：

Sub test()

  Dim myString As String

  Dim sSearch As String

  myString = "I like the functionality that InsStrRev gives"

  sSearch = "th"

  Debug.Print InStr(myString, sSearch) '返回8

  Debug.Print InStrRev(myString, sSearch) '返回26

End Sub

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

2.7 提取字符/字符串

2.7.1 Left函数

Left函数可以从字符串的左边开始提取字符或指定长度的字符串，即返回包含字符串中从左边算起指定数量的字符。其语法为：

    Left(String,CharNum)

其中，如果参数String包含Null，则返回Null；如果参数CharNum的值大于或等于String的字符数，则返回整个字符串。

例如，下面的代码返回指定字符串的前两个字符：

strLeft=Left(“This is a pig.”，2)

Left函数与InStr函数结合，返回指定字符串的第一个词，例如下面的代码：

str = "This is a pig."

FirstWord = Left(str, InStr(str, " ") - 1)

2.7.2 Right函数

与Left函数不同的是，Right函数从字符串的右边开始提取字符或指定长度的字符串，即返回包含字符串中从右边起指定数量的字符。其语法为：

    Right(String,CharNum)

例如：

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

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

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

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

如果存放文件名的字符串中没有反斜杠()，下面的代码将反斜杠()添加到该字符串中：

If Right(strFileName,1) <> “” Then

  strFileName=strFileName & “”

End If

下面的函数假设传递给它的参数或者是文件名，或者是包含完整路径的文件名，从字符串的末尾开始返回文件名。

Private Function ParseFileName(strFullPath As String)

  Dim lngPos As Long, lngStart As Long

  Dim strFilename As String

  lngStart = 1

  Do

    lngPos = InStr(lngStart, strFullPath, "")

    If lngPos = 0 Then

      strFilename = Right(strFullPath, Len(strFullPath) - lngStart + 1)

    Else

      lngStart = lngPos + 1

    End If

  Loop While lngPos > 0

  ParseFileName = strFilename

End Function

2.7.3 Mid函数

Mid函数可以从字符串中提取任何指定的子字符串，返回包含字符串中指定数量的字符的字符串。其语法为：

    Mid(String,Start[,Len])

其中，如果参数String包含Null，则返回Null；如果参数Start超过了String的字符数，则返回零长度字符串(“”)；如果参数Len省略或超过了文本的字符数，则返回字符串从Start到最后的所有字符。

例如，下面的代码：

Str=Mid(“This is a pig.”,6,2)

将返回文本“is”。

下面的代码：

MyString = "Mid Function Demo"   '建立一个字符串

FirstWord = Mid(MyString, 1, 3)   '返回 "Mid"

LastWord = Mid(MyString, 14, 4)    '返回 "Demo"

MidWords = Mid(MyString, 5)   '返回 "Funcion Demo"

Mid函数常用于在字符串中循环，例如，下面的代码将逐个输出字符：

Dim str As String

Dim i As Integer

Str=”Print Out each Character”

For i=1 to Len(str)

  Debug.Print Mid(str,i,1)

Next i

2.7.4 Mid语句

Mid语句可以用另一个字符串中的字符替换某字符串中指定数量的字符。其语法为：

    Mid(Stringvar,Start[,Len])=string

其中，参数Stringvar代表为要被更改的字符串；参数Start表示被替换的字符开头位置；参数Len表示被替换的字符数，若省略则全部使用string；参数string表示进行替换的字符串。

被替换的字符数量总小于或等于Stringvar的字符数；如果string的数量大于Len所指定的数量，则只取string的部分字符。示例如下：

MyString = "The dog jumps"   ' 设置字符串初值

Mid(MyString, 5, 3) = "fox"    ' MyString = "The fox jumps"

Mid(MyString, 5) = "cow"   ' MyString = "The cow jumps"

Mid(MyString, 5) = "cow jumped over"    ' MyString = "The cow jumpe"

Mid(MyString, 5, 3) = "duck"    ' MyString = "The duc jumpe"

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

2.8 删除空格

LTrim函数删除字符串前面的空格；

RTrim函数删除字符串后面的空格；

Trim函数删除两头的空格。

示例如下：

MyString = "  <-Trim->  "    ' 设置字符串初值

TrimString = LTrim(MyString)    ' TrimString = "<-Trim->  "

TrimString = RTrim(MyString)   ' TrimString = "  <-Trim->"

TrimString = LTrim(RTrim(MyString))    ' TrimString = "<-Trim->"

' 只使用 Trim 函数也同样将两头空格去除

TrimString = Trim(MyString)   ' TrimString = "<-Trim->"

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

2.9 返回字符代码

Asc函数返回指定字符串表达式中第一个字符的字符代码。示例如下：

MyNumber = Asc("A")   ' 返回 65

MyNumber = Asc("a")    ' 返回 97

MyNumber = Asc("Apple")   ' 返回 65

[编程方法和技巧]

(1) 在数据验证中用Asc来决定一些条件，如第一个字符是大写还是小写、是字母还是数字。

Private Sub CommandButton1_Click()

  Dim sTest As String

  Dim iChar As Integer

  sTest = TextBox1.Text

  If Len(sTest) > 0 Then

    iChar = Asc(sTest)

    If iChar >= 65 And iChar <= 90 Then

      MsgBox "第一个字符是大写"

    ElseIf iChar >= 97 And iChar <= 122 Then

      MsgBox "第一个字符是小写"

    Else

      MsgBox "第一个字符不是字母"

    End If

  Else

    MsgBox "请在文本框中输入"

  End If

End Sub

(2) 用Asc函数和Chr函数来创建基本加密的方法。

Private Sub CommandButton2_Click()

  Dim MyName As String, MyEncryptedString As String

  Dim MyDecryptedString As String

  Dim i As Integer

  MyName = "fanjy"

  For i = 1 To Len(MyName)

    MyEncryptedString = MyEncryptedString & Chr(Asc(Mid(MyName, i, 1)) + 25)

  Next i

  MsgBox "您好!我的名字是" & MyEncryptedString

  For i = 1 To Len(MyName)

    MyDecryptedString = MyDecryptedString & Chr(Asc(Mid(MyEncryptedString, i, 1)) - 25)

  Next i

  MsgBox "您好!我的名字是" & MyDecryptedString

End Sub

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

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

Chr函数返回指定字符码所代表的字符，其语法为：

    Chr(charcode)

其中参数charcode代表字符码，一般为0～255。例如：

MyChar = Chr(65)  ' 返回 A

MyChar = Chr(97)   ' 返回 a

MyChar = Chr(62)  ' 返回 >

MyChar = Chr(37)  ' 返回 %

[编程方法和技巧]

(1) 使用Chr(34)将引号嵌入字符串，如

Chr(34) & sString & Chr(34)

(2) 下面列出了在调用Chr函数时比较常用的字符代码：

代码  值    描述

0   Null   相当于vbNullChar常数

8   BS   相当于vbBack常数

9   TAB   相当于vbTab常数

10   CR   相当于vbCr和vbCrLf常数

13   LF   相当于vbLf和vbCrLf常数

34   “”   引号

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

2.11 使用字节的函数

VBA中返回字符串的函数有两种格式，一种以$结尾，返回字符串，不需要进行类型转换，所以速度较快，但如果输入值是包含Null的Viarant，则会发生运行错误；一种没有$，返回Viarant数据类型，如果输入值是包含Null的Viarant，则返回Null。因而，如果要使得程序运行速度快，则使用带有$的函数且要避免向这些函数传递空值。

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

2.12 返回数组的函数

2.12.1 Filter函数

Filter函数返回一个下标从零开始的数组，该数组包含基于指定筛选条件的一个字符串数组的子集。其语法为：

    Filter(sourcearray,match[,include[,compare]])

其中，参数sourcearray必需，是要执行搜索的一维字符串数组；参数match必需，是要搜索的字符串；参数include可选，Boolean值，表示返回子串包含还是不包含match字符串，如果include为True，返回包含match子字符串的数组子集，如果include为False，返回不包含match子字符串的数组子集；参数compare可选，表示所使用的字符串比较类型，其设置值为：-1(常数为vbUseCompareOption)表示使用Option Compare语句的设置值来执行比较；0(常数为vbBinaryCompare)表示执行二进制比较；1(常数为vbTextCompare)表示执行文字比较；2(常数为vbDatabaseCompare)只用于Microsoft Access，表示基于数据库信息来执行比较。

如果在sourcearray中没有发现与match相匹配的值，Filter函数返回一个空数组；如果sourcearray是Null或不是一个一维数组，则产生错误。

Filter函数所返回的数组，其元素数是所找到的匹配项目数。

[编程方法和技巧]

(1) Filter函数也可以过滤数字值。此时，应指定Variant类型的字符串sourcearray，并用数字值给数组赋值。同时，也可以将字符串、Variant、Long或Integer数据传递给match。但应注意，返回的字符串表现为被过滤数字的字符串的形式。例如：

Sub test()

  Dim varSource As Variant, varResult As Variant

  Dim strMatch As String, i

  strMatch = CStr(2)

  varSource = Array(10, 20, 30, 21, 22, 32)

  varResult = Filter(varSource, strMatch, True, vbBinaryCompare)

  For Each i In varResult

    Debug.Print i

  Next

End Sub

将返回20，21，22，32

(2) Filter函数可以和Dictionary对象很好地配合使用。可以把Dictionary对象产生的Key值作为一种过滤Dictionary对象成员的快速方法传递给Filter函数，如：

Sub test()

  Dim i As Integer

  Dim sKeys() As Variant

  Dim sFiltered() As String

  Dim sMatch As String

  Dim blnSwitch As Boolean

  Dim oDict As Dictionary

  Set oDict = New Dictionary

  oDict.Add "Microsoft", "One Microsoft Way"

  oDict.Add "AnyMicro Inc", "31 Harbour Drive"

  oDict.Add "Landbor Data", "The Plaza"

  oDict.Add "Micron Co.", "999 Pleasant View"

  sKeys = oDict.Keys

  sMatch = "micro"

  blnSwitch = True

  '寻找包含字符串macro(不区分大小写)的所有键

  sFiltered() = Filter(sKeys, sMatch, blnSwitch, vbTextCompare)

  For i = 1 To UBound(sFiltered)

      Debug.Print sFiltered(i) & "," & oDict.Item(sFiltered(i))

  Next i

End Sub

2.12.2 Split函数

Split函数返回一个下标从零开始的一维数组，包含指定数目的子字符串。其语法为：

    Split(expression[,delimiter[,limit[,compare]]])

其中，参数expression必需，表示包含子字符串和分隔符的字符串，若expression是一个长度为零的字符串(“”)，该函数则返回一个没有元素和数据的空数组；参数delimiter用于标识子字符串边界的字符串字符，若忽略则使用空格(“ “)作为分隔符，若是一个长度为零的字符串则返回仅包含一个元素的数组，该元素是expression所表示的字符串；参数limit表示要返回的子字符串数，-1表示返回所有的子字符串；参数compare表示判别子字符串时使用的比较方式，其值与Filter函数的设置值相同。

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

2.13 连接字符串

Join函数返回连接某数组中的多个子字符串而组成的字符串，即将数组中的字符串连接起来。其语法为：

    Join(sourcearray[，delimiter])

其中，参数sourcearray必需，是包含被连接子字符串的一维数组；参数delimiter可选，代表在所返回的字符串中用于分隔子字符串的字符，若忽略则使用空(“ ”)来分隔，若为零长字符串(“”)，则所有项目都连接在一起，中间没有分隔符。

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

2.14 替换字符串

Replace函数返回一个被替换了的字符串，该字符串中指定的子字符串已被替换成另一个子字符串，并且替换指定次数。其语法为：

    Replace(expression,find,replace[,start[,count[,compare]]])

其中，参数expression必需，表示所要替换的子字符串；参数find必需，表示要搜索到的子字符串；参数replace必需，表示用来替换的子字符串；参数start表示开始搜索的位置，若忽略，则从1开始；参数count表示进行替换的次数，缺省值是-1，表示进行所有可能的替换；参数compare表示判别子字符串时所用的比较方式，与Filter函数的设置值相同。

如果expression的长度为零，Replace返回零长度字符串(“”)；如果expression为Null，则返回错误；如果find的长度为零，则返回expression的副本；如果replace的长度为零，则返回删除了所有出现find的字符串的副本；如果start的值大于expression的长度，则返回长度为零的字符串；如果count为0，则返回expression的副本。

Replace函数返回的字符串是从参数start所指定的位置开始到expression结尾已经进行过替换的字符串。

注意：

(1) 如果没有使用参数count，那么当替换较短字符串时就要注意，防止形成一个不相关的字符。

(2) 如果start值大于1，返回的字符串将从start开始，而不是从原有字符串的第一个字符开始。

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

 

2.15 反向字符串

StrReverse函数返回与指定字符串顺序相反的字符串，其语法为：

    StrReverse(expression)

其中，参数expression是一个字符串，应用StrReverse函数后将返回与该字符串顺序相反的字符串。如果expression是一个长度为零的字符串(“”)，则返回一个长度为零的字符串；如果expression为Null，则产生一个错误。