处理字符串函数

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