Fortran Coder

楼主: 18229702011
打印 上一主题 下一主题

[文件读写] 读取文本文件内的指定内容,且指定内容位置不固定。

[复制链接]

22

帖子

6

主题

0

精华

入门

F 币
98 元
贡献
65 点
11#
 楼主| 发表于 2020-3-17 13:38:46 | 只看该作者
这是文件1的格式
title               job1
$....MARC input file produced by Marc Mentat 2017.1.0 (64bit)
$...................................
$....input file using extended precision
extended
$...................................
sizing                                 0         4         9         0      (9就是模型节点总数,4是单元数)
alloc                       25
elements                     3(3是单元类型:即四边形单元)
version                     13
table                        0         0         2         1         1         0         0         1
processor                    1         1         1         0
$no list
all points
no echo                      1         2         3
end
$...................
solver
         8         0         0         0         0         0         0         0         0         0         0         0         0         0         0         0
optimize                    11
points

         1 0.000000000000000+0 0.000000000000000+0 0.000000000000000+0
         2 5.000000000000000+0 0.000000000000000+0 0.000000000000000+0
         3 5.000000000000000+0 6.000000000000000+0 0.000000000000000+0
         4 0.000000000000000+0 6.000000000000000+0 0.000000000000000+0
connectivity(需要读取放到另外一个文件的connectivity)
         0         0         1         0         1         1         0         0         0(这一行不要读)
         1         3         8         9         6         4                                 (第二列全是数字3,它表示单元类型,不读第二列)
         2         3         9        10         3         6
         3         3         1        12         9         8
         4         3        12         2        10         9
coordinates(需要读取放到另外一个文件的coordinates)
         3         9         0         1(这一行不要读)
         1 0.000000000000000+0 0.000000000000000+0 0.000000000000000+0
         2 5.000000000000000+0 0.000000000000000+0 0.000000000000000+0
         3 5.000000000000000+0 6.000000000000000+0 0.000000000000000+0
         4 0.000000000000000+0 6.000000000000000+0 0.000000000000000+0
         6 2.500000000000000+0 6.000000000000000+0 0.000000000000000+0
         8 0.000000000000000+0 4.500000000000000+0 0.000000000000000+0
         9 2.500000000000000+0 4.500000000000000+0 0.000000000000000+0
        10 5.000000000000000+0 4.500000000000000+0 0.000000000000000+0
        12 2.500000000000000+0 6.66133814775094-16 0.000000000000000+0

1.dat

5.1 KB, 下载次数: 0

1963

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1357 元
贡献
574 点

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

12#
发表于 2020-3-17 16:22:21 | 只看该作者
你可以从我给你的代码里,学习相关的内容。然后灵活应用到你新的需求中去。
我不可能一直帮你解决所有的需求。

22

帖子

6

主题

0

精华

入门

F 币
98 元
贡献
65 点
13#
 楼主| 发表于 2020-3-17 16:25:48 | 只看该作者
好的,谢谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-4-26 20:50

Powered by Tencent X3.4

© 2013-2024 Tencent

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