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