TXT读取与写入问题，总有N个换行，怎么去掉？
程序原本想实现，读取aaa.txt里的全部内容（保持行数），再追加到bbb.txt中，
但我的代码第一次运行，没有换行，再运行几次，换行又太多，请高手给指点一下，代码如下：(多按几次 Command1就出问题了)
Private Sub Command1_Click()
Dim stemp As String
Dim ostemp As String
'----------------
Open App.Path & "\aaa.txt " For Input As #1

Do While Not EOF(1)
Input #1, stemp
ostemp = ostemp & stemp
Loop
Close #1

'------------------
Open App.Path & "\bbb.txt " For Append As #1
Print #1, ostemp
Close #1
End Sub


[解决办法]
Print #1, ostemp;
加个分号是不是楼主要的效果？
[解决办法]
Open App.Path & "\aaa.txt " For Input As #1
Do While Not EOF(1)
Input #1, stemp
ostemp = ostemp & stemp & Chr(13) & Chr(10)
Loop
Close #1
ostemp = Left(ostemp, Len(ostemp) - 2) '去掉最后的换行

[解决办法]
Option Explicit
Private Sub Command1_Click()
Dim stemp As String
Dim ostemp As String
'----------------
Open App.Path & "\aaa.txt " For Input As #1
Do While Not EOF(1)
Input #1, stemp
ostemp = ostemp & stemp & Chr(13) & Chr(10)
Loop
Close #1
ostemp = Left(ostemp, Len(ostemp) - 2) '去掉最后的换行
'------------------
Open App.Path & "\bbb.txt " For Append As #1
Print #1, ostemp
Close #1
End Sub
[解决办法]
append读写会自动换行，这个是格式，
改用binary ,嘿嘿，这个会完全扔掉你的文件格式，绝对没有换行