文件读取

33521

新手求别喷，开始学习fortran，根据fortran95上的文件读取例子，编写后能运行，但是不能读出我添加的那个文件。

program mian
implicit none

character(len = 79) :: filename
character(len = 79) :: buffer
integer, parameter :: fileid= 10
integer :: status= 0
logical alive

write(*,*), "filename:"
read(*,"(a79)"), filename
inquire(file = filename, exist = alive)

if(alive)then
        open(unit = fileid, file = filename,&
                access = "sequential", status = "old")
        do while(.true.)
                read(unit = fileid, fmt = "(a79)", iostat = status), buffer
                if(status /= 0)exit
                write(*,"(a79)")buffer
        end do
else
        write(*,*),trim(filename)," don't exist"
end if

stop
end


这里面的shiyan。txt是我手动添加进去的，但是运行结果一直是shiyan这个文件不存在。求指导

lqouc

没看见文件名还有个.txt的后缀么，要写完整。

guobch

图片不知道怎么贴   就读取文件的那个名字的后缀     和上楼的一样

33521

lqouc 发表于 2013-9-20 17:07

                               
登录/注册后可看大图

没看见文件名还有个.txt的后缀么，要写完整。

谢谢，问题解决了

33521

guobch 发表于 2013-9-20 17:28

                               
登录/注册后可看大图

图片不知道怎么贴   就读取文件的那个名字的后缀     和上楼的一样

谢谢啊，解决了

蓝眼泪

有没有台站读取的啊~

33521

蓝眼泪 发表于 2013-9-22 10:04

                               
登录/注册后可看大图

有没有台站读取的啊~

还没学习到那种程度，刚开始学习文件读取

delegate2006

顶一下顶一下

huangjiabeyond

来学习下 多谢