怎样在VB中把结构体数组保存到二进制文件中？

Question

怎样在VB中把结构体数组保存到二进制文件中？并且再把二进制文件中的内容恢复到结构体数组中。

Answer 1

Option
Explicit
'定义结构体,注意,此处如果用到字符串变量,要设置定长
Private
Type
typUser
uid
As
Long
uName
As
String
*
10
'定长10个字符
uPWD
As
String
*
10
End
Type
Dim
user(10)
As
typUser
'读取
Dim
userGet(10)
As
typUser
Private
Sub
Form_Load()
'随便填充数据
Dim
i
As
Integer
For
i
=
0
To
10
With
user(i)
.uid
=
i
.uName
=
Rnd
*
99999
.uPWD
=
Rnd
*
88888
End
With
Next
'保存结构体数组到文件
Open
App.Path
&
"save.dat"
For
Random
As
#1
Len
=
Len(user(0))
'Random方式打开文件,这里的len是每条记录的长度
For
i
=
0
To
10
Put
#1,
,
user(i)
Next
Close
#1
'从文件中读取结构体
Open
App.Path
&
"save.dat"
For
Random
As
#1
Len
=
Len(user(0))
For
i
=
0
To
10
Get
#1,
i
+
1,
userGet(i)
Next
Close
#1
End
Sub