7,763
社区成员
发帖
与我相关
我的任务
分享如何去粘贴到文本框文本多余的回车换行符？
如果我将下面引号里面的文本拷贝到 文本框 text1 中，len(trim(text1.text))是大于1的，证明它把把回车换行符也接收了，如果解决
"a
"
"a
"
...全文
请发表友善的回复…
发表回复
pcwe2002 2005-12-17
- 打赏
- 举报
Private Sub Text1_Change()
Text1.Text = Replace(Text1.Text, Chr(13), "")
End Sub
Text1.Text = Replace(Text1.Text, Chr(13), "")
End Sub
northwolves 2005-12-17
- 打赏
- 举报
dim txt as string
txt =Text1.Text
Do while instr(txt,vbcrlf & vbcrlf)>0
txt = Replace(txt , vbcrlf& vbcrlf , vbcrlf)
loop
text1.text=txt
WORD中就简单多了：
替换 ^13{2,}--->^13,选择通配符替换
txt =Text1.Text
Do while instr(txt,vbcrlf & vbcrlf)>0
txt = Replace(txt , vbcrlf& vbcrlf , vbcrlf)
loop
text1.text=txt
WORD中就简单多了：
替换 ^13{2,}--->^13,选择通配符替换
WM_JAWIN 2005-12-17
- 打赏
- 举报
Private Sub Text1_Change()
dim txt as string
txt =Replace(Text1.Text, vbcrlf, "")
Text1.Text = Replace(txt , vbcr, "")
End Sub
dim txt as string
txt =Replace(Text1.Text, vbcrlf, "")
Text1.Text = Replace(txt , vbcr, "")
End Sub
leaxin 2005-12-17
- 打赏
- 举报
有没有更好的办法
