Fortran 中，你可以使用内部文件（internal file）的方式将内容追加写入到一个字符串

在 Fortran 中，你可以使用内部文件（internal file）的方式将内容追加写入到一个字符串。内部文件允许你像操作外部文件一样操作字符串变量。

以下是几种实现字符串追加写入的方法：

方法1：使用字符串连接符 //（最简单）

character(len=100) :: str = "Hello"
str = trim(str) // " World!"
print *, str  ! 输出: Hello World!

方法2：使用内部文件写入（更灵活）

character(len=100) :: str = "Initial text"
integer :: length

! 获取当前字符串的实际长度（不含尾部空格）
length = len_trim(str)

! 使用内部文件写入追加内容
write(str(length+1:), '(A)') " - appended text"

print *, str  ! 输出: Initial text - appended text

方法3：使用可分配字符串（Fortran 2003+）

character(:), allocatable :: str

str = "Start"
str = str // " and continuation"

! 或者使用内部文件方式
write(str, '(A)') trim(str) // " with more text"

print *, str

注意事项：

1. 固定长度字符串需要确保有足够的空间容纳追加的内容
2. trim() 函数用于移除尾部空格
3. len_trim() 返回字符串的实际长度（不含尾部空格）
4. 对于可分配字符串，每次追加会自动调整长度（Fortran 2003+特性）

完整示例：

program string_append
    implicit none
    character(len=50) :: str = "Line 1"
    character(:), allocatable :: alloc_str
    
    ! 固定长度字符串追加
    write(str(len_trim(str)+1:), '(A)') ", Line 2"
    print *, trim(str)
    
    ! 可分配字符串追加
    alloc_str = "Dynamic "
    alloc_str = alloc_str // "string"
    write(alloc_str, '(A)') trim(alloc_str) // " append"
    print *, alloc_str
end program string_append

输出：

Line 1, Line 2
Dynamic string append

选择哪种方法取决于你的具体需求和使用Fortran的版本。可分配字符串（方法3）最为灵活但需要较新的编译器支持。