PRG缩排程序INDENT.PRG

文章作者 100test 发表时间 2011:03:24 19:52:32
来源 100Test.Com百考试题网

　　*********************************
　　* INDENT.PRG - 格式化 .PRG 文件为缩进格式 Ver 1.0
　　* (C) M.L.Y 2003.2.3
　　*
　　* 在 WIN98 VFP 6.0 环境测试通过
　　*********************************
　　SET TALK OFF
　　SET SAFETY ON
　　LOCAL lcInFile, lcOutFile
　　LOCAL lcCRLF, lcOutStr, lnLevel1, lnLevel2, lnFileHandle, lcLine
　　IF MESSAGEBOX([INDENT.PRG - 格式化 .PRG 文件为缩进格式 Ver 1.0] CHR(13) .
　　CHR(13) .
　　[是否继续?], 4 32 256, [.PRG Indent])