小编Vin*_*ing的帖子

我有一个问题: 如何在开放和闭括号内的逗号之间拆分字符串并将每个字符串存储在数组变量中？

例:

strinput = "( u1 u1t_a, u2 u2t_b, s2 s2t_c, s4 s4t_d, ...n )"

上面有一个输入字符串,我想在一个数组变量中存储三个,所以在逗号之间的子字符串,这些逗号位于开括号和闭括号内:

substr(0) = "u1 u1t_a"
substr(1) = "u2 u2t_b"
substr(2) = "s2 s2t_c"
substr(n) = "...n"

到目前为止,我很难在VBA中使用循环和数组,所以我的代码就像一个暴力,它只能处理最多3个文本,因为代码会变长,所以我做了一个限制.

在这里查看我的代码:

strinput = "( u1 u1t_a, u2 u2t_b, s2 s2t_c )"

substr1 = Right(strinput, Len(strinput) - Find("(", strinput))
    'Output: u1 u1t_a, u2 u2t_b, s2 s2t_c )
substr1f = Left(substr1, Find(",", substr1) - 1)
    'Output: u1 u1t_a

substr2 = Right(substr1, Len(substr1) - Find("(", substr1))
    'Output: u2 u2t_b, s2 …