Fortran Coder

查看: 281|回复: 5

[求助] 字符串连接不了?大佬们帮忙看看是啥问题

[复制链接]

5

帖子

2

主题

0

精华

入门

F 币
53 元
贡献
23 点
发表于 2021-12-13 15:53:31 | 显示全部楼层 |阅读模式
[Fortran] 纯文本查看 复制代码
!=====================================
!        整型或实型转换生字符,借助Fortran内部文件完成,
!        即将一个字符串变量当作一个内部文件看待;反之依然
!=====================================
    program main
   implicit none
   character(len=40) :: aa,bb,cc='2007.00',CID
   integer(kind=4) :: a

!...数字转换成字符串
   a=2007
   aa="2007"
   !...整型转字符
   write(bb,"(I4)") a     !...a -> bb
   CID = bb//aa//cc
   write(*,*) TRIM(ADJUSTL(CID))

   stop
   end program main


结果只有bb输出来了,后面的aa和cc输出不来?
结果.jpg
回复

使用道具 举报

50

帖子

2

主题

1

精华

专家

Vim

F 币
505 元
贡献
256 点

规矩勋章

发表于 2021-12-13 21:26:36 | 显示全部楼层
[Fortran] 纯文本查看 复制代码
CID = trim(bb)//trim(aa)//trim(cc)

字符串本身长度是40,会在后面加一些空格,把空格去掉就行了

1699

帖子

13

主题

5

精华

论坛跑堂

臭石头雪球

F 币
2330 元
贡献
1457 点

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

发表于 2021-12-14 08:36:08 | 显示全部楼层
看看,字符串的故事:
http://string.w.fcode.cn/
如果你嫌每次都trim很麻烦,那么递延长度字符串,可能对你有帮助
http://diyanzifuchuan.w.fcode.cn/

5

帖子

2

主题

0

精华

入门

F 币
53 元
贡献
23 点
 楼主| 发表于 2021-12-17 17:26:34 | 显示全部楼层
Transpose 发表于 2021-12-13 21:26
字符串本身长度是40,会在后 ...

是这样,谢谢

10

帖子

4

主题

0

精华

熟手

F 币
174 元
贡献
94 点
发表于 2021-12-24 09:28:00 | 显示全部楼层
fcode 发表于 2021-12-14 08:36
看看,字符串的故事:
http://string.w.fcode.cn/
如果你嫌每次都trim很麻烦,那么递延长度字符串,可能对 ...

雪球你推荐的文章太好了,但里面有一句话可能有歧义:
“此时我们就需要 AdjustL 函数,我们可以这样写: trim(AdjustL(s4)) , 或者 AdjustL(trim(s4)) 这两者的顺序无所谓,结果都是一样的。”
两者的结果好像并不一样:
[Fortran] 纯文本查看 复制代码
character(len=12):: domain

open(123,file='output.txt')

domain = '  fcode.cn' ! 10 characters with 2 spaces ahead
write(123, *) 'adjustl(trim(domain)):',adjustl(trim(domain))
write(123, *) 'trim(adjustl(domain)):',trim(adjustl(domain))

print*,'length of adjustl(trim(domain)) is' ,len(adjustl(trim(domain)))
print*,'length of trim(adjustl(domain)) is',len(trim(adjustl(domain)))
end
2021-12-24_092329.png
2021-12-24_092642.png

1699

帖子

13

主题

5

精华

论坛跑堂

臭石头雪球

F 币
2330 元
贡献
1457 点

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

发表于 2021-12-27 08:30:53 | 显示全部楼层
感谢提醒,这里的确有些不严谨
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2022-1-19 15:00

Powered by Tencent X3.4

© 2013-2022 Tencent

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