VB中如何把2个文本文件中的内容合并到一个文本文件内?

来源：百度知道 编辑：UC知道 时间：2024/05/09 13:26:36
有1.txt,2.txt和3.txt三个文件.
1.txt里的内容为AAA
2.txt里的内容为BBB
3.txt里的内容为CCC
如何通过点击一个按钮,生成一个名为4.txt的文件,其内容为

AAA
BBB
CCC

(注意是有回车的.生成4.txt里的文件内容不是AAABBBCCC)

Private Sub Command1_Click()
Dim i&, arr$(2)
For i = 1 To 3
ReadFrom i & ".txt", arr(i - 1)
Next
WriteTo "4.txt", Join$(arr, vbCrLf)
MsgBox "ok", 64
End Sub

Sub ReadFrom(FileName$, TXT$)
Dim fn&: fn = FreeFile
Open FileName For Input As #fn
TXT = StrConv(InputB$(LOF(fn), fn), vbUnicode)
Close #fn
End Sub

Sub WriteTo(FileName$, TXT$)
Dim fn&: fn = FreeFile
Open FileName For Binary As #fn
Put #fn, , TXT
Close #fn
End Sub

Dim S As String
Open "H:\1.TXT" For Input As #1
Open "H:\2.TXT" For Input As #2
Open "H:\3.TXT" For Input As #3
Open "H:\4.TXT" For Output As #4
While Not EOF(1)
Line Input #1, S
Print #4, S
Wend
While Not EOF(2)
Line Input #2, S
Print #4, S
Wend
While N