初学者求助 字符串 根据大写进行分割问题
本帖最后由 aq001qq 于 2011-12-13 14:35:58 编辑 知道万能的正则吗？'此代码由“正则测试工具 v1.1.35”自动生成，请直接调用TestReg过程
Private Sub TestReg()
Dim strData As String
Dim reg As Object
Dim matchs As Object, match As Object
strData = "AlpsEldoradoZeusNeptuneSaturnCaspianMercury"
Set reg = CreateObject("vbscript.regExp")
reg.Global = True
reg.IgnoreCase = False
reg.MultiLine = True
reg.Pattern = "[A-Z][a-z]+"
Set matchs = reg.Execute(strData)
For Each match In matchs
Debug.Print match.Value
Next
End Sub
1.Alps
2.Eldorado
3.Zeus
4.Neptune
5.Saturn
6.Caspian
7.Mercury
能用了非常感谢！！ 自学中完全没接触过正则表达式。。。。
帮我大忙了^^
补充：VB , 基础类
