文本文件应用
来源：互联网 发布：莱特币源码分析 编辑：程序博客网 时间：2024/06/07 22:56
CLEARSET CONSOLE OFFCREATE 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'ENDTEXTINSERT 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) &&效果 ENDFORENDSCANSET CONSOLE OFF
