|
#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 （编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
