Question

VB6请教怎么将数据写入文本文件

如以下格式
1234
1235
2236
.....
...

Answer 1

'一行一行的写入：
dim fid as integer
fid=freefile()    '获取一个可用的文件号
Open "C:\Test.txt" For Output as # fid    '打开C:\Test.txt文件，方式式为写入（Output）
print #fid, "1234"
print #fid, "1235"
'假如数据存在于数组a中：
dim i as integer
for i=0 to ubound(a)
    print #fid,a(i)
next
'如果数组内容是字符串类型，可以用 join(a,vbcrlf) 把数组项连接成一个字符串，然后把字符串写入文件。

追问

如果是在循环中写入，怎么换行？

追答

print 语句和输出到窗口一样，会自动换行的。不对，应该是每输出一句就换一行。

Answer 2

  set fs =createobject("scripting.filesystemobject")
  set ts=fs.opentextfile(n,2,true)  '2为forwriting
  ts.writeline 1234
  ts.writeline 1235
  ts.close