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

超、凢脫俗 2022-06-18 03:13 272阅读 0赞

\#Region "文字列を処理"  
    ''' <summary>  
    ''' 両端空格の削除処理  
    ''' 半角スペース、全角スペースができる  
    ''' </summary>  
    ''' <param name="strText">処理の文字列</param>  
    ''' <param name="FlgSpace">0: (半角スペース + 全角スペース)、1: (半角スペース)</param>  
    ''' <returns>両端空格を削除した文字列</returns>  
    ''' <remarks>両端空格(半角スペース、全角スペース)を削除する</remarks>  
    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

''' <summary>  
    ''' 両端空格の削除処理  
    ''' 半角スペース、全角スペースができる  
    ''' </summary>  
    ''' <param name="strText">処理の文字列</param>  
    ''' <param name="strTrimText">trim:内容</param>  
    ''' <returns>両端空格を削除した文字列</returns>  
    ''' <remarks>両端空格(半角スペース、全角スペース)を削除する</remarks>  
    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