jm.prg

来自「帐务管理系统」· PRG 代码 · 共 20 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: JM.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 NFILE = FOPEN('system.dbf',12)
 IF NFILE < 0
     MESSAGEBOX('不能打开文件,系统即将退出',0,'打开文件时出错')
    CLEAR EVENTS 
    QUIT 
 ENDIF 
 DO WHILE  .NOT. FEOF(NFILE)
    TEMPCHAR = FREAD(NFILE,1)
    TEMPCHAR = CHR(BITXOR(ASC(TEMPCHAR),10))
    = FSEEK(NFILE,-1,1)
    = FWRITE(NFILE,TEMPCHAR,1)
 ENDDO 
 = FCLOSE(NFILE)
*