很多时候我们会遇到这样的问题

比如我们有一个字符串

112               3            44        123

我们想把字符串中的数字读入到变量或者是数组中。而他们之间的空格数目又很随机。无法直接用split函数分割，这时我们就要处理一下这个字符串了。

下面提供我刚写的处理代码它能将多个连续的空格合并成一个。

Option Explicit

Private Sub Command1_Click()
    Dim str As String
    Dim str1 As String
    Dim strtemp As String
    Dim i As Integer
   
    str = Text1.Text
    For i = 1 To Len(str)
        If strtemp <> " " Or Mid(str, i, 1) <> " " Then
            strtemp = Mid(str, i, 1)
            str1 = str1 & strtemp
        End If
    Next i
    Text2.Text = str1
End Sub
效果图：