字符串转换函数：LCase、UCase、StrConv
Sub StringFunctionDemo()
Dim myStr As
String
myStr = "This is a
test about String Function."
Debug.Print LCase(myStr)
'转换字符串为小写
Debug.Print UCase(myStr)
'转换字符串为大写
Debug.Print "vbLowerCase:"
& StrConv(myStr, vbLowerCase)
Debug.Print "vbNarrow:"
& StrConv(myStr, vbNarrow)
'将字符串转化为1字节的字符串
Debug.Print "vbProperCase:"
& StrConv(myStr, vbProperCase)’将字符串单词首字母大写
Debug.Print "vbUnicode:"
& StrConv(myStr, vbUnicode)
Debug.Print "vbUpperCase:"
& StrConv(myStr, vbUpperCase)
Debug.Print "vbWide:"
& StrConv(myStr, vbWide)
'将字符串转换为2字节的字符串
End
Sub
运行的结果：
this is a test about string
function.
THIS IS A
TEST ABOUT STRING FUNCTION.
vbLowerCase:this is a test about string function.
vbNarrow:This is a test about String Function.
vbProperCase:This Is A Test About String Function.
vbUnicode:T h i s i
s
a t e s
t a b o u
t S t r i n
g F u n c t i o n .
vbUpperCase:THIS IS A TEST ABOUT STRING FUNCTION.
vbWide:Ｔｈｉｓ ｉｓ ａ ｔｅｓｔ ａｂｏｕｔ Ｓｔｒｉｎｇ Ｆｕｎｃｔｉｏｎ．
下面用一个演示代码对StrConv函数的vbFromUnicode转换形式做单独说明：
Sub vbFromUnicodeDemo()
Dim i As
Integer
Dim x() As
Byte
x
= StrConv("ABCDEFG", vbFromUnicode)'将字符串拆分为单字符一维数组并转换为其ASCII编码
For i
= 0 To UBound(x)
Debug.Print x(i)
Next
End
Sub
运行结果为：
65
66
67
68
69
【应用】 字符串转换函数在对字符串进行对比（如通常使用LCase函数或UCase函数等先将字符串转换成同为小写或大写的字符串再进行比较两字符串的异同）和文件内容读取等工作中十分有用。
注：以下两种形式功能相同
LCase(myStr)=StrConv(myStr, vbLowerCase)：把字符串myStr变为小写
UCase(myStr)=StrConv(myStr, vbUpperCase)：把字符串myStr变为大写
加载中…
喜欢