Question

用VB6.0删除文本文档内的回车换行符

我想用VB6.0写一个小程序，要能够把文本文档内的回车换行符都删除掉，文本文档内保存是用文本合并器合并的多个文本文档的内容，所有每合并一个文件就会有一个回车换行符，我想把中间的这些回车换行符都删除掉，只留下最后一个就可以了。望高手不吝赐教，万分感激！！！

Answer 1

Private Sub Command1_Click()
Dim str As String, x As String
Open "c:\123456.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, x
str = str + x
Loop
Close
Open "c:\123456.txt" For Output As #1
Print #1, str
Close
MsgBox "完成了！", vbOKOnly, "提示"
End Sub
注：我的代码中的文件在C盘，名称为123456.txt，把这些换成你的文件路径就行了。
我已经验证，正确运行。

追问

我试了一下，可以的，但是我不太明白，能不能给解释一下，谢谢。

追答

Line Input #1, x
str = str + x
‘就是打开文件，读取每一行，（不包括回车符），然后读取的字符连接。
Open "c:\123456.txt" For Output As #1
’重新打开文件以output方式（自动删除原来的内容）
Print #1, str
‘写入上次读取的所有的字符。
Close