[问题] 跨行读值的问题

楼主: JiGo (ㄐㄍ)   2014-02-14 19:22:20
我写了一个程式码要读值
但是有跨行
要读取的资料格式如下:
** 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
请问在这个情况下
有没有更通用的写法呢?
因为不确定字串所在的行数
又不想大费周章的每次都去改输入档的格式啊...
作者: snowanimal (动物先生)   2014-02-14 21:11:00
把资料读出来,重新写入到另外一个新的档案就好重点是Format那边你已经定义要换行了...
作者: blc (Anemos)   2014-02-14 22:33:00
一行一行读。
作者: rex0707 (我就是我)   2014-02-14 23:01:00
每读一行字串就判断是不是你要的是:下一行读值 不是:下一行读字串,再重新判断

Links booklink

Contact Us: admin [ a t ] ucptt.com