利用replace 函数 在vb中实现 消除空行

这里是 利用replace 函数 在vb中实现 消除空行的一个程序

这里的容器是richtext

可以扩充到其他容器 和其他字符 用于编写查找替换功能

'-------------------------------------------------------------------------------------------- ' 消除空行,利用instr函数,搜索文本里的vbcrlf(回车 + 换行),两个回车替换成一个回车加换行 '-------------------------------------------------------------------------------------------- Do While InStr(1,rtffile.Text,vbCrLf & vbCrLf) rtffile = Replace(rtffile.Text,vbCrLf & vbCrLf,vbCrLf) Loop

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!