这里是 利用replace 函数 在vb中实现 消除空行的一个程序 这里的容器是richtext 可以扩充到其他容器 和其他字符 用于编写查找替换功能 '-------------------------------------------------------------------------------------------- ' 消除空行 , 利用instr函数, 搜索文本里的vbcrlf(回车 + 换行), 两个回车替换成一个回车加换行 '-------------------------------------------------------------------------------------------- Do While InStr(1, rtffile.Text, vbCrLf & vbCrLf) rtffile = Replace(rtffile.Text, vbCrLf & vbCrLf, vbCrLf) Loop