Fortran Coder

查看: 12285|回复: 7
打印 上一主题 下一主题

[文件读写] 数据读入问题,请大神帮忙!

[复制链接]

5

帖子

1

主题

0

精华

入门

F 币
35 元
贡献
16 点
跳转到指定楼层
楼主
发表于 2018-11-1 15:35:27 | 显示全部楼层 |只看大图 回帖奖励 |倒序浏览 |阅读模式
各位好,请问一下如图的数据怎么读入数组呢?基本上都有关键字,然后将关键字后的数或数组读入到程序数组中。其中的"C" 是注释的意思,该行的后续不再读入。求大神指教!谢谢!

QQ图片20181101153214.png (22.58 KB, 下载次数: 344)

QQ图片20181101153214.png
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

5

帖子

1

主题

0

精华

入门

F 币
35 元
贡献
16 点
沙发
 楼主| 发表于 2018-11-2 08:11:44 | 显示全部楼层
fcode 发表于 2018-11-1 18:17
像这种“异形”文本文件的读取,可以很简单,也可以很复杂。
取决于一些事情,比如:
1. 数据文件中关键字 ...

谢谢您的回复,小弟Fortran新手,请大佬赐教,谢谢您!
1:关键字的顺序可以变,也可以不变。名称和长度确定是不变的。
2:关键字后面的个数部分是确定的,部分是不确定的。
3:关键字后面的数据,希望放在不同的数组。
4:这段输入inp是一个计算程序的输入,我找源代码看了很久,读入数据的代码很灵活,遍布整个程序,实在看不太懂。所以希望简单,死板一点吧。
谢谢大佬您的帮助。

5

帖子

1

主题

0

精华

入门

F 币
35 元
贡献
16 点
板凳
 楼主| 发表于 2018-11-2 08:53:21 | 显示全部楼层
fcode 发表于 2018-11-2 08:38
你给一个复制粘贴的数据文件(或部分),不要截图。

fmesh4:n   GEOM=xyz  ORIGIN=-338.760 -338.760 -213.526
        imesh= -161.342  -139.8575  -118.349  -96.840  -75.3315  -32.3035
                32.3035    75.3315    96.840  118.349  139.8575  161.3420
                338.760
        iints=  5 1 1 1 1 2 3 2 1 1 1 1 5
c
        jmesh= -161.342  -139.8575  -118.349  -96.840  -75.3315  -32.3035
                32.3035    75.3315    96.840  118.349  139.8575  161.3420
                338.760
c
        jints=  5 1 1 1 1 2 3 2 1 1 1 1 5
        kmesh=  -182.880 -152.40  -121.92  -91.44  -60.96  -30.48   0.00000
                  30.48    60.96    91.44  121.92   152.4   182.880 212.410
        kints=  2 1 1 1 1 1 1 1 1 1 1 1 1 2
        out=col

5

帖子

1

主题

0

精华

入门

F 币
35 元
贡献
16 点
地板
 楼主| 发表于 2018-11-2 08:53:56 | 显示全部楼层
shurrik 发表于 2018-11-2 08:53
fmesh4:n   GEOM=xyz  ORIGIN=-338.760 -338.760 -213.526
        imesh= -161.342  -139.8575  -118.34 ...

谢谢您,每行不会超过80个字符。

5

帖子

1

主题

0

精华

入门

F 币
35 元
贡献
16 点
5#
 楼主| 发表于 2018-11-2 10:08:58 | 显示全部楼层
fcode 发表于 2018-11-2 09:48
[mw_shl_code=fortran,true]Module typedef
  Implicit None
  private

谢谢大佬的耐心解答!我学习一下!十分感谢!
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-11-1 06:59

Powered by Tencent X3.4

© 2013-2024 Tencent

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