Question

vb里怎么把数组写入txt文件

数组数据如下：
a(1,1)=1 a(1,2)=2 a(1,3)=3
...
存入txt文件里 格式如下：
1，2，3
....

Answer 1

open filename for output as #1
for i=lbound(a,1) to ubound(a,1)
for j=lbound(a,2) to ubound(a,2)
s=""
s=s & a(i,j) & iif(j=ubound(a,2),"，",)
print #1, s
next
next
close #1