数据分割函数

cdq872

fortran没有数据分割函数，很不方便，这里是一个常用的字符串数据分割函数，直接贴出，免得大家麻烦。
!// ==============================================
subroutine SpiltString_str(str, Space, string_A, ND)
  ! ********   ********
  ! string_A(ND): 字符串str分割后的数组，ND为维数
  ! Space : 分隔符
  ! ********   ********
implicit none
character(len = *), intent(in) :: str,Space         
character(len = 50), intent(out) :: string_A(24)
integer, intent(out) :: ND
! *** *** *** *** *** immediate variable *** *** *** *** ***
logical:: LFT
character(len = 1):: ch
integer:: iL   ! for loop
character(len = len(str)):: cstr
integer:: str_len
integer:: bi(size(string_A))   ! begin index
integer:: ei(size(string_A))   ! end index
      ND = 0   
    cstr = adjustL(str)      
    str_len = len_trim(cstr)
    if ( str_len == 0 ) return
  
    LFT = .true.   
    Do iL = 1, str_len, 1
      ch = cstr(iL : iL)
      If ( ch /= Space .and. LFT ) Then
        ND = ND + 1
        LFT = .false.
        bi(ND) = iL      
      Else If ( (ch == Space) .and. (.not. LFT) ) Then
        LFT = .true.   
        ei(ND) = iL - 1   
      End If   
    End Do      
    ei(ND) = str_len      
      
      Do iL = 1, ND, 1
   string_A(iL) = cstr(bi(iL) : ei(iL))
      End Do   ! iL
      
      string_A(ND + 1 : size(string_A)) = 0
  return  
end subroutine SpiltString_str
!// ==============================================
subroutine DataNo(str, ND)
  ! ***************************
  ! 字符串str中包含的数据段数ND
  ! 分隔符为空格
  ! ***************************
implicit none
character(len = *), intent(in):: str
integer, intent(out):: ND
! *** *** *** *** *** immediate variable *** *** *** *** ***
logical:: LFT
character(len = 1):: ch
integer:: iL   ! for loop
character(len = len(str)):: cstr
integer:: str_len
   
    cstr = adjustL( str )
    ND = 0
    str_len = len_trim(cstr)
    IF ( str_len > 0 ) THEN   
      LFT = .true.   
      Do iL = 1, str_len, 1
        ch = cstr(iL : iL)
        If ( (ch /= " ") .and. LFT ) Then
          ND = ND + 1
          LFT = .false.
        Else If ( (ch == " ") .and. (.not. LFT) ) Then  
          LFT = .true.   
        End If   !
      End Do      
    END IF   ! str_len > 0
   
  return  
end subroutine

mofangbao

谢谢分享~，曾经写过一个更简洁点的，不过没有对比，可能功能不如你发的这个
http://bbs.06climate.com/forum.php?mod=viewthread&tid=4632

topmad

fortran 对字符串的处理能把人纠结死

言深深

楼主是对字符串进行分割？这个题目看的不是很明白