相信我们在初期做系统的时候,都遇到过这样一个问题,那就是没有空格的处理措施,在测试时输入了多余的空格,会使系统失去原来的效果,当然我们知道是空格的问题造成的,只要去除空格就可以了,可是用户是不知道的,而当用户不小心点了一下空格,如果没有一定的措施,那么用户就会对这个感到疑惑,因为他不会知道多个空格就不能执行了,所以在很多程序中我们要加入自动去除空格的功能,那么这要怎么实现呢?
其实很简单,只需一条语句就可以了:
去除任意空格:text1.text=Replace(text1.text,””,””)
去除左空格:text1.text=LTrim(text1.text,””,””)
去除右空格:text1.text=RTrim(text1.text,””,””)
去除两头空格:text1.text=Trim(text1.text,””,””)
去除中间空格:
Dim a As Integer
Dim i As Integer
Dim lstr As String
a = Len(Text1.Text)
lstr = Mid(Text1.Text, 1, 1)
For i = 2 To a
k = Mid(Text1.Text, i, 1)
If k = " " And Mid(Text1.Text, i - 1, 1) = " " Then
lstr = lstr
Else
lstr = lstr & k
End If
Next
Text1.Text = lstr