dc_string::replace Interface Reference

Public Member Functions
recursive character(string) function	replace (str, from, to, recursive, start_pos)

Detailed Description

Definition at line 178 of file dc_string.f90.

Constructor & Destructor Documentation

replace()

recursive character(string) function dc_string::replace::replace	(	character(*), intent(in)	str,
		character(*), intent(in)	from,
		character(*), intent(in)	to,
		logical, intent(in), optional	recursive,
		integer, intent(in), optional	start_pos
	)

文字列の置換

文字列 str に文字列 from が含まれる場合、その部分を文字列 to に置換して返します。 文字列 from が含まれない場合は str をそのまま返します。 from が複数含まれる場合、先頭の from のみが置換されます。 全ての from を to へ変換したい場合には、 オプショナル引数 recursive に .true. を与えてください。 デフォルトでは、文字列の最初から検索を行います。 オプショナル引数 start_pos を与える場合、start_pos 文字目から検索を行います。

Parameters

[in]	str	元の文字列
[in]	from	検索する文字列
[in]	to	置換後の文字列
[in]	recursive	.true.の場合、全ての出現箇所を置換（省略可能）
[in]	start_pos	検索開始位置（省略可能）

Returns

置換後の文字列

Definition at line 1658 of file dc_string.f90.

    use dc_types, only: string
    implicit none
    character(STRING):: result
    character(*), intent(in):: str, from, to
    logical, intent(in), optional:: recursive
    integer, intent(in), optional:: start_pos
    integer:: sp
    integer:: i, isa, isb, iea, ieb
    integer:: ir
    continue
    if ( present(start_pos) ) then
      sp = start_pos
    else
      sp = 1
    end if
    if ( sp < 1 ) then
      sp = 1
    end if
    result = str
    i = index(result(sp:), from)
    if (i == 0) return
    i = i + sp - 1
    isa = i + len(from)
    isb = i + len(to)
    if (len(to) < len(from)) then
      iea = len(result)
      ieb = len(result) + len(to) - len(from)
    else
      iea = len(result) + len(from) - len(to)
      ieb = len(result)
    endif
    if (len(to) /= len(from)) result(isb:ieb) = result(isa:iea)
    result(i:i+len(to)-1) = to
    !-----------------------------------
    !  再帰的処理
    !  Recursive process
    ir = index(result(i+len(to):), from)
    if ( len_trim(from) == 0 ) then
      ir = index(trim(result(i+len(to):)), from)
    end if
    if (ir /= 0) then
      if ( present(recursive) ) then
        if ( recursive ) then
          result = replace( str = result, &
            &               from = from, to = to, &
            &               recursive = recursive, &
            &               start_pos = i+len(to) )
        end if
      end if
    end if

References dc_types::sp, and 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