xiao. 发表于 2021-1-27 10:59:56

关于输出换行的问题

原本输出的目的是每句按一行输出，结果每一句太长了分成了三行，有什么好方法解决嘛，谢谢大噶了

       line='ren E:\xiao\hebing\co2_h2o\新建文件夹(2)\T_(1000-2200)_P_1.0_CO2_(0.05-0.10-0.15)_H2O_(0.05-0.10-0.15)_K分布数据库分工况'//trim(adjustl(line_count))//'a.data T_'//trim(adjustl(line_tg))//'_p_'//trim(adjustl(line_p))//'_CO2Mol_'//trim(adjustl(line_molco2))//'_N2mol_'//trim(adjustl(line_moln2))//'.data'
   count=count+1
   end do
end do
open(13,file='gaimingzi.txt')
do i=1,10000
    write (13,*) trim(adjustl(line(i)))
end do
close(13)
      end


fcode 发表于 2021-1-27 11:29:31

write (13,'(a9999)') trim(adjustl(line(i)))

xiao. 发表于 2021-1-28 13:23:00

fcode 发表于 2021-1-27 11:29
write (13,'(a9999)') trim(adjustl(line(i)))

最后虽然能是一行了，但是前面很多空格不太方便怎么弄呢？

fcode 发表于 2021-1-28 14:21:10

write (13,'(a)') trim(adjustl(line(i)))

xiao. 发表于 2021-1-28 14:52:14

fcode 发表于 2021-1-28 14:21
write (13,'(a)') trim(adjustl(line(i)))

谢谢啦完美解决！
页: [1]
查看完整版本: 关于输出换行的问题