GRIP自动计算文本行数

wangcongwei1002

FETCH/TXT,1,'D:\gr_data.dat'     $$打开文件
APPEND/1     $$设置行指针在文件底部
hs=GETL(1)     $$获取行指针位置
5 i9 W! @3 h. Y: C& L8 _, c) |hs=hs/10     $$换算成正常行数
RESET/1     $$设置行指针在文件顶部
/ E# T* r& E( b& o6 [( J  b7 fMESSG/'文件行数为:'+FSTRL(hs)     $$显示行数信息
0 ?9 L* o, Q7 d5 M/ B% s# ^HALT      $$结束语