这里是 利用replace 函数 在vb中实现 消除空行的一个程序
这里的容器是richtext
可以扩充到其他容器 和其他字符 用于编写查找替换功能
'-------------------------------------------------------------------------------------------- ' 消除空行,利用instr<a href="https://www.jb51.cc/tag/hanshu/" target="_blank" class="keywords">函数</a>,<a href="https://www.jb51.cc/tag/sousuo/" target="_blank" class="keywords">搜索</a>文本里的vbcrlf(回车 + 换行),两个回车替换成<a href="https://www.jb51.cc/tag/yige/" target="_blank" class="keywords">一个</a>回车加换行 '-------------------------------------------------------------------------------------------- <a href="https://www.jb51.cc/tag/dowhile/" target="_blank" class="keywords">do while</a> InStr(1,rtffile.Text,vbCrLf & vbCrLf) rtffile = Replace(rtffile.Text,vbCrLf & vbCrLf,vbCrLf) Loop
