Fortran Coder

查看: 18573|回复: 11
打印 上一主题 下一主题

[文件读写] 有什么好方法读取下面的这类文件,谢谢!

[复制链接]

11

帖子

4

主题

0

精华

入门

F 币
81 元
贡献
51 点

规矩勋章

跳转到指定楼层
楼主
发表于 2015-3-21 22:46:11 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我有这样一个文件,要把里面的三列数据读到三个数组中,有什么好方法推荐吗?谢谢!


Z      V     q
36    4330   0
36.5  4800   22.5
37    5310   55
37.5  5860   105
38    6450   173.9
38.5  7080   267.2
39    7760   378.3
39.5  8540   501.9
40    9420   638.9
40.5  10250  786.1

分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

沙发
发表于 2015-3-21 22:48:37 | 只看该作者
这不 so easy 吗?稍微学一点文件操作都会。

11

帖子

4

主题

0

精华

入门

F 币
81 元
贡献
51 点

规矩勋章

板凳
 楼主| 发表于 2015-3-21 23:02:53 | 只看该作者
fcode 发表于 2015-3-21 22:48
这不 so easy 吗?稍微学一点文件操作都会。

我是想看看有没有其它的方法,及众家之所长嘛,每个人都会有自己的想法的,这是个交流学习的过程

我以前用的都是派生定义一个文件头然后读取文件的

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

地板
发表于 2015-3-21 23:04:34 | 只看该作者
最简单的方法,就是最高效的方法,也是最好的方法。

11

帖子

4

主题

0

精华

入门

F 币
81 元
贡献
51 点

规矩勋章

5#
 楼主| 发表于 2015-3-21 23:12:12 | 只看该作者
fcode 发表于 2015-3-21 23:04
最简单的方法,就是最高效的方法,也是最好的方法。

问题是我怎么知道自己现在用的方法就是最简单的呢

100

帖子

0

主题

0

精华

专家

F 币
550 元
贡献
291 点

规矩勋章元老勋章

QQ
6#
发表于 2015-3-21 23:13:04 | 只看该作者
那你把你的代码拿出来,别人才好给你提意见啊。

11

帖子

4

主题

0

精华

入门

F 币
81 元
贡献
51 点

规矩勋章

7#
 楼主| 发表于 2015-3-21 23:25:09 | 只看该作者
好吧,由于我的表达问题,可能很多人都误解我的意思,我是想请教方法,跟我的不一样的方法,而不是想改进原来的想法。还是谢谢各位愿意花时间来看我的帖子,谢谢!!

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

8#
发表于 2015-3-21 23:26:19 | 只看该作者
你都不把自己的代码拿出来,别人怎知道与你的不一样?

100

帖子

0

主题

0

精华

专家

F 币
550 元
贡献
291 点

规矩勋章元老勋章

QQ
9#
发表于 2015-3-22 12:41:55 | 只看该作者
很自然,很纯朴,也是最简单高效的方法:

[Fortran] 纯文本查看 复制代码
Integer , parameter :: N = 10
real :: a(N) , b(N) , c(N)
open( 12 , file = '文件名' )
read(12,*)
do i = 1 , N
  read( 12 , * ) a(i) , b(i) , c(i)
end do

55

帖子

16

主题

0

精华

专家

F 币
621 元
贡献
265 点

规矩勋章

10#
发表于 2015-3-24 10:20:11 | 只看该作者
百事可乐 发表于 2015-3-22 12:41
很自然,很纯朴,也是最简单高效的方法:

[mw_shl_code=fortran,true]Integer , parameter :: N = 10

前面要先跳一行吗?第一行的字母好像不会自动跳过去,还是编译器的问题阿
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-24 08:14

Powered by Tencent X3.4

© 2013-2024 Tencent

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