$$
$$ 胡鹏 写于2006年5月12日
$$ QQ:597341973
$$ 读取C:\MESSAGE.DAT文件里的信息。
$$ 写字
$$
ENTITY/NT(10)
NUMBER/re(10),XC,YC,ZC,DS,i,j,k
STRING/STR(10,80),TX(10,80),SH(30)
$$读取message.txt致到工作区1,错误转向MESS1
FETCH/TXT,1,'c:\message.dat' ,iferr,err1:
RESET/1
READ/1,str
H=&CSIZE
D=&ENSITE
&ENSITE=4
SH=&CURDRW
DS=LENF(SH)
IFTHEN/DS==0
JUMP/MESSG:
ENDIF
L1:
mchoose/'SELECT OPTIONS',str,re,ALTACT,'删除备注',resp
JUMP/halt:,halt:,,l9:,resp
i=1
j=1
l2:
ifthen/re(i)<>0
tx(j)=str(i)
j=j+1
endif
i=i+1
if/i<=10,jump/l2: $$直到型循环
L3:
GPOS/'SEL POINT',XC,YC,ZC,RPS
JUMP/L3:,L9:,,,RSP
NT(1)=NOTE/XC,YC,tx(1)
NT(2)=NOTE/XC+6,YC-6,tx(2)
NT(3)=NOTE/XC+6,YC-12,tx(3)
NT(4)=NOTE/XC+6,YC-18,tx(4)
NT(5)=NOTE/XC+6,YC-24,tx(5)
NT(6)=NOTE/XC+6,YC-30,tx(6)
NT(7)=NOTE/XC+6,YC-36,tx(7)
NT(8)=NOTE/XC+6,YC-42,tx(8)
jump/l1:
L9:
DELETE/NT
jump/l1:
halt:
&CSIZE=H
&ENSITE=D
halt
MESSG:
MESSG/'切换到制图!'
JUMP/HALT:
err1:
MESSG/'message.dat文件损坏或不存在 !!!'
jump/halt:
这是我刚学时参照CAM-YP(好像是吧,记不太清楚了)的程序写的,不太完备,可以参考。因现在你问的主要问题在于删字符。我就不改了.你自己加上读文本的结束语句和STR变量的下标变量,用起来就好了。
嘿!!有些东西要自己想出来才有意思嘛。什么都问的话就不好玩了!! |