读取带日期和时间的数据 将- ：变为空格输出

nx花儿-LJQ

program cp
implicit none
integer(kind=4) :: i,status,zd
real(kind=4)    :: a,b,c,d
character*10 :: aa, bb

open(10,file="D:\cp.txt")
open(11,file="D:\cpp.txt")
do while(.true.)
read(10,*,iostat=status)  zd,a,b,aa,bb,c,d
if(status/=0) exit
  do i=1,len_trim(aa)
           if (aa(i:i)=='-')  aa(i:i)=(' ')
   enddo

  do i=1,len_trim(bb)
      if (bb(i:i)==':')  bb(i:i)=(' ')
   enddo

write(11,*)  zd,a,b,aa,bb,c,d

enddo
close(10)
close(11)
end

注意：if (aa(i:i)=='-')  aa(i:i)=(' ')

mofangbao

楼主能否给一下示例数据格式呢，好有个测试嘛

传说中的谁

支持花儿！能否说明一下你当时是出了什么错呢？谢谢

email

嘿嘿，我来了哈。。。花儿，爱死你啦。。。

email

那个我是星位哈。。。

mofangbao

email 发表于 2011-8-29 17:19

                               
登录/注册后可看大图

嘿嘿，我来了哈。。。花儿，爱死你啦。。。

多谢星位在群里的帮助，说好的贡献给你啦，@传说中的谁来给分啦

zsmnantong

花儿很给力，顶起来

zsmnantong

mofangbao 发表于 2011-8-29 17:20

                               
登录/注册后可看大图

多谢星位在群里的帮助，说好的贡献给你啦，@传说中的谁来给分啦

传说吝啬的很，舍不得给分啊

artmunich

我分析一下这个程序，帮助大家学习，如果有不对的烦请程序作者@nx花儿-LJQ指正
The description of function len_trim is to "Returns the length of a character string, ignoring any trailing blanks"
在从头直到aa结束的过程中，如果遇到-，就换成space

nx花儿-LJQ

传说中的谁 发表于 2011-8-29 17:11

                               
登录/注册后可看大图

支持花儿！能否说明一下你当时是出了什么错呢？谢谢

主要是我写的时候 if (aa(i:i)=='-')  aa(i:i)=(' ')
这里面的==写成了=，逻辑语言的错误呵呵