4GL读取文本内容

MAIN
     DEFINE i INTEGER
     DEFINE s STRING
     DEFINE ch base.Channel
     LET ch = base.Channel.create()
     CALL ch.openFile("/u1/topprod/topcust/coo/4gl/file.txt","r")
     LET i = 1
     WHILE TRUE
         LET s = ch.readLine()
         IF ch.isEof() THEN EXIT WHILE END IF
         DISPLAY i, " ", s
         LET i = i + 1
     END WHILE
     CALL ch.close()
END MAIN

这个在特殊场景还是很有用的.

可以学习一下