VBA字符串分隔符

Question

如何在一定数量的相同分隔符后在VBA中分割字符串？例如：{"Josh","Green"},{"Peter","John"}。

在这里，我想{"Josh","Green"}作为第一个数组中的第一个记录和{"Peter","John"}作为第二个。我想避免按字符分析字符串。

Answer 1

有几种方法可以做到这一点，我的建议：

更换},{与分裂之前别的，创建一个新的分隔符。

例如：

Option Explicit 

Sub Test() 
    Const c As String = "{""Josh"",""Green""},{""Peter"",""John""}" 
    Dim s As String 
    Dim v As Variant 

    s = Replace(c, "},{", "}#,#{", 1) 

    v = Split(s, "#,#") 

    Debug.Print v(0) '{"Josh","Green"} 
    Debug.Print v(1) '{"Peter","John"} 
End Sub 

也就是说，如果你只,分割原始字符串将拆分s成变阵列v两个字符串，v(0)和v(1)，而不是四根弦，你会得到作为分隔符。