VB 6.0 怎么将文本框中空值的段落删除，每隔一行就出现一个空值的行，怎么删除这些空值的行，保留有数据的行，也可以说怎么判断一行是空值？

[此贴子已经被作者于2022-4-2 12:46编辑过]

1、取所有的内容 s
2、按回车换行符分解成数组 f=split(s,vbcrlf)
3、循环判断每个元素，如果不为空，则接连接起来
  s =s & vbcrlf & f(i)

   分解时，段落使用的 vlcr 分的，而不是 vbvrlf ，或者混合使用的，可以先替换成一种字符，然后再分解。
   判断时，有可能需要处理，如此段没有内容，但有 空格，可以使用 trim 函数去掉。
   因需要判断，所有连接时，不能使用 join 函数连接。

   如果严格是 每隔一行，空一行，那倒有一个变通的办法，分解后，每隔一行的值变成 vbcrlf ，然后使用 join 连接，分隔符为空。



   

谢谢 风吹过b ：
给了我一定的启示，自己也搞出来了，效果还不错。