如何读取这样的txt

我是气旋

文件是.TXT的，每个文件是这样的


              PS4000IC  0.10102E-08 0.96774E-09 0.91560E-09  。。。。。。（后面都是类似的数字，每个数字用空格隔开）
              PS4000BC  0.22160E-17 0.22968E-17 0.27787E-17 。。。。。。
              。。。。。。


一共m行，n列
我想把第一列是个字符串读到一个数组中，后面的数字读到另外的m个数组中。

楚香饭

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

Program www_fcode_cn
  Implicit None
  Integer , parameter :: m = 30 , n = 20 !// 请改成您的数字
  Character( Len = 30 ) :: cStr( m )
  Real :: rData( n , m ) !// 可能需要把 n 改为 n-1
  Integer :: i
  Open( 12 , File = "文件名" )
  Do i = 1 , m
    Read( 12 , * ) cStr( i ) , rData( : , i )
  End Do
  Close( 12 )
End Program www_fcode_cn  

麦田守望者

楚香饭 发表于 2014-9-3 05:55
[mw_shl_code=fortran,true]Program www_fcode_cn
  Implicit None
  Integer , parameter :: m = 30 , n = ...

为什么不用 REAL:: rData(m,n-1)
               read(12,*)cStr(i),rData(i,:)

楚香饭

一回事，就是效率可能有差异。