※ 引述《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是整行資料的數量