利用NUL及FILE()控制驱动器符的输入

Author: 何正峰 Date: 1997-01-01
　　在数据库程序设计中，有时需要知道系统实际可接受多少个驱动器或判断用户输入的驱动器符是否有效。如：给出一个驱动器列表，由用户来选择所要操作的驱动器；或者在程序运行中由用户从键盘输入驱动符，紧接着判断用户输入的字符是否为有效的驱动器符。
　　大家都知道：ＮＵＬ是ＤＯＳ预留的文件名，上面所提到的各种数据库管理系统都有ＦＩＬＥ（）函数，其作用是：如果文件存在，则ＦＩＬＥ（）返回逻辑真值，否则，返回假值。因此根据ＦＩＬＥ（）返回某字母所代表的驱动器真值，否则，返回假值。因此根据ＦＩＬＥ（）返回某字母所代表的驱动器符下的ＮＵＬ文件的真假，得知该字母是否为有效的驱动器符。
　　例１：确保用户输入有效的驱动器符：
　　ｃｌｅａｒ
　　ｓｅｔ　ｔａｌｋ　ｏｆｆ（编译型数据库不要此行）
　　ｄｏ　ｗｈｉｌｅ　．ｔ
　　　　ａｃｃｅｐｔ“输入驱动器符（Ａ，Ｂ，Ｃ等）：”ｔｏ　ｄｒｉｖｅｒ
　　　　ｉｆ　ｆｉｌｅ（ｄｒｉｖｅ＋＇：＼ｎｕｌ＇）
　　　　　　ｅｘｉｔ
　　　ｅｌｓｅ
　　　　　　＠１０，１０　ｓａｙ“无效的驱动器符”
　　　　　　？？　ｃｈｒ（７）
　　　　　　ｋｅｙ＝ｉｎｋｄｙ（２）
　　　　　　ｌｏｏｐ
　　　　ｅｎｄｉｆ
　　ｅｎｄｄｏ
　　ｒｅｔｕｒｎ
　　例２：给出驱动器的列表。
　　　　ｃｌｅａｒ
　　ｓｅｔ　ｔａｌｋ　ｏｆｆ　（编译型数据库不要此行）
　　＠１０，１０　ｓａｙ　“有效驱动器符为：”
　　ｉｆ　ｆｉｌｅ（“Ａ：＼ＮＵＬ：”）　　判断是否有驱动器Ａ：
　　　？？　“Ａ：”
　　ｅｎｄｉｆ
　　ｉｆ　ｆｉｌｅ（“Ｂ：＼ＮＵＬ”）
　　　　？？　“Ｂ：”　　　判断是否有驱动器Ｂ：　
　　ｅｎｄｉｆ
　　ｎ＝０
　　ｄｏ　ｗｈｉｌｅ　．ｔ．
　　　　ｄｒｉｖｅｒ＝ｃｈｒ（ＡＳＣ（“Ｃ”）＋ｎ）＋“：＼ＮＵＬ”
　　　　ｉｆ　ｆｉｌｅ（ｄｒｉｖｅ）
　　　　　　？？　ｃｈｒ　（ａｓｃ（“Ｃ”）＋ｎ）＋“：”　　　判断是否有驱动器Ｃ：，Ｄ：，Ｅ：……等
　　　　　　ｎ＝ｎ＋１
　　　ｅｌｓｅ
　　　　　ｅｘｉｔ
　　　ｅｎｄｉｆ
　　ｅｎｄｄｏ
　　ｒｅｔｕｒｎ
　　注：运行此例程时，若有软驱或光驱，请先将驱动器中放入盘片。
　　以上例程对于有ｒａｍｄｒｉｖｅ．ｓｙｓ及ｓｕｂｓｔ．ｅｘｅ等设置成的虚拟驱动器也能很好的认可，并在多种机器及以上数据库管理系统中通过。