[文件读写] 如何读取顺序不确定的文件？

1967 帖子	12 主题	5 精华

论坛跑堂

臭石头雪球

F 币: 1370 元
贡献: 581 点

发消息

楼主

发表于 2015-2-1 19:53:29 | 显示全部楼层

[Fortran] 纯文本查看 复制代码

Program www_fcode_cn
  Implicit None
  Character(len=256) :: c , cname , cvalue , a , b
  Integer :: ierr , k
  Open( 12 , File = '文件名' )
  Do
    Read( 12 , "(a256)" , ioStat = ierr ) c
    If ( ierr /= 0 ) exit
    k = index( c , "=" )
    cname = c( : k-1 )
    cvalue = c( k+1 : )
    If ( cname == "报错文件名称" ) then
      a = cvalue
    Else If ( cname == "提醒文件名称" ) then
      b = cvalue
    End If
  End Do
  Close( 12 )
End Program www_fcode_cn