[問題] 跨行讀值的問題

看板Fortran作者JiGo (ㄐㄍ)時間10年前 (2014/02/14 19:22)推噓2(2推 0噓 3→)

留言5則, 3人參與討論串1/1

我寫了一個程式碼要讀值但是有跨行要讀取的資料格式如下： ** STEP: Step-1 ** *Step, name=Step-1 *Heat Transfer, end=PERIOD 345600., 345600., , , ** 程式碼如下： !======================================================================= 303 FORMAT(A14/F7.0,2X,F7.0) !======================================================================= 403 CONTINUE !讀取 delta T READ(102,303,ERR=403,END=502)inpinp,TA,TB IF(inpinp.EQ.'*Heat Transfer') THEN DT=TA ELSE GOTO 403 END IF !======================================================================= 利用inpinp這個字串是否正確而判斷字串下一行的兩個數值是否是我要的值但問題在於說當程式碼在執行時因為是兩行一起讀取所以只會讀取奇數行(1.3.5.7.9....)的字串作判斷如果剛好我要的字串在偶數行的話這個程式碼根本讀不到東西 0.0 請問在這個情況下有沒有更通用的寫法呢? 因為不確定字串所在的行數又不想大費周章的每次都去改輸入檔的格式啊... -- 元...元宵節快樂 0.< -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.115.61.231

→

snowanimal

02/14 21:11, , 1^F

02/14 21:11, 1^F

→

snowanimal

02/14 21:13, , 2^F

02/14 21:13, 2^F

我不是很了解耶因為我在原始檔案裡要利用字串作判斷讀到資料時也會把資料寫到新檔案但是在最一開始的時候用這個格式就會有可能讀不到資料的情形了 ※ 編輯: JiGo 來自: 122.116.4.91 (02/14 22:04)

推

blc

02/14 22:33, , 3^F