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

这里的容器是richtext

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

'-------------------------------------------------------------------------------------------- ' 消除空行,利用instr<a href="/tag/hanshu/" target="_blank" class="keywords">函数</a>,<a href="/tag/sousuo/" target="_blank" class="keywords">搜索</a>文本里的vbcrlf(回车 + 换行),两个回车替换成一个回车加换行 '-------------------------------------------------------------------------------------------- Do While InStr(1,rtffile.Text,vbCrLf & vbCrLf) rtffile = Replace(rtffile.Text,vbCrLf & vbCrLf,vbCrLf) Loop