文字列から指定した文字列の左側・右側のみ抽出する関数

VBAのLeft関数とRight関数に少し手を加えた関数を作成しました。

以下のような使い方をします。

bar = right_get("aaabbbccc","bbb") 'bar="ccc"が入る
bar = leght_get("aaabbbccc","bbb") 'bar="aaa"が入る

文字列から指定した文字列の右側のみ抽出する関数

Function right_get(ByVal FULL_TXIT As String, ByVal DELIMITER As String) As String
' 文字列から、指定した文字列の右側のみ抽出する関数

    'FULL_TXIT 抽出元の全文
    'DELIMITER 区切り文字

    Dim ANS '戻り値
    Dim FULL_TXIT_LEN '抽出元の全文の文字数
    Dim DELIMITER_LEN '区切り文字の文字数
    
    FULL_TXIT_LEN = Len(FULL_TXIT)
    
    DELIMITER_LEN = Len(DELIMITER)
    
    ANS = Right(FULL_TXIT, FULL_TXIT_LEN - InStr(FULL_TXIT, DELIMITER) - (DELIMITER_LEN - 1))
    
    right_get = ANS
    
End Function

文字列から指定した文字列の左側のみ抽出する関数

Function left_get(ByVal FULL_TXIT As String, ByVal DELIMITER As String) As String
' 文字列から、指定した文字列の左側のみ抽出する関数

    'FULL_TXIT 抽出元の全文
    'DELIMITER 区切り文字
  
    Dim ANS '戻り値
    Dim FULL_TXIT_LEN '抽出元の全文
    Dim DELIMITER_LEN '区切り文字
    
    FULL_TXIT_LEN = Len(FULL_TXIT)
    DELIMITER_LEN = Len(DELIMITER)
    
    ANS = Left(FULL_TXIT, InStr(FULL_TXIT, DELIMITER) - 1)
    
    left_get = ANS
    
End Function