Fortran Coder

查看: 91|回复: 3

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

[复制链接]

43

帖子

12

主题

0

精华

熟手

F 币
186 元
贡献
87 点
发表于 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

评分

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

查看全部评分

43

帖子

12

主题

0

精华

熟手

F 币
186 元
贡献
87 点
 楼主| 发表于 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 币
429 元
贡献
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-11-7 09:19

Powered by Tencent X3.4

© 2013-2024 Tencent

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