vba メッセージ構築処理まわり

文字列操作系の関数

'------------------------------------------------------------------------------
' ファイル名
'------------------------------------------------------------------------------
' 説明
'------------------------------------------------------------------------------
' Date       Name         Desc
'------------------------------------------------------------------------------
' YYYY/MM/DD vb tarou     新規作成
'------------------------------------------------------------------------------
Option Explicit

Public Function MyJoin(arr As Variant)

    Dim i As Integer
    Dim res As String
    For i = 0 To UBound(arr)
        If arr(i) <> "" Then
            res = res & arr(i) & ","
        End If
    Next
    If Len(res) > 0 Then
        res = Mid(res, 1, Len(res) - 1)
    End If
    MyJoin = res
End Function

Public Function MessageBuilder(str As String, param As Variant) As String

    Dim i As Integer
    Dim res As String
    
    res = str
    For i = 0 To UBound(param)
        res = Replace(res, "{" & i & "}", param(i))
    Next i
    
    MessageBuilder = res

End Function