Tags: | Categories: ASP.Net, VB.Net Posted by Christoph on 5/17/2010 3:12 PM | Comments (0)

Wenn Sonderzeichen, die z.B. aus einem Silverlight-Control kommen, noch numerische HTML Entities haben, also sowas wie “ü”, kann man das mit folgender Funktion in echte ANSI Zeichen konvertieren:

Public Shared Function CleanNumericEntities(ByVal InText As String) As String
    Return Regex.Replace(InText, "&#\d{3};", New MatchEvaluator(AddressOf ReplaceNumericHTML))
End Function

Private Shared Function ReplaceNumericHTML(ByVal Ma As Match) As String
    Dim Val = Ma.Value.Substring(2, 3)
    If IsNumeric(Val) Then Return Chr(Val)
    Return "?"
End Function