txt格式转换成prg_用批处理打印磁盘上所有的.PRG文件

用批处理打印磁盘上所有的.PRG文件

河北 郝纪辰

1994-01-07

1、在DBASE系统下用CREATE建立一个名为DYPRG.DBF的库文件，其结构为：

字段名 类型 宽度

WJM C 80

2、返回DOS系统下，做如下操作。

C&gtCHKDSK A:/V | FIND ".PRG"&gtPRG.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&gtCOPY CON DYPRG.BAT

ECHO OFF

CHKDSK A:/V | FIND "PRG"&gtPRG.TXT

DBASE A:DYWJ.ZH

DY.BAT

ECHO ON

^Z

至此，在DOS下只要键入一次DYPRG.BAT，即可将A驱中所有的.PRB文件打印一遍，此方法在LC0530_H DOS3.30系统下运行通过。但在运行时应注意二点：一是应确保DBASE系统和DOS命令CHKDSK、FIND在硬盘上；二是命令中“.PRG”必须大写。

(河北 郝纪辰)