Language: RemoveInvalidCharacters catches exceptions

This commit is contained in:
Jonathan Jenne 2021-08-02 11:56:45 +02:00
parent 8d1dddb101
commit 850cbb2973

View File

@ -124,6 +124,7 @@ Public Class Utils
Public Shared Function RemoveInvalidCharacters(pString As String) As String Public Shared Function RemoveInvalidCharacters(pString As String) As String
Dim oResult = pString Dim oResult = pString
Try
' Remove all Unicode above Codepoint U+10000 ' Remove all Unicode above Codepoint U+10000
oResult = Regex.Replace(oResult, InvalidChars.UnicodeSurrogates, String.Empty) oResult = Regex.Replace(oResult, InvalidChars.UnicodeSurrogates, String.Empty)
@ -144,6 +145,9 @@ Public Class Utils
oResult = oResult.Trim() oResult = oResult.Trim()
Return oResult Return oResult
Catch ex As Exception
Return oResult
End Try
End Function End Function
''' <summary> ''' <summary>