以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于字符串拆分问题？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57982)
--  作者：rophy0952
--  发布时间：2014/10/9 15:09:00
--  [求助]关于字符串拆分问题？
类似这样的字符串：12342CP00012，以字母为分界，分成两个字符串：12342以及CP00012.字母及字符的位数没有固定，该如何拆分呢？谢谢
--  作者：Bin
--  发布时间：2014/10/9 15:15:00
--  
Dim s As String = "12342CP00012"
Dim mh1 As String  = System.Text.RegularExpressions.Regex.Match(s,"\\d+").Tostring()
Dim mh2 As String  = System.Text.RegularExpressions.Regex.Match(s,"[A-Za-z]+\\d+").Tostring()
MessageBox.show(mh1 & "      "  & mh2)
--  作者：有点甜
--  发布时间：2014/10/9 15:16:00
--  

 参考代码

Dim str As String = "12342CP00012"
Dim reg As new System.Text.RegularExpressions.Regex("([0-9]+)|([a-zA-Z]+[0-9]+)")

Dim mc As Object = reg.Matches(str)
For i As Integer = 0 To mc.count - 1
    output.show(mc(i).Value)
Next
--  作者：lsy
--  发布时间：2014/10/9 15:19:00
--  
Dim s As String = "12342CP00012"
For i As Integer = 0 To s.Length - 1
    If IsNumeric(s(i)) = False Then       
        MessageBox.Show(s.SubString(0,i))
        MessageBox.Show(s.SubString(i))
        Exit For
    End If
Next
--  作者：rophy0952
--  发布时间：2014/10/9 15:41:00
--  
好的，谢谢！