请高手指点，如何定义数组才能把txt文件中格式差距较大的数值读入？

逐风月

拜托各位好手了
这是数据
003001 2017 02 20 05 00 00 111.53653 21.54629 0.61
003001 2017 02 20 06 00 00 108.44648 22.23632 0.49
003001 2017 02 20 07 00 00 103.54629 28.17647 0.61
003001 2017 02 20 08 00 00 102.95649 29.29836 1.11
003001 2017 02 20 09 00 00 122.17647 21.44648 0.70

香草拿铁

楼上说的是
我可能会分别定义003001 2017 02 20 05 00 00 111.53653 21.54629 0.61
然后1-6赋给一个变量var1
8-11赋给一个变量var2
13-14赋给一个变量var3
以此类推。。。
var1，var2，var3是real还是integer，还是character，看需要自己定义

゛绍〤z、

你这个把数据贴一下不就好了吗？搞个附件，人家想帮忙还得花5金币下附件，这不是搞笑吗？

香草拿铁

建议发个图片看看。
下载需要金币，金贵着呢

逐风月

香草拿铁 发表于 2017-7-20 09:35
建议发个图片看看。
下载需要金币，金贵着呢

之前不知道求助帖要金币，不好意思啊

逐风月

゛绍〤z、 发表于 2017-7-19 20:30
你这个把数据贴一下不就好了吗？搞个附件，人家想帮忙还得花5金币下附件，这不是搞笑吗？

不好意思，新手上路，不懂规则

逐风月

香草拿铁 发表于 2017-7-20 09:35
建议发个图片看看。
下载需要金币，金贵着呢

我直接把数据贴上去了，拜托大神指点

゛绍〤z、

可以用两种格式读取
第一种，fortmat(I6,1X,I4,5(1X,I2),1X,F9.5,1X,F8.5,1X,F4.2)
每列一个数组，但是这种格式读取的话把前面7列当整型，如003001实际读出来是3001
第二种，format(A6,1X,A4,5(1X,A2),1X,F9.5,1X,F8.5,1X,F4.2)
这样前7列采用字符串就能和原数据一致，这些记录时间很规律，没必要都用数组保存下来，在循环读取时把不想要的那一列数据赋值给单个变量好了
另外如果可以尝试用结构体保存每一条记录

楚香饭

傻孩子，根本不用管格式，表控格式就可以读取了。

read( 通道号 , * ) 变量列表

逐风月

楚香饭 发表于 2017-7-21 08:10
傻孩子，根本不用管格式，表控格式就可以读取了。

read( 通道号 , * ) 变量列表

主要是读取后我要把它选择性的写入到另外一个文件中