您所在位置：主题：有关批处理的文件名问题
NMRD
[专家分：40] 发布于 2011-12-06 19:21:00
最近在鼓捣批处理文件，在坛子上找到的是这个:
character(80) :: filename,tmp
print*,'please enter the file name:'
read*,filename !输入的可以是多个文件中的任意一个文件名
filename=filename(1:index(filename,'.'))
do i=1,num_file !num_file--文件数
write(tmp,*)i
open(10,file=trim(filename)//trim(adjustl(tmp))//'.txt',status='old')
... !处理文件数据
close(10)
end do
我得到的数据文件名全部是 aaaaa_1_[b]1[/b].dat 这类。(黑体的1为变换数字，1，2，3，...)
改成 filename=filename(1:index(filename,'_'))则只能显示出 aaaaa_[b]1[/b]这部分。
恳请师兄师姐指点。
character(80) :: filename,tmp
print*,'please enter the file name:'
read*,filename !输入的可以是多个文件中的任意一个文件名
filename=filename(1:index(filename,'.'))
do i=1,num_file !num_file--文件数
write(tmp,*)i
open(10,file=trim(filename)//trim(adjustl(tmp))//'.txt',status='old')
... !处理文件数据
close(10)
end do
我得到的数据文件名全部是 aaaaa_1_[b]1[/b].dat 这类。(黑体的1为变换数字，1，2，3，...)
改成 filename=filename(1:index(filename,'_'))则只能显示出 aaaaa_[b]1[/b]这部分。
恳请师兄师姐指点。
