GRIP自动计算文本行数

wangcongwei1002

FETCH/TXT,1,'D:\gr_data.dat'     $$打开文件
APPEND/1     $$设置行指针在文件底部
' g; |! ~) r! o5 h* nhs=GETL(1)     $$获取行指针位置
hs=hs/10     $$换算成正常行数
RESET/1     $$设置行指针在文件顶部
, ?+ k& c0 K6 x' M1 v0 w- hMESSG/'文件行数为:'+FSTRL(hs)     $$显示行数信息
% T; u8 w" F' S! U. Z7 V5 J  QHALT      $$结束语