Question

通过vb程序如何实现txt文件的合并？并且每行前加上特定的字符？有个有若干个txt文件，如何在每个txt文件第

通过vb程序如何实现txt文件的合并？并且每行前加上特定的字符？有个有若干个txt文件，如何在每个txt文件第一行前面加上“Q:”，其余的行每行前面加上“A:”,并且最后把这些txt文件合并成一个文件?不同的txt文件之间有一个空行

Answer 1

Private Sub Command1_Click()
Open "d:\1.txt" For Input As #1 '要合并的文本
Open "d:\2.txt" For Input As #2 '要合并的文本
Open "d:\3.txt" For Output As #3 '合并后的文本
Line Input #1, a
Print #3, "Q:" & a
Do Until EOF(1)
Line Input #1, a
Print #3, "A:" & a
Loop
Print #3,
Line Input #2, a
Print #3, "Q:" & a
Do Until EOF(2)
Line Input #2, a
Print #3, "A:" & a
Loop
Close (1)
Close (2)
Close (3)
End Sub