Fortran Coder

查看: 287|回复: 3
打印 上一主题 下一主题

[输入输出] 连续读数据可否遇到无效数据忽略

[复制链接]

57

帖子

15

主题

0

精华

熟手

F 币
248 元
贡献
118 点
跳转到指定楼层
楼主
发表于 2024-10-29 08:43:14 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 cqflhl 于 2024-10-29 08:52 编辑

1,2,3,n,5,6,a,b,8

把上述字符串读入一个数组中, 只能读入前3个, 遇到非数字就中断
是否有办法忽略, 把5,6读入数组第5,6个位置.
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

835

帖子

2

主题

0

精华

大宗师

F 币
3926 元
贡献
2334 点
沙发
发表于 2024-10-29 09:04:27 | 只看该作者
[Fortran] 纯文本查看 复制代码
program Test
implicit none
character(80) ch(8)
integer dat(8), i, j
read(*,*) ch
dat = -999
do i = 1, 8
	read(ch(i),*,iostat=j) dat(i)
end do
print*,dat
end program

QQ20241029-090314.png (39.26 KB, 下载次数: 57)

QQ20241029-090314.png

评分

参与人数 1F 币 +1 贡献 +1 收起 理由
fcode + 1 + 1

查看全部评分

57

帖子

15

主题

0

精华

熟手

F 币
248 元
贡献
118 点
板凳
 楼主| 发表于 2024-10-29 09:08:15 | 只看该作者
li913 发表于 2024-10-29 09:04
[mw_shl_code=fortran,true]program Test
implicit none
character(80) ch(8)

先读入字符串数组过渡一下吧, 那长度只有预设了哟, 单精度8个就够

43

帖子

13

主题

0

精华

专家

F 币
436 元
贡献
155 点
地板
发表于 2024-10-29 11:36:29 | 只看该作者
本帖最后由 愤怒的三炮 于 2024-10-29 14:42 编辑
li913 发表于 2024-10-29 09:04
[mw_shl_code=fortran,true]program Test
implicit none
character(80) ch(8)

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

本版积分规则

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

GMT+8, 2024-12-23 13:06

Powered by Tencent X3.4

© 2013-2024 Tencent

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