当前位置: 源码素材网 » VB教程 » 详情页

VB演示使用二进制格式录入和读取文件内容

  •   时间:2019-03-19
  • 概述:二进制 读取文件

VB6.0书中的示例,演示使用二进制格式录入和读取文件内容,了解和熟悉二进制格式数据的存储和读取,请具体参见代码:

VERSION 5.00
Begin VB.Form Form1 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "文件_二进制文件"
   ClientHeight    =   2268
   ClientLeft      =   48
   ClientTop       =   336
   ClientWidth     =   4656
   LinkTopic       =   "Form1"
   ScaleHeight     =   2268
   ScaleWidth      =   4656
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "显示数据"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   612
      Left            =   2520
      TabIndex        =   1
      Top             =   1080
      Width           =   1452
   End
   Begin VB.CommandButton Command1 
      Caption         =   "录入数据"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   612
      Left            =   600
      TabIndex        =   0
      Top             =   1080
      Width           =   1452
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'文件_二进制文件--------------
Option Explicit
'定义自定义变量
Private Type 天气信息
    城市 As String * 10
    气温 As Single
    风向 As String * 10
    风力 As Single
End Type
'声明自定义变量
Dim udtA As 天气信息
'录入数据--------------------------------------------
Private Sub Command1_Click()
    Open "A:二进制文件" For Binary As #1
100:
    udtA.城市 = InputBox("请键入城市", "录入天气信息")
    If Trim(udtA.城市) = "" Then GoTo 200
    udtA.气温 = InputBox("请键入气温", "录入天气信息")
    udtA.风向 = InputBox("请键入风向", "录入天气信息")
    udtA.风力 = InputBox("请键入风力", "录入天气信息")
    Put #1, , udtA              '写文件
    GoTo 100
200:
'录入结束
    Close
    Command1.Caption = "录入结束"
    Command2.SetFocus   '取得焦点
End Sub
'显示数据------------------------------------
Private Sub Command2_Click()
    Dim intI As Integer
    Dim lngRecordLen As Long    '记录长(字节数)
    Dim lngFileLen As Long      '文件长(字节数)
    Dim RecordNum As Integer    '记录个数
    Open "A:二进制文件" For Binary As #1
    lngRecordLen = Len(udtA)
    Debug.Print "记录长"; lngRecordLen; "字节"
    lngFileLen = LOF(1)
    Debug.Print "文件长"; lngFileLen; "字节"
    RecordNum = lngFileLen / lngRecordLen
    Debug.Print "记录数为:"; RecordNum
'用立即窗口显示数据字段
    For intI = 1 To lngFileLen Step lngRecordLen
        Get #1, , udtA                   '读文件
        Debug.Print "城市:"; udtA.城市
        Debug.Print "气温:"; udtA.气温
        Debug.Print "风向:"; udtA.风向
        Debug.Print "风力:"; udtA.风力
    Next intI
    Close
End Sub

    相关内容:

    相关声明:

      若“VB演示使用二进制格式录入和读取文件内容”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。