Fortran提供了豐富的字符串處理功能,可以用于處理字符串的各種操作。以下是一些常見的字符串處理功能及其應用:
character(len=20) :: str1, str2, result
str1 = 'Hello'
str2 = 'World'
result = str1 // ' ' // str2
print *, result
character(len=10) :: str
str = 'Hello'
print *, len(str)
character(len=10) :: str1, str2
str1 = 'Hello'
str2 = 'World'
if (str1 == str2) then
print *, 'Strings are equal'
else
print *, 'Strings are not equal'
end if
character(len=20) :: str, sub_str
integer :: pos
str = 'Hello World'
sub_str = 'World'
pos = index(str, sub_str)
print *, 'Position of sub string:', pos
character(len=20) :: str
character(len=20) :: words(2)
str = 'Hello World'
words = split(str, ' ')
print *, words(1)
print *, words(2)
這些是Fortran中常見的字符串處理功能及其應用,可以根據具體需求選擇合適的方法進行字符串處理。