Binaryworld - StripControlChars - Delete control characters in a string ... [ VB.net -> String ]

' Strip all control characters (ASCII code < 32)
'
' If the second argument is True or omitted,
' CR-LF pairs are preserved

Function StripControlChars(ByVal source As String, Optional ByVal KeepCRLF As _
  Boolean = True) As String
  ' we use this to build the result
  Dim sb As New System.Text.StringBuilder(source.Length)

  Dim index As Integer
  For index = 0 To source.Length - 1
    If Not Char.IsControl(source, index) Then
      ' not a control char, so we can add to result
      sb.Append(source.Chars(index))
    ElseIf KeepCRLF AndAlso source.Substring(index, _
      2) = ControlChars.CrLf Then
      ' it is a CRLF, and the user asked to keep it
      sb.Append(source.Chars(index))
    End If
  Next

  Return sb.ToString()
End Function