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

如以下格式123412352236........

2024-10-30 06:08:15

推荐回答（2个）

回答（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) 把数组项连接成一个字符串，然后把字符串写入文件。

回答（2）：

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