求助：字符串分割问题

Question

现有一字符串，由若干子串组成，各子串间用tab分开，请问我如何把各个子串从字符串中提取出来。用Split函数可以实现吧，具体应该怎么实现我却想不出来。

Answer 1

dim a() as string
a = split(str1, vbtab)
for i=0 to ubound(a)
   debug.print a(i)
next i

Answer 2

dim myString as string
dim strArr() as string
dim i as integermystring ="aaa{tab}bbb{tab}ccc"strArr=split(mystring,vbTab)for i=0 to ubound(strArr)-1
       debug.print i,strArr(i)
next i 

Answer 3

Private Sub Command1_Click()
Dim ls_Content() As String
Dim LogCount As Long
Dim I As Long
Dim strTemp As StringstrTemp = "aa" & vbTab & "bb" & vbTab & "cc"
ls_Content = Split(strTemp, vbTab)
LogCount = UBound(ls_Content, 1)For I = 0 To LogCount
    Debug.Print Trim(ls_Content(I))
Next I
End Sub

Answer 4

晕，竟然比我还快~气死了，，我明明是第一个嘛~~!!请楼主注意一个  我上面的字符串中，，{tab} 就是表示 Tab字符，不是虚拟的意思，不是真实字符，请注意，在实际的过程中，楼主可以自己换成 你自己的真正含有Tab的字符串

Answer 5

dim myString as string
dim strArr() as string
dim i as integermystring ="aaa" & vbtab &"bbb" & vbtab & "ccc"strArr=split(mystring,vbTab)for i=0 to ubound(strArr)-1
       debug.print i,strArr(i)
next i