学习VB编程第20天，文件读取写入

今天学习了刘金玉老师VB编程教程的第28期，学习的主要内容是文件读取写入。

1.do until......loop循环语句

①语法结构do until条件表达式的值类型

符合条件的要执行的代码

......loop

②代码解释：Do开始做事情until直到什么条件下就不再执行代码了，loop一次循环结束。

③Until的意思是直到什么跳出循环

2.文件读写语法格式

①打开关闭文件：

open文件路径for打开方式 as #文件号

打开方式：

（Append追加写入，在原来的基础上在文件最后的位置追加新的内容，

Input读取，

Output写入，覆盖性写入。）

Close#文件名

②补充知识：eof函数，end of file文件的末尾，参数就是写文件号

③补充知识：文件的绝对路径和相对路径

实例：

绝对路径：C:\VB\学习编程第20天.txt。一般用app.path表示工程文件所在的文件夹。

相对路径：假设文件1路径：C:\VB\学习编程第20天.txt

假设文件2路径：C:\VB\学习编程第21天.txt

那么文件1相对于文件2的相对路径就是.../学习编程第21天.txt

④listbox清空方法，用来List1.clear函数清空

3代码分享：

①从i=1开始输出，直到i=10

Private Sub Command1_Click()

Dim i%

i = 1

Do Until i = 11

Print i

i = i + 1

Loop

End Sub

②输出工程的路径

Private Sub Command2_Click()

Print App.Path

End Sub

③追加写入，如果没有文件，那么将自动生成文件

Private Sub Command3_Click()

Open App.Path & "/t.txt" For Append As #1

Print #1, Text1.Text

Close #1

End Sub

④覆盖写入，写入的内容将原有的内容覆盖

Private Sub Command4_Click()

Open App.Path & "/t.txt" For Output As #1

Print #1, Text1.Text

Close #1

End Sub

⑤读取文件内容，逐行读取文件内容，直到最后一行

Private Sub Command5_Click()

List1.Clear

Open App.Path & "/t.txt" For Input As #1

Do Until EOF(1)

Dim t$

Line Input #1, t

List1.AddItem t

Loop

End Sub

今天这期内容与我们平时工作学习比较紧密相关，可以用来管理我们的文本资料。马上中秋、国庆节就要到了，打算在川内走走，期间可能会断更。提前祝大家节日快乐。