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
	)

Replace substring in string

If string from is included in str, replaces it with string to and returns. If from is not included, returns str without change. When multiple from are included, only the first one is replaced. To replace all from to to, give .true. to optional argument recursive. By default, the string is searched from the top. If optional argument start_pos is given, the search starts from start_pos.

Parameters

[in]	str	Source string
[in]	from	String to find
[in]	to	Replacement string
[in]	recursive	If .true., replace all occurrences (optional)
[in]	start_pos	Starting position for search (optional)

Returns

Replaced string

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