Text1输入文本,

在Text2里取得Text1的文本,怎样能排除回车符,空格符

请给出代码,

谢谢!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

trim(text1)或trim(text2)

trim函数只能去掉字符串左侧好右侧的空格

设置一个按钮，在输入text1后单击该按钮，就可以将text1中的空格和回车去掉然后复制到text2中
按钮的代码如下:
Private Sub Command1_Click()
    Dim i%, s$
    s = Text1.Text
    For i = 1 To Len(s)
        If Asc(Mid(s, i, 1)) <> 32 And Asc(Mid(s, i, 1)) <> 13 Then Text2.Text = Text2.Text & Mid(s, i, 1)
    Next
End Sub

讓<>32 and <>13 時就讓它取得文本如果等就提示

谢谢各位,
我是用自定义函数去除回车符(回车键)
Text2.Text=removing(Text1.Text)
模块内的这个removing函数怎么写???
再请教

试试下面这个
Public Function removing( s as string )   
    Dim i%
    For i = 1 To Len(s)
        If Asc(Mid(s, i, 1)) <> 32 And Asc(Mid(s, i, 1)) <> 13 Then Text2.Text = Text2.Text & Mid(s, i, 1)
    Next
end

[ 本帖最后由 tig2 于 2008-5-15 18:22 编辑 ]

谢谢,我试试

这个代码也可以
Private Sub Command1_Click()
Text2.Text = Replace(Text1.Text, " ", "")
End Sub

Function Moving(inputstr as string)
    inputstr=Replace(inputstr,vbCrLf,"")
    Moving=Replace(inputstr," ","")
End Function