资源
Public Function NoWhiteSpace(ByVal strText As String) As String
Return System.Text.RegularExpressions.Regex.Replace(strText, " ", _
String.Empty, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
End Function
演示版
Dim Test As String = " This is a simple test for No white spaces function "
Console.WriteLine("The original text is [{0}] and the replacement is [{1}]", _
Test, RemoveWhiteSpace(Test))
From: https://bytes.com/topic/net/insights/750848-removing-all-spaces-inside-string-value-vb-net