Re: [問題] 每一行讀取不同的次數
※ 引述《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是整行資料的數量
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.123.79.129
※ 文章網址: http://www.ptt.cc/bbs/Fortran/M.1405932795.A.6C1.html
推
07/22 17:34, , 1F
07/22 17:34, 1F
推
08/08 01:12, , 2F
08/08 01:12, 2F
→
07/30 17:39, , 3F
07/30 17:39, 3F
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：
2
3
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
