Fortran Coder

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

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

[复制链接]

245

帖子

0

主题

0

精华

版主

World Analyser

F 币
664 元
贡献
483 点

新人勋章美女勋章元老勋章热心勋章规矩勋章管理勋章

QQ
楼主
发表于 2018-7-25 08:28:17 | 显示全部楼层
Richael_Liang 发表于 2018-7-25 00:11
嗯我的是IVF2011+vs2012
z0是什么呢?
我今天用了一个比较蹩脚的办法:先按照字符串读取 然后再把字符串 ...

read(filenum,'(3z0)')

245

帖子

0

主题

0

精华

版主

World Analyser

F 币
664 元
贡献
483 点

新人勋章美女勋章元老勋章热心勋章规矩勋章管理勋章

QQ
沙发
发表于 2018-7-25 08:29:34 | 显示全部楼层
Richael_Liang 发表于 2018-7-25 00:11
嗯我的是IVF2011+vs2012
z0是什么呢?
我今天用了一个比较蹩脚的办法:先按照字符串读取 然后再把字符串 ...

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

245

帖子

0

主题

0

精华

版主

World Analyser

F 币
664 元
贡献
483 点

新人勋章美女勋章元老勋章热心勋章规矩勋章管理勋章

QQ
板凳
发表于 2018-7-26 08:15:39 | 显示全部楼层
其实 read 可以用于数组读数组的。
[Fortran] 纯文本查看 复制代码
program main
  implicit none
  Character(len=33) :: src = "1271 fd0 abcd3 5 6 1d"
  Character(len=8) :: a(6)
  integer :: b(6)
  read( src , * ) a
  read( a , '(z8)' ) b
  write(*,*) b
end program main
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-5-9 06:10

Powered by Tencent X3.4

© 2013-2024 Tencent

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