• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

【C004】VB-数据文件(一)顺序文件

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

1. 打开文件(Open)

Open 文件名 [For模式][Access 存取类型][锁定]As [#]文件号[Len=记录长度]

       说明:

(1)文件名;

(2) 模式用于指定文件访问的方式,包括:
           Append——从文件末尾添加             Binary——二进制文件
           Input——顺序输入(输入给自己,从txt中取出)                            Output——顺序输出(输出到txt中)
           Random——随机存取方式

(3)文件号(或称文件缓冲区)

(4)存取类型:访问文件的类型,为Read(只读)、Write(只写)、Read Write(读写)

(5)锁定:限制其他用户或其他进程对文件进行读写操作

                       Shared(共享)、LockRead(禁止读)、Lock Write(禁止写)、

                          Lock Read Write(禁止读写)

(6)Len:用来指定每个记录的长度(字节数)

      示例:    Open"d:\cj1.dat" For  Output As  #1

2. 关闭文件(Close)

         打开的文件使用完后必须关闭。

         关闭文件的语句格式:
           Close[#] 文件号1[,[#] 文件号2…] ]

         示例:

           Close#1

 1. Write语句 
   格式:Write#文件号 [,表达式表]
    功能:将表达式的值写到与文件号相关的顺序文件中
    每个Write语句向顺序文件写入一个记录(不定长),它会自动地用逗号分开每个表达式的值。给字符串加上双引号

         在最后一个字符写入后,插入一个回车换行符(Chr(13) + Chr(10)),以此作为记录结束的标记。

         示例:Write#1, "Good Afternoon", 1998


 

Private Sub CommandButton1_Click()
    Dim num As String * 6, name As String * 8, score As Integer
    num = TextBox1.Text
    name = TextBox2.Text
    score = Val(TextBox3.Text)
    Write #1, num, name, score
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    TextBox1.SetFocus
End Sub

Private Sub CommandButton2_Click()
    Close #1
    End
End Sub

Private Sub UserForm_Initialize()
    Open ThisWorkbook.Path & "\1.txt" For Output As #1
End Sub

运行结果~

 

读取数据,用For...Next 语句

 

Sub 的开发商的()
    Dim n As String, m As String, s As Integer
    Open ThisWorkbook.Path & "\1.txt" For Input As #1
    For i = 1 To 5
        Input #1, n, m, s
        Cells(i, 1) = n
        Cells(i, 2) = m
        Cells(i, 3) = s
    Next
    Close #1
End Sub

 

 2. Print语句 

格式:Print  #文件号[,表达式表]
        作用与Write一样。将一个或多个表达式的值写到与文件号相关的顺序文件中。其输出数据格式与Print方法在窗体上输出格式相似。

           示例:
            Print  #1, num, name, score              ‘对应按区格式
            Print  #1, num;name;score          ‘对应紧凑格式


先用Input方式打开文件,然后采用Input或LineInput语句从文件中读出数据。通常,Input用来读出Write写入的记录内容,而Line Input用来读出Print写入的记录内容

1.Input语句 
    一般格式:Input#文件号,变量名表
      功能:从指定文件中读出一个记录。变量个数和类型应该与要读取的记录所存储的数据一致。
       打开文件时,文件指针指向文件中的第1个记录,以后每读取一个记录,指针就向前推进一次。如果要重新从文件的开头读数据,则先关闭文件后打开

距离:

 

Sub sj()
    Open ThisWorkbook.Path & "\data1.txt" For Output As #1
    a = 123: b$ = "ABCD"    '在同一行赋值,用“:”
    Write #1, a, b$
    Close #1
    Open ThisWorkbook.Path & "\data1.txt" For Input As #1
    Input #1, c, d$
    Close #1
    Debug.Print c, d$
End Sub

 


 

Sub dfjslkdf()
    Open ThisWorkbook.Path & "\num2.txt" For Append As #1
    For i = 51 To 200
        If i Mod 7 = 0 Then Write #1, i
    Next
    Close #1
End Sub

Sub dfhdfdffdfdfdk()
    k = 0
    Open ThisWorkbook.Path & "\num2.txt" For Input As #1
    Do While Not EOF(1)
        Input #1, x
        Debug.Print x,
        k = k + 1
        If k Mod 4 = 0 Then Debug.Print
    Loop
End Sub


Debug.Print i    一行一行的输出

 

Debug.Print i,    在一行输出,中间空很多的空格,具有一定的格式

Debug.Print i;    在一行输出,中间空很少的空格,具有一定的格式

可以加入If i Mod 2 = 0 Then Debug.Print    可以进行换行


Print也有相似的用法:

从TXT中读取数据,数据中间可以是空格、半角逗号

 

Sub dhfkd()
    k = 0
    Dim arr(1 To 1100) As Variant
    Open ThisWorkbook.Path & "\num2.txt" For Input As #1
    Do While Not EOF(1)        'EOF(1)用来判断#1是否读到头了,到头返回TRUE
        Input #1, x           '读取一个数据
        k = k + 1
        arr(k) = x            '将读取的数据存在一个数组中
    Loop
    k = 0
    For i = 1 To 10
        For j = 1 To 110
            k = k + 1
            Cells(j, i) = arr(k)
        Next
    Next
    Close #1
End Sub

 

2.Line Input语句 

格式:LineInput  #文件号,字符型变量
功能:从打开的顺序文件中读出一个记录,即一行信息  

用Line input来读取由Print写入的数据,Line Input读取一整行的数据~

 

Sub djhfdljf()
    Open ThisWorkbook.Path & "\mytxt.txt" For Output As #1
    a = 123: b$ = "SBCD"
    Print #1, a, b$
    Print #1, a; b$
    Close #1
    Open ThisWorkbook.Path & "\mytxt.txt" For Input As #1
    Line Input #1, x$
    Debug.Print x$
    Line Input #1, x$
    Debug.Print x$
    Close #1
End Sub

 


3.Input函数           

格式:Input(字符数,#文件号)
    功能:从文件中读取指定字符数的字符
    示例:A$=Input(20, #1)
        顺序文件的缺点是不能快速地存取所需的数据,也不容易进行数据的插入、删除和修改等工作,因此对于经常要修改数据或取出文件中个别数据,均不适合使用,但对于数据变化不大,每次使用时又需要从头往后顺序地进行读写,它还是不失为一种好的文件结构


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
十四、访问外部I2C设备寄存器发布时间:2022-07-14
下一篇:
回调函数c++类中实现发布时间:2022-07-14
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap