主题：求助字符串 处理

用正则比较简单一点。

Dim str As String = "wu dong xiang"
str = System.Text.RegularExpressions.Regex.Replace(str, "^([a-zA-Z]+) +([a-zA-Z]+) +([a-zA-Z]+)$", "$1 $2$3")
msgbox(str)

比如

Dim str As String = "201213"
Dim reg As new System.Text.RegularExpressions.Regex("^\d{4}-?(?:0[1-9]|1[0-2])$")
If reg.Ismatch(str) = False Then
    msgbox("日期有误")
End If