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

#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