Question

FORTRAN中通过键盘输入文件名，来打开文件，这样为什么是错的

PROGRAM EX030405
CHARACTER*20 NAME
WRITE(*,*)'文件名'
READ*,NAME
OPEN(8,FILE='NAME.txt')
READ(8,100) T,CHAT
N=(T/CHAT)+1
WRITE(*,*) N,NAME
100 FORMAT(F8.3/F8.3)
CLOSE(8)

END

新手求救

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏20（财富值+成长值）

Answer 1

PROGRAM EX030405
CHARACTER*20 NAME
WRITE(*,*)'文件名'
READ*,NAME
OPEN(8,FILE=TRIM(NAME) // '.txt')
READ(8,100) T,CHAT
N=(T/CHAT)+1
WRITE(*,*) N,NAME
100 FORMAT(F8.3/F8.3)
CLOSE(8)
END

假设你的文件名是“百度.txt”，在执行READ*,NAME这句的时候你把“百度”赋值给NAME，在执行OPEN(8,FILE='NAME.txt')的时候，你想象中的是打开"百度.txt"，而实际上由于你用引号将NAME给括起来了，所以系统会认为你想要打开的是一个"NAME.txt"的文件，如果文件夹下没有这个文件，系统将会自动生成一个。在执行READ(8,100) T,CHAT这句的时候，系统发现NAME.txt格式不对或者已经到达文件尾，就会报错。

要记住被单引号或者双引号括起来的字符不能再被当作变量名或者函数名，系统只会认为这是一段字符串。