GRIP自动计算文本行数

wangcongwei1002

FETCH/TXT,1,'D:\gr_data.dat'     $$打开文件
APPEND/1     $$设置行指针在文件底部
hs=GETL(1)     $$获取行指针位置
hs=hs/10     $$换算成正常行数
6 C: C: ~0 N9 F( Z% n5 v: |RESET/1     $$设置行指针在文件顶部
' W6 V% \% t$ x9 AMESSG/'文件行数为:'+FSTRL(hs)     $$显示行数信息
0 _5 L( Z( O* r5 E5 ?; |) tHALT      $$结束语