论坛 › Fortran语法讨论 › 读取文本文件内的指定内容，且指定内容位置不固定。

18229702011 发表于 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

fcode 发表于 2020-3-17 16:22:21

你可以从我给你的代码里，学习相关的内容。然后灵活应用到你新的需求中去。
我不可能一直帮你解决所有的需求。

18229702011 发表于 2020-3-17 16:25:48

好的，谢谢

查看完整版本: 读取文本文件内的指定内容，且指定内容位置不固定。