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

VB使用Input函数读文件的示例代码

  •   时间:2019-03-19
  • 概述:顺序读取

VB使用Input函数读文件,这是一种采用顺序方式读取文件的方法,本示例主要演示使用Input来读取文件内容的方法及具体代码:

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "文件_顺序文件的读出"
   ClientHeight    =   2928
   ClientLeft      =   48
   ClientTop       =   336
   ClientWidth     =   5856
   LinkTopic       =   "Form1"
   ScaleHeight     =   2928
   ScaleWidth      =   5856
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'文件_顺序文件读出
Private Sub Form_Click()
Dim strA(4) As String, strB(7) As String
'打开文件
    Open "A:顺序文件" For Input As #1
'用Input读文件
    Input #1, strA(1)               '读出Print:
    Input #1, strA(2)               '读出ABC
    Input #1, strA(3)               '读出ABC
    Input #1, strA(4)               '读出DEFGHIJKL
    Debug.Print "用Input读文件"
    Debug.Print strA(1)             '显示Print:
    Debug.Print strA(2)             '显示ABC
    Debug.Print strA(3), strA(4)    '显示ABC  DEFGHIJKL
    Input #1, strB(1)               '读出"Write:"
    Input #1, strB(2)               '读出"A"
    Input #1, strB(3)               '读出"B"
    Input #1, strB(4)               '读出"C"
    Input #1, strB(5)               '读出"ABC,DEF"
    Input #1, strB(6)               '读出"GHI"
    Input #1, strB(7)               '读出"JKL"
    Debug.Print strB(1)                     '显示Write:
    Debug.Print strB(2); strB(3); strB(4)   '显示ABC
    Debug.Print strB(5); strB(6); strB(7)   '显示ABC,DEFGHIJKL
'关闭文件
    Close
'打开文件
    Open "A:顺序文件" For Input As #1
'用Line Input读文件
    Line Input #1, strA(1) '读出Print:
    Line Input #1, strA(2) '读出ABC
    Line Input #1, strA(3) '读出ABC,DEFGHIJKL
    Debug.Print "用Line Input读文件"
    Debug.Print strA(1)    '显示Print:
    Debug.Print strA(2)   '显示ABC
    Debug.Print strA(3)   '显示ABC,DEFGHIJKL
    Line Input #1, strB(1)          '读出"Write:"
    Line Input #1, strB(2)          '读出"A","B","C"
    Line Input #1, strB(3)          '读出"ABC,DEF","GHI","JKL"
    Debug.Print strB(1)  '显示"Write:"
    Debug.Print strB(2)  '显示"A","B","C"
    Debug.Print strB(3)  '显示"ABC,DEF","GHI","JKL"
'关闭文件
    Close
'打开文件
    Open "A:顺序文件" For Input As #1
'用Input函数读文件
    strA(1) = Input(72, #1)  '读出全部
    Debug.Print "用Input函数读文件"
    Debug.Print strA(1)  '显示全部
'关闭文件
    Close
    CurrentX = 1000
    CurrentY = 1000
    FontSize = 20
    Print "程序已运行完毕"
End Sub

    相关内容:

    相关声明:

      若“VB使用Input函数读文件的示例代码”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。