学习课件文件

1、文件lyz_Introduction文本文件（*.txt，*.log） 小说、文本数据、记录说明数据文件（*.mdb） 存放数据库数据文档（*.doc, *.docx, *.ppt, *.pdf, etc） 存放文档等等存放在介质上（硬盘、优盘等），以便需要的时候处理文件的基本概念引例按“生成文件”按钮，将1至1000间的素数顺序输出到磁盘文件su.txt；按“输入/判断”按钮，输入1个小于1000的正整数，用在文件su.txt中查找的方式判断其是否素数Private Sub cmdFile_Click()Private Sub cmdFile_Click() Dim n As Integer

2、, i As Integer Dim n As Integer, i As Integer Open su.txt For Output As #1Open su.txt For Output As #1 For n = 2 To 1000 For n = 2 To 1000 For i = 2 To Sqr(n) For i = 2 To Sqr(n) If n Mod i = 0 Then Exit For If n Mod i = 0 Then Exit For Next i Next i If i Sqr(n) Then If i Sqr(n) Then Write #1, nWrit

3、e #1, n Next n Next n Close #1Close #1 cmdFile.Enabled = False cmdFile.Enabled = False cmdIC.Enabled = True cmdIC.Enabled = TrueEnd SubEnd SubPrivate Sub cmdIC_Click() Dim n As Integer, m As Integer n = Val(InputBox(n=, 判断是不是素数) If n 1000 Then MsgBox (输入超出范围): Exit Sub End If Open su.txt For Input A

4、s #1 Do While Not EOF(1) Input #1, m If m = n Then Exit Do Loop If Not EOF(1) Then MsgBox (是素数) : else MsgBox (不是素数) Close #1End Sub文件路径绝对路径绝对路径 “C:Program FilesMicrosoft Visual StudioVB98su.txt” 存储路径 + 文件名 + 扩展名相对路径相对路径 “su.txt” “datasu.txt” 存在某文件夹决定默认盘符、路径等等 文件分类文件分类按存储格式分类 文本（ASCII、正文）文件 每个字符占1个字

5、节（一个汉字占两个字节），为该汉字字模在字库中的地址信息 二进制文件 按数据的机内码存储，每个数据所占存储空间为该类型数据的字节数文件分类按存取（写读）方式分类 顺序型：加载全部数据，适用于连续块中的文本文件，例如文本文件 随机型：可以直接存取文件中的任何1个数据，适用于读写有固定长度记录结构的文本文件或者二进制文件 二进制型：适用于读写任意结构的文件文本文件的顺序存取比随机存取简单和方便，这里只介绍文本文件的顺序存取文本文件的顺序存取打开文件文件的读/写关闭文件Note：Close语句关闭已打开的文件，应用程序终止运行时也会自动关闭文件打开文件 OpenOpen for for ModeMo

6、de As As # #文件号文件号Mode:Mode:Input: Input: 打开文件、只读打开文件、只读 Output: Output: 打开文件打开文件 、只写、只写 Append: Append: 打开文件、在文件末尾追加数据打开文件、在文件末尾追加数据文件号文件号选项为打开文件后使用的信道号，为正整数值，应从小到大使用如果打开多个文件会如何取文件号？文件的读/写Print #Print #语句语句格式：格式：Print #Print #File_numbFile_numb,表达式列表表达式列表 例：用Print #语句写若干数据到文本文件bbb.txt。例12-2例：保存文本框T

7、ext1到文件TEST.TXTWrite #Write #语句语句Write #Write #语句语句格式：格式：Write #Write #File_numbFile_numb,表达式列表表达式列表 与Print #语句相同的是，表达式列表末尾无分隔符则表达式列表末尾无分隔符则输出回车输出回车、换行符到文件。 与Print #语句不同的是：表达式列表中，无论用逗号或分号作间隔符，都在写入文件的数据间加入逗号；为字符串两端自动加双引号，为其他非数值类型数据两端加“#”号关闭文件关闭文件 Close #文件号文件号, #文件号文件号.例如，例如， Close #1 Close #1, #2, #

8、3 Close 关闭文件关闭文件例12-4顺序访问模式-读文件 Line Input #Line Input #语句语句格式：Line Input #file_numb,功能：将文件或文件结束符前的所有字符，读入到字符串变量。当前读数据位置起至换行符Input #Input #语句语句格式：Input #File_numb,功能：从以File_numb为信道号的文件当前读写位置起，将顺序读入的数据为变量名列表中各变量赋值。数据间的分隔符区分哪段字符与哪个变量对应 数值数据之间，以不可能在数值中出现的字符为分隔符（如逗号、空格、字母等）。 日期、逻辑类型数据的两端以“#”号作分隔符，与其他类型数

9、据间应有非空字符间隔。 逗号、换行符可以作为字符数据的分隔符，双引号作为字符数据分隔符必须成对出现。常用函数和语句LOF(文件号文件号)：返回文件的长度：返回文件的长度(总字节数总字节数)EOF(文件号文件号)：判断：判断文件指针是否到达文件尾文件指针是否到达文件尾指针在文件尾时，指针在文件尾时，EOF函数为函数为True，否则为，否则为False。例12-5文件系统控件 在应用程序中，当我们遇到诸如在应用程序中，当我们遇到诸如“打开文件打开文件”、”保保存文件存文件”等涉及目录和文件的操作时，最常用的方法等涉及目录和文件的操作时，最常用的方法是调用通用对话框控件。但有时我们可能需要自己来是调

10、用通用对话框控件。但有时我们可能需要自己来设计一些具有独特风格的文件操作界面。为此，设计一些具有独特风格的文件操作界面。为此，VB提提供了三个文件操作控件，它们是供了三个文件操作控件，它们是盘驱动器列表框盘驱动器列表框(DriveListBox)，目录列表框，目录列表框(DirListBox)和文件列表框和文件列表框(FileListBox)。常用函数和语句KillKill语句语句格式：Kill 功能：删除文件。如执行语句“Kill d:vb_4.doc”则删除名为d:vb_4.doc的文件。NameName语句语句格式：Name as 功能：将old_name改名或移动为new_name综合

11、例子做一个简单的学生系统密码统计Csdn密码泄露分析/12306密码泄露邮箱群发等等软件总结打开文件用Print #或Write #语句写文件用Input #或Line Input #语句读文件在读文件过程中用EOF函数判断是否到达文件末尾关闭文件 某文件中存放了若干个实数，单击Command1 可用对话框打开该文件、并将读入的所有数据在List1中显示，单击Command2可将读入的数据按值从大到小顺序重新写入到该文件。 【程序】 Private Sub Command1_Click() Dim x As Single List1.Clear: CommonDialog1.Action =

12、1 Open CommonDialog1.FileName For (10) As #1 Do While (11) Input #1, x: List1.Additem x Loop Close #1 End Sub Private Sub Command2_Click() Dim n As Single,x As Single,i As Integer,j As Integer,K As Integer n = List1. (12) Redim a(n) As Single For i = 1 To n: a(i) = List1.List(i-1): Next i For i = 1

13、To n -1 k = i For j = i+1 To n: If (13) Then k = j: Next j x = a(k): a(k) = a(i): a(i) = x Next i Open CommonDialog1.FileNmae For Output As #1 For i = 1 To n: Print #1,a(i): Next i Close #1 End Sub 【供选择的答案】 (10) A、Output B、Input C、Append D、Read (11) A、Eof(1) B、Not Eof(1) C、Eof(fn) D、Not Eof(fn) (12)

14、 A、Count B、ListCount-1 C、List D、ListCount (13) A、a(j)a(k) B、a(j)=a(k) C、a(j)a(k) D、a(j)a(k) 【程序说明】运行时初态如下图所示，Text2、Text3、Command1不可用。输入姓名按回车Text2可用，输入学号按回车Text3可用，输入成绩按回车“保存”按钮可用，按“保存”将数据添加到文件e:score.txt、界面恢复初态。退出前可继续输入、保存数据。 【程序】 Private Sub f() (9) Text1.Text = : Text1.Enabled = True Text2.Text =

15、: Text2.Enabled = False Text3.Text = : Text3.Enabled = False Text1.SetFocus Text1获得输入焦点 End Sub Private Sub Form_Activate() 窗体加载后调用f()初始化 Call f End Sub Private Sub Text1_KeyPress(K As Integer) If K = 13 Then Text2.Enabled = True: Text2.SetFocus End Sub Private Sub Text2_KeyPress(K As Integer) If K = 13 Then Text3.Enabled = True: Text3.SetFocus End Sub Private Sub Text3_KeyPress(K As Integer) If K = 13 Then Command1.Enabled = True End Sub Private Sub Command1 (10) Open e:score.txt For (11) As #1 Write #1, Text1.Text, Text2.Text, Val(Text3.Text) Close #1 (12) End Sub 【供选择的答案】 (9) A、Comma