Fortran Coder

标题: 关于输出换行的问题 [打印本页]

作者: xiao. 时间: 2021-1-27 10:59
标题: 关于输出换行的问题
原本输出的目的是每句按一行输出，结果每一句太长了分成了三行，有什么好方法解决嘛，谢谢大噶了

   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

1611716193(1).jpg (67 KB, 下载次数: 221)

作者: fcode 时间: 2021-1-27 11:29
write (13,'(a9999)') trim(adjustl(line(i)))

作者: xiao. 时间: 2021-1-28 13:23

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

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

1611811205(1).jpg (89.14 KB, 下载次数: 236)

作者: fcode 时间: 2021-1-28 14:21
write (13,'(a)') trim(adjustl(line(i)))

作者: xiao. 时间: 2021-1-28 14:52

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

谢谢啦完美解决！

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)