日期:2009-07-30 浏览次数:20379 次
Dim s As String = "gtdfg123fdgdfs123dd123"
Dim c() As Char = {"1", "2", "3"}
Dim a() As String = s.Split(c)
Dim p As String
For Each p In a
If p <> "" Then
MessageBox.Show(p)
End If
Next