Fortran Coder

查看: 150|回复: 4

[输入输出] 关于输出换行的问题

[复制链接]

11

帖子

4

主题

0

精华

入门

F 币
87 元
贡献
47 点
发表于 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


1611716193(1).jpg
回复

使用道具 举报

1576

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1679 元
贡献
1081 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2021-1-27 11:29:31 | 显示全部楼层
write (13,'(a9999)') trim(adjustl(line(i)))

11

帖子

4

主题

0

精华

入门

F 币
87 元
贡献
47 点
 楼主| 发表于 2021-1-28 13:23:00 | 显示全部楼层
fcode 发表于 2021-1-27 11:29
write (13,'(a9999)') trim(adjustl(line(i)))

最后虽然能是一行了,但是前面很多空格不太方便怎么弄呢?
1611811205(1).jpg

1576

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1679 元
贡献
1081 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2021-1-28 14:21:10 | 显示全部楼层
write (13,'(a)') trim(adjustl(line(i)))

11

帖子

4

主题

0

精华

入门

F 币
87 元
贡献
47 点
 楼主| 发表于 2021-1-28 14:52:14 | 显示全部楼层
fcode 发表于 2021-1-28 14:21
write (13,'(a)') trim(adjustl(line(i)))

谢谢啦完美解决!
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2021-3-6 06:13

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表