首页 > 其他好文 > 详细

VB二进制文件读写

时间：2016-01-21 18:36:02 阅读：201 评论：0 收藏：0 [点我收藏+]

标签：

数组存取

存数组

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

结构体读写

技术分享

技术分享

VB二进制文件读写

标签：

原文地址：http://www.cnblogs.com/joy99/p/5148875.html

踩

(0)

赞

(0)

举报

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行

更多

友情链接

兰亭集智国之画百度统计站长统计阿里云 chrome插件新版天听网

关于我们 - 联系我们 - 留言反馈

© 2014 mamicode.com 版权所有联系我们:gaon5@hotmail.com

迷上了代码！