Dim str As String = "12,34,56789,10"
msgbox(str.split(",").length)
For Each s As String In Str.split(",")
msgbox(s)
Next
加好友 
发短信
Post By：2015/11/26 15:39:00 [显示全部帖子]
