1、LEN(s)函数:求长度
功能:返回字符串S的长度;
即S中有多少字符(一个中文字符长度也为1)
使用方法:
Option Explicit
Sub 字符串函数( )
Dim A, S
A = Cells ( 2 , 2 )
S = Len ( A)
'使用弹框显示
MsgBox S
End Sub
2、Tim(s)函数:去两端空格
功能:返回一个新的字符串;
该串的内容等于S去掉了两段的所有空格
Option Explicit
Sub 字符串函数( )
Dim A, S
A = Cells ( 2 , 2 )
S = Trim ( A)
'使用弹框显示
MsgBox S
End Sub
3、Replace(s,a,b)函数:替换子串
功能:返回一个新的字符串;
该串的内容等于把S中所有的a都替换成b之后的样子
Option Explicit
Sub 字符串函数( )
Dim A, S
A = Cells ( 2 , 2 )
'把空格删除
S = Replace ( A, " " , "" )
Cells ( 2 , 2 ) = S
'使用弹框显示
'MsgBox S
End Sub
Option Explicit
Sub 字符串函数( )
Dim A, S
A = Cells ( 2 , 2 )
'把!替换成句号
S = Replace ( A, "!" , "。" )
Cells ( 2 , 2 ) = S
'使用弹框显示
'MsgBox S
End Sub
4、LCase(s)函数:英文字母变成小写
功能:返回一个新的字符串;
该串的内容等于把S中所有的英文字母都变成小写(其他字符不变)的样子
Option Explicit
Sub 字符串函数( )
Dim A, S
A = Cells ( 2 , 2 )
S = LCase ( A)
'使用弹框显示
MsgBox S
End Sub
5、UCase(s)函数:英文字母变成大写
功能:返回一个新的字符串;
该串的内容等于把S中所有的英文字母都变成大写(其他字符不变)的样子
Option Explicit
Sub 字符串函数( )
Dim A, S
A = Cells ( 2 , 2 )
S = UCase ( A)
'使用弹框显示
MsgBox S
End Sub
6、Left(s,a)函数:从左边取若干字符
功能:从S的左边取出a个字符,构成新的字符串并返回;
Option Explicit
Sub 字符串函数( )
Dim A, S
A = Cells ( 2 , 2 )
S = Left ( A, 3 )
'使用弹框显示
MsgBox S
End Sub
7、Right(s,a)函数:从右边取若干字符
功能:从S的右边取出a个字符,构成新的字符串并返回;
Option Explicit
Sub 字符串函数( )
Dim A, S
A = Cells ( 2 , 2 )
S = Right ( A, 3 )
'使用弹框显示
MsgBox S
End Sub
8、Mid(s,i,a)函数:从中间取若干字符
功能:从S的第i个字符开始,取出a个字符返回;
Option Explicit
Sub 字符串函数( )
Dim A, S
A = Cells ( 2 , 2 )
S = Mid ( A, 3 , 2 )
'使用弹框显示
MsgBox S
End Sub
9、InStr(s,a)函数:查找子串
功能:从S中寻找a,
如果找到则返回a出现的位置(第几个字符)如果没有找到则返回0.
Option Explicit
Sub 字符串函数( )
Dim A, S
A = Cells ( 2 , 2 )
S = InStr ( A, "找" )
'使用弹框显示
MsgBox S
End Sub
Option Explicit
Sub 字符串函数( )
Dim A, S
A = Cells ( 2 , 2 )
S = InStr ( A, "好" )
'使用弹框显示
MsgBox S
End Sub
Option Explicit
Sub 字符串函数( )
Dim A, S
A = Cells ( 2 , 2 )
S = InStr ( 4 , A, "字符" )
'使用弹框显示
MsgBox S
End Sub