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