Question

我有一个函数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

Answer 1

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

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

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

1 个答案: