参考
Dim str As String = " BXS514-03-01"str = System.Text.RegularExpressions.Regex.Replace(str, "[^0-9\-]+", " ")msgbox(str)