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

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
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
program Test
implicit none
character(80) ch(8)

学到了。
页: [1]
查看完整版本: 连续读数据可否遇到无效数据忽略