请教，这样的字符串如何分割啊！

Question

Private Sub Command1_Click()
    Dim mystr, xx
    mystr = "22a2b*crtd*nhf*hgffklm*nfdq*cfg*fdghf"
    xx = Split(mystr, "*")
    List1.Clear
    For i = 0 To UBound(xx)
       List1.AddItem (xx(i))
    Next
End Sub

Answer 1

dim ppp as string,ttt as stringppp="a2b*crtd*nhf*hgffklm*nfdq*cfg*fdghf"ppp=ppp & "*"do until ppp=""
    ttt=left(ppp,instr(ppp,"*")-1)
    list1.additem ttt
    ppp=right(ppp,len(ppp)-instr(ppp,"*"))
looplist1就是您的列表框