vb去除多余的空格

        相信我们在初期做系统的时候，都遇到过这样一个问题，那就是没有空格的处理措施，在测试时输入了多余的空格，会使系统失去原来的效果，当然我们知道是空格的问题造成的，只要去除空格就可以了，可是用户是不知道的，而当用户不小心点了一下空格，如果没有一定的措施，那么用户就会对这个感到疑惑，因为他不会知道多个空格就不能执行了，所以在很多程序中我们要加入自动去除空格的功能，那么这要怎么实现呢？

        其实很简单，只需一条语句就可以了：

去除任意空格: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