《Visual Basic 程序设计教程》教学课件合集（非AI生成）.ppt

*********************2关闭文件：对文件操作完毕，应该及时关闭文件。 Close[#]FileNo1,[#]FileNo2,…这个命令可以关闭任何一种以Open语句打开的文件。不带任何参数的Close语句可以关闭所有当前以Open语句打开的文件。例： OpenC:\myfirst.txtForOutputAs#1 …… Close#13写顺序文件：把变量、常量、表达式的值写入顺序文件，可以使用下列命令。（1）Print#文件号,一个或多个参数此语句类似于窗体和图片框的Print方法。多个参数可以用逗号分隔也可以用分号分隔。用逗号分隔，则写入文件中的数据项之间的间隔较大；用分号分隔，则写入文件中的数据项只间隔一个空格。如果此语句以一个逗号或分号结尾，则下一条语句的输出不换行，否则另起一行。例： Print#1,Welcome,123.4;Date,True使用Print语句输出到文件中的值均无定界符。如字符串无引号“”、日期无#号。如是要在两个输出项之间加入n个空格，可以使用spc(n)。如果要把一个输出项输出到特定的第n列上，则可以使用tab(n)。如：例： Print#1,Welcome;spc(10);123.4;tab(30);Date使用tab(n)时应注意，如当前行上第n列上已有输出项，则会输出到下一行的指定列上，随后的输出也会随着换行。*（2）Write#文件号,一个或多个参数Write#语句与Print#语句的语法相同，但是输出到文件中的结果不同。主要表现在：1Write#输出到文件中的各数据项之间用逗号分隔。2如果参数是字符类型，则文件中对应的输出项被加以引号；日期时间类型、逻辑类型参数所对应的输出项两边被加上“#”号；数值类型无特殊处理。除此之外，Write#语句与Print#语句相同，它也可以使用spc(n)和tab(n)，把参数输出到特定位置上。4读顺序文件：从顺序文件中读入数据到程序中的变量中，以供后续处理。（1）整行读入：LineInput#FileNo,字符变量使用LineInput语句一次把一整行当成一个字符串读入，赋予指定的字符类型变量。这个语句把此行中所有定界符或分隔符都当成字符串的一部分。读入的内容中不包含行末的回车与换行符。 Dimstr1AsString:Openc:\myfirst.txtForInputAs#1 LineInput#1,str1:Printstr1 Close#1（2）Input#FileNo,一个或多个变量此语句一次可以读入一项或多项，读入的值分别赋予相应的变量。变量的类型应该与文件中相应的数据项一致。如果文件中的一项与对应的变量类型不同，VB会作一些转换。此语句读入数据项不受回车换行的影响。应该使用Input#语句来读使用Write#语句产生的文件，因为文件中每一项以逗号分隔，读取时容易识别。如果使用Input语句读取由Print#产生的文件，在读入字符串项，可能会把后面的项一起读入。*顺序的文本文件的特点就是：无论是读还是写，都是一个数据项、一个数据项地从文件头向文件尾依次进行，不会跳跃也不会折回。例如，在读文件时，读入一个数据项后，下一条读文件的语句就从下一个数据项读入数据。如已到文件尾，继续读文件会产生错误。建议使用Write#语句写顺序文件，使用Input#语句读顺序文件。PrivateSubCommand1_Click()Dimint1AsInteger:int1=113Openc:\wd.txtForOutputAs#1Write#1,123.4,Welcome,#2/1/99#,True,int1Close#1EndSubPrivateSubCommand2_Click()Dimsng1AsSingle:Dimstr1AsStringDimdtm1AsDate:Dimbln1AsBooleanDimint1AsIntegerOpenc:\wd.txtForInputAs#1Input#1,sng1,str1Input#1,dtm1,bln1,int1Printsng1,str1,dtm1,bln1,int1Close1EndSub*二、随机文件与顺序文件不同，随机文件允许随机地对文件进行读写。但是随机文件的格式有特殊的要求：（1）文件中信息分为一个、