VBA中字符串函数

1、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提供了两类

2、字符串：一类为固定长度的字符串，声明时包含指字的字符数。例如，下面的语句Dim strFixedLong As String*100声明字符串变量后，无论赋予该变量多少个字符，总是只包含100个字符，但字符串最长不超过65526个字符，且需要使用Trim函数去掉字符串中多余的空格。定长字符串只有在必要时才使用。另一类为动态字符串。例如，声明字符串变量Dim strDynamic As String后，可以给该变量任意赋值，最多可包含20亿个字符。- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -2 VBA中处理字符串的函数2.

3、1 比较字符串通常，在VBA中进行字符串比较时，会用到比较运算符(如=、等)、Like运算符和StrComp函数。此外，在模块的开头用Option Compare语句指定比较方式。2.1.1 比较运算符可以采用简单的逻辑运算符进行两个字符串的比较，即(小于)、(大于)、=(大于或等于)、=(等于)、(不等于)。此外，还可以使用Like运算符进行比较。2.1.2 StrComp函数StrComp函数返回字符串比较的结果。其语法为： StrComp(string1,string2,compare)其中，参数string1和strng2为必需的参数，可以是任何有效的字符串表达式。参数Compare为

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

5、值为：如果String1String2，则返回值为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(My

6、Str1, 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)的结果为: & MyComp4End Sub示例说明：如果StrComp函数的第三个参数值为1，则以文本比较的方式进行字符串比较；如果第

7、三个参数值为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)其中，参数s

8、tring为要转换的字符串，参数conversion为指定转换的类型，参数LCID为可选参数。如果将参数conversion设置为vbUpperCase或1，则将字符串转换成大写；设置为vbLowerCase或2，则将字符串转换成小写；设置为vbProperCase或3，则将字符串中每个字的开头字母转换成大写；设置为vbUnicode或64，则根据系统的缺省码页将字符串转换成Unicode；设置为vbFromUnicode或128，则将字符串由Unicode转换成系统的缺省码页。在将ANSI格式的Byte数组转换成字符串时，应使用StrConv函数；转换Unicode格式的数组时，使用赋值语句

9、。下面的例子使用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) NextEnd Sub下面的例子将句子中每个词语的首字母转换为大写：Sub testConverseString2() Debug.Print StrConv(my book is this book., vbProperCase)End Sub

10、程序运行后，在VBE窗口中的立即窗口中将会看到上述结果。下面的示例演示了如何把一个字符串转换为字节数组，以便使用在API函数调用中：Sub Test() Dim byArray() As Byte Dim sString As String sString = Some stuff byArray = StrConv(sString, vbFromUnicode)End SubStrConv函数将下面的字符看成是字的分隔符：Null：Chr$(0)水平制表符：Chr$(9)换行符：Chr$(10)垂直制表符：Chr$(11)换页符：Chr$(12)回车符：Chr$(13)空格：Chr$(32)

11、编程方法和技巧 在使用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

12、) 返回 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的未初始化的日期变量返

13、回“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) & WorldEnd Sub该函数可用于在调用外部DLL时建立字符串缓冲区，特别是在调用Window API时。此外，使用该函数还可以使字符串在特定长度的缓冲区左对齐或

14、右对齐。注意，如果参数number是负数，则会产生运行时错误5：“无效的过程调用或参数”。编程方法和技巧 可以使用Space函数添加和清除存储在定长字符串中的数据，例如，下面的代码用空格填充一个定长字符串：Dim strFixed As String * 32strFixed = Space(Len(strFixed)2.3.2 String函数该函数返回重复的字符或字符串。其语法为： String(number,character)其中，参数number必须，指定所返回的字符串的长度；参数character必须，指定字符的字符代码或字符串表达式。例如，下面使用String函数生成指定长度且只

15、含单一字符的字符串。Sub CreateString2() Dim MyString MyString = String(5, *) 返回 * MyString = String(5, 42) 返回 * MyString = String(10, ABC) 返回 AAAAAAAAAAEnd Sub如果参数number包含Null，则返回Null；如果参数character包含Null，则返回Null；参数character可以指定为字符串或者是ANSI字符代码，如：strString1=String(128,”=”) 用”=”填充strString2=String(128,0) 用Chr$(0

16、)填充编程方法和技巧 (1) String函数在用于创建较长的“_”，“-”，或者“=”构成的水平线以便给报表分段时十分有用。(2) 当调用API函数向缓冲区写入字符串值时，首先要用String函数创建一个长度合适的字符串变量，并且用诸如Chr$(0)之类的单个字符来填充。2.4 获取字符串的长度可以使用Len函数来确定任何字符串或字符串表达式的长度，其语法为： Len(string|varname)其中，参数string为任何有效的字符串表达式；参数varname为任何有效的变量名称。两个参数必须取一。利用LenB函数可以确定存储某变量所需的实际字节数。下面的示例使用Len函数来获取某字符串

17、的长度(字符数)或某变量的大小(位数)。Type CustomerRecord 定义用户自定义的数据类型 ID As Integer 将此定义放在常规模块中 Name As String * 10 Address As String * 30End TypeSub GetStrLen() Dim Customer As CustomerRecord 声明变量 Dim MyInt As Integer, MyCur As Currency Dim MyString, MyLen MyString = Hello World 设置变量初值 MyLen = Len(MyInt) 返回 2 MyLen

18、 = Len(Customer) 返回 42 MyLen = Len(MyString) 返回 11 MyLen = Len(MyCur) 返回 8End Sub此外，在需要大量判断是否为空字符串的代码中，使用Len函数也可以加快代码执行的速度。例如：If strTemp = Then 要执行的代码End If上面的代码可以用以下代码代替：If Len(strTemp) = 0 Then 要执行的代码End If注意：(1) 参数string和参数varname互不相容，即只能指定这两个参数中的某一个，不能同时指定这两个参数。(2) 如果参数string或参数varname中包含Null，则L

19、en函数会返回Null。(3) 在向文件写入某种用户自定义类型数据时，Len函数会返回数据的大小(字符数)。(4) LenB函数返回用户自定义类型数据实际占用的内存大小。(5) 在对字节数据或Unicode字符串使用LenB函数时，LenB函数返回表示数据或字符串的字节数。(6) 不能对对象变量使用Len函数。(7) 如果参数varname是一个数组，则必须指定一个有效的下标，即Len函数不能确定数组中元素的总数或数组占用内存的大小。(8) Len函数对Variant类型变量的处理和字符串变量一样，Len函数返回变量所存储的实际字符数，如下面的代码：Dim vVarvVar=100MsgBox

20、 Len(vVar)结果为3。(9) 由于VB本质上使用的是Unicode字符串(用两个字节的空间来存储一个字符)，因此当相同的字符串变量传递给Len函数和LenB函数时会出现不同的返回值。例如，对于一个包含4个字符的字符串，使用Len函数时返回值为4，使用LenB函数则为8。(10) 使用强类型变量(即强制声明该变量的类型)时，Len函数会返回存储该变量所需的字节数。例如，长整型变量的长度为4。下面的示例说明了为什么要显式声明数据类型：Sub test() Dim lVar As Long Dim vVar lVar = vVar = MsgBox LenB(lVar) 返回4 MsgBox

21、 LenB(vVar)返回16End Sub很显然，Variant类型变量比强制声明的类型变量要占用更多的内存。2.5 格式化字符串可以使用Format函数规定输出的字符串的格式，其语法为： Format(expression,format,firstdayofweek,firstweekofyear)其中，参数expression必须，为任何有效的表达式；其余参数均可选。参数format表示所要采用的格式，参数firstdayofweek使用常数，表示一星期的第一天，参数firstweekofyear使用常数，表示一年的第一周。在参数format中，使用字符“”，表示空格或字符占位符，如果在

22、输入的字符串相应位置有字符，则显示该字符，否则显示空格；使用字符“&”，表示空或字符占位符，如果在输入的字符串的相应位置有字符，则显示该字符，否则不显示；使用字符“”，则将所有字符显示为大写格式；使用字符“！”，强制占位符从左向右填满， 满足默认为从右向左。例如下面的代码：Dim strOut strOut = Format(, ()&-&) 返回( )888-8888 strOut = Format(, (&)&-&) 返回()888-8888在Format函数中，还可以同时格式化普通字符串和空字符串，只须在指定的格式中用分号隔开两个部分，第一部分用于非空字符串，第二部分用于空字符串。例如：

23、strOut = Format(, ()&-&;No Phone) 返回( )666-6666strOut = Format(, ()&-&;No Phone) 返回No Phone又如，下面的代码将字母全部转换为大写：Dim strOutstrOut = Format(Hello, ) 返回HELLO同理，可以使用“”将字母全部转换为小写。Format函数的简要使用规则：(1) 允许用预先定义或用户定义的格式来建立多种用于输出字符串、数字和日期/时间数据的方法。(2) 创建用户定义的数值格式最多可以有四个部分，每个部分代表一种不同类型的数值，且用分号分隔。第一部分在单独命名使用时可用于所有值

24、，与其它多个部分一起使用时只用于正数；第二部分用于负数；第三部分用于零值；第四部分用于Null值。在参数format中不必包括所有四部分，但所用部分的数目决定了每一个部分所定义的数值类型：只有一个部分，则应用于所有数值；有两个部分，则第一部分应用于正数和零值，第二部分应用于负数；有三个部分，则第一部分用于正数，第二部分应用于负数，第三部分应用于零值；有四个部分，则每部分的使用如前所述。如果忽略了一个部分，则该部分使用与定义正数的部分一样的格式，例如：“#.00;#,#”表示负数值与正数值使用同一种格式显示。如果参数含有命名格式，则只能有一个部分。(3) 字符串值的用户定义格式有两个部分，第一部

25、分可应用于所有值，第二部分只应用于Null值或零长字符串。(4) 预定义的日期和时间格式如下：General Date范例： Format(28/02/2007,General Date)返回： 2007-2-28Long Date范例： Format(28/02/2007,Long Date)返回： 2007年2月28日Medium Date范例： Format(28/02/2007,Medium Date)返回： 07-02-28Short Date范例： Format(28/02/2007,Short Date)返回： 2007-2-28Long Time 范例： Format(17:3

26、0:03,Long Time)返回： 17:30:03Medium Time范例： Format(17:30:03,Medium Time)返回： 下午 05:30Short Time 范例： Format(17:30:03,Short Time)返回： 17:30(5) 预定义的数值格式如下：General Number范例： Format(.0789,General Number)返回： .0789Currency范例： Format(.0789,Currency)返回： ￥123,456.08Fixed范例： Format(0.2,Fixed)返回： 0.20Standard范例： Fo

27、rmat(.0789,Standard)返回： 123,456.08Percent范例： Format(.7321,Percent)返回： 73.21%Scientific范例： Format(.0789,Scientific)返回： 1.23E+05Yes/No范例1： Format(0,Yes/No)返回： No范例2： Format(23,Yes/No)返回： YesTrue/False范例1： Format(0,True/False)返回： False范例2： Format(23,True/False)返回： TrueOn/Off范例1： Format(0,On/Off)返回： Off

28、范例2： Format(23,On/Off)返回： On(6) 创建用户自定义的日期和时间格式的字符：C元素：日期显示：基于当前Windows系统的短日期和短时间国际设置格式的日期或时间。范例：Format(28/02/2007 17:30:03,c)返回：2007-2-28 17:30:03dddddd元素：日期显示：基于当前Windows系统的长日期国际设置格式的完整日期。范例：Format(28/02/2007,dddddd)返回：2007年2月28日/元素：日期分隔符范例：Format(28/02/2007,mm-dd-yyyy)返回：02-28-2007d元素：日显示：131范围内的

29、一个数字，无前导0。范例：Format(02/02/2007,d)返回：2dd元素：日显示：0131范围内的一个数字，有前导0。范例：Format(02/02/2007,dd)返回：02ddd元素：日显示：英文简写(SunSat)范例：Format(02/02/2007,ddd)返回：Fridddd元素：日显示：英文全称(SundaySaturday)范例：Format(02/02/2007,dddd)返回：Fridayddddd元素：日期显示：基于计算机Windows国际设置短日期格式的日期。范例：Format(02/02/2007,ddddd)返回：2007-2-2h元素：小时显示：023

30、范围内的一个数字，无前导0。范例：Format(05:08:06,h)返回：5hh元素：小时显示：0023范围内的一个数字，有前导0。范例：Format(05:08:06,hh)返回：05n元素：分显示：059范围内的一个数字，无前导0。范例：Format(05:08:06,n)返回：8nn元素：分显示：0059范围内的一个数字，有前导0。范例：Format(05:08:06,nn)返回：08s元素：秒显示：059范围内的一个数字，无前导0。范例：Format(05:08:06,s)返回：6ss元素：秒显示：0059范围内的一个数字，有前导0。范例：Format(05:08:06,ss)返回：

31、06ttttt元素：时间显示：基于12小时制的时间，包含Windows区域设置中指定的时间分隔符和前导0。范例：Format(05:08:06,ttttt)返回：5:08:06AM/PM元素：时间显示：用大写的AM和PM表示的12小时制的时钟格式。范例：Format(17:08:06,hh:mm:ss AM/PM)返回：05:08:06 PMam/pm元素：时间显示：用小写的am和pm表示的12小时制时钟格式。范例：Format(17:08:06,hh:mm:ss am/pm)返回：05:08:06 pmA/P元素：时间显示：12小时制时钟格式，用大写“A”表示AM，大写“P”表示PM。范例：

32、Format(17:08:06,hh:mm:ss A/P)返回：05:08:06 Pa/p元素：时间显示：12小时制时钟格式，用小写“a”表示am，小写“p”表示pm。范例：Format(17:08:06,hh:mm:ss a/p)返回：05:08:06 p：元素：时间分隔符显示：时间格式范例：Format(17:08:06,hh:mm:ss)返回：17:08:06w元素：星期几显示：17范围内的一个数字(17分别表示星期天到星期六)。范例：Format(02/02/2007,w)返回：6ww元素：周显示：154范围内的一个数字。范例：Format(02/02/2007,ww)返回：5m元素：

33、月显示：112范围内的一个数字，无前导0。范例：Format(02/02/2007,m)返回：2mm元素：月显示：0112范围内的一个数字，有前导0。范例：Format(02/02/2007,mm)返回：02mmm元素：月显示：英文月份简写(JanDec)范例：Format(02/02/2007,mmm)返回：Febmmmm元素：月显示：英文月份全称(JanuaryDecember)范例：Format(02/02/2007,mmmm)返回：Februaryq元素：季度显示：14范围内的一个数字范例：Format(02/02/2007,q)返回：1y元素：一年中的某天显示：1366范围内的一个数

34、字。范例：Format(02/02/2007,y)返回：33yy元素：年显示：0099范围内的一个两位数字。范例：Format(02/02/2007,yy)返回：07yyyy元素：年显示：1009999范围内的一个四位数字。范例：Format(02/02/2007,yyyy)返回：2007(7)用于创建用户自定义数字格式的字符0说明：数字占位符。如果参数expression所代表的数值在相应的0位置上有一个数字，则显示这个数字，否则显示0。所指定的小数点后的位数，使数值舍入为给定的小数位数，但不影响小数点左边的数字位数。范例1：Format(23.675,00.0000) 返回：23.6750

35、范例2：Format(23.675,00.00) 返回：23.68范例3：Format(2345,00000) 返回：02345范例4：Format(2345,00.00) 返回：2345.00#说明：数字占位符。如果参数expression所代表的数值在相应的#位置上有一个数字，则显示这个数字，否则什么也不显示。范例1：Format(23.675,#.#) 返回：23.68范例2：Format(23.675,#.#) 返回：23.675范例3：Format(12345.25,#,#.#) 返回：12,345.25.说明：小数点占位符。小数点占位符实际显示的字符由本机Windows系统国际设置

36、格式决定。%说明：百分数占位符。首先将参数expression所代表的数值乘以100，然后把它作为百分数显示。范例：Format(0.25,#.00%) 返回：25.00%，说明：千位分隔符。实际显示的字符由本机Windows系统国际设置格式决定。在格式定义中只需要给出一个千位分隔符。范例：Format(,#,#) 返回：1,000,000E-E+ e-e+说明：科学计数法格式。如果格式表达式在E-、E+或e-、e+的右边至少有一个数字占位符(0或#)，数字就以科学计数法格式显示数字，参数Format中所用的字母E或e在该数字和它的指数之间显示。右边的数字占位符数目决定了要在指数中显示的位数。

37、使用E-或e-可以在负指数前插入一个减号，使用E+或e+可以在正指数前插入一个正号。范例：Format(1.,#E-#) 返回：E-5-+$说明：显示一个直接量字符。范例：Format(2345.25,$#,#.#) 返回：$2,345.25说明：反斜杠后的字符以直接量字符显示。可以用反斜杠将某个特定格式的字符以直接量字符显示。范例：Format(0.25,#.#%) 返回：.25%(8) 用于创建用户自定义字符串格式的字符说明：字符占位符。如果expression在相应的位置上有一个字符，就显示这个字符，否则显示一个空格。范例：Format(VBA,*) 返回：* * VBA&说明：字符占位

38、符。如果expression在相应的&位置上有一个字符，就显示这个字符，否则什么也不显示。范例：Format(VBA,*&*&) 返回：*VBA说明：用小写形式显示所有字符。范例：Format(VBA,说明：用大写形式显示所有字符。范例：Format(vba,) 返回：VBA！说明：从左向右处理占位符(缺省情况为从右向左处理占位符)。编程方法和技巧(1) 使用没有格式定义的Format函数格式化数字比使用Str函数格式化数字更好。Format函数与Str函数不同，它会把正数中一般保留用于表示符号的前导空格清除掉。(2) 可以使用Format函数以1000为单位对数字进行标度，做法是在语句中小数

39、点的左边用一个千位分隔符(，)表示标度数字的一个千位；可以使用多个千位分隔符。例如：Format(,#0,.) 返回：1000.Format(,#0,.) 返回：1.2.6 查找字符串2.6.1 InStr函数可使用InStr函数返回一字符串在另一字符串中的位置，因此，也可以使用该函数确定一个字符串中是否包含有另一个字符串。其语法为： InStr(Start,string1,string2,compare)其中，参数Start为可选参数，设置查找的起点，如果省略，则从第一个字符的位置开始查找，当指定了参数Compare时，则要指定此参数。参数string1为被查找的字符串，参数string2为

40、要查找的字符串，这两个参数都是必需的。如果在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

41、(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 D

42、ebug.Print MyPosEnd Sub2.6.2 InStrRev函数也可以使用InStrRev函数返回一个字符串在另一个字符串中出现的位置，与InStr函数不同的是，从字符串的末尾算起。其语法为： InStrRev(String1,String2,Start,compare)参数String1为被查找的字符串，参数String2为要查找的字符串，这两个参数都是必需的。参数Start为可选参数，设置每次查找开始的位置，若忽略则使用-1，表示从上一个字符位置开始查找。参数Compare为可选参数，表示所使用的比较方法，如果忽略则执行二进制比较。下面的示例使用了InStr函数和InStrR

43、ev函数，相应的结果不同：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) 返回26End Sub- - - - - - - - - - - - - - - - - - - - - -2.7 提取字符/字符串2.7.1 Left函数Le

44、ft函数可以从字符串的左边开始提取字符或指定长度的字符串，即返回包含字符串中从左边算起指定数量的字符。其语法为： 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

45、Right函数与Left函数不同的是，Right函数从字符串的右边开始提取字符或指定长度的字符串，即返回包含字符串中从右边起指定数量的字符。其语法为： Right(String,CharNum)例如：AnyString = Hello World 定义字符串MyStr = Right(AnyString, 1) 返回 dMyStr = Right(AnyString, 6) 返回 WorldMyStr = Right(AnyString, 20) 返回 Hello World如果存放文件名的字符串中没有反斜杠()，下面的代码将反斜杠()添加到该字符串中：If Right(strFileName

46、,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

47、= Right(strFullPath, Len(strFullPath) - lngStart + 1) Else lngStart = lngPos + 1 End If Loop While lngPos 0 ParseFileName = strFilenameEnd Function2.7.3 Mid函数Mid函数可以从字符串中提取任何指定的子字符串，返回包含字符串中指定数量的字符的字符串。其语法为： Mid(String,Start,Len)其中，如果参数String包含Null，则返回Null；如果参数Start超过了String的字符数，则返回零长度字符串(“”)；如果参数Le

48、n省略或超过了文本的字符数，则返回字符串从Start到最后的所有字符。例如，下面的代码：Str=Mid(“This is a pig.”,6,2)将返回文本“is”。下面的代码：MyString = Mid Function Demo建立一个字符串FirstWord = Mid(MyString, 1, 3)返回 MidLastWord = Mid(MyString, 14, 4) 返回 DemoMidWords = Mid(MyString, 5)返回 Funcion DemoMid函数常用于在字符串中循环，例如，下面的代码将逐个输出字符：Dim str As StringDim i As

49、IntegerStr=”Print Out each Character”For i=1 to Len(str) Debug.Print Mid(str,i,1)Next i2.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 jumpsMid(MyString, 5) = cow MyString = The cow jumpsMid(MyString, 5) = cow jumped over MyString = The cow jumpeMid(MyString, 5, 3