VB二进制文件读写
来源:互联网 发布:aso如何优化 编辑:程序博客网 时间:2024/05/29 10:56
数组存取
存数组
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
结构体读写
阅读全文
0 0
- 读写二进制文件 VB.NET
- VB.net读写二进制文件
- VB二进制文件读写
- VB二进制文件读写
- VB 写的二进制文件读写数据库操作模块
- vb.net 教程 4-9 二进制文件读写 1
- vb.net 教程 4-9 二进制文件读写 2
- vb.net 教程 4-9 二进制文件读写 3
- 读写二进制文件
- 读写二进制文件
- 读写二进制文件
- 二进制文件读写
- 二进制文件读写
- 二进制文件读写
- 读写二进制文件
- 二进制文件读写
- 读写二进制文件
- 二进制文件读写
- hdoj 1002 (A + B Problem II)
- DS18B20(1-wires)驱动移植
- 给初学者的RxJava2.0教程(七)
- 【WPF】后台传数据给前台ListBox显示(实时显示)
- Fragment 面试详解
- VB二进制文件读写
- 【Spring】Spring源码转Eclipse读取形式 :spring-beans-groovy Problem
- 【PHP学习】HTTP头部详解
- JS定义函数浅析(一)
- Swing中Frame窗口显示dialog窗口再弹出对话框,背景为白色不显示组件解决办法
- android打包混淆
- maven_setting.xml备份
- 内联汇编
- MySQL的数据类型