8.2 顺序文件

　　8.2.1 顺序文件的写入操作
　　8.2.2 顺序文件的读出操作

1. 把数据写入文件

以 Output 或 Append 方式打开文件

使用 Write# 语句或 Print# 语句将数据 ( 一个不定长记录 ) 写入文件中

2. 从文件中读出数据

以 Input 方式打开文件

采用 Input # 或 Line Input # 语句从文件中读出数据

格式：

Write # 文件号 [, 表达式表 ]

Input # 文件号 , 变量名表

例 8.1 把 1 ～ 50 各数及能被 7 整除的数分别存入两个文件中

把 1 ～ 50 的 50 个整数，以及这些数中能被 7 整除的数分别存入两个文件中，文件名为 num1 和 num2 ，文件存放在 VB 缺省文件夹下

Private Sub Form_Load()

Open "num1.txt" For Output As #1

Open "num2.txt" For Output As #2

For i = 1 To 50

Write #1, i

If i Mod 7 = 0 Then Write #2, i

Next i

Close #1, #2

Unload Me

End Sub

说明： num1.txt 文件中一共写入 50 个记录，而 num2.txt 文件只写入其中能被 7 整除的若干个记录

例 8.5 从文件 “num2.txt” 中读取数据

已知文件 “num2.txt” 中存放一批能被 7 整除的数 ( 见例 8.1) ，现要求把这些数显示出来。每行显示 4 个数。

Private Sub Form_Load()

Show

Open "num2.txt" For Input As #1

Do While Not EOF(1) ' 文件未结束时，循环

Input #1, x

Print x

Loop

Close #1

End Sub