怎么分割字符串？？

Question

 dim str as string 
 str = "AA|fff|qq|gg|uiyu|hsf" 请问怎么用一个数组去分别按“|”分割。

Answer 1

1楼提供正确的思路,代码如下:Private Sub Command1_Click()
    Dim str As String
    Dim i As Integer
    Dim strSj() As String
    str = "AA|fff|qq|gg|uiyu|hsf"
    strSj = Split(str, "|")
    For i = 0 To UBound(strSj)
        Debug.Print strSj(i)
    Next
End Sub

Answer 2

我想问下，除了用split()函数，还有没有其他方法读txt里的数据。有时数据不规则，不一定都是用同一符号分割。
如： str=“a|b|c,d;e”
用一个split(str，“|”)不能把它们完全分开。

Answer 3

mid
left
right
用点技巧，都是可以的。

Answer 4

dim str as string 
dim d$()
str = "AA|fff|qq|gg|uiyu|hsf" 
d=split(str,"|")