文件掌握内容.doc

文件知识点总结 一、文件操作三控件 ??? 根据上图掌握两点： ??? 1、将三个控件关联上的代码写法（即：灰色框中深蓝色代码）； ??? 2、文件列表框（FileListBox）的两个属性Pattern（文件种类）、FileName（显示的文件名）含义和用法。 二、顺序文件读写操作 ????? Open 文件名 For 读写方式（output/input/Append） As? #文件号 ??? 注意事项：??? 1、?文件号取值：1-511??? 2、?文件号不能重用，否则产生“文件已经打开”错误；??? 3、?如果对一个不存在的文件用input方式打开则产生文件未找到的错误！ ，而用output/append方式，则自动新建一个文件。对于已经存在的文件，如果用output方式打开，即便不进行具体的写操作，原来文件中的内容也丢失。??? 4、?对于同一个文件，用相同的方式不同的文件号可以打开多次，但是不能用不同方式打开多次。 5、LOF函数 LOF函数将返回某文件的字节数。例如，LOF(1)返回#1文件的长度，如果返回0值，则表示该文件是一个空文件。 6、LOC函数 返回在一个打开文件中读写的位置。 对随机文件，返回上一次对文件进行读出或写入的记录号。 对顺序文件，返回文件中当前字节位置除以 128 的值。但是，对于顺序文件而言，不会使用 Loc 的返回值，也不需要使用 Loc 的返回值。 对二进制文件，返回上一次读出或写入的字节位置。 三、熟悉读写操作两段示例代码 ??? 读文件input示例Option ExplicitPrivate Sub Command1_Click()??? Dim chr As String, x As Integer??? Dim y As Integer, logic As Boolean??? Dim str As String??? Dim filenumber As Integer??? filenumber = 2??? Open App.Path + \1.txt For Input As #filenumber??? Input #filenumber, chr??? Input #filenumber, x, y, str??? Close #filenumber??? logic = str??? Print chr??? Print x, y, logicEnd Sub 1.txt文件内容：this is file test.dat,-2365,4893,True 写操作（建议用Write）Private Sub Command2_Click()??? Dim filenumber As Integer??? filenumber = 3??? Open App.Path + \2.txt For Output As #filenumber??? Print #filenumber, 123, 456??? Write #filenumber, 123, 456??? Close #filenumberEnd Sub 2.txt文件内容：123????????? 456123,456 将数据文件的内容读到文本框 方法一 把文本文件的内容一行一行地读入文本框。 方法二 把文本文件的内容一次性地读入文本框。 方法三 把文本文件的内容一个字符一个字符地读入文本框。 把文本文件的内容一行一行地读入文本框 txtTest.Text=“” Open “MYFILE.TXT” For Input As #1 Do While Not EOF(1) Line Input #1,InputData txtTest.Text=txtTest.Text+InputData+vbCrLf Loop Close#1 把文本文件的内容一次性地读入文本框 txtTest.Text=“” Open “MYFILE.TXT” For Input As #1 txtTest.Text=Input(LOF(1),1) Close#1 把文本文件的内容一个字符一个字符地读入文本框 Dim InputData As String*1 txtTest.Text=“” Open “MYFILE.TXT” For Input As #1 Do While Not EOF(1) Input #1,InputData txtTest.Text=txtTest.Text+InputData Loop Close#1