如何去处TEXT中的回车键！

[xunximeng]

一个text控件，其MultLine属性设为真，可以多行输入，但是有的时候输入完以后，比如不小心回按下很多回车键，我想把末尾的回车键字符删除，该怎么办？
想这样
Hello
Hello


空的地方都是回车键
想把这些回车键去掉，变成
Hello
Hello
就可以了。
谢谢！

[cnhgj]

replace(text1.text,vbcrlf,"hello")

[moyaxu]

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
End If
End Sub

[xz8000]

Dim Str1 as String

Do While Right(Str1,2)= Chr(13) & Chr(10)
Str1=Left(Str1,Len(Str1)-2)
Loop

[Fearfulness]

判断是不是有两个连续的vbcrlf要是，有两个，就删掉一个。

[rappercn]

Do While InStrRev(Text1.Text, vbCrLf) = Len(Text1.Text) - 1
Text1.Text = Left(Text1.Text, InStrRev(Text1.Text, vbCrLf) - 1)
Loop

[xz8000]

Dim Str1 as String

Do While Right(Str1,1)= Chr(13)
Str1=Left(Str1,Len(Str1)-1)
Loop

Str1末尾的回车键已去掉

[rappercn]

回车换行=vbcrlf=chr(13) & chr(10)

光去掉chr(13)一点用都没有