设为首页收藏本站如何选择编译器？在线F77转F90 繁体浏览

切换到窄版开启辅助访问

Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › fortran十六进制数据读取

12 / 2 页下一页

返回列表发新帖

查看: 19339|回复: 10

上一主题

下一主题

[输入输出] fortran十六进制数据读取

已解决

5 帖子	1 主题	0 精华

F 币: 40 元
贡献: 20 点

发消息

电梯直达

跳转到指定楼层

楼主

发表于 2018-7-24 16:16:06 | 只看该作者回帖奖励

回帖奖励

|倒序浏览 |阅读模式

现在有这样的数据：icem生成的ansys fluent可以用的网格文件，数据格式如下：

输入文件:
(0 "Faces:" ）
(13(0 1 28 0))
(13(3 1 28  3 0)(
7  3  5 0 0
2  3  7 0 0
2  8  1 0 0
7  8  2 0 0
7  6  8 0 0
5  6  1d 0 0
... （注：一共28H（十六进制）行 = 40（十进制）行）
))
需要输出节点数据：（每一行三个数是每一个节点的编号，每一行组成一个三角形）
7, 3, 5;
2, 3, 7;
2, 8, 1;
7, 8, 2;
7, 6, 8;
5, 6, 29;

如果用格式编辑符Z，那么需要指定长度，比如说 read(filenum,'(3z1)') 的话，1d这个十六进制数字就读不进来了。请问有什么好办法吗？

分享到: 微信

收藏0 点赞0 点踩0

回复

使用道具举报

835 帖子	2 主题	0 精华

F 币: 3926 元
贡献: 2334 点

发消息

沙发

发表于 2018-7-24 17:13:51 | 只看该作者

看起来两个数字之间有空格，5^^6^^1d^，尖号表示空格。
这种格式，用 3z3

回复支持反对

使用道具举报

实名认证

2022 帖子	12 主题	5 精华

臭石头雪球

F 币: 1598 元
贡献: 689 点

发消息

板凳

发表于 2018-7-24 19:11:04 | 只看该作者

你的编译器支持 z0 吗？

回复支持反对

使用道具举报

5 帖子	1 主题	0 精华

F 币: 40 元
贡献: 20 点

发消息

地板

楼主| 发表于 2018-7-25 00:11:38 | 只看该作者

fcode 发表于 2018-7-24 19:11
你的编译器支持 z0 吗？

嗯我的是IVF2011+vs2012
z0是什么呢？
我今天用了一个比较蹩脚的办法：先按照字符串读取然后再把字符串按照Z格式转成数字
但是不知道这样会不会有bug

回复支持反对

使用道具举报

5 帖子	1 主题	0 精华

F 币: 40 元
贡献: 20 点

发消息

5^#

楼主| 发表于 2018-7-25 00:13:35 | 只看该作者

li913 发表于 2018-7-24 17:13
看起来两个数字之间有空格，5^^6^^1d^，尖号表示空格。
这种格式，用 3z3

两个十六进制数字之间只有一个空格。
而且网格数多了的话会出现位数不一样，比如 1271 fd0 abcd3 这种位数不一致的情况，没法用z。

回复支持反对

使用道具举报

259 帖子	0 主题	0 精华

World Analyser

F 币: 717 元
贡献: 510 点

发消息

6^#

发表于 2018-7-25 08:28:17 | 只看该作者

Richael_Liang 发表于 2018-7-25 00:11
嗯我的是IVF2011+vs2012
z0是什么呢？
我今天用了一个比较蹩脚的办法：先按照字符串读取然后再把字符串 ...

read(filenum,'(3z0)')

回复支持反对

使用道具举报

259 帖子	0 主题	0 精华

World Analyser

F 币: 717 元
贡献: 510 点

发消息

7^#

发表于 2018-7-25 08:29:34 | 只看该作者

Richael_Liang 发表于 2018-7-25 00:11
嗯我的是IVF2011+vs2012
z0是什么呢？
我今天用了一个比较蹩脚的办法：先按照字符串读取然后再把字符串 ...

这是很高端的办法，并不蹩脚。
思路上没有bug，代码写得规范严谨的话，毫无破绽。

回复支持反对

使用道具举报

490 帖子	4 主题	0 精华

F 币: 3298 元
贡献: 1948 点

发消息

8^#

发表于 2018-7-25 08:49:28 | 只看该作者

本帖最后由 pasuka 于 2018-7-25 08:50 编辑

关键在于fortran、C或C++的标准里面没有字符串切割函数
建议用MATLAB或者python这样的脚本语言进行处理

[Python] 纯文本查看 复制代码

src = "1271 fd0 abcd3 5 6 1d"
rst = [int(x, 16) for x in src.split()]
print(rst)

输出
4721, 4048, 703699, 5, 6, 29

回复支持反对

使用道具举报

5 帖子	1 主题	0 精华

F 币: 40 元
贡献: 20 点

发消息

9^#

楼主| 发表于 2018-7-25 21:18:49 | 只看该作者

pasuka 发表于 2018-7-25 08:49
关键在于fortran、C或C++的标准里面没有字符串切割函数
建议用MATLAB或者python这样的脚本语言进行处理
[mw ...

感谢您的解答。之前弄不出来的时候打算用matlab了。但是后来用了先按字符串读取再转成数字的方法，对一个简单的网格文件读取成功了。不知道复杂情况如何，会不会出问题。

回复支持反对

使用道具举报

5 帖子	1 主题	0 精华

F 币: 40 元
贡献: 20 点

发消息

10^#

楼主| 发表于 2018-7-25 21:26:07 | 只看该作者

kyra 发表于 2018-7-25 08:29
这是很高端的办法，并不蹩脚。
思路上没有bug，代码写得规范严谨的话，毫无破绽。 ...

大概分为两步：
1. read(filenum,*) n1,n2,n3 !按照字符读取这样就可以按照空格区分不同的数字了
2. read(n1,'(z4)') n4 ! 把字符n1转变为数字（十六进制）n4
ps：绫濑遥我女神！！！！敲可爱！！！

回复支持反对

使用道具举报

12 / 2 页下一页

返回列表发新帖

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

GMT+8, 2024-11-23 20:18

Powered by Tencent X3.4

© 2013-2024 Tencent

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