VBAstring分隔符

在一定数量的相同分隔符之后，如何在VBA中分割string？

例如： {"Josh","Green"},{"Peter","John"} 。

在这里，我想将{"Josh","Green"}作为数组中的第一个logging，将{"Peter","John"}作为第二个logging。 我想避免分析string的字符。

Answer 1

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

replace},{与分割之前的其他东西，创build一个新的分隔符。

例如：

 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 

这将拆分成两个string， v(0)和v(1) ，而不是四个string的Variant-array v ，如果您将原始string作为分隔符分隔,则会得到这个string。