改行付きストリングビルダ

''' <summary>
''' 改行付きストリングビルダ
''' </summary>
''' <remarks></remarks>
Public Class sb

    Private m_sb As System.Text.StringBuilder

    Public Sub New()
        m_sb = New System.Text.StringBuilder()
    End Sub

    Public Overrides Function ToString() As String
        Return m_sb.ToString()
    End Function

    Public Function Add(ByVal wp_String As String, ByVal ParamArray wp_Args() As Object)
        m_sb.AppendFormat(wp_String, wp_Args)
        m_sb.Append(ControlChars.CrLf)
        Return m_sb
    End Function

    Public Function ToStringRemoveLastCrLf() As String
        Dim ret As String = m_sb.ToString
        If ret.Length >= vbCrLf.Length Then
            Dim i As Integer = ret.Length - vbCrLf.Length
            Dim w As String = ret.Substring(i)
            If w = vbCrLf Then
                ret = ret.Substring(0, i)
            End If
        End If
        Return ret
    End Function

    Public Sub cb()
        Clipboard.SetText(m_sb.ToString())
    End Sub

End Class