如何将字符串“04L”变成“04”和"L"？

Question

自从我编写大量 Fortran 代码以来，已经将近 40 年了。如果我有一个字符串：

"04L       "

如何提取数字部分（始终为 2 位数字）、单个字母并忽略尾随空格？我想以两个字符串结束，"04" 和 "L".

我正在修改 Fortran 90 程序。

Answer 1

只需使用索引：str(1:2) 是前两个字符，str(3:3) 是第三个字符。这是一个最小的例子：

program test
  character(len=*),parameter :: str = "04L       "

  print *,str(1:2)
  print *,str(3:3)
end program