GRIP自动计算文本行数

wangcongwei1002

FETCH/TXT,1,'D:\gr_data.dat'     $$打开文件
APPEND/1     $$设置行指针在文件底部
hs=GETL(1)     $$获取行指针位置
! l2 Q4 R9 M1 A* i7 `/ E, Ehs=hs/10     $$换算成正常行数
. N3 Z* c0 L7 \  s7 |% |3 O  ~% CRESET/1     $$设置行指针在文件顶部
. r7 F3 E8 s3 o8 X+ g/ vMESSG/'文件行数为:'+FSTRL(hs)     $$显示行数信息
HALT      $$结束语