我写了一个程式码要读值
但是有跨行
要读取的资料格式如下：
** 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
请问在这个情况下
有没有更通用的写法呢?
因为不确定字串所在的行数
又不想大费周章的每次都去改输入档的格式啊...