如何去掉VB生成的txt文件中的黑块

问题描述：

VB编程生成的.txt.文件，用记事本打开时某些换行的地方出现黑块（而用写字板或word 无此现象）

探讨原因：

文本文件并不是根据回车符换行的
而是用 回车符+换行符 换行的
每次在文本框中按回车键实际上是生成了 回车符+换行符

有些文本编辑器支持换行符换行（Unix系统的习惯）
远程通信一般是用回车符换行（如HTTP协议）

解决方法：

假设str变量已经读取了文本数据：
str = Replace(str, vbCrLf, vbLf) '将 回车符+换行符 替换成 换行符，防止误操作
str = Replace(str, vbCr, vbLf) '将 回车符 替换成 换行符
str = Replace(str, vbLf, vbCrLf) '将 换行符 替换成 回车符+换行符
'输出 str