character*7 c
c='abc?abc'
c(4:4)=char(10)
write(*,"(7a1)")(c(i:i),i=1,7)
end

楼主试一试。

[quote]character*7 c
c='abc?abc'
c(4:4)=char(10)
write(*,"(7a1)")(c(i:i),i=1,7)
end

楼主试一试。[/quote]

昨天研究了一天，在ultraedit中搞清楚了，加上这个achar(13)//achar(10)就行