- 1、本文档共21页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
实验题:在文本框中输入字符串,每输入一个字符串,按Enter键后将Text的内容放到数组中,单击“排序”按钮,则按递减次序排列。‘通用-声明OptionBase1Dima$(),n%PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Thenn=n+1ReDimPreservea(n)a(n)=Text1.TextText1.Text=P1.Printa(n)EndIfEndSubReDim可以改变数组的大小及维数,但不能改变类型;Preserve用来保留数组中的数据,否则数组将被初始化字符串排序的代码与数值排序没有区别
文件
文件的概念文件:存储在外部介质上数据的集合——按名存取磁盘文件是由数据记录组成。记录是计算机处理数据的基本单位,它由一组具有共同属性相互关联的数据项组成。例如,由学生的学习成绩信息组成的记录:数据项
文件及其种类顺序访问模式:顺序文件,记录可长可短;随机访问模式:随机文件,记录的长度相同;二进制访问模式:二进制文件(可认为记录长度为1)。文件是记录的集合。
顺序文件顺序文件是普通的文本文件。记录按顺序一个接一个地排列;读出或写入记录时,都必须按顺序逐个进行;记录可长可短。
随机文件每个记录的长度相同;每个记录都有其唯一的一个记录号;根据记录号可以直接访问文件中的任意一个记录。
顺序访问模式从第一条到最后一条记录顺序读写访问扩展名为TXT或DAT的文本文件写文件的步骤:读文件的步骤:打开文件写入关闭文件打开文件读出关闭文件读到内存写入硬盘
打开顺序文件模式:Output对文件进行写操作(内存→磁盘)Append追加记录(在文件的尾部追加记录)Input对文件进行读操作(磁盘→内存)文件号:1~511之间的整数。例如:OpenC:\Temp\A.TxtForInputAs#1OpenC:\Temp\B.TxtForOutputAs#2OpenC:\Temp\C.TxtForAppendAs#3站在内存的角度来理解”模式”Open”文件名”For模式As#文件号
关闭文件Close[[#]文件号][,[#]文件号]……文件号,如:#1,#2,#3,如果省略,则将关闭所有已经打开的文件。例如:Close#1,#2,#3Close
顺序文件的写操作Print命令(重点掌握)Print#文件号,[输出列表]如:Print#1,”Abc”;”HIJ”,123Write命令Write#文件号,[输出列表]如:Write#2,”Abc”,”HIJ”,123Write语句采用紧凑格式。数据项之间插入“,”,并给字符数据加上双引号。
例Print与Write语句输出数据结果比较。PrivateSubForm_Click()DimStr$,Anum%OpenD:\Myfile.datForOutputAs#1Str=ABCDEFGAnum=12345Print#1,Str,AnumPrint#1,Str;AnumPrint#1,Str;Tab(30);AnumWrite#1,Str,AnumClose#1EndSub
例:把文本框Mytxt的内容,写入文件Myfile.dat中。方法1:把整个文本框的内容一次性地写入文件。 OpenApp.Path+“\Myfile.datForOutputAs#1 Print#1,Mytxt.Text Close#1 方法2:把整个文本框的内容一个字符一个字符地写入文件。 Open“.\Myfile.datForOutputAs#1 Fori=1ToLen(Mytxt.Text) Print#1,Mid(Mytxt.Text,i,1); Nexti Close#1OpenApp.Path+\aa.txtForInputAs#1Open.\aa.txtForInputAs#1作用相同,都是从当前文件夹中打开相应文件
Dima
您可能关注的文档
- 案例站点lead mouldcover hr rearbdfm后部mfsouter.pdf
- 致敬终核心层.pdf
- 雷克萨斯lx570lx460原厂中文维修手册tshwl.pdf
- 小六数学共享课程讲分数乘法学生版.pdf
- excel数据透视实战秘技期公开课让表飞一会儿学员感悟-10.pdf
- 专论加巴喷丁gabapentin capsules3297.pdf
- 247matlab三维图绘制课件代码实时脚本生成code3.pdf
- 章函数求值示例页来自fortran f05.pdf
- 飞兆半导体cd md系列芯片dm74as640.pdf
- 技术实验室ine dc workbook 2013-试验手册3 ucsb.pdf
- 分析let s单元56ago2卷纸zheng unit56.pdf
- 塑胶材料其它分类原料pa9t 12.pdf
- md16x16数字媒体切换器设备.pdf
- 者参考项目发起人学科类型单位序列承包商修订页代码顺序典型.pdf
- 届世界天然气大会阿姆斯特丹2006add10288.pdf
- 期测试记录表每周weekly g1g6 journeys tests level 6 lesson26.pdf
- modernize-whitepaper现代化您应用程序白皮书.pdf
- anybackup产品典型案例分析.pdf
- 约克金融工程课程tfeslide32.pdf
- 广州市妇女儿童医疗中心历份教学药历01tjy.pdf
文档评论(0)