用批处理打印磁盘上所有的.PRG文件

河北  郝纪辰
1994-01-07

        1、在DBASE系统下用CREATE建立一个名为DYPRG.DBF的库文件，其结构为：
        字段名  类型  宽度
        WJM      C     80
        2、返回DOS系统下，做如下操作。
        C>CHKDSK A:/V | FIND ".PRG">PRG.TXT
        上述操作将A驱中的所有的.PRG文件重定向到PRG.TXT文件中。
        3、再进入DBASE系统，用MODIFY COMMAND在A驱上建立一个名为DYWJ.ZH的命令文件，其内容如下：
        USE DYPRG.DBF
        DELETE ALL
        PACK
        APPE FROM PRG.TXT SDF
        REPL ALL WJM WITH “PRINT”+SUBSTR(WJM，1，21)
        COPY TO DY.BAT
        USE
        QUIT
        运行DYWJ.ZH程序，将生成形如“PRINT A:\*.PRG”命令内容若干行。
        4、将上述操作用COPY命令建立一个名为DYPRG.BAT的批处理文件，内容如下：
        C>COPY CON DYPRG.BAT
        ECHO OFF
        CHKDSK A:/V | FIND "PRG">PRG.TXT
        DBASE A:DYWJ.ZH
        DY.BAT
        ECHO ON
        ^Z
        至此，在DOS下只要键入一次DYPRG.BAT，即可将A驱中所有的.PRB文件打印一遍，此方法在LC0530_H DOS3.30系统下运行通过。但在运行时应注意二点：一是应确保DBASE系统和DOS命令CHKDSK、FIND在硬盘上；二是命令中“.PRG”必须大写。
        (河北  郝纪辰)
 
 