soz = Split(tbox.Text, " ")
Print soz(i)
i = i + 1
上面的只用空格做分割副 能不能在加 ? . ,: ;'"这些?
參考答案:你的意思我非是要对”ndjk,dsh jdks?bhsj” 进行分离，而分隔符号是, 空格 ?
我用vb的replace和split来达到了相同的效果。
d = "ndjk,dsh jdks?bhsj"
after_douhao = Replace(d, ",", " ")
after_wenhao = Replace(after_douhao, "?", " ")
Dim byte_lxp() As String
byte_lxp = Split(after_wenhao, " ")
For i = LBound(byte_lxp) To UBound(byte_lxp)
MsgBox byte_lxp(i)
Next
