VBCRLF Trim

[AlexanderBB]

I have a need to remove any leading or trailing VBCRLF characters from a string.
What I have is this, but there may be a better way ?

If Len(str) > 0 Then
    Do
        Select Case Asc(Right(str, 1))
            Case 13, 10
                str = Left(str,Len(str)-1)
            Case Else
                Exit Do
        End Select
    Loop Until Len(str) = 0
End If
TheTrim = str

Then do something similar to the start of the string.
But I wonder if that's the best/fastest approach ?
Must also handle a single CR or LF.

 

[Peter_SSs]

Not suggesting this is necessarily better but you could remove all leading & trailing instances of both characters at once rather than dealing with one character at a time and one end at a time.

Sub Test()
  Dim RX As Object
  Dim str As String, TheTrim As String
  
  str = Chr(10) & Chr(13) & Chr(10) & "abc" & Chr(13) & Chr(10) & "def" & Chr(13)
  
  Set RX = CreateObject("VBScript.RegExp")
  RX.Global = True
  RX.Pattern = Replace("(^[#]*)|([#]*$)", "#", Chr(10) & Chr(13))
  TheTrim = RX.Replace(str, "")
End Sub

 

[Micron]

If the value is in a cell AFAIK, you only would need to test for vblf (ascii 10). Same thing as if you were to pass the cell value to a string variable.

 

[AlexanderBB]

That's very good , thank you. It feels much more efficient
The string is extracted from a comment (Note) and should never have a CR, I was just making sure.
Will test a few with just vblf.

Much appreciated.

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.