|
|
原本输出的目的是每句按一行输出，结果每一句太长了分成了三行，有什么好方法解决嘛，谢谢大噶了
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
|
|
F 币
贡献
权杖
窥视卡
发表于 2021-1-27 10:59:56
微信
收藏
点赞
点踩
提升卡
置顶卡
变色卡
千斤顶
显身卡
发表于 2021-1-27 11:29:31
楼主