Question

跪求关于fortran用rename函数改文件名的问题~~在线等~~

use dfport
parameter (N=88,STARTTIME=1000,ENDTIME=1009,MIN=60)
integer i,j,res,ss
character*20 time1,time2,path
character*80 filepath,filename2
logical exists

path="E:\cappi\wz\"

do i=STARTTIME,ENDTIME
write(time1,"(I4.4)") i
do j=1,MIN
write(time2,"(I2.2)") j
write(filepath,*) trim(path),"200608",trim(time1),".",trim(time2),"A.CappiZ"
inquire(file=filepath,exist=exists)
if(exists) then
filename2=trim(path)//filepath(14:23)//filepath(25:26)//filepath(28:34)
res=rename(trim(filepath),trim(filename2))
endif
enddo
enddo

end

因为数据有点混乱，所以要先找到文件，原文件名是2006081000.00A.CappiZ，我要把“.”和"A”删掉，变成200608100000.CappiZ。我看filepath和filename2显示出来都是对的哇…
谢谢谢谢~~~
http://download.oracle.com/docs/cd/E19205-01/820-1202/aethe/index.html
这里是关于RENAME函数的参考

Answer 1

读字符坦悄拦宽串再对字符位操作。删除14、15个字让衡渣符就可以了。即先读char(21),写char(1:13)再写char(16:21)

Answer 2

文件扩展名，对于使用电脑的菜鸟们来说，这或许是个非常陌生的名字。也许很多人都要问，文件名就文件名塞，还什么扩展名哟？然而在我们实际应用中就经常会遇到一些这样的现象：电脑中一些莫名其妙的文件总是打不开，及时打开了怎么图标总是和别人计算机里面的不一样等等。废话少说了，言归拿樱正传。
文件扩展名 是操作系统用来标志文件格式的一种机制。通常来说，一个扩展名是跟在文件名后面的，由一个分隔符分隔。在一个像“readme.txt”的文件名中，readme是文件名，txt为扩展名，表示这个文件是一个纯文本文件。
也许你们会问：我打开电脑怎么没有看见文件名后面有一个原点和原世敏肢点后面的东东呢？不要着急，跟我来哟？首先打开一个文件夹，单击菜单栏→工具→文件夹选项
去掉"隐藏已知文件的扩展名"前面的勾.点击确定，这下你看看你电脑里面保存的所有文件，是否在原来文件名后面都多了原点和一些字母符号呢？这些都是扩展名。如果想不显示扩展名，就执行刚才上面的步骤，把刚才去掉的那个√打上，点击确定就OK了，大家可以多多练习这个哦。
不过大家千万要注搜世意，在我们取消√以后，文件名及其扩展名就显示出来了，但是当我们需要重命名的时候，文件扩展名是不能更改的哟，否则可能就打不开该文件了哟，或者该文件的图标就变样了。所以，我们在重命名带扩展名的文件时，扩展名是不能丢的。
我们经常接触的扩展名有doc(Word文档)、wps(Wps文档)、xls(Excel电子表格)、ppt(Powerpoint演示文稿)、jpg(图片)、txt(纯文本)、rar(Winrar压缩文件)、htm(网页文件)、html(网页文件)等等。
这下大家是否清楚了吗？如果大家还迷糊儿的话，我再来费了哈。我们可能都使用过Word编辑过文档的，在我们辛辛苦苦打了一篇文章或总结计划之后，我们接下来的事情就是保存，在我们点击保存的时候，就会弹出如下对话框，在保存类型那个地方，我们时候会看见word文档这一标志呢？也许我们绝大多数人不回去在意这个问题（否则我们大家都是发明家了哟），因为我们的绝大多数老师都没有教哟，所以我们只取一个文件名就OK了。就是我们没有在意的那个地方就是文件扩展名。

追问

额,可能你理解错我的意思了,我是要批量修改文件名,不是后缀名...
还是谢谢你哈~