字符串分开

字符串分离?
有一串这样的数据"BB123FD12KME43413"
要吧他们分开
如 BB
  123
  FD
  12
  KME
  43413
怎么搞?
 

[解决办法]

VB code

'---------------------------------------------------' 过程名    : RegExpSplit' 时间      : 2010-3-26 18:18' 作者      : 杨过.网狐.cn' 功能      : http://topic.csdn.net/u/20100326/17/6180058c-c302-4edf-90ea-8f6a23475789.html?61236' 说明      : 字符串分离?'---------------------------------------------------'Function RegExpSplit() As String  Dim regEx, vMatch As Match, Matches      ' Create variable.'  Dim RetStr As String, strSubValue As String, strText As String  Dim str原文 As String: str原文 = "BB123FD12KME43413"'  Set regEx = New RegExp         ' 创建一个RegExp对象，前期绑定，需引用库Microsoft VBScript Regular Expressions 5.5   Set regEx = CreateObject("VBScript.RegExp")  '后期绑定  regEx.Pattern = "([A-Z]+)([0-9]+)"         ' Set pattern.  regEx.IgnoreCase = True         ' Set case insensitivity.  regEx.Global = True         ' Set global applicability.  Set Matches = regEx.Execute(str原文)   ' Execute search.  For Each vMatch In Matches      ' Iterate Matches collection.    Debug.Print vMatch.SubMatches(0)    Debug.Print vMatch.SubMatches(1)  NextEnd Function
[解决办法]
窗体一个Command1
VB code
Private Sub Command1_Click()Dim s$, ss$s = "BB123FD12KME43413"ss = Left(s, 1)For i = 2 To Len(s)    If IsNumeric(Mid(s, i - 1, 1)) = IsNumeric(Mid(s, i, 1)) Then        ss = ss & Mid(s, i, 1)    Else        ss = ss & vbCrLf    End IfNext iMsgBox ssEnd Sub