vba字符串函数汇总

本文为本人原创,转载请注明出处,若有错误欢迎指正,也请点波关注

Dim i As String  对以下i值定义为字符串

Dim b As Integer     对以下b值定义为整型

1、Len(string)计算string长度

        例 b = Len(“123321”)   

        b返回6

 

2、Trim(string)去掉string左右两端空格

      Ltrim(string)去掉string左端空格

      Rtrim(string)去掉string右端空格

 

3、Left(string, x)取string左段x个字符组成的字符串

        例 i = Left("123456",3) 

        i返回 "123"

 

4、Right(string, x)取string右段x个字符组成的字符串

         例 i = Left("123456",3) 

         i返回 "456"

 

5、Mid(string, start,x)取string从start位开始的x个字符组成的字符串

         例 i = Left("123456",2,3) 

         i返回 "234"

 

6、Ucase(string)转换为大写

        例 i = Ucase ("asdf ") 

        i返回 " ASDF "   

 

7、Lcase(string)转换为小写

         例 i = Lcase ("ASDF") 

         i返回 "asdf"

 

8、Space(x)返回x个空白的字符串

 

9、String(X,Y) 返回X个Y

         例 i = String(5,”W”)  

         i返回 "WWWWW"

注:仅第一个字符将用于建立返回的字符串

例 i = string(3,"1234") 

i返回 "111"

 

10、Asc(string)返回一个代表字符串中首字母的ASCII编码

         仅第一个字符将用于建立返回的字符串

 

11、Chr(charcode)返回 ASCII编码所代表的字符

         Asc的逆运算

Null (Chr (0)),

水平制表符 (Chr (9)),

换行 (Chr (10)),

垂直制表符 (Chr (11)),

换页(Chr (12)) ,

回车 (Chr (13)),

 

12、StrConv(string, conversion, LCID)

返回按指定类型转换的 Variant (String)。

       String  必要参数。要转换的字符串表达式

       Conversion  必要参数。Integer。其值的和决定转换的类型。

       LCID  可选的。如果与系统LocaleID不同,则为LocaleID(系统LocaleID为缺省值。)

conversion 参数的设置值为:

常数                 值            说明

vbUpperCase                  1              将字符串文字转成大写。

vbLowerCase                  2              将字符串文字转成小写。

vbProperCase         3              将字符串中每个字的开头字母转成大写。

vbWide*                  4*            将字符串中单字节字符转成双字节字符。

vbNarrow*              8*            将字符串中双字节字符转成单字节字符。

vbKatakana**        16**       将字符串中平假名字符转成片假名字符。

vbHiragana**         32**       将字符串中片假名字符转成平假名字符。

vbUnicode               64            根据系统的缺省码页将字符串转成 Unicode。

vbFromUnicode     128          将字符串由 Unicode 转成系统的缺省码页。

    例 i = StrConv("abc def ghi", vbProperCase)

    i返回"Abc Def Ghi"

 

13、InStr([start, ]string1, string2[, compare])

返回 Variant (Long),指定一字符串在另一字符串中最先出现的位置。

Start        可选参数。为数值表达式,设置每次搜索的起点。如果省略,将从第一个字符的位置开始。如果 start 包含 Null,将发生错误。如果指定了 compare 参数,则一定要有 start 参数。

string1     必要参数。接受搜索的字符串表达式

string2     必要参数。被搜索的字符串表达式。

Compare 可选参数。指定字符串比较。如果 compare 是 Null,将发生错误。如果省略 compare,Option Compare 的设置将决定比较的类型。指定一个有效的LCID (LocaleID) 以在比较中使用与区域有关的规则。

例:b = InStr(”qwerty” , “r”) 

b返回整形4,代表的是字节位数

 

14、InstrRev(stringcheck, stringmatch[, start[, compare]])

返回一个字符串在另一个字符串中出现的位置,从字符串的末尾算起。

         与InStr([start, ]string1, string2[, compare])类似,

         InStr()是从首部开始算起

         InstrRev()是从尾部开始算起

 

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

         返回一个字符串,该字符串中指定的子字符串已被替换成另一子字符串,并且替换发生的次数也是指定的。

         Expression      必需的。字符串表达式,包含要替换的子字符串。

         Find                  必需的。要搜索到的子字符串。

         Replace            必需的。用来替换的子字符串。

         Start                 可选的。在表达式中子字符串搜索的开始位置。如果忽略,则从1开始。

         Count                        可选的。子字符串进行替换的次数。如果忽略,缺省值是 –1,它表明进行所有可能的替换。

         Compare         可选的。数字值,表示判别子字符串时所用的比较方式。关于其值,请参阅“设置值”部分。

Replace函数的返回值是一个字符串,但是,其中从start所指定的位置开始,到expression字符串的结尾处的一段子字符串已经发生过替换动作。并不是原字符串从头到尾的一个复制。

例 i = Replace("123456", "3", "0")  

i返回 "120456"

 

16、将两个字符串合并

         直接使用&将两个字符串连起来

         例 i = “abc” & “123”

i返回 " abc123 "

上一篇:Excel VBA Convert Text String to Number


下一篇:破解vba工程密码