Fortran 访问字符子串
示例
对于角色实体
character(len=5), parameter :: greeting = "Hello"
子串可以用语法引用
greeting(2:4) ! "ell"
要访问单个字母，仅写是不够的
greeting(1) ! This isn't the letter "H"
但
greeting(1:1) ! This is "H"
对于字符数组
character(len=5), parameter :: greeting(2) = ["Hello", "Yo! "]
我们有子字符串访问
greeting(1)(2:4) ! "ell"
但是我们不能引用不连续的字符
greeting(:)(2:4) ! The parent string here is an array
我们甚至可以访问文字常量的子字符串
"Hello"(2:4)
字符变量的一部分也可以通过使用子字符串作为变量来定义。例如
integer :: i=1 character :: filename = 'file000.txt' filename(9:11) = 'dat' write(filename(5:7), '(I3.3)') i