文件point.dat的内容:
1,2,3
4,5,6
7,8,9
grip程序:
NUMBER/D(3),X(999),Y(999),Z(999)
DELIM/','
FETCH/TXT,1,'C:\POINT.DAT',IFERR,L999:
DO/L10:,I,1,999
READ/1,LINNO,I*10,IFEND,L999:,D $$读文件
X(I)=D(1)
Y(I)=D(2)
Z(I)=D(3)
PRINT/X(I),Y(I),Z(I)
L10:
L999:
HALT
执行后的结果:
============================================================
Information listing created by : wyc1
Date : 2003-03-07 09:18:30
Node name : wyc
============================================================
1.000,2.000,3.000
4.000,5.000,6.000
7.000,8.000,9.000 |