&&首先我要说的是,这个程序我没有RUN过,我是在网吧里写的,不管对错.
&&但是基本思路是这样的
&&你看了之后请你自己写一下.这才是你自己的



SET TALK OFF 
CLEAR ALL

&& *****************************************************************************
&&                             fopen( ) 函数示例
&&if file('errors.txt')  && 文件存在吗?
&&    gnerrfile = fopen('errors.txt',12)  && 如果存在，以读写方式打开
&&else
&&    gnerrfile = fcreate('errors.txt')  && 如果不存在，创建文件
&&endif
&&if gnerrfile < 0  && 检查文件打开时的错误
&&    wait 'cannot open or create output file' window nowait
&&else  && 如果没有错误，则写文件
&&    =fwrite(gnerrfile, 'error information to be written here')
&&endif
&&=fclose(gnerrfile)  && 关闭文件
&&modify file errors.txt nowait  && 在编辑窗口中打开文件
&&***************************************************************************************************




&& **************************************************************************************************
&&                   fgets( ) 函数示例
*** test.txt 文件必须存在 ***
&&store fopen('test.txt') to gnfilehandle     && 打开文件
&&store fseek(gnfilehandle, 0, 2) to gnend     && 移动指针到 eof
&&store fseek(gnfilehandle, 0) to gntop      && 移动指针到bof
&&if gnend <= 0  && 是“空”文件吗?
&&    wait window 'this file is empty!' nowait
&&else  && 如果非“空”
&&    gcstring = fgets(gnfilehandle, gnend)  && 存储内容
&&    ? gcstring
&&endif
&&= fclose(gnfilehandle)  && 关闭文件

&& **************************************************************************************************


&& **************************************************************************************************
&&              fseek( ) 函数示例
&&下面的用户自定义函数使用 fseek( ) 函数返回文件的大小。如果不向此用户自定义函数传递参数，则函数返回 2；如果文件没有找到，则此函数返回 1。
&&function fsize2
&&parameters gcfilename && 所要检查的文件
&&private pnhandle,pnsize
&&if parameters( ) = 0
&&return -2 && 如果没有传递任何参数，返回 -2
&&else
&&if !file(gcfilename)
&&return -1 && 如果文件不存在，返回 -1
&&endif
&&endif
&&pnhandle = fopen(gcfilename) && 打开文件
&&pnsize = fseek(pnhandle,0,2) && 确定文件大小，并赋值给 pnsize
&&=fclose(pnhandle) && 关闭文件
&&return pnsize && 返回值
&& **************************************************************************************************

gnfilehandle =0
&& SET PATH TO  you path 
if file('aa.txt')  && 文件存在吗?
    store fopen('aa.txt') to gnfilehandle      && 如果存在，以读写方式打开
else
    wait 'file not  exist' window nowait && 如果不存在，显示信息
endif
if gnfilehandle < 0  && 检查文件打开时的错误
    wait 'cannot open or create output file' window nowait
else  && 如果没有错误，则读文件

    
store fseek(gnfilehandle, 0, 2) to gnend     && 移动指针到 eof
store fseek(gnfilehandle, 0) to gntop      && 移动指针到bof
if gnend <= 0  && 是“空”文件吗?
    wait window 'this file is empty!' nowait
else  && 如果非“空”
    gcstring = fgets(gnfilehandle, gnend)  && 存储内容
    ? gcstring
ENDIF

= fclose(gnfilehandle)  && 关闭文件
endif

SET TALK ON