微信公众号 
图码生活

每天发布有五花八门的文章,各种有趣的知识等,期待您的订阅与参与
电脑报 1992-2001 十年文章全集
电脑报 1992-2001 十年文章全集
包含从 1992 年 - 2001 年间,两万余篇期刊文章,查询最少输入两个字符
随便看看
读取中
读取中
标题用文章编辑软件编辑数据文件
栏目软件操作与技巧
作者成都 傅叔平
发布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