Question

fortran 如何判断某一字符串中某几位，如abcdefg中2到4位是不是bcd

Answer 1

s='abcdefg'
if 'bcd'==s[1:4]:
	print(True)
	print(s[1:4])
else:
	print(False)

追答

character c*10,d*3
c='abcdefg'
call conv(c,d)
if (d.eq.'bcd') then
write(*,*) d, ' yes'
else
write(*,*) d
endif
stop
end
subroutine conv(c,d)
character c(10)*1,d(3)*1
do 10 i=2,4
d(i-1)=c(i)
10 continue
return
end

在主程序中是字符串，在子程序中是字符数组。用字符数组可以灵活处理。