vb.net 字符两端去除半角和全角空格_vb optional as string = string.empty-优快云博客

本文链接：https://blog.youkuaiyun.com/shuicaohui5/article/details/6804430

本文介绍了一种高效的字符串处理方法，旨在去除字符串两端的空格（包括半角和全角空格），并提供两种实现方式。通过自定义函数，可以灵活地针对不同场景进行字符串优化。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#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