'7.Format 格式化字符串 很多很多 自己查手册
'Format(expression[,format[,firstdayofweek[,firstweekofyear]]])
'@ & < > !
'输出 HELLO
Debug.Print (Format("Hello", ">@"))
'输出 0.23
Debug.Print (Format(0.234, "Fixed"))
'8.Instr 查找字符串
'Instr([Start,]string1,string2[,compare]) string1才是被查找的字符
'返回0 或者 1 到 string1 的长度
Debug.Print (InStr("sjglasga", "g"))
'9. Instrrev 从右侧开始查找 但是结果还是从左侧开始算
'输出 7
Debug.Print (InStrRev("sjglasga", "g"))
'10.提取字符串
'10.1 Left 函数
'Left(String,CharNum)
'输出VBA
Debug.Print (Left("VBA那些事", 3))
'10.2 Right 函数
'Right(String,CharNum)
'输出 那些事
Debug.Print (Right("VBA那些事", 3))
'10.3 Mid 函数
'Mid(Strin,Start[,Len])
'输出 BA那
Debug.Print (Mid("VBA那些事", 2, 3))
'11.删除空格
'LTrim 删除前面的空格
'输出18
Debug.Print (Len(LTrim(" VBA那些事 ")))
'RTrim 删除后面的空格
'输出17
Debug.Print (Len(RTrim(" VBA那些事 ")))
'Trim 删除两头空格
Debug.Print (Len(Trim(" VBA那些事 ")))
'12.Asc 返回字符代码
'输出65
Debug.Print (Asc("A"))
'13.Chr 返回数值代表的响应字符
Debug.Print (Chr(65))
'14.Filter
strMatch = CStr(2)
varSource = Array(10, 20, 21, 22, 32, 200, 143)
varResult = Filter(varSource, strMatch, True)
'20 21 22 32 200
For Each i In varResult
Debug.Print (i)
'15.Split函数
'VBA 那 些 事
For Each i In Split("VBA 那 些 事", " ")
Debug.Print (i)
'16.Join函数 连接字符串
Dim sourcearray
sourcearray = Array("VBA", "那", "些", "事")
'输出 VBA_那_些_事
Debug.Print (Join(sourcearray, "_"))
'17.Replace 替换字符串
'Replace(expression,find,replace[,start[,count[,compare]]])
'输出vba那些事
Debug.Print (Replace("VBA那些事", "VBA", "vba"))
'18.StrReverse 反向字符串
