两个TXT文本文件合并一个文本文件？

Question

皮皮的绝对可以，不过只是DOS命令

Answer 1

呵呵 就那最简单了~~~~shell ("copy 1.txt+2.txt 3.txt")在2K下也没问题呢~~~

Answer 2

皮皮的方法是可行的
先自己在文本文件中写个dos命令
copy a.txt+b.txt c.txt
最后命名为copy.bat
那可以用shell调用就可以了
Dim dou As Double
dou = Shell("copy.bat", vbHide)如果知道命令路径还可以直接写
例如
retval = Shell("c:\WINDOWS\system\regsvr32.EXE crviewer.dll", vbNormalFocus)

Answer 3

put #FileNum,Position + 1,variablePosition 为第一个文件的末尾字符的位置variable　存储第２个文件的内容

Answer 4

public a as string
open "d:\a.txt" for input as 1
open "d:\b.txt" for input as 2
open "d:\c.txt" for append  as 3
while not eof(1)
input line #1,a
s=a & s
wend
close 1
print #3,a
a=""
s=""
while not eof(2)
input line #2,a
while not eof(2)
line input #2,a
s=s & a
wend 
close 2
print #3,a
close 3

Answer 5

补充:public a as string
public s as string

Answer 6

执行DOS命令不用COMMAND吗？
这样做吧：
Shell "command /c copy aa.txt + bb.txt cc.txt ", vbHide

Answer 7

或者这样：
把bb.txt添加到aa.txt后面：
1.shell "command /c type bb.txt >>aa.txt ",vbhide
2.shell "command /c copy bb.txt con >>aa.txt ",vbhide

Answer 8

我觉得sys_wkq(吴克青) 方法要好一些，自己写点代码比调用shell好，我最讨厌shell

Answer 9

open f1 for binary as #1
open f2 for binary as #2
dim b() as byte
redim b(filelen(f2)-1)
get #2,,b
seek #1,filelen(f1)  '或者是seek #1,filelen(f1)-1，具体如何忘了，自己实验即可
put #1,,b
close #1
close #2