vb二进制读取

来源：百度知道 编辑：UC知道 时间：2024/05/25 22:51:40
要将列表框中的记录以二进制方式保存，然后用二进制打开，显示在列表框，怎样写代码?
请给点代码吧，我是个菜鸟

'在窗体上加入控件list1,command1,command2,然后复制下面代码，运行即可。

Option Explicit

Private Sub Command1_Click()
Dim i As Integer, S As String
S = "c:\1.dat"
If Dir(S) <> "" Then Kill S
Open S For Binary As #1
For i = 0 To List1.ListCount - 1
Put #1, , List1.List(i) & vbNewLine
Next
Close #1
MsgBox "文件保存完毕！"
End Sub

Private Sub Command2_Click()
Dim i As Integer, S As String, a() As Byte, b() As String
S = "c:\1.dat"
List1.Clear
ReDim a(FileLen(S) - 1)
Open S For Binary As #1
Get #1, , a
Close #1
S = StrConv(a, vbUnicode)
b = Split(S, vbNewLine)
For i = 0 To UBound(b)
List1.AddItem b(i)
Next
MsgBox "文件已成功读取！"
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 10
List1.AddItem Rnd * 900000
Next
Command1.Caption = "保存"
Command2