zoukankan      html  css  js  c++  java
  • VB二进制文件读写

    数组存取
     

    存数组
    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
     
     
    结构体读写
     
     
  • 相关阅读:
    进程空间与系统空间(一)
    内核之最
    Linux 内核3.10.5 专场
    device_create与device_register
    重写与重载的含义
    抽象类和接口的区别
    Spring知识点
    mybatis学习
    知识点
    Mybatis面试题
  • 原文地址:https://www.cnblogs.com/chenliyang/p/6548945.html
Copyright © 2011-2022 走看看