文本文件应用

CLEAR
SET CONSOLE OFF
CREATE CURSOR CMEMO (MBZ M)
TEXT TO CSTR
纸张方向,o.ORIENTATION=0
左边距,ALLTRIM(STR(o.LeftMargin,10,4))='85.0500'
上边距,ALLTRIM(STR(o.TopMargin,10,4))='56.7000'
右边距,ALLTRIM(STR(o.RightMargin,10,4))='85.0500'
下边距,ALLTRIM(STR(o.BottomMargin,10,4))='56.7000'
纸宽,ALLTRIM(STR(o.PAGEWIDTH,10,4))='521.6500'
纸高,ALLTRIM(STR(o.PAGEHEIGHT,10,4))='737.1000'
ENDTEXT
INSERT INTO CMEMO VALUES (CSTR)
SCAN
     LOCAL OP(MEMLINES(MBZ)),COND(MEMLINES(MBZ))
     FOR J=1 TO MEMLINES(MBZ)
         OP(J)=STREXTRACT(MLINE(MBZ,J),"",",",1)
         COND(J)=STREXTRACT(MLINE(MBZ,J),",","",1)
         SET CONSOLE ON
         ? J,"行=",OP(J) &&效果
          ? J,"行=",COND(J) &&效果
      ENDFOR
ENDSCAN
SET CONSOLE OFF