字符串拆分

Question

{14,26,12,33}{145,236,12,11,25,63}{77,88,99,66,33,22,14}{44，56}
类似于这样的字符串，我怎么按{}拆分开？
分成
{14,26,12,33}
{145,236,12,11,25,63}
{77,88,99,66,33,22,14}
{44，56}
字符串

Answer 1

Private Sub Command1_Click()
    Dim s As String
    
    s = "{14,26,12,33}{145,236,12,11,25,63}{77,88,99,66,33,22,14}{44，56}"
    
    Dim a() As String
    
    a = Split(s, "}{")
    For i = LBound(a) To UBound(a)
        Debug.Print a(i)
    Next i
End Sub分割的时候吧}{去掉了，你可以自己加上来。

Answer 2

VB里也有Split！才知道
谢谢了，一直以为这是JAVA的专利还有一个就是用正则的，RegExp
有没有人会搞？