字符串根据多个字符进行分割的一种方法（使用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