Fortran Coder

标题: 如何读取这样的txt [打印本页]

作者: 我是气旋 时间: 2014-9-2 21:51
标题: 如何读取这样的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个数组中。

作者: 楚香饭 时间: 2014-9-3 05:55

[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-6 11:11

楚香饭发表于 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,:)

作者: 楚香饭 时间: 2014-9-6 13:15
一回事，就是效率可能有差异。

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)