文章目录

• 1概念
• 2文件访问
• 2.1文件打开
• 2.2写文件

1概念

变量或数组中的数据不能被长期保存
文件或数据库中的数据可以被长期保存
文件
存储在外存上的文件名标识的集合
文件按内容分可分为程序（exe）文件和数据文件（doc）
存储信息的方式可分为ASCII文件和二进制文件
ASCII又称文本文件
文件缓冲区
文件打开后，在内存中开辟的的数据存储区域

写操作将数据写入缓冲区，读操作将数据从缓冲区读出到变量数组中，缓冲区到文件是操作系统负责的，处理结束后要关闭文件，有可能数据写到缓冲区没有送到文件中。

2文件访问

顺序文件特点：
访问规则：按顺序进行访问
写文件：各种类型的数据变为字符串类型写入
本质来说顺序文件是ASCII文件，可以用记事本打开
读文件：按原本数据类型读出，按文本文件进行处理，一行一行读或一个字符一个字符读

2.1文件打开

FileOpen(文件号, 文件名, 模式)
模式： OpenMode.Output 写操作
OpenMode.Input 读操作
OpenMode.Append 在末尾追加记录

2.2写文件

Print函数PrintLine函数
Print(文件号，[输出列表])
PrintLine (文件号，[输出列表])

PrintLine相比Print输出数据后在输出回车换行符
按标准格式输出一个区14个字符只能写一个数据，数据间没逗号，字符串也不用双引号

Write和WriteLine
Write(文件号，[输出列表])
WriteLine (文件号，[输出列表])

WriteLine输出数据后再输出回车换行符（vbCrLf）
以紧凑格式输出数据：
数据项之间插入“,”给字符串加上双引号，数值数据没有双引号

3关闭文件

FileClose([文件号])

要关闭文件，否则数据可能会丢失，因为数据在缓冲区
省略文件号，关闭所有已经打开的文件
例如：FileClose(1) 关闭1号文件
FileClose() 关闭所有文件

4实验案例

建立如图ui

代码如下

Class MainWindow
Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
FileOpen(1, "c:\abc.txt", OpenMode.Append)
PrintLine(1, Textbox1.Text)
PrintLine(1, "a", "b", "c")
FileClose(1)
End Sub

Private Sub _1_Click(sender As Object, e As RoutedEventArgs) Handles _1.Click
FileOpen(1, "c:\abcd.txt", OpenMode.Append)
WriteLine(1, Textbox1.Text)
WriteLine(1, "a", "b", "c")
FileClose(1)
End Sub

Private Sub Button_Click_1(sender As Object, e As RoutedEventArgs)
Dim Str As String
Textbox2.Text = ""
FileOpen(1, "c:\abc.txt", OpenMode.Input)
Do While Not EOF(1)
Str = LineInput(1)
Textbox2.Text += Str + vbCrLf
Loop
End Sub
End Class

5 实验效果

运行程序在文本框Textbox1输入如上数据
在c盘生成adc.txt文件，内容如下。前两行为通过textbox1输出，后面来验证了每个区十四个字符

按下 writeline，效果如下，字符串双引号标注，字符键有逗号

按下input输出，效果如下，输入abc.txt文件内容。