彭书上案例复现没成功

DDHH

data.txt文件
座号:1
中文:1英文:2数学:3
座号:2
中文:3英文:4数学:5

代码：、

[Fortran] 纯文本查看 复制代码

module typedef
    type student
        integer chinese,english ,math
    end type
    end module

program ex0907
use typedef
implicit none
type(student)::s
character(len=80)::filename="data.txt"
integer,parameter::fileid=10
logical alive
integer ::error
integer::no

inquire(file=filename,exist=alive)
if(.not.alive)then
    write(*,*)trim(filename),"doesn't exit"
    stop
end if

open (fileid,file=filename)
do while(.true.)
    read(fileid,"(5XI2,/,5XI3,6XI3,6XI3)",iostat=error)no,s
    if(error/=0)exit
    write(*,"(I2'号 中文：'I3'英文：'I3'数学：'I3)")no,s
end do
close(fileid)
stop
end

结果

DDHH

fcode 发表于 2023-10-21 10:16
建议
read(fileid,"(5XI2,/,5XI3,6XI3,6XI3)",iostat=error)no,s
改为

书上为啥操作不了呢？我听网友讲现在一个中文字体代表3个字节，所以5x这里有问题，可是我试了还是没有用

DDHH

Transpose 发表于 2023-10-21 14:33
i3代表数字占三个位置，冒号后面必须长度是3，不足的可以用空格代替 例如
数学 ...

data文件调整为
座号: 1
中文:  1英文:  2数学:  3
座号: 2
中文:  3英文:  4数学:  5
代码

[Fortran] 纯文本查看 复制代码

module typedef
    type student
        integer chinese,english ,math
    end type
    end module
   
program ex0907
use typedef
implicit none
type(student)::s
character(len=80)::filename="data.txt"
integer,parameter::fileid=10
logical alive
integer ::error
integer::no

inquire(file=filename,exist=alive)
if(.not.alive)then
    write(*,*)trim(filename),"doesn't exit"
    stop
end if

open (fileid,file=filename)
do while(.true.)
    read(fileid,"(5XI2,/,5XI3,6XI3,6XI3)",iostat=error)no,s
    if(error/=0)exit
    write(*,"(I2'号 中文：'I3'英文：'I3'数学：'I3)")no,s
end do
close(fileid)
stop
end

还是一样的

DDHH

fcode 发表于 2023-10-21 19:19
一个中文有几个字符，与具体的编码有关。并不是固定不变的。
建议不要用格式符读取，直接改用 * 表控格式 ...

谢谢，但是按照您的代码还是没成功，不知道哪里出问题了

DDHH

DDHH 发表于 2023-10-23 09:58
谢谢，但是按照您的代码还是没成功，不知道哪里出问题了

已解决，谢谢各位