回 帖 发 新 帖 刷新版面

主题:请教读取txt文件数据是如何只读取想要的几列

txt文件内容如下:
50136 1957  4  1  9999  9999  9999   -88    28  -209    58   323     0    28  9999  9999  9999  9999   113
50136 1957  4  2  9999  9999  9999   -72    76  -230    56   325     0    18  9999  9999  9999  9999   100
50136 1957  4  3  9999  9999  9999   -11    71   -86    62   338     0    10  9999  9999  9999  9999    56
50136 1957  4  4  9999  9999  9999    27    93   -58    60   338     0    28  9999  9999  9999  9999   108
50136 1957  4  5  9999  9999  9999   -11    82   -92    72   350     0    13  9999  9999  9999  9999    84
50136 1957  4  6  9999  9999  9999     6    65   -36    80   362    28    18  9999  9999  9999  9999    50
50136 1957  4  7  9999  9999  9999    18    68     3    67   328    42    58  9999  9999  9999  9999    23
50136 1957  4  8  9999  9999  9999   -27     8   -47    46   327     0    68  9999  9999  9999  9999    91
50136 1957  4  9  9999  9999  9999   -48    20  -120    46   324     0    33  9999  9999  9999  9999   115
50136 1957  4 10  9999  9999  9999     5    94   -67    50   320     0    18  9999  9999  9999  9999    97
50136 1957  4 11  9999  9999  9999     4    68   -48    66   343     0    25  9999  9999  9999  9999    69
50136 1957  4 12  9999  9999  9999   -11    51   -73    59   332     0    13  9999  9999  9999  9999   100
50136 1957  4 13  9999  9999  9999   -31    20   -83    52   325     0    15  9999  9999  9999  9999   121
50136 1957  4 14  9999  9999  9999  9999    46  -129  9999   324     0  9999  9999  9999  9999  9999   113
50136 1957  4 15  9999  9999  9999    -1    85   -89    54   326     0    25  9999  9999  9999  9999   115
50136 1957  4 16  9999  9999  9999    54   129   -35    49   336     0    35  9999  9999  9999  9999    96
50136 1957  4 17  9999  9999  9999    73   213   -19    57   316     0    48  9999  9999  9999  9999    91
我只想读入第1,2,3,4和最后一列,我该如何定义和读入呢?
谢谢了

回复列表 (共1个回复)

沙发


直接读就可以了啊
integer::nLine
integer,pointer,dimension(:,:)::data
integer::temp
integer::n
allocate(data(5,nLine))
open(10,file=filename)
do n=1,nLine
    read(10,*) data(1:4,n),temp,temp,...temp,data(5,n)
enddo
close(10)

以上是示范性代码,仅供参考。

我来回复

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