vb文件保存后怎么打开,vb文件保存后打不开怎么回事

首页 > 实用技巧 > 作者:YD1662024-01-08 20:38:41

今天学习了刘金玉老师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

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

vb文件保存后怎么打开,vb文件保存后打不开怎么回事(1)

vb文件保存后怎么打开,vb文件保存后打不开怎么回事(2)

栏目热文

文档排行

本站推荐

Copyright © 2018 - 2021 www.yd166.com., All Rights Reserved.