Question

请用VB写一个程序代码，把两个数据文件的数据穿插合并起来，写入一个新的数据文件中

数据文件aa.dat有288行数据，另一个数据文件bb.dat有72000行数据，请用VB编一个程序代码，先读aa文件72行，再读bb文件18000行，再读aa72行，再读bb18000行，直至全部读完，写入数据文件ab.dat中，谢谢

Answer 1

应该是这样的吧，我没这没安装VB编译器，你看下我写的能符合不？我觉得大概写到了，不行的话你自己改哈！
private sub command1_click()
dim b as integer
dim c as integer
open "aa.dat" for input as #1
open "bb.dat" for input as #2
open "ab.dat" for append as #3
do while not eof(1)
b=b+1
if b>=72 then
line input #1,a
print #3,a
end if
do while not eof(2)
c=c+1
if c>=18000 then
line input #2,d
print #3,d
exit do while
end if
loop
loop
close #1,#2,#3
end sub
我还以为是从72行和18000行一行一行的读呢？呵呵，我看错题了
真不好意思！

追问

谢谢，我还没用呢，我觉得对，你现在在线上吗

追答

hehe 上面是我们团长回答的。我可能把题目想错了吧，我以为你的题目是每次都把第72行去出来的。虽然不合题意，但我的那个 EXIT DO WHILE 把后面的WHILE删掉就可以了。呵呵

追问

奥，你的回答是不对。我的意思是写完第一个文件的72个数据后，紧跟第二个文件的18000个数据，再写第一个文件的72个数据，再跟第二个文件的18000个数据，以此类推……麻烦再给写一个程序

追答

hehe 上面我的团长写的应该可以吧

追问

我是这样解决的，共分享一下
Open AA$ For Input As #1
Open BB$ For Input As #2
Open AB$ For Output As #3
Do Until EOF(1) = True
x = 0
Do Until x = 72
Input #1, a$
Print #3, a$
x = x + 1
Loop
y = 0
Do Until y = 18000
Input #2, b$
Print #3, b$
y = y + 1
Loop
Loop
Close

Answer 2

Dim s As String, st As String
Open "aa.dat" For Input As #1
Open "bb.dat" For Input As #2
For x = 1 To 4
For y = 1 To 72
Line Input #1, st
s = s & vbNewLine & st
Next

For y = 1 To 18000
Line Input #2, st
s = s & vbNewLine & st
Next
Next
Close #2
Close #1

Open "ab.dat" For Output As #1
Print #1, s
Close #1