彭书上案例复现没成功

fcode

建议
read(fileid,"(5XI2,/,5XI3,6XI3,6XI3)",iostat=error)no,s
改为
read(fileid,*,iostat=error)no,s

然后文件内容改为：
1 30 50 20
2 13 15 25

fcode

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

因为格式化读取，对输入文件要求太苛刻，多一个空格，少一个空格都不行。
所以实践中，我几乎不会选择使用格式化读取。

能用 * 表控的，一律用表控。不能用表控的，我会尽可能想办法间接用表控。

fcode

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

一个中文有几个字符，与具体的编码有关。并不是固定不变的。
建议不要用格式符读取，直接改用 * 表控格式。
read(fileid,"(5XI2,/,5XI3,6XI3,6XI3)",iostat=error)no,s
改为
character(len=1):: str !//这句放前面定义语句区域
read(fileid,*,iostat=error) str,no,str,s%chinese,str,s%english,str,s%math

文件内容就可以比较自由（空格数量可以不固定，大于等于1个空格即可，座号和冒号:之间不能用空格）
座号:  1
中文:  1  英文:  2  数学:  3