Fortran Coder

标题: 连续读数据可否遇到无效数据忽略 [打印本页]

作者: cqflhl 时间: 2024-10-29 08:43
标题: 连续读数据可否遇到无效数据忽略
本帖最后由 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

[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, 下载次数: 55)

作者: cqflhl 时间: 2024-10-29 09:08

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
本帖最后由愤怒的三炮于 2024-10-29 14:42 编辑

li913 发表于 2024-10-29 09:04
[mw_shl_code=fortran,true]program Test
implicit none
character(80) ch(8)

学到了。

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)