在Fortran中处理字符串可以通过使用内置的字符类型和字符串处理函数来实现。以下是一些基本的字符串操作示例:
character(len=100) :: str1 = "Hello, World!"
length(str1) ! 返回字符串长度,结果为10
character(len=100) :: str2 = "Goodbye, "
str1 = str1 // str2 ! 将str2连接到str1的末尾
if (str1 == "Hello, World!") then
print *, "str1 is equal to 'Hello, World!'"
endif
index(str1, "World") ! 返回"World"在str1中首次出现的位置,结果为7
replace(str1, "World", "Fortran") ! 将str1中的"World"替换为"Fortran"
character(len=100) :: delimiter = " "
character(len=100) :: token
integer :: i, start, end
start = 1
end = index(str1, delimiter)
do i = 1, len(str1) / len(delimiter) - 1
token = str1(start:end-1)
start = end + len(delimiter)
end = index(str1(start:), delimiter)
print *, token
end do
这些示例展示了如何在Fortran中执行基本的字符串操作。在实际应用中,可能需要根据具体需求进行更复杂的字符串处理。