第二个print为什么print不出来

水草

帮忙看一下这个程序中的第二个print为什么print不出来啊？而且编译的时候没有错误的

1. implicit none
   
2. integer i,j,n,m,k
   
3. parameter(n=721,m=10)
   
4. character*3 swe(n,n)
   
5. character*20 filename(m)
   
6. open(3,file='e:\filename.txt')
   
7. do i=1,m
   
8. read(3,*)filename(i)
   
9. print*,filename(i)
   
10. enddo
    
11. close(3)
    
12. 
    
13. do k=1,m
    
14. open(1,file='E:\data\NL'//filename(k)//'.v03.SI',form='binary')
    
15. do i=1,n
    
16. do j=1,n
    
17. read(1,end=10)swe(i,j)
    
18. print*,ichar(swe(i,j))
    
19. enddo
    
20. enddo
    
21. 10 close(1)
    
22. !print*,i-1,j-1
    
23. open(2,file='E:\'//filename(k)//'.txt')
    
24. do i=1,n
    
25. write(2,*)(ichar(swe(i,j)),j=1,n)
    
26. enddo
    
27. close(2)
    
28. print*,i-1,j-1
    
29. enddo
    
30. end
    
31. 
    

implicit none<br /> integer i,j,n,m,k<br /> parameter(n=721,m=10)<br /> character*3 swe(n,n)<br /> character*20 filename(m)<br /> open(3,file='e:\filename.txt')<br /> do i=1,m<br /> read(3,*)filename(i)<br /> print*,filename(i)<br /> enddo<br /> close(3)<br /> <br /> do k=1,m<br /> open(1,file='E:\data\NL'//filename(k)//'.v03.SI',form='binary')<br /> do i=1,n<br /> do j=1,n<br /> read(1,end=10)swe(i,j)<br /> print*,ichar(swe(i,j))<br /> enddo<br /> enddo<br /> 10 close(1)<br /> !print*,i-1,j-1<br /> open(2,file='E:\'//filename(k)//'.txt')<br /> do i=1,n<br /> write(2,*)(ichar(swe(i,j)),j=1,n)<br /> enddo<br /> close(2)<br /> print*,i-1,j-1<br /> enddo<br /> end<br /> <br />

天目神眉

首先，你得先确定你的数组swe(i,j)正确读进去了，其次，根据兰溪的说法，1和6是默认的屏幕代号，read(1,end=10)swe(i,j)这句可能相当于屏幕读入，当然这与编译器有关，不一定每个编译器都这样认为。所以人家兰溪建议你换一下文件号。@兰溪之水

mofangbao

去掉 ichar这个函数看看能出来么

言深深

我想问一下楼主的程序能够运行么？如果仅仅错在不能print是无所谓的，恐怕open(1,````)也打不开吧？
经验判断有可能是你的filename文件名比较长，导致文件名里面包含空格，这样程序在运行的过程中自动生成一个空文件，类似“E:\data\NL    filename.v03.SI”的文件，并且屏幕提示输入输出错误，I/O%￥%#￥@

解决方案是在filename(k)外面加一层trim(filename(k))，表示去掉空格

祝你好运

水草

天目神眉 发表于 2012-4-22 14:04

                               
登录/注册后可看大图

首先，你得先确定你的数组swe(i,j)正确读进去了，其次，根据兰溪的说法，1和6是默认的屏幕代号，read(1,end ...

好滴~灰常感谢！

水草

mofangbao 发表于 2012-4-22 15:36

                               
登录/注册后可看大图

去掉 ichar这个函数看看能出来么

我有尝试过去掉这个函数，运行结果是生成的txt中只有几个问号，其余全是空白

水草

言深深 发表于 2012-4-22 16:40

                               
登录/注册后可看大图

我想问一下楼主的程序能够运行么？如果仅仅错在不能print是无所谓的，恐怕open(1,````)也打不开吧？
经验判 ...

~成功解决了！灰常灰常感谢！

言深深

水草 发表于 2012-4-22 20:34

                               
登录/注册后可看大图

~成功解决了！灰常灰常感谢！

其实你可以一次性将所有的文件名都写在第一个filename的txt文件里面的，注意这是后的character定义的字符数组名需要长一些，这样就避免下面再写文件名了

水草

言深深 发表于 2012-4-22 20:45

                               
登录/注册后可看大图

其实你可以一次性将所有的文件名都写在第一个filename的txt文件里面的，注意这是后的character定 ...

嗯~