阅读:10770回复:2
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 |
|