[Fortran] 纯文本查看 复制代码
program new_file_piliang
use DFPORT
implicit none
integer :: ierr
integer :: ffn, fn,ifID !前两项分别对应文件夹名称,文件名称
character(len = 50) :: fileFolderName
character(len = 50) :: fileName
do ffn = 1,100,1
write(fileFolderName,*) ffn
fileFolderName = ".\"//trim(adjustl(fileFolderName))//"_txt" !文件夹路径
ierr = system("md "//trim(fileFolderName))!这一行必须要有,没有则无法新建
end do
end program new_file_piliang
!>>>>>>>>>我也查到了一个每次查看是否存在重名txt文件的程序,有则在基础上新建一个txt<<<<<<<
PROGRAM MAIN
CHARACTER(LEN=80) :: FILENAME,FORM
INTEGER :: I
logical :: exist
integer :: p
exist = .TRUE.
I = 0
DO WHILE (exist)
SELECT CASE (I) !选择合适的后缀号码
CASE (0:9)
WRITE(FORM,'(I1)') I
CASE (10:99)
WRITE(FORM,'(I2)') I
CASE (100:999)
WRITE(FORM,'(I3)') I
CASE (1000:9999)
WRITE(FORM,'(I4)') I
END SELECT
WRITE(FILENAME,*) ".\scalar",TRIM(FORM),'.txt' !给文件名赋值为scalar+号码+格式
INQUIRE(directory=FILENAME,exist=exist) !再查询是否存在
I = I + 1 !若存在,号码再加1
END DO
END PROGRAM
[Fortran] 纯文本查看 复制代码
PROGRAM MAIN
IMPLICIT NONE
CHARACTER(LEN=80) :: FILENAME,FORM
INTEGER :: I,N
logical :: exist
exist = .TRUE.
N=100
Do I=1,N,1
SELECT CASE (I) !选择合适的后缀号码
CASE (0:9)
WRITE(FORM,'(I1)') I
CASE (10:99)
WRITE(FORM,'(I2)') I
CASE (100:999)
WRITE(FORM,'(I3)') I
CASE (1000:9999)
WRITE(FORM,'(I4)') I
END SELECT
WRITE(FILENAME,*) "scalar",TRIM(FORM),'.txt' !给文件名赋值为scalar+号码+格式
INQUIRE(file=FILENAME,exist=exist) !查询是否存在
if (exist) then
!!!若存在,则无操作直接跳过
else
!!!若不存在,则创建:
!!! Linux 下:
call system('touch '//FILENAME) !!!创建文件
call system('mkdir '//FILENAME) !!!创建文件夹
!!! Windows 下,自行百度更多CMD:
!call system('mkdir '//FILENAME) !!!创建文件夹 (或者md)
endif
END DO
END PROGRAM
[Fortran] 纯文本查看 复制代码
program main
implicit none
character(len=80) :: filename
integer :: i,n
logical :: isExist
i = 1
Do
write(filename,'(i9)') i
filename="scalar"//trim(adjustl(filename))//".txt"
inquire(directory=filename,exist=isExist)
if (.not.isExist) then
!call system('touch '//filename) !!!创建文件
call system('mkdir '//filename) !!!创建文件夹
exit
endif
i=i+1
End Do
end program main