Text1.Text窗口数据整理

方案：
1、分行，以行为单位进行处理
2、对单行数据挨个检查，
3、是非空字符，直接添加到新数据
4、对空格，如果当前没有空格，直接添加到新数据
5、当前已有空格，当前字符也是空格则忽略

代码如下：
Private Sub Command1_Click()
Dim 行数据
Dim 全部数据
Dim 新数据 As String
Dim 已有空格 As Boolean

全部数据 = Split(Text1, vbCrLf)
For i = 0 To UBound(全部数据) '每一行
行数据 = 全部数据(i)
For j = 1 To Len(行数据)
当前字符 = Mid(行数据, j, 1)
If 当前字符 <> " " Then
已有空格 = False
新数据 = 新数据 & 当前字符
ElseIf Not 已有空格 Then
新数据 = 新数据 & " "
已有空格 = True
End If
Next j
新数据 = 新数据 & vbCrLf
Next i
Text1 = 新数据
End Sub

Private Sub Form_Load()
Command1.Caption = "规范化"
Text1 = "01 02 05 06 07 10" & vbCrLf & "22 23 25 29 30