用FORTRAN如何去掉制表符

qxtlyf

我在处理MICAPS数据时发现有好多数据后面带有制表符，如何用FORTRAN去掉制表符，希望您指导,




问题已经解决了，谢谢大家

小傅之追梦

发点数据看看

懒懒的莫小米

micaps数据直接用fortran就可以读啊，制表符是指啥

mofangbao

如果真的想用Fortran去掉，那只能先把这个文件逐字符读取一遍  判断该处字符是否为 制表符（可以查一下ASCII表，然后用char(ascii值)来表示），如果是的话，就替换。

qxtlyf

小傅之追梦 发表于 2014-7-30 18:18
发点数据看看

数据在附件里，

小傅之追梦

qxtlyf 发表于 2014-7-31 09:47
数据在附件里，

数据下载下来，根本解压不了，白浪费金钱了

qxtlyf

小傅之追梦 发表于 2014-7-31 12:48
数据下载下来，根本解压不了，白浪费金钱了

不用解压，用文本格式打开，加我的qq313074880，在气象家园预报的QQ群里有上传的文件

qxtlyf

mofangbao 发表于 2014-7-31 08:57
如果真的想用Fortran去掉，那只能先把这个文件逐字符读取一遍  判断该处字符是否为 制表符（可以查一下ASCI ...

我写一个程序，老是调不出来，请求你指教，
implicit none
integer :: i,stat1
character :: desc

open(1,file='14072020.090',form='formatted',status='old')
open(2,file='14072020.txt',form='formatted',status='unknown')
do   
    read(1,'(A)',iostat=stat1)desc
       call clsj(desc)
    write(2,'(A)')desc
      if(stat1/=0) exit
end do

close(1)
close(2)
stop
end

SUBROUTINE clsj(su_str)
implicit none
character :: su_str,buff
integer :: i,j
buff=trim(su_str)
j=len(buff)
do i=1,j
   if (iachar(buff(i:i)).LE.31) buff(i:i)=' '   
end do
su_str=trim(buff)
END SUBROUTINE
子程序是去掉文本中制表符等东西

在QQ中有处理的文件，您看看我什么地方有错误

ajiao7370

mofangbao 发表于 2014-7-31 08:57
如果真的想用Fortran去掉，那只能先把这个文件逐字符读取一遍  判断该处字符是否为 制表符（可以查一下ASCI ...

感谢，大神，受益良多