dc_string::split Interface Reference

Public Member Functions
subroutine	split_cc (str, carray, sep, limit)

Detailed Description

Definition at line 170 of file dc_string.f90.

Member Function/Subroutine Documentation

split_cc()

subroutine dc_string::split::split_cc	(	character(*), intent(in)	str,
		character(*), dimension(:), pointer	carray,
		character(*), intent(in)	sep,
		integer, intent(in), optional	limit
	)

文字列を区切り文字で分割

str で与えられた文字列を文字列 sep で分解し、 ポインタ配列 carray に返します。 carray は必ず空状態にして与えてください。 割り付け状態の場合にはエラーを返します。 limit に正の数を与えた場合、最大 limit 個のフィールドに分割します。 負の数や 0 の場合は省略した場合と同じになります。 str の末尾の空白は除去されます。 sep に空文字を代入する場合、空白文字で分割されます。

Parameters

[in]	str	分割する文字列
[out]	carray	結果のポインタ配列
[in]	sep	区切り文字列
[in]	limit	最大フィールド数（省略可能）

Definition at line 1509 of file dc_string.f90.

    use dc_types, only: string
    implicit none
    character(*), intent(in):: str
    character(*), pointer:: carray(:) !(out)
    character(*), intent(in):: sep
    integer, intent(in), optional:: limit
    integer :: num, cur, i, limitnum
    character(STRING) :: substr
    logical :: end_flag
  continue
    if (present(limit)) then
      if (limit > 0) then
        limitnum = limit
      else
        limitnum = 0
      end if
    else
      limitnum = 0
    end if
    if (len(trim(sep)) == 0) then
      num = 1
      substr = str
      ! 重複して無駄だが carray を allocate するため, 何分割するか
      ! 調べ, num に格納する.
      do
        cur = index(trim(substr), ' ')
        if (cur == 0) exit
        num = num + 1
        substr = adjustl(substr(cur + len(sep) :len(substr)))
      end do
      if (limitnum /= 0 .and. num > limitnum) num = limitnum
      allocate(carray(num))
      substr = str
      end_flag = .false.
      do i = 1, num
        cur = index(trim(substr), ' ')
        if (cur == 0 .or. i == num) end_flag = .true.
        if (end_flag) then
          carray(i) = substr
          exit
        else
          carray(i) = substr(1:cur - 1)
        end if
        substr = adjustl(substr(cur + len(sep) :len(substr)))
      end do
    else
      num = 1
      substr = str
      ! 重複して無駄だが carray を allocate するため, 何分割するか
      ! 調べ, num に格納する.
      do
        cur = index(substr, trim(sep))
        if (cur == 0) exit
        num = num + 1
        substr = substr(cur + len(sep) :len(substr))
      end do
      if (limitnum /= 0 .and. num > limitnum) num = limitnum
      allocate(carray(num))
      substr = str
      end_flag = .false.
      do i = 1, num
        cur = index(substr, trim(sep))
        if (cur == 0 .or. i == num) end_flag = .true.
        if (end_flag) then
          carray(i) = substr
          exit
        else
          carray(i) = substr(1:cur - 1)
        end if
        substr = substr(cur + len(sep) :len(substr))
      end do
    end if
    return

References dc_types::string.

---

The documentation for this interface was generated from the following file:

• /build/gtool5-1.0.0~rc5/debian/build-parallel/src/dc_utils/dc_string.f90