Question

vb输入字符串s,将s中的前导空格和尾随空格删去,中间连续多个空格缩减为一个空

vb输入字符串s,将s中的前导空格和尾随空格删去,中间连续多个空格缩减为一个空

Answer 1

去掉前后空格用Trim()，中间的空格麻烦点，要逐个字符分析
Dim c As String * 1
Dim strResult As String
Dim b As Boolean, i As Long

For i = 1 To Len(s)
c = Mid(s, i, 1)
If c = " " Then
If Not b Then
strResult = strResult & c
b = True
End If
Else
strResult = strResult & c
b = False
End If
Next i
Text2.Text = Trim(strResult)