【在线等】如何分割字符串？？

Question

如何分割字符串“ab+bc-ds*eq/bp(aa+mp)”要求分割后的数组，
第1个元素是ab,
第2个元素是bc,
第3个元素是ds,
第4个元素是eq,
第5个元素是bp,
第6个元素是aa,
第7个元素是mp谢谢。

Answer 1

Private Sub Command1_Click()
    Dim str As String, i As Integer, s() As String
    str = "ab+bc-ds*eq/bp(aa+mp)"
    For i = 1 To Len(str)
        Select Case Mid(str, i, 1)
            Case "+", "-", "*", "/", "(", ")"
                Mid(str, i, 1) = " "
        End Select
    Next i
    s = Split(str)
    For i = 0 To UBound(s)
        Debug.Print s(i)
    Next i
End Sub

Answer 2

Dim a As String
Dim b() As String
a = "ab+bc-ds*eq/bp(aa+mp)"a = Replace(a, "+", ",")
a = Replace(a, "-", ",")
a = Replace(a, "*", ",")
a = Replace(a, "/", ",")
a = Replace(a, "(", ",")
a = Replace(a, ")", ",")b = Split(a, ",")
Dim i As Integer
For i = LBound(b) To UBound(b)
    Debug.Print (b(i))
Next

Answer 3

原理：先将字符串中的+-*/()替换成空格，然后用split分割即可。