如何在vb中除掉回车字符？急急急！

Question

如：
 s=cstr(trim(text1.text));
  可我将s 插入数据时数据库报错，字段长度不够，可我定义的长度明明够用！
 后来我发现，在text1的文本框里有是会多存入一个回车符！
 请问如何在付值时在text1文本框中去掉回车符！

Answer 1

s = Replace$(Text1.Text, vbCrLf, "")

Answer 2

如果不一定是vbCrlf呢？也许是chr(10),chr(13)我该如何判断？

Answer 3

小徐同志我要能加if 我就加iif()了，还用你说！

Answer 4

把 vbCrLf 换成相应的内容

Answer 5

不是呀！我的意思是如果text1文本框中的末尾如果有时是chr(10)有时是chr(13)呢？
而且在text1中输入的内容长度不定！怎么办？

Answer 6

if len(text1)<>0  then'空
   if right(text1,1)=chr(10) or right(text1,1)=chr(13) then'换行、回车符
      s=left(text1,len(text1)-1)
   else
      s=text1
   endif
end if

Answer 7

太麻烦！replace(text1.text,iif(right(text1,1)=chr(10),chr(10),chr(13)),"")

Answer 8

wzzwwz(棒子面窝头)
    chr(10),chr(13)个数是固定的！

Answer 9

Option ExplicitPrivate Sub Command1_Click()
    Dim s As String
    s = Right$(Text1.Text, 2)
    s = Replace$(s, Chr(10), "")
    s = Replace$(s, Chr(13), "")
    s = Left$(Text1.Text, Len(Text1.Text) - 2) & s
    Text1.Text = s
End SubPrivate Sub Form_Load()
    Text1.Text = "AAAAAA" & Chr(10) & Chr(13)
End Sub

Answer 10

wzzwwz(棒子面窝头) 大哥！我不是说text中有个chr(10)和chr(13),我是说有时是chr(10)有时是chr(13)

Answer 11

谢了个为的热心肠！特别谢谢（棒子面窝头）我还是用replace(text1.text,iif(right(text1,1)=chr(10),chr(10),chr(13)),"")将就一下吧！
希望各位有更好的方法！

Answer 12

唉，你把我的代码放到你的程序看看呀！Text1.Text = "AAAAAA" & Chr(10) & Chr(13)
这句代码是模拟你的情况的，有 Chr(10) 能替换，有 Chr(13) 也能替换，两个都有也能替换呀！

Answer 13

你把
    Dim s As String
    s = Right$(Text1.Text, 2)
    s = Replace$(s, Chr(10), "")
    s = Replace$(s, Chr(13), "")
    s = Left$(Text1.Text, Len(Text1.Text) - 2) & s
    Text1.Text = s
这些代码放到你的程序中看看。
另外
Text1.Text = "AAAAAA" & Chr(10) & Chr(13)
这行代码是模拟的你的情况的，有 Chr(10) 能替换，有 Chr(13) 也能替换，两个都有也能替换。