菜鸟来啦！请大家帮忙（如何分隔字符串）

Question

dim tm() as string
  tm= split(mystr,"#")

Answer 1

  Dim Bit() As String, mystr As String
  mystr = "234#456#123#"  Bit = Split(mystr, "#")
  
  Debug.Print Bit(0)
  Debug.Print Bit(1)
  Debug.Print Bit(2)

Answer 2

tm(0) ,tm(1),tm(2) 是你要得三个字符！

Answer 3

定义三个字符数组 str(1),str(2),str(3)
i=1
if left$(mystr,1)<>"#" then
   str(i)=str(i)+left$(mystr,1)
else
   i=i+1
endif

Answer 4

mystr = "234#456#123#"
longstr = Len(mystr)
  i = 1
While longstr > 0
  If Left$(mystr, 1) <> "#" Then
    longstr = longstr - 1
    Str(i) = Str(i) + Left$(mystr, 1)
    mystr = Right$(mystr, longstr)
  Else
    i = i + 1
  End If
Wend

Answer 5

现在是正式版
Dim str(3)
Private Sub Command1_Click()
mystr = "234#456#123#"
longstr = Len(mystr)
  i = 1
While longstr > 0
  If Left$(mystr, 1) <> "#" Then
    longstr = longstr - 1
    str(i) = str(i) + Left$(mystr, 1)
    mystr = Right$(mystr, longstr)
  Else
    i = i + 1
    longstr = longstr - 1
    mystr = Right$(mystr, longstr)
  End If
Wend
Print str(1)
Print str(2)
Print str(3)
End Sub
此程序上机通过

Answer 6

Split有一个功能：限制
mystr = "ttt1sss1888"
dim ttat() As String
ttat = split(mystr, "1", 2)
这样，就只返回两个