※ 引述《iohan (iohan)》之铭言：
: 假设我有一个档案长这样
: 0 1 2
: 5 88 9 7 0 60
: 4
: 5 555
: .
: .
: .
: 每一行的元素数目都不一样没有规律
: 目前遇到的困难是READ后面放的变量数量必须和该行的元素数量一样
: 不然会出错
: 请问READ该怎么写才能把全部的数字都读到
OPEN(UNIT=11,FILE="txt")
READ(11,"(A80)") LL
I=0
DO WHILE(.TRUE.)
READ(LL,*,IOSTAT=IOS) TT
IF(IOS/=0) EXIT
LL=LL(LEN_TRIM(TT)+2:)
I=I+1
READ(TT,*) KK(I) !文字转存数字
END DO
WRITE(*,*) KK
基本上就是先整行资料完整读成一个字串LL,
再利用循环一个一个读取LL里面的资料
读到有错误之后就跳出循环
最后把文字转存数字
I是整行资料的数量