VB 6.0 怎么将空值的段落删除

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

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

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