! 学習目的:書式なしのファイルの読込み,書き込み ! ex705.f open(10,file='ex705.txt') write(10,*) '1,2,3' !数字の区切りは,カンマかスペース write(10,*) '1 2 3' !数字の区切りは,カンマかスペース close(10) open(20,file='ex705.txt') m=0 10 read(20,*,end=999) i,j,k !数字の区切りは,カンマかスペース write(*,*) i,j,k m=m+1 !ファイルの行数をカウント goto 10 999 close(20) write(*,*) 'ex705.txtの行数=',m stop end