Question

VB怎样把一个文本文件写入另外一个文件

我想从一个文本里数据写入另外一个文本里!怎样一行行读取和一行行写入！！

Answer 1

dim lineStr as string,outer as string
Open "源文件" for input as #1
do until eof(1)
line input #1,linestr
outer = outer & linestr & vbcrlf
loop
close #1

open "目标文件" for output as #1
print #1,outer
close #1

msgbox "读取写入完成！"

Answer 2

'楼上swx1995的回答不错……其实也可试试Binary的方法。

dim a as integer
dim b() as byte
a=freefile()
Open "c:\fk.txt" for binary as a
get #a,,b()
close

Open "c:\kf.txt" for binary as a
put #a,,b()
close

'抱歉我没时间试……这段代码好久没用了，如果有误请包涵哈