#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