How convert string to Unicode?

General
29

It will be escaped as \\U0301, and a solution can be

Private Function EscapedUnicodeToUTF8(escapedString As String) As String

  Const escapeDoubleBackslashes As String = &uFFF9+"\"+&uFFFb
  
  Var UtfString  As String = escapedString.ReplaceAll("\\", escapeDoubleBackslashes)
  
  Var re As new RegEx
  Var match As RegExMatch
  
  re.SearchPattern = "\\[Uu][0-9a-fA-F]{4,4}"
  
  match = re.Search(UtfString)
  
  Do until match = Nil
    Var found, code As String
    found = match.SubExpressionString(0)
    code = Text.FromUnicodeCodepoint(Integer.FromHex(found.Middle(2)))
    UtfString = UtfString.Replace(found, code)
    match = re.Search(UtfString)
  Loop
  
  Return UtfString.ReplaceAll(escapeDoubleBackslashes, "\")
  
End Function