191问答库 > Fortran 将一个字符串中的前导空格,后置空格以及中间空格去掉,得到一个新的字符串后输出

Fortran 将一个字符串中的前导空格,后置空格以及中间空格去掉,得到一个新的字符串后输出

2025-04-21 20:43:57

推荐回答（1个）

回答1：

program main
implicit none
character(len=100) :: string,string1
integer :: strlen, i,k=0

write(*,*) "请输入一个字符串（长度从1到100）："
read(*,*) string
strlen=len_trim(string)
ms:do i=1,strlen,1
if(string(i:i) == '') then
cycle ms
else
k=k+1
string1(k:k)=string(i:i)
end if
end do ms

write(*,*) strlen,string1

stop
END