读取数据问题

朽木露琪亚

怎么样？解决了吗？要是没有的话可以参考下下面的代码，测试过了

1. program main
   
2. implicit none
   
3. integer m,i
   
4. parameter(m=10)
   
5. real dat(m),ppbv(m)
   
6. character*8 tim(m)
   
7. character*30 line
   
8. open(1,file="G:\Fortran\b\b.txt")
   
9. do i=1,m
   
10. read(1,"(A)") line
    
11. read(line(1:6),*) dat(i)
    
12. tim(i)=line(8:12)
    
13. if(Trim(line(15:22))=="") then
    
14.   ppbv(i)=9999
    
15. else
    
16.   read(line(15:22),*) ppbv(i)
    
17. endif
    
18. enddo
    
19. close(1)
    
20. print*,line
    
21. end

复制代码

q863510557

朽木露琪亚 发表于 2014-4-20 15:02
怎么样？解决了吗？要是没有的话可以参考下下面的代码，测试过了

恩恩，问题解决了，非常非常谢谢，还有个问题就是，在别的帖子里有人回复我说：用len（a）这样的语句读取文件长度，短的话就读成999，长的话就读成文件当中的数据，但是我设置的a是有长度的，没有办法用判断语句判断a的长短，请问下怎么解决，程序如下：
program main
implicit none
character*30 a
integer n,i
parameter(n=744)
real shuzhi(n)
open(1,file="f:\so2.txt",status="old",form="formatted")
do i=1,n
read(1,"(a)") a
print*,a
if(len(a)==14) then
shuzhi(i)=0
else
backspace(1)
read(1,*) a,a,shuzhi(i)
end if
print*,shuzhi(i)
end do
close(1)
end

q863510557

朽木露琪亚 发表于 2014-4-20 15:02
怎么样？解决了吗？要是没有的话可以参考下下面的代码，测试过了

其实就是想问下，能不能得出每一行字符串的长度？？

q863510557

q863510557 发表于 2014-4-22 10:46
其实就是想问下，能不能得出每一行字符串的长度？？

搞定了，把Len（）换成len_trim（）就行了  谢大神提点~！