爱气象,爱气象家园! 

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

搜索
查看: 11055|回复: 18

[源代码] fortran提取txt里的一列数据

[复制链接]

新浪微博达人勋

发表于 2016-3-28 09:51:12 | 显示全部楼层 |阅读模式

登录后查看更多精彩内容~

您需要 登录 才可以下载或查看,没有帐号?立即注册 新浪微博登陆

x
我现在在处理一个txt的两列数据,然后后期会处理类似的txt很多个,所以不能用excel处理这一个txt,这个txt形式不知道fortran怎么直接读取第二列我想要的数据喃,或者是怎么编写程序,两列都输入,只输出我想要的第二例喃。很急哪种方法会简单点喃,如果是我只想要第二列数据怎么提取喃,很急希望有大神给我指点迷津,谢谢了。
QQ图片20160328095329.png
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2016-3-28 10:49:15 | 显示全部楼层
本帖最后由 跫跫fish 于 2016-3-28 10:52 编辑

或者可以直接跨过前面的数据,直接读后面
read(11,'(10X,f8.5)')dat
前面有几位就写几个X,位数在txt文档状态栏里直接可以看见

评分

参与人数 1金钱 +4 收起 理由
小傅之追梦 + 4 好方法

查看全部评分

密码修改失败请联系微信:mofangbao
回复 支持 1 反对 0

使用道具 举报

新浪微博达人勋

发表于 2016-3-28 10:06:05 | 显示全部楼层
把前面你不需要的部分,当成字符读掉,把后面你需要输出的读出来
char duo
real dat
read(1,*)(duo,i=1,11),dat  !!!数字11根据你实际需要更改
密码修改失败请联系微信:mofangbao
回复 支持 1 反对 0

使用道具 举报

新浪微博达人勋

 楼主| 发表于 2016-3-28 10:20:58 | 显示全部楼层
小傅之追梦 发表于 2016-3-28 10:06
把前面你不需要的部分,当成字符读掉,把后面你需要输出的读出来
char duo
real dat

读入的时候就读第一列为字符串,第二列为数据就可以咯是吗,然后读出的时候只用读出数字是吗,谢谢啦
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2016-3-28 11:27:46 | 显示全部楼层
自由行 发表于 2016-3-28 10:20
读入的时候就读第一列为字符串,第二列为数据就可以咯是吗,然后读出的时候只用读出数字是吗,谢谢啦

前面有几位就读几个字符就行了
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2016-3-28 15:04:54 | 显示全部楼层
小傅之追梦 发表于 2016-3-28 11:27
前面有几位就读几个字符就行了

太感谢您了,我先试试,有问题再来找您咨询,太感谢了。
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2016-3-28 15:07:39 | 显示全部楼层
跫跫fish 发表于 2016-3-28 10:49
或者可以直接跨过前面的数据,直接读后面
read(11,'(10X,f8.5)')dat
前面有几位就写几个X,位数在txt文档 ...

太感谢了您了,我先试试您的方法,有问题再找您请教下。太谢谢您了。
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2016-3-29 10:57:42 | 显示全部楼层
跫跫fish 发表于 2016-3-28 10:49
或者可以直接跨过前面的数据,直接读后面
read(11,'(10X,f8.5)')dat
前面有几位就写几个X,位数在txt文档 ...

能请问下我数据有指数型和小数,如果是控制格式f8.5读入的话,指数形式就变成了小数形式。不知道该怎么处理比较好。
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2016-3-29 11:03:25 | 显示全部楼层
小傅之追梦 发表于 2016-3-28 10:06
把前面你不需要的部分,当成字符读掉,把后面你需要输出的读出来
char duo
real dat

这样读入是无效的喃,
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2016-3-29 11:11:42 | 显示全部楼层
自由行 发表于 2016-3-29 11:03
这样读入是无效的喃,

character*12 duo
real dat
open(1,file='22.txt')
read(1,'(A12,f7.5)')duo,dat  

评分

参与人数 1金钱 +10 收起 理由
lqouc + 10

查看全部评分

密码修改失败请联系微信:mofangbao
您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

Copyright ©2011-2014 bbs.06climate.com All Rights Reserved.  Powered by Discuz! (京ICP-10201084)

本站信息均由会员发表,不代表气象家园立场,禁止在本站发表与国家法律相抵触言论

快速回复 返回顶部 返回列表