VBA字符串处理大全Word文件下载.docx

1、其中，参数string1和strng2为必需的参数，可以是任何有效的字符串表达式。参数Compare为可选参数，如果该参数为Null，将发生错误。如果参数Compare设置为常数vbUseCompareOption或-1或忽略该参数，将使用Option Compare语句设置进行比较；如果忽略该参数且没有设置Option Compare语句，则按二进制进行比较；如果参数Compare设置为常数vbBinaryCompare或0，则用二进制进行比较；如果参数Compare设置为常数vbTextCompare或1，则按文本进行比较；如果参数Compare设置为常数vbDatabaseCompare

2、或2，此时仅适用于Microsoft Access，进行基于数据库信息的比较。StrComp函数的返回值为：如果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 = St

3、rComp（MyStr1, MyStr2, 0） 返回 -1 MyComp3 = StrComp（MyStr1, MyStr2） MyComp4 = StrComp（MyStr2, MyStr1） 返回1 MsgBox StrComp（MyStr1, MyStr2, 1）的结果为: & MyComp1StrComp（MyStr1, MyStr2, 0）的结果为: MyComp2StrComp（MyStr1, MyStr2）的结果为: MyComp3StrComp（MyStr2, MyStr1）的结果为: MyComp4End Sub示例说明：如果StrComp函数的第三个参数值为1，则以文本比

4、较的方式进行字符串比较；如果第三个参数值为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,L

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

6、数组时，使用赋值语句。下面的例子使用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下面的例子将句子中每个词语的首字母转换为大写：Sub testConverseString2（） Debug.Print StrConv（my book is this book., vbProperCase）程序运行

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

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

9、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 S

10、pace函数该函数返回指定数的空格的字符串。语法为： Space（number）其中，参数number必须，为字符串中指定的空格数。如下例所示：Sub CreateString1（） Dim MyString 返回 10 个空格的字符串。 MyString = Space（10） 将 10 个空格插入两个字符串中间。 MyString = Hello Space（10） & World该函数可用于在调用外部DLL时建立字符串缓冲区，特别是在调用Window API时。此外，使用该函数还可以使字符串在特定长度的缓冲区左对齐或右对齐。注意，如果参数number是负数，则会产生运行时错误5：“无效的

11、过程调用或参数”。编程方法和技巧 可以使用Space函数添加和清除存储在定长字符串中的数据，例如，下面的代码用空格填充一个定长字符串：Dim strFixed As String * 32strFixed = Space（Len（strFixed）2.3.2 String函数该函数返回重复的字符或字符串。 String（number,character）其中，参数number必须，指定所返回的字符串的长度；参数character必须，指定字符的字符代码或字符串表达式。例如，下面使用String函数生成指定长度且只含单一字符的字符串。Sub CreateString2（） MyString =

12、String（5, *） * MyString = String（5, 42） MyString = String（10, ABCAAAAAAAAAA如果参数number包含Null，则返回Null；如果参数character包含Null，则返回Null；参数character可以指定为字符串或者是ANSI字符代码，如：strString1=String（128,”=”） 用”=”填充strString2=String（128,0） 用Chr$（0）填充编程方法和技巧 （1） String函数在用于创建较长的“_”，“-”，或者“=”构成的水平线以便给报表分段时十分有用。（2） 当调用API函

13、数向缓冲区写入字符串值时，首先要用String函数创建一个长度合适的字符串变量，并且用诸如Chr$（0）之类的单个字符来填充。2.4 获取字符串的长度可以使用Len函数来确定任何字符串或字符串表达式的长度，其语法为： Len（string|varname）其中，参数string为任何有效的字符串表达式；参数varname为任何有效的变量名称。两个参数必须取一。利用LenB函数可以确定存储某变量所需的实际字节数。下面的示例使用Len函数来获取某字符串的长度（字符数）或某变量的大小（位数）。Type CustomerRecord 定义用户自定义的数据类型 ID As Integer 将此定义放在常

14、规模块中 Name As String * 10 Address As String * 30End TypeSub GetStrLen（） Dim Customer As CustomerRecord 声明变量 Dim MyInt As Integer, MyCur As Currency Dim MyString, MyLenHello World 设置变量初值 MyLen = Len（MyInt） 返回 2 MyLen = Len（Customer） 返回 42 MyLen = Len（MyString） 返回 11 MyLen = Len（MyCur） 返回 8此外，在需要大量判断是否

15、为空字符串的代码中，使用Len函数也可以加快代码执行的速度。例如：If strTemp = Then要执行的代码End If上面的代码可以用以下代码代替：If Len（strTemp） = 0 Then注意：（1） 参数string和参数varname互不相容，即只能指定这两个参数中的某一个，不能同时指定这两个参数。（2） 如果参数string或参数varname中包含Null，则Len函数会返回Null。（3） 在向文件写入某种用户自定义类型数据时，Len函数会返回数据的大小（字符数）。（4） LenB函数返回用户自定义类型数据实际占用的内存大小。（5） 在对字节数据或Unicode字符串使

16、用LenB函数时，LenB函数返回表示数据或字符串的字节数。（6） 不能对对象变量使用Len函数。（7） 如果参数varname是一个数组，则必须指定一个有效的下标，即Len函数不能确定数组中元素的总数或数组占用内存的大小。（8） Len函数对Variant类型变量的处理和字符串变量一样，Len函数返回变量所存储的实际字符数，如下面的代码：Dim vVarvVar=100MsgBox Len（vVar）结果为3。（9） 由于VB本质上使用的是Unicode字符串（用两个字节的空间来存储一个字符），因此当相同的字符串变量传递给Len函数和LenB函数时会出现不同的返回值。例如，对于一个包含4个字

17、符的字符串，使用Len函数时返回值为4，使用LenB函数则为8。（10） 使用强类型变量（即强制声明该变量的类型）时，Len函数会返回存储该变量所需的字节数。例如，长整型变量的长度为4。下面的示例说明了为什么要显式声明数据类型：Sub test（） Dim lVar As Long Dim vVar lVar = 10000000 vVar = 10000000 MsgBox LenB（lVar） 返回4 MsgBox LenB（vVar）返回16很显然，Variant类型变量比强制声明的类型变量要占用更多的内存。可以使用Format函数规定输出的字符串的格式，其语法为： Format（exp

18、ression,format,firstdayofweek,firstweekofyear）其中，参数expression必须，为任何有效的表达式；其余参数均可选。参数format表示所要采用的格式，参数firstdayofweek使用常数，表示一星期的第一天，参数firstweekofyear使用常数，表示一年的第一周。在参数format中，使用字符“”，表示空格或字符占位符，如果在输入的字符串相应位置有字符，则显示该字符，否则显示空格；使用字符“&”，表示空或字符占位符，如果在输入的字符串的相应位置有字符，则显示该字符，否则不显示；使用字符“”，则将所有字符显示为大写格式；使用字符“！”，

19、强制占位符从左向右填满， 满足默认为从右向左。例如下面的代码：Dim strOut strOut = Format（8888888, （）&-&返回（ ）888-8888（&）&返回（）888-8888在Format函数中，还可以同时格式化普通字符串和空字符串，只须在指定的格式中用分号隔开两个部分，第一部分用于非空字符串，第二部分用于空字符串。strOut = Format（6666666;No Phone返回（ ）666-6666返回No Phone又如，下面的代码将字母全部转换为大写：） 返回HELLO同理，可以使用“”将字母全部转换为小写。Format函数的简要使用规则：（1） 允许用预

20、先定义或用户定义的格式来建立多种用于输出字符串、数字和日期/时间数据的方法。（2） 创建用户定义的数值格式最多可以有四个部分，每个部分代表一种不同类型的数值，且用分号分隔。第一部分在单独命名使用时可用于所有值，与其它多个部分一起使用时只用于正数；第二部分用于负数；第三部分用于零值；第四部分用于Null值。在参数format中不必包括所有四部分，但所用部分的数目决定了每一个部分所定义的数值类型：只有一个部分，则应用于所有数值；有两个部分，则第一部分应用于正数和零值，第二部分应用于负数；有三个部分，则第一部分用于正数，第二部分应用于负数，第三部分应用于零值；有四个部分，则每部分的使用如前所述。如果

21、忽略了一个部分，则该部分使用与定义正数的部分一样的格式，例如：“#.00;#,#”表示负数值与正数值使用同一种格式显示。如果参数含有命名格式，则只能有一个部分。（3） 字符串值的用户定义格式有两个部分，第一部分可应用于所有值，第二部分只应用于Null值或零长字符串。（4） 预定义的日期和时间格式如下：General Date范例： Format（28/02/2007,General Date）返回： 2007-2-28Long DateLong Date 2007年2月28日Medium DateMedium Date 07-02-28Short DateShort DateLong Time

22、 17:30:03Long Time 17:03Medium TimeMedium Time 下午 05:30Short Time Short Time（5） 预定义的数值格式如下：General Number Format（123456.0789,General Number 123456.0789CurrencyCurrency ￥123,456.08Fixed Format（0.2,Fixed 0.20StandardStandard 123,456.08Percent Format（.7321,Percent 73.21%ScientificScientific 1.23E+05Yes

23、/No范例1： Format（0,Yes/No No范例2： Format（23, YesTrue/FalseTrue/False False TrueOn/OffOn/Off Off On（6） 创建用户自定义的日期和时间格式的字符：C元素：日期显示：基于当前Windows系统的短日期和短时间国际设置格式的日期或时间。Format（28/02/2007 17:c2007-2-28 17:dddddd基于当前Windows系统的长日期国际设置格式的完整日期。dddddd2007年2月28日/日期分隔符mm-dd-yyyy02-28-2007d日131范围内的一个数字，无前导0。02/02/2007d2dd0131范围内的一个数字，有前导0。dd02ddd英文简写（SunSat）dddFridddd英文全称（SundaySaturday）ddddFridayddddd基于计算机Windows国际设置短日期格式的日期。ddddd2007-2-2h小时023范围内的一个数字，无前导0。05:08:06h5hh0023范围内的一个数字，有前导0。hh05n分059范围内的一个数字，无前导0。n8nn