UC知道VB 二维数组的存取
来源：百度知道 编辑：UC知道 时间：2024/05/17 03:16:54
一个二维数组 a(0~100,0~15)
我想把它保存到文件中
一行存16个(用,号分隔开) 共101行
怎么存?存入文件后怎么读取
妮可,读取的时候怎么做呢?你只答了一半啊
秋色峰火,你回答的我没看懂,我只想把这个二维数组存到一个文件中,如a.txt
然后我需要的时候再将这个文件中保存的数值读入到数组中就行.
我先测试一下
我想把它保存到文件中
一行存16个(用,号分隔开) 共101行
怎么存?存入文件后怎么读取
妮可,读取的时候怎么做呢?你只答了一半啊
秋色峰火,你回答的我没看懂,我只想把这个二维数组存到一个文件中,如a.txt
然后我需要的时候再将这个文件中保存的数值读入到数组中就行.
我先测试一下
Dim a&(100, 15), i&, j&
Open "c:\1.txt" For Output As #1
For i = 0 To 100
For j = 0 To 15
Print #1, a(i, j) & ",";
Next
Print #1,
Next
Close #1
读取: (没测试,应该是)
Dim tmp$(), i&, j&, s$()
Open "c:\1.txt" For Input As #1
tmp = Split(StrConv(InputB$(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
For i = 0 To 100
s = tmp(i)
For j = 0 To 15
a(i, j) = Split(s, ",")(j)
Next
Next
Private Sub Command1_Click() '保存
Dim a(0 To 100, 0 To 15)
Dim vStr$
'自动为数组赋值
For i = 0 To UBound(a)
For j = 0 To 15
a(i, j) = j
Next
Next
'读取数组值 组合字符串 保存到文件中
For i = 0 To UBound(a)
For j = 0 To 15
vStr = vStr & a(i, j) & IIf(j <> 15, ",", "")
Next
If i = 0 Then