怎样将一个数组写入文本文件并保存

Question

如题　怎样将一个二维数组写入文本文档并保存起来

Answer 1

数组什么类型？
如果是String，直接用join函数连接到一个字符串
打开文件，写入
如果不是，用CStr()转换为字符串

Answer 2

哦，二维数组不能用join
那只有循环添加咯

Answer 3

dim i%,j%,arr(20,30) as byte,FileNum as long
FileNum=FreeFile()open "c:\aa.txt" for output as #FileNum
for i=0 to 19
  for j=0 to 29
    write FileNum1,arr(i,j),'数据以逗号隔开
  next
next
close #FileNum

Answer 4

我刚才的问题没问好　应该是下面这段程序求出的Ｒe(i)　如何把它写入一个文本文件　并保存
Dim R As Long, G As Long, b As Long, x As Long, y As Long, FileNum As Long
Dim rR As Single, rG As Single, rB As Single
Dim L As Long, Max As Single, Min As Single, s As String
Dim N As Single, GD() As Integer
Dim Re() As Byte
Dim Bre As Byte
Dim lngRank As Long
 CancelDraw = False
 ResetDraw = False
 ImageFrm.Pic.ScaleMode = vbPixels
ReDim GD(0 To ImageFrm.Pic.ScaleWidth - 1, 0 To ImageFrm.Pic.ScaleHeight - 1)
For y = 0 To ImageFrm.Pic.ScaleHeight - 1
For x = 0 To ImageFrm.Pic.ScaleWidth - 1 '扫描所有像
 L = ImageFrm.Pic.Point(x, y)
 R = L And 256
 G = L And 65280
 b = L And 16711680
 rR = R / 255: rG = G / 255: rB = b / 255
 Max = Maximum(rR, rG, rB)
 Min = Minimum(rR, rG, rB)
 N = (Max + Min) / 2
If N <= 0.5 Then
  GD(x, y) = 0
Else
  GD(x, y) = 1
End If
 Next x
 Next y
 '先求出原始矩阵的秩
lngRank = UBound(GD, 1) - LBound(GD, 1) + 1
lngRank = lngRank * (UBound(GD, 2) - LBound(GD, 2) + 1)
'判断秩是不是8的倍数
If (lngRank Mod 8) <> 0 Then
    ReDim Re(0 To CLng(lngRank \ 8))
Else
    ReDim Re(0 To CLng(lngRank \ 8) - 1)
End IfDim i As Long, j As Long, k As Long
Dim m As Integer
 j = 0: k = 0
For i = LBound(Re) To UBound(Re)
 Bre = 0
For m = 0 To 7
 Bre = Bre + GD(j, k) * 2 ^ m
 k = k + 1
If k > UBound(GD, 2) Then   '如果超过了列数，则指向下一行
 k = 0
 j = j + 1: If j > UBound(GD, 1) Then Exit For
End If
    Next
 Re(i) = Bre
 Next

Answer 5

dim str as string
for i=0 to ubound(re）
    str=str & cstr(re(i))
next i
FileNum=FreeFile()open "c:\aa.txt" for output as #FileNum write FileNum1,str'数据以逗号隔开
 close #FileNum

Answer 6

open "c:\aa.txt" for Binary as #FileNum
 put FileNum1,,re
close #FileNum