UG\OPEN GRIP 读入文本文件语句FETCH

只看该作者 · 发表于 2008-9-14 08:26:13

怎样打开一个文本文件呀!!
$$file/txt,1,'123',iferr,err:
$$reset/1
DOPEN
FETCH/TXT,1,'123'
RESET/1
halt
为何打不开

只看该作者 · 发表于 2008-9-14 22:48:06

STRING/LSTR(80)

  FETCH/TXT,1,'c:\123\try.txt',IFERR,ERRF1:
      RESET/1
READL:
  READ/1,IFEND,FIN:,LSTR  $$一行一行讀,存入LSTR 讀至檔尾時跳至FIN:
  PRINT/LSTR
JUMP/READL:
FIN:
      FTERM/TXT,1
ERR1:
      MESSG/'FILE NOT FOUND ! '

HALT

只看该作者 · 发表于 2008-9-18 13:00:51

....................路过!!

只看该作者 · 发表于 2008-10-25 23:21:33

路过!

只看该作者 · 发表于 2009-3-17 18:48:25

12楼的办法真不错!!