VB数组存储问题

来源：百度知道 编辑：UC知道 时间：2024/05/04 22:19:12
我现在有6个数组分别是com(25),curx(25),cury(25),currx(25),curry(25),curz(25)....我想把他们的值保存到01.ntj中,请问用什么代码实现
.保存过后我下次打开再把里面的内容分别存到这几个数组中,又用什么代码实现...求高手解答..要代码!!!
补充一点
要求以下几个按钮:
1 保存 点击后直接保存文件
2 另存为 点击后弹出另存为对话框,输入文件名后再执行保存操作
3 打开 点击后弹出打开对话框,选择文件点击确定以后将文件内的值赋给数组.
已有控件CD1

Private Sub Command1_Click()
Dim stmp$(25)
For i = 0 To 25
stmp(i) = CStr(com(25)) & "," & CStr(curx(25)) & "," & CStr(cury(25)) & "," & CStr(currx(25)) & "," & CStr(curry(25)) & "," & CStr(curz(25))
Next
Open "01.ntj" For Output As #1
Print #1, Join(stmp, vbCrLf)
Close #1
End Sub

Private Sub Command2_Click()
Dim a, b
Open "01.ntj" For Input As #1
Do While Not EOF(1)
Line Input #1, a
b = Split(a, ",")
com(i) = b(0)
curx(i) = b(1)
cury(i) = b(2)
currx(i) = b(3)
curry(i) = b(4)
curz(i) = b(5)
i = i + 1
Loop
Close #1
End Sub

Public Function openfile(ByVal filepath As String) As String'读入文件函数
Dim s As String
Open filepath For Input As #1
While Not EOF(1)
Line Input #1, sline
s = s & sline & vbCrLf
Wend
Clos