Question

vb 分别读取两个txt,写入一个新的txt？

文档1内容：
A01
A02
文档2内容：
B01
B02
B03
B04
vb新建文档内容要求：
A01
B01
B02
A02
B03
B04
求教高手解答！！！

Answer 1

首先解决如何读、写文本文件，代码如下：
'读取文档的代码
Dim MyStr1 As String
Dim LStr1 As String
Open "C:\文档1.txt" For Input As #1 '以读的方式打开文件
Do While Not EOF(1) ' 循环至文件尾
Line Input #1, LStr1 '读入一行
MyStr1 = MyStr1 & LStr1 & vbCrLf
Loop
Close #1 ' 关闭文件。

'写文件
Open "C:\输出文档.txt" For Output As #1 '以输出方式打开文件
Print #1, MyStr1
Close #1 ' 关闭文件。

其次：用下面的思路解决你的要求；
1，首先把需要读取的两个文档内容，分别读取到2个数组里（每个元素存放一行数据）。
2，然后根据你要求的规律，按照顺序每次从数组1取一个数据、从数组2里取2个数据，这样一一组合成新的顺序写到文件里去。

追问

MyStr1里面直接就是包含文档1所以内容，我开始也是这样写的，
我还是不懂怎么才能控制顺序，是不是需要进行循环嵌套？

我完全是新手，问题可能比较低端，求大神解答，谢谢！！！

追答

那就按照你的数据，做一个例子吧，请看附件，代码通过VB6测试。