用文本里一列作为文件名创建文件

lumlngz · 发表于 2023-4-24 17:30:05

本帖最后由 lumlngz 于 2023-4-24 17:34 编辑

我想用文本数据的某一行作为新文件夹的名字，但是运行时出现错误，请各位大佬不惜吝教，感谢感谢。program main

[Fortran] 纯文本查看 复制代码

program main
implicit none
integer::num,i,s=30
character(10)::dirname
character(10)::filename
character(10)::name
real::a ,b ,c ,d
open(10,file='111.txt',form='formatted',access='direct',recl=26)
do i=1,20
  read(10,*,rec=i,iostat=num)a ,b ,c ,d ,name
  if (num /= 0) exit
  
  write(dirname,'(A10)')name
  write(filename,'(A10,".txt")')name
  call system("mkdir "//dirname)
  open(s,file=trim(dirname)//'/'//filename,form='formatted',access='direct',recl=26)
  write(s,*,rec=i)name
  close(s)
  s=s+1
enddo
endprogram

lumlngz · 发表于 2023-4-24 17:33:48

[Fortran] 纯文本查看 复制代码

program main
implicit none
integer::num,i,s=30
character(10)::dirname
character(10)::filename
character(10)::name
real::a ,b ,c ,d
open(10,file='111.txt',form='formatted',access='direct',recl=26)
do i=1,20
  read(10,*,rec=i,iostat=num)a ,b ,c ,d ,name
  if (num /= 0) exit
  
  write(dirname,'(A10)')name
  write(filename,'(A10,".txt")')name
  call system("mkdir "//dirname)
  open(s,file=trim(dirname)//'/'//filename,form='formatted',access='direct',recl=26)
  write(s,*,rec=i)name
  close(s)
  s=s+1
enddo
endprogram

kyra · 发表于 2023-4-25 08:30:38

非必要，不要用 formatted direct 这种读取方式。
如果非要用，一定要确保每行长度一致，recl 的设置非常关键。有些编译器还要考虑 CR LF 换行符号。
并且， write(s,*,rec=i) name 这里 rec = i 似乎有点问题。

以下代码可供参考

[Fortran] 纯文本查看 复制代码

program main
  implicit none
  integer::num
  character(10)::name
  real::a ,b ,c ,d
  open(10,file='111.txt')
  do
    read(10,*,iostat=num)a ,b ,c ,d ,name
    if (num /= 0) exit
    call system("mkdir "//name)
    open(30,file=trim(name)//'/'//trim(name)//'.txt')
    write(30,*)name
    close(30)
  enddo
  close(10)
end program main