《Visual Basic 程序设计教程》第12章：文件操作-教学课件（非AI生成）.ppt

各文件操作语句或函数所适用的文件类型：语句、函数 顺序文件 随机文件 二进制文件Open * * *Close * * *Print# *Write# *Input# *LineInput# *Put[#] * *Get[#] * *Input() * **与文件操作有关的函数与语句1、Seek语句：Seek[#]filenumber,positionSeek语句用于指定给定文件的下一个读写位置position（长整型）。随机文件的单位是记录号，二进制文件的单位是字节。2、Seek([#]filenumber)函数此函数返回filenumber指定文件的当前读写位置。返回值为长整型。*与文件操作有关的函数与语句3、Input(number,[#]filenumber)函数此函数从filenumber文件中从当前位置读入number指定个数的字节流，并作为字符串返回。这个函数只适合以顺序输入或二进制方式打开的文件。此函数读入的内容包括逗号、回车符、空白列、换行符、引号和前导空格等一起读入。*与文件操作有关的函数与语句4、LOF(#filenumber)此函数返回指定文件号filenumber所代表文件的长度，以字节为单位。TheLengthofFile。5、FileLen(filename)此函数返回指定文件名的文件长度（字节为单位），文件不要求打开。如果文件打开，则返回的是打开前的文件长度。*与文件操作有关的函数与语句6、EOF(#filenumber)此函数测试当前是否位于指定文件号文件的末尾。如是，返回True；否则，返回False。TheEndofFile。有的语句或函数在执行如果超出文件末尾，则会出错，应的使用前用本函数进行检测。7、Len(varname)此函数返回存贮变量varname要占用的字节数。*8、Kill语句Killfilename此语句从磁盘上删除filename指定的文件。Filename可使用*?通配符。如果文件已打开，则不能删除。9、Filecopy语句FileCopysource,destination把源文件source复制为目标文件destination。不能复制打开的文件。10、Name语句NameoldpathnameAsnewpathname重命名文件。oldfilename与newfilename可以是文件也可以是文件夹。如果它们的路径不同，则可以移动文件或文件夹。*11、Shell函数Shell(pathname[,windowstyle])此函数执行filename指定的可执行文件。Windowstyle指定该运行时的窗口状态，如省略此参数，则以最小化方式启动。12、Freefile函数FreeFile[(rangenumber)]使用FreeFile提供一个尚未使用的文件号。参数rangenumber可以是0或1，表示文件号范围。FreeFile或FreeFile(0)返回1到255之间未使用的文件号；FreeFile(1)返回256到511之间未使用的文件号。如：Openc:\wd.txtforInputAs#FreeFile*作业1：使用“记事本”建立一个文本文件，文件中输入以逗号分隔的多个大小不一样的整数；再使用VB建立一个程序把上述文件中的整数排序，以从小到大的顺序写入一个新文件中。冒泡法：OptionBase1OptionExplicitPrivateSubCommand1_Click()Dimint1AsInteger,int2AsIntegerDimint3AsInteger,int4AsIntegerDimintNumber()AsIntegerOpenc:\wd.txtForInputAs1int1=0DoWhileNotEOF(1)int1=int1+1ReDimPreserveintNumber(int1)Input#1,intNumber(int1)LoopClose1Forint2=1Toint1