我是气旋 发表于 2014-9-2 21:51:38

如何读取这样的txt

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


            PS4000IC0.10102E-08 0.96774E-09 0.91560E-09。。。。。。（后面都是类似的数字，每个数字用空格隔开）
            PS4000BC0.22160E-17 0.22968E-17 0.27787E-17 。。。。。。
            。。。。。。


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

楚香饭 发表于 2014-9-3 05:55:06

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:19

楚香饭 发表于 2014-9-3 05:55
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:37

一回事，就是效率可能有差异。
页: [1]
查看完整版本: 如何读取这样的txt