二、有关文件语句的用法

OPEN 语句 的用法
格式：OPEN <文件名> FOR <读写方式> AS#<文件号>
<文件号>：
  即文件缓冲区号，每一个文件都要指定一个不同的文件号（1～225） 说明：
<文件名>:
  文件名不能大于8个,扩展名不能大于3个,不能包含非法字符(请看相关书疾)
<读写方式>:
<读写方式>：
随机方式很少用,不介绍
以OUTPUT方式打开文件，建立新文件，将删除已存在的文件。
以INPUT方式打开已存在的文件,读数据，从文件读入；
以APPEND方式打开文件，可在文件后面添加内容，不影响以前的东西
以BINARY方式打开文件，可在文件的任意位置读写
（2）CLOSE语句
关闭已用的文件
CLOSE [#<文件号1>][,#<文件号2>]……
关闭由文件号指定的文件缓冲区，将内容存盘，如不指定文件号，则关闭所有已打开的文件；
（3）、GET#语句(2进制方式用)
格式：GET #<文件号> [,<地址>][,<记录变量>]
功能: 用于从文件中读一个指定地址的记录,赋给一个记录变量。
（4）、PUT#语句 (2进制方式用)
格式：PUT #<文件号> [,<地址>][,<记录变量>]
功能: 将一个记录变量的内容写到指定地址的记录中去
（5）SEEK语句 (2进制方式用)
格式：SEEK#<文件号>,<字节位置>
把指针移动指定地方
（6）LOF语句
格式：LOF<文件号>
获得文件的大小！
（7）EOF语句
格式：EOF<文件号>
判断文件是否到最后！
（8）函数
FREEFILE返回一个空文件号

这个文件号不如就说成是文件句柄还容易理解一些，在win下很多很多东西都有一个句柄，这样说更容易接轨！

三、 用例子来学习这些语句
  LOF语句的例子
open "qb.exe" for binary as #1
print "文件的大小是 " ,lof(1)
  
   EOF  get 语句的例子
open "qb.exe" for binary as #1
print "文件的大小是 " ,lof(1)
do
  i=i+1   '文件的地址指针
  get,i,a '在地址i处读一个数给a
  if eof(1) then exit do '当文件读完就退出
loop
有时候要简单的判断文件是否存在，可以用LOF，如果lof返回的是0，文件可以当不存在

当文件的指针到结尾的时候EOF返回是-1，在qb中-1的逻辑判断是真，如果没有到结尾，EOF返回是0，所以if eof(1) then exit do 就能判断文件是否读完，如果读完就可以结束循环！

四、实际运用
一、读一个文本文件，并显示
INPUT FILE$    '输入一个文件名
OPEN FILE$ FOR INPUT AS #1
do
   i=i+1
   LINE input #1, look$ '读一个行文字
   print look$         '显示文字
   if (i mod 22)=0 then a$=input$(1) '等待,按任一键继续
loop until EOF(1)

二 写个文件粉碎机
   文件粉碎机介绍：当你删除一个文件以后，实际上并没有真正的删除，即使你清空了回收站也一样，有的网友恶作剧的写一个删除文件、FORMAT C或者是格式化别的什么盘的程序、批处理，同样不会达到他的目的，随便找个文件恢复软件就能把删除的数据找回来！
   只有写个文件粉碎机才能达到真正的目的！
   如果你先把要这个文件里的内容改变成垃圾，然后在删除，那么即使这个文件被恢复，由于内容被破坏，这个文件也就成垃圾了，而且写这个程序很那么的简单。
我们以qb.exe为例子，请大家先把qb.exe做备分！
cls
file$="qb.exe"
open file$ for binary as #1
print "文件名是 - >  ",file$
print "文件的大小是  - > " ,lof(1)
locate 5,10:print "正在删除中 -> "
w%=0     
do
  i=i+1
  locate 5,27:print i  
  put #1,,w%       '往1号文件里写入变量w,w 的直是0,所以写入的是全0
loop until eof(1)
print "ok , 已经全部清除"

当然你觉得一遍不够的话反复多弄几次,不过w的数值每次都变化一下最好!
如果你把file$="qb.exe"改成win系统中的重要文件,那么系统就无法启动了!



   当然，我上面的程序是不具备实际应用的，这里只是给大家讲个原理，如果要做实用价值的，要有遍历整个目录能力，而且，两个字节的读写方式会使粉碎整个磁盘的速度极其低下！要解决这些问题也很简单，随着大家编程能力的提高就慢慢会明白了！