dc_string Module Reference

文字型変数の操作 More...

Data Types
interface	concat
interface	cprintf
interface	cprintft
interface	get_array
interface	index_ofs
interface	lchar
interface	printf
interface	putline
interface	replace
interface	roundnum
interface	split
interface	stoa
interface	stod
interface	stoi
interface	str_to_logical
interface	strhead
interface	strieq
interface	strinclude
interface	tochar
interface	tolower
interface	toupper
interface	uchar

Functions/Subroutines
character(string) function, public	joinchar (carray, expr)
integer function, public	index_ofs (string, start, substr)
recursive character(string) function, public	replace (str, from, to, recursive, start_pos)
character(string) function, public	uchar (ch)
character(string) function, public	lchar (ch)
character(string) function, public	roundnum (num)

Detailed Description

文字型変数の操作

Author

Youhei SASAKI, Yasuhiro MORIKAWA, Eizi TOYODA

Copyright

Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved.
License is BSD-2-Clause. see COPYRIGHT in detail

Important

This file is generated from ../../../../src/dc_utils/dc_string.erb by ERB included Ruby 3.3.8. Please do not edit this file directly.

Function/Subroutine Documentation

index_ofs()

integer function, public dc_string::index_ofs	(	character(len = *), intent(in)	string,
		integer, intent(in)	start,
		character(len = *), intent(in)	substr
	)

オフセット付き部分文字列検索

文字列 string の start 文字目以降の文字列の中に substr の文字列が 含まれている時、その開始文字位置を返します。 含まれない場合は 0 を返します。 返される開始文字位置は文字列 string の先頭から数えます。

Parameters

[in]	string	検索対象の文字列
[in]	start	検索開始位置
[in]	substr	検索する部分文字列

Returns

substr の位置、見つからない場合は 0

Definition at line 1611 of file dc_string.f90.

    character(len = *), intent(in):: string
    integer, intent(in):: start
    character(len = *), intent(in):: substr
    intrinsic index
    if (start < 1) then
      result = 0
      return
    endif
    result = index(string(start: ), substr)
    if (result == 0) return
    result = start + result - 1

joinchar()

character(string) function, public dc_string::joinchar	(	character(*), dimension(:), intent(in)	carray,
		character(*), intent(in), optional	expr
	)

文字配列を区切り文字で連結

文字型配列 carray に与えた複数の文字列をカンマと空白「, 」で 区切った1つの文字列にして返します。 expr に文字列を与えると、その文字列を区切り文字として用います。

Parameters

[in]	carray	連結する文字配列
[in]	expr	区切り文字列（省略可能、デフォルト: ", "）

Returns

連結された文字列

Definition at line 1120 of file dc_string.f90.

    implicit none
    character(*)     , intent(in)           :: carray(:)
    character(*)     , intent(in), optional :: expr
    character(2)     ,parameter :: default = ', '
    character(STRING)           :: delimiter
    integer                     :: dellen, i
  continue
    if ( present(expr) ) then
      delimiter = expr
      dellen = len(expr)
    else
      delimiter = default
      dellen = len(default)
    endif
    if (size(carray) <= 0) then
      result = ""
      return
    endif
    result = trim(carray(1))
    do, i = 2, size(carray)
      result = trim(result) // delimiter(1:dellen) // trim(carray(i))
    enddo

lchar()

character(string) function, public dc_string::lchar

(

character(len = *), intent(in)

ch

)

小文字に変換した文字列を返す

文字列 ch に英字が含まれる場合、その英字を小文字に変換して返します。 英字でない文字や既に小文字になっている文字はそのまま返します。

Parameters

[in]

ch

変換する文字列

Returns

小文字に変換された文字列

Definition at line 1808 of file dc_string.f90.

    character(len = *), intent(in):: ch
  continue
    result = ch
    call tolower(result)

replace()

recursive character(string) function, public dc_string::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

roundnum()

character(string) function, public dc_string::roundnum

(

character(*), intent(in)

num

)

数値文字列の端数を除去

'0.30000001' や '12.999998' などの丸め誤差によって端数が残っている 数値表記を '0.3' や '13.' などに整形して返します。

Parameters

[in]

num

端数を除去する数値文字列

Returns

整形された数値文字列

Definition at line 1831 of file dc_string.f90.

    character(*), intent(in):: num
    character(STRING):: nrv, enrv
    integer:: i, moving_up, nrvi, dig, zero_stream
  continue
    !
    ! 実数でないものについてはそのまま返す.
    !
    if ( scan('.', trim(num) ) == 0  ) then
      result = num
      return
    end if
    nrv = num
    !
    ! 指数部を避けておく.
    !
    enrv = ''
    i = scan(nrv, "eE", back=.true.)
    if ( i > 1  ) then
      enrv = nrv(i:)
      nrv(i:) = " "
    elseif ( i == 1 ) then
      result = nrv
      return
    end if
    !
    ! 0.30000001 などの末尾の 1 のような, ゴミの桁の数値を掃除し,
    ! 0.3000000 などに整形.
    !
    if ( index( trim( nrv ), '.') - len_trim( nrv ) < -7 ) then
      do while ( index('567890.', nrv(len_trim(nrv):len_trim(nrv)) ) == 0 )
        if ( len_trim(nrv) < 2 ) exit
        nrv = nrv(1:len_trim(nrv)-1)
      end do
    end if
    !
    ! 0.30000001986 などの末尾の 1 以降のゴミの桁の数値を掃除し,
    ! 0.3000000 などに整形.
    !
    if ( index( trim( nrv ), '.') - len_trim( nrv ) < -7 ) then
      dig = index( trim( nrv ), '.') + 1
      zero_stream = 0
      do while ( dig < len_trim( nrv ) )
        if ( nrv(dig:dig) == "0" ) then
          zero_stream = zero_stream + 1
        else
          zero_stream = 0
        end if
        if ( zero_stream > 7 ) then
          nrv(dig:len_trim(nrv)) = '0'
          exit
        end if
        dig = dig + 1
      end do
    end if
    !
    ! 0.3000000 などの末尾の 0 を掃除し,
    ! 0.3 などに整形.
    !
    if ( index( trim( nrv ), '.') /= 0 ) then
      do while ( index('123456789.', nrv(len_trim(nrv):len_trim(nrv)) ) == 0 )
        if ( len_trim(nrv) < 2 ) exit
        nrv = nrv(1:len_trim(nrv)-1)
      end do
    end if
    !
    ! 0.89999998 などの末尾の 8 のような, ゴミの桁の数値を掃除し,
    ! 0.8999999 などに整形.
    !
    moving_up = 0
    if ( index( trim( nrv ), '.') - len_trim( nrv ) < -7 ) then
      do while ( index('12345690.', nrv(len_trim(nrv):len_trim(nrv)) ) == 0 )
        if ( len_trim(nrv) < 2 ) exit
        nrv = nrv(1:len_trim(nrv)-1)
      end do
      moving_up = 1
    end if
    !
    ! 0.8999999 などの末尾の 9 を掃除し, 繰り上げて
    ! 0.9 などに整形.
    !
    if ( moving_up > 0 ) then
      do while ( index('012345678.', nrv(len_trim(nrv):len_trim(nrv)) ) == 0 )
        if ( len_trim(nrv) < 2 ) exit
        nrv = nrv(1:len_trim(nrv)-1)
      end do
    end if
    i = len_trim(nrv)
    do while ( moving_up > 0 .and. i > 0 )
      if ( index('.', nrv(i:i)) /= 0 ) then
        i = i - 1
        cycle
      end if
      nrvi = stoi( nrv(i:i) ) + moving_up
      if ( nrvi < 10 ) then
        nrv(i:i) = trim( tochar( nrvi ) )
        exit
      else
        nrv(i:i) = '0'
        if ( i < 2 ) then
          nrv = '10'
          exit
        else
          i = i - 1
          cycle
        end if
      end if
      if ( len_trim(nrv) < 2 ) exit
      nrv = nrv(1:len_trim(nrv)-1)
    end do
    !
    ! 0.3000000 などの末尾の 0 を掃除し,
    ! 0.3 などに整形.
    !
    if ( index( trim( nrv ), '.') /= 0 ) then
      do while ( index('123456789.', nrv(len_trim(nrv):len_trim(nrv)) ) == 0 )
        if ( len_trim(nrv) < 2 ) exit
        nrv = nrv(1:len_trim(nrv)-1)
      end do
    end if
    !
    ! 指数部を復帰する
    !
    if ( len_trim(enrv) > 0 ) then
      nrv = trim(nrv) // enrv
    end if
    result = nrv

uchar()

character(string) function, public dc_string::uchar

(

character(len = *), intent(in)

ch

)

大文字に変換した文字列を返す

文字列 ch に英字が含まれる場合、その英字を大文字に変換して返します。 英字でない文字や既に大文字になっている文字はそのまま返します。

Parameters

[in]

ch

変換する文字列

Returns

大文字に変換された文字列

Definition at line 1785 of file dc_string.f90.

    character(len = *), intent(in):: ch
  continue
    result = ch
    call toupper(result)