GRIP自动计算文本行数

wangcongwei1002

FETCH/TXT,1,'D:\gr_data.dat'     $$打开文件
) m' }! `! \5 T9 c' I7 d! }APPEND/1     $$设置行指针在文件底部
hs=GETL(1)     $$获取行指针位置
hs=hs/10     $$换算成正常行数
RESET/1     $$设置行指针在文件顶部
/ d$ a/ X, u$ \3 [4 t* N- X  gMESSG/'文件行数为:'+FSTRL(hs)     $$显示行数信息
2 O7 J% ]( \7 D9 CHALT      $$结束语