用文章编辑软件编辑数据文件

Author: 成都傅叔平 Date: 1992-08-21

        例如，我们可用FWS文章编辑系统(见本报今年第17期和第26期)在CEC-I机上进行数据文件的编辑工作。但要注意，FWS系统编辑存盘的文件是B类文件。应用时有两种方法：一是直接根据文件的结构取其数据；二是将其转换成T类文件供高级语言使用。文后提供的程序即可将FWS系统编辑的B类文件转换成T类顺序文本文件(文件中可包括数值、字符和汉字串)。
        若想获得T类文本文件，在编辑时就要遵循文本文件的结构的规定，即一个记录编辑成一行，每行以回车符结尾，一个记录的各字段间用字符的逗号(注意，不能用汉字的逗号)隔开。
        文后的转换程序在中、西文状态下运行均可，程序中20行定义的数组的大小可根据数据文件的实际大小进行调整。另外，要想在屏幕上观察转换成的文本文件的内容，只要将130行改成“130：”即可。
        10 REM B.FILE TO T.FILE
        20 D$=CHR$(4):DIM A$(400)
        30 AD=24576
        40 INPUT "B.FILENAME：" ；FB$
        50 INPUT "T.FILENAME:";FT$
        60 PRINT:PRINT D$"BLORD "FB$",A"AD:POKE PEEK (43634)+PEEK (43635)*256+PEEK (43616)+PEEK (43617)*256,255
        70 P=AD:I=1
        80 C=PEEK(P):C1=PEEK(P+1)
        90 IF C=255 THEN 130
        100 IF C>127 THEN A$(I)=CHR$ (C):P=P+1:GOTO 120
        110 A$(I)=CHR$(127)+CHR$ (C)+CHR$ (C1):P=P+2
        120 I=I+1:GOTO 80
        130 PRINT:PRINT D$"OPEN"FT$:PRINT D$" WRITE" FT$
        140 FOR J=1 TO I-1:PRINT A$(J);NEXT J
        150 PRINT D$" CLOSE"
        160 END