|
string/str1(100),a(1000),b(1000),c(100),d(100),str(32)
L10:
str='D:\EAct_YuCheng\cla\aibe.dll'
xspawn/ufun,str,iferr,L40: $$运行DLL提取文本
L20:
fetch/txt,1,'D:\EAct_YuCheng\cla\temp.txt',iferr,L40:
reset/1
read/1,linno,112*10,a $$读出第 112 行数据(因为:数字/10=第几行)
read/1,linno,128*10,b $$读出第 128 行数据(因为:数字/10=第几行)
c=SUBSTR(a,42,8) $$重第43字符开始到结束“-0.15”
d=SUBSTR(b,43,8) $$重第43字符开始到结束“-0.05”
messg/'粗:'+c,'幼: '+d $$显示火花位'粗:'+c,'幼:'+d
fdel/'D:\EAct_YuCheng\cla\temp.txt' $$删除属性文件
L30:
halt
L40:
MESSG/'提取火花位失败'
jump/L30:
求大神告知 L10 和L20之间怎么写可正常运行 谢谢!!!! |
|