- 1、本文档共41页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第十3章 数据文件2
第13章 数据文件 打开文件的真正含意: (1)并不是把文件内容显示出来,而是读文件或显示文件内容的必经步骤; (2)打开文件并不一定只是为了读文件内容而打开,其实写文件或新建文件之前都要把对应的文件打开。 如何打开由用户任意指定的文件: (1)用打开/另存为对话框; (2)用文件列表框/目录列表框/驱动器列表框 ★ 要注意OPEN语句与它们分工上的不同 1. 顺序文件读操作 从现存文件中读入数据,应以顺序Input方式打开该文件。然后使用 Input# 语句、Line Input# 语句和Input( )函数读入到程序变量中。 使用格式如下: 格式一:Input # 语句 INPUT #文件号,变量列表 把读出的每个数据项分别存放到所对应的变量,从文件中读出数据时,凡是遇到文件中的逗号、空格或回车符便认为是一个数据项的结束。 例1:假设有一个名为datain.txt的文本文件,其内容如下:32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37,共25个数,要求程序运行后,单击窗体,将该文件中的数据读入到二维数组mat中。在窗体上按5行5列的矩阵形式显示出来。 Dim mat(5, 5) Dim I , j Open App.Path \ datain.txt For Input As #1 For i = 1 To 5 For j = 1 To 5 Input #1 , mat(i, j) Next j , i Close #1 Print Print 初始矩阵为: Print For i = 1 To 5 For j = 1 To 5 Print Tab(5 * j) ; mat(i, j); Next j Print Next i Eof 函数 Eof 函数将返回一个表示文件指针是否到达文件末尾的标志。如果到了文件末尾,Eof 函数返回TRUE(-1),否则返回FALSE(0)。 从文件中读数据的常见循环方式: Do While Not Eof(文件号) 读文件及其它语句 Loop 例2:把文件文件datain.txt的内容全部读出并显示在窗体中: Open App.Path \ datain.txt For Input As #1 Do While Not Eof(1) Input #1 , a Print a Loop 格式二:Line Input # 语句 LINE INPUT #文件号 , 字符串变量 功能:从顺序文件中读取一整行字符到后面指定的字符串变量中。 例:把程序文件夹下面的文本文件myfile.txt的内容显示在一个多行文本框中: Open App.Path \ myfile.txt For Input As #1 Do While Not EOF(1) Line Input #1 , s Text1.Text = Text1.Text + s + vbCrLf Loop Close #1 格式三:Input函数: INPUT$(N, #文件号) 从指定的文件中读取N个字符的字符串,作为函数的返回值 例:把程序文件夹下面的文本文件myfile.txt的内容一次性读出并显示在多行文本框中: Open App.Path \ myfile.txt For Input As #1 Text1.Text = Input( LOF(1) , 1) Close #1 例:把程序文件夹下面的文本文件myfile.txt的内容逐个字符读出并显示在多行文本框中。 Dim c As String * 1 Open App.Path \ myfile.txt“ For Input As #1 Do While Not
文档评论(0)