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)，而不是四根弦，你會得到作爲分隔符。