紧急求助！关于文本框。如何将文本框中的内容的左右空格都去掉？？是左右两边！！谢谢了！！！快！！！

Question

TRIM(TEXT1.TEXT),一定要给分哦！

Answer 1

Jneu(River)　:这个我知道。我说得是文本框内容左右两边的空格都去掉

Answer 2

trim为什么不行啊？
text1.text=trim(text1.text)不就去掉两边空格了吗

Answer 3

netxray(挽留)　:我是过了。不行的！！不然我怎么会到这里来问？

Answer 4

Trim 应该可以吧，要不然LTrim(RTrim(text1.text))

Answer 5

trim没问题呀，你是怎么试的，把代码贴出来

Answer 6

xlain(lain)　：不行的！我早都试过了。如果在文本框中输入一个人名。用空格健在这个名字左右两边都加上空格。trim(text1.text)只能去掉左面的空格！右面的不行！

Answer 7

seongchul(seongchul)　:我在用复制和粘贴的时候。有空格。这样，用文本框重的内容作为查询条件的时候就产生了问题。我想去掉空格。可是只是去掉了左边的空格。我需要全部去掉空格

Answer 8

别听别人瞎说！Trime()就可以，我都用过N次了，屡试屡爽！

Answer 9

我用了trim可是不行的。我在用复制和粘贴的时候。有空格。这样，用文本框重的内容作为查询条件的时候就产生了问题。我想去掉空格。可是只是去掉了左边的空格。我需要全部去掉空格 
Jneu(River)：这个应该怎么用？？？请指点！！！

Answer 10

这是我以前用的，特别是用在与C融合中
'用来除去右边空格
Public Function MyRTrim(s As String) As String
    Dim i As Integer
    Dim t As String * 1
    
    i = Len(s)
    t = Mid(s, i, 1)
    Do While (t = Chr(0) Or t = Chr(32) Or t = Chr(255)) '以\0作为字符串结束符
        'Debug.Print Asc(Mid(s, i, 1));
        i = i - 1
        If i = 0 Then Exit Do
        t = Mid(s, i, 1)
    Loop    If i > 0 Then ghpRTrim = Left(s, i)
End Function

Answer 11

text1.text=trim(text1.text)
应该没问题

Answer 12

sandder(包含中：谢谢！！分我从来都是如数给的。而且都是尽量多给！！你有没有去掉全部空格的？？我是一试！！！

Answer 13

cuiyxy(沧海鲨鱼)　：你可以是一试。我是了。不行！！！

Answer 14

Function htrim(ByVal str As String) As String '处理字符串
Dim lenth As Integer
lenth = Len(str)
Dim i As Integer
For i = 1 To lenth
  If Asc(Mid(str, Len(str), 1)) = 0 Or Asc(Mid(str, Len(str), 1)) = 32 Then
     str = Mid(str, 1, Len(str) - 1)
  Else
     Exit For
  End If
Next ihtrim = str
End Function
------------------一定行

Answer 15

emailjjs(jjs)　：各位大虾！！我真的全都试过了。可是不行。我再把问题说一下！！
********************************************************************
我在用复制和粘贴的时候产生空格。这样，用文本框中的内容作为查询条件的时候就产生了问题。我想去掉空格。可是只是去掉了左边的空格。我需要全部去掉空格 
******************************************************************** 
请注意！我在用复制和粘贴的时候产生空格。所以我用trim不起作用。因为我是要用文本框中的内容作为一个查询条件！用复制和粘贴文字的时候产生空格。可是用trim不起作用。我的查询条件里面用了trim。可是还是不行！

Answer 16

应用text1.text=vba.Trim$(text1.text)

Answer 17

Sorry!错了,把exit for 去掉
判断=0或=32应该就行了

Answer 18

sdyqingdao(免费,免费)的方法一定可以的,他查找了文本框的空格,并去掉,你试试再说

Answer 19

我终于明白了，是因为有回车，换行符吧
修改sdyqingdao的程序Function htrim(ByVal str As String) As String '处理字符串
Dim lenth As Integer
lenth = Len(str)
Dim i As Integer
Dim char As Integer
dim s as string
For i = 1 To lenth
   char=Asc(Mid(str, i, 1))
  If char<>0 and char<>32 and char<>10 and char<>13 Then
    s =s &  Mid(str, i, 1)
  end if
Next i
htrim = s
End Function

Answer 20

yunhuaTu(图博)　text1.text=vba.Trim$(text1.text) 这个也不行！
sdyqingdao(免费,免费)：我再试一试！！！谢谢了！！！

Answer 21

再试试！如果不行的话，用ASC（）函数把末尾的空格的ASCII码打印出来！

Answer 22

我从一个execel表里面复制一个名字。然后粘贴到文本框中。用这个文本框中的值作为查询条件。可是。在粘贴过程中产生了空格。这个空格我用了很多方法都去不掉。如果有空格。查询条件就不成立。这该怎么办？？

Answer 23

Jneu(River)　：ascii码的值是13。

Answer 24

我刚试过，就是回车符。
用MID（TEXT1，1，LEN（TEXT1）-1）就可以了或用Function htrim(ByVal str As String) As String '处理字符串
Dim lenth As Integer
lenth = Len(str)
Dim i As Integer
Dim char As Integer
dim s as string
For i = 1 To lenth
  char=Asc(Mid(str, i, 1))
  If char<>0 and char<>32 and char<>10 and char<>13 Then
    s =s &  Mid(str, i, 1)
  end if
Next i
htrim = s
End Function
也行，一定要给分哦！！！

Answer 25

xlain(lain)　：成功了！！！你是对的！！！！给分！！！
我要结账了。。

Answer 26

是enter符了，不是空格所以trim不行
xlain(lain)　得因该可以