Dim str As String = "2023-10-22 09:30"
'先删除多余的空格
str = str.Trim()
For i As Integer = str.Length To 2 Step - 1 '此处不能顺着循环
Dim s As New String(" ", i)
str = str.Replace(s, " ")
Next
Dim st() As String
st = str.Split(" ")
For i As Integer = 0 To st.Length - 1
Output.Show(st(i).Trim())
Next
Output.Show(String.Join("\", st))