连续读数据可否遇到无效数据忽略

cqflhl · 发表于 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个位置.

li913 · 发表于 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

cqflhl · 发表于 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个就够

愤怒的三炮 · 发表于 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)

学到了。

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

评分