回 帖 发 新 帖 刷新版面

主题:这种文件如何读入数组?

我有个文件里面的格式如下所示:
9  nodes=[6,12,18]
10 nodes=[9,6,18]
11 nodes=[18,12,7]
12 nodes=[18,7,17]
13 nodes=[17,7,11]
14 nodes=[17,11,14]
我想把方括号中的数据读入到二维数组中,请问如何读取?

回复列表 (共2个回复)

沙发

Program Main
  Implicit None
  Character*512 cStr
  Integer , Parameter :: M = 6
  Integer data( 3 , M )
  Integer iA , iB , i
  Open( 12 , file = 'temp.txt' )
  Do i = 1 , M
    Read(12,'(a512)') cStr
    iA = index( cStr , '[' )
    iB = index( cStr , ']' )
    Read( cStr(iA+1 : iB-1) , * ) data( : , i )
  End Do
End Program Main

板凳


非常感谢,我已经顺利读出数据了[em2]

我来回复

您尚未登录,请登录后再回复。点此登录或注册