我可以引用字符串函数结果的子字符串吗？ [重复]

Posted 2021-04-16

这个问题在这里已有答案：

• Access elements of returned array in Fortran 4个答案

我有一个函数str，它取一个整数并将其转换为字符串。我还想考虑该值的字符串的子字符串，如果它是字符值而不是字符函数，这将很容易。

换句话说，我想写这样的东西：

str(12345)(2:3)

而不是必须这样做：

character(10) :: c
c = str(12345)
print *, c(2:3)

或者滚动我自己的substr()功能。有没有办法做我想要的而不将字符值存储在临时字符变量或编写另一个函数？

这是一个完整的程序：

program main

   character(10) :: c

   ! works fine
   c = str(12345)
   print *, c(2:3)

   ! nope
   print *, str(12345)(2:3)

   ! this would work if i wrote a substr function
   print *, substr( str(12345), 2, 3 )

contains

   character(len=1064) function str(k)
      ! convert an integer to string
      integer, intent(in) :: k
      write (str, *) k
      str = adjustl(str)
   end function str

end program main

答案

不，您不能对Fortran表达式进行子串或数组索引。函数结果是一个表达式。避免临时的最接近的是使用Fortran 2003中的associate，但是你也不会节省太多代码

associate(c=>str(12345))
  print *,c(2:3)
end associate