vb.net 字符两端去除半角和全角空格

 

#Region "文字列を処理"
    '''

    ''' 両端空格の削除処理
    ''' 半角スペース、全角スペースができる
    '''

    ''' 処理の文字列
    ''' 0: (半角スペース + 全角スペース)、1: (半角スペース)
    ''' 両端空格を削除した文字列
    ''' 両端空格(半角スペース、全角スペース)を削除する
    Public Overloads Shared Function PFN_Trim(ByVal strText As String, Optional ByVal FlgSpace As Integer = 0) As String

        Dim strRtn As String = String.Empty

        '0: (半角スペース + 全角スペース)
        If FlgSpace = 0 Then
            strRtn = PFN_Trim(strText, "　")
            '1: (半角スペース)
        Else
            strRtn = PFN_Trim(strText, " ")
        End If

        Return strRtn

    End Function

    '''

    ''' 両端空格の削除処理
    ''' 半角スペース、全角スペースができる
    '''

    ''' 処理の文字列
    ''' trim:内容
    ''' 両端空格を削除した文字列
    ''' 両端空格(半角スペース、全角スペース)を削除する
    Public Overloads Shared Function PFN_Trim(ByVal strText As String, ByVal strTrimText As String) As String

        Dim strTmp As String = strText.Trim

        'MsgBox(strText.Replace(strTrimText, "▲").Replace(" ", "△"))
        While strTmp.StartsWith(strTrimText) = True OrElse strTmp.EndsWith(strTrimText) = True

            If strTmp.StartsWith(strTrimText) = True Then
                strTmp = strTmp.Substring(1, strTmp.Length - 1).Trim
            End If

            If strTmp.EndsWith(strTrimText) = True Then
                strTmp = strTmp.Substring(0, strTmp.Length - 1).Trim
            End If

        End While

        'Return strTmp.Replace(strTrimText, "▲").Trim
        Return strTmp.Trim
    End Function
#End Region