devxlogo

StripControlChars – Delete control characters in a string

StripControlChars – Delete control characters in a string

' Strip all control characters (ASCII code < 32)'' If the second argument is True or omitted,' CR-LF pairs are preservedFunction StripControlChars(source As String, Optional KeepCRLF As Boolean = _    True) As String    Dim index As Long    Dim bytes() As Byte        ' the fastest way to process this string    ' is copy it into an array of Bytes    bytes() = source    For index = 0 To UBound(bytes) Step 2        ' if this is a control character        If bytes(index) < 32 And bytes(index + 1) = 0 Then            If Not KeepCRLF Or (bytes(index) <> 13 And bytes(index) <> 10) Then                ' the user asked to trim CRLF or this                ' character isn't a CR or a LF, so clear it                bytes(index) = 0            End If        End If    Next        ' return this string, after filtering out all null chars    StripControlChars = Replace(bytes(), vbNullChar, "")            End Function

devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist