數組存取
存數組
Private Sub Command2_Click()
Dim fileNumber As Integer
Dim S9 As String
Dim k As Integer
Dim l As Integer
On Error Resume Next
fileNumber = FreeFile()
S9 = "D:\zs.txt"
If Dir(S9) <> "" Then Kill S9
Open S9 For Binary As #fileNumber
k = UBound(arr)
Put #fileNumber, , k
Put #fileNumber, , arr
l = UBound(azz)
Put #fileNumber, , l
Put #fileNumber, , azz
Close #fileNumber
End Sub
讀數組
Private Sub Command3_Click()
Dim fileNumber As Integer
Dim S9 As String
Dim k As Integer
Dim l As Integer
Dim ayy() As Integer
Dim akk() As Integer
On Error Resume Next
fileNumber = FreeFile()
S9 = "D:\zs.ini"
Open S9 For Binary As #fileNumber
Get #fileNumber, , k
ReDim ayy(k)
Get #fileNumber, , ayy
Get #fileNumber, , l
ReDim akk(l)
Get #fileNumber, , akk
Close #fileNumber
End Sub
結構體讀寫