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

最新推荐文章于 2024-01-10 16:16:21 发布

最新推荐文章于 2024-01-10 16:16:21 发布 · 154 阅读

本文介绍了一个使用VB编写的简单程序，该程序能够从RichText容器中移除多余的空行。通过查找并替换连续的回车换行符，程序实现了文本内容的优化。

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

这里的容器是richtext

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

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