vb怎样在文本文件每个段落间空一行？

Question

一个文本文件"c:\1.txt"，里面有许多段落，怎样用vb在这个文本文件每个段落中间增加一个空行？
文件内容是不固定的。增加空行后文本文件内容如下面的样式：
……………………

…………………………

……………………

Answer 1

Private Sub Command1_Click()
'把txt载入到文本框或者变量中
Text1.Text = Replace(Text1.Text, vbCrLf, vbCrLf & vbCrLf)
'输出文本框或者变量即可
End Sub追问

文本文件是"c:\1.txt"，直接在这个文件中处理

追答

Private Sub Command1_Click()
Open "g:\1.txt" For Input Access Read As #1
Do While Not EOF(1)
Line Input #1, strTxt
s = s & strTxt & vbCrLf & vbCrLf
Loop
Close #1
Open "g:\1.txt" For Output As #1
Print #1, s;
Close #1
End Sub

Answer 2

在每个段落后加一句：
print #1, vbCrLf
（其中#1要根据你的程序换成 #2，#3.。。。#？， 对应你打开"c:\1.txt"语句的#？）追问

在每个段落后加一句？那要加多少句啊？有的文本文件很长的

追答

你要把程序写成循环，处理完一个段落，加了回车换行后，返回到处理段落的开始，再处理下个段落，这样无论文件多长，程序就那么多。

追问

不会写循环。请指教，最好给出示范代码

追答

你要怎么处理这个文件？ 从哪里来内容，每段是收到一包数据，还有什么结尾？或把你的有关部分程序贴出来

Answer 3

全部读到一个字符串，然后分析，找到段落的结尾，插入字符串追问

需要代码，请帮助下

Answer 4

全部读出来写入你要写入第一行的内容再把读出的内容写进去,通俗易懂,如果你想用移位或位操作什么的,就算了吧，都是忽悠人的，详细请参考数据写入方式你就懂了