字符串根据多个字符进行分割的一种方法（使用split而不是regex.split更不是replace）

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