回 帖 发 新 帖 刷新版面

主题:把一行字符读入string中,如何对string中的字符判定

character(len=60)  string

!总共21行字符串
do i=1,21
read (fileie, '(a)') string
write(17,*) string
end do


如何将string中的字母取出来呢,如果是string数组可以string(1)。。sting(10)
但string字符串如何处理呢

回复列表 (共2个回复)

沙发


string(1:1),string(2:2),...string(i:i),...

板凳

integer :: i,j,length
character(len=1) :: a
character(len=60) ::string

!总共21行字符串
do i=1,21
 read (fileie, '(a)') string
 write(17,*) string
 length=len_trim(string)
 do j=1,length
   a=string(j:j)
   ! if (...) then
   !  ...
   ! else if(...) then
   !  ...
   ! else
   ! ...
   ! endif 
 enddo
end do

我来回复

您尚未登录,请登录后再回复。点此登录或注册