我寫了一個程式碼要讀值
但是有跨行
要讀取的資料格式如下：
** 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
請問在這個情況下
有沒有更通用的寫法呢?
因為不確定字串所在的行數
又不想大費周章的每次都去改輸入檔的格式啊...

把資料讀出來，重新寫入到另外一個新的檔案就好重點是Format那邊你已經定義要換行了...

一行一行讀。

每讀一行字串就判斷是不是你要的是：下一行讀值 不是：下一行讀字串，再重新判斷