Thanks to Christian and Guffa. Below is the solution I was able to come up with...
Public Structure HexReplacement
Public HexCharacter As Char
Public Replacement As String
End Structure
Public Shared Function ConvertHexToChar(ByVal hexValue As String) As Char
Dim convertedChar As Char = Nothing
Try
convertedChar = Chr(Int32.Parse(hexValue, Globalization.NumberStyles.HexNumber))
Catch ex As FormatException
' Error handling here....
Catch ex As ArgumentException
' Error handling here....
End Try
Return convertedChar
End Function
Public Function CleanOutHexValues(ByVal dirtyString As String, ByVal hexReplacements As HexReplacement()) As String
Dim cleanString As String = dirtyString
For Each hr As HexReplacement In hexReplacements
cleanString = cleanString.Replace(hr.HexCharacter, hr.Replacement)
Next
Return cleanString
End Function
Public Sub TestHexCharCleanUp()
Dim hr(1) As HexReplacement
hr(0).HexCharacter = ConvertHexToChar("0b") ' "0b" = or single space.
hr(0).Replacement = ""
Dim dirtyString As String = "Testing the removal of "
MsgBox(CleanOutHexValues(dirtyString, hr))
End Sub
Comments will be greatly appreciated. :)
