How to replace a string to Unicode escape?

How to replace a string to Unicode escape?

[ptmono]

A program returns a unicode value "%uc0ac%ub791". The value can be the
combination of unicode with ascii. For example "%uc0ac%ub791 sarang
%uc0ac%ub791".

The function string-to-multibyte can be used to return the string.

,----
| (string-to-multibyte "\uc0ac\ub791 sarang \uc0ac\ub791")
| "사랑 sarang 사랑"
`----

The *problem* is that how to replace "%" to "\" or "%u" to "\u".

How can return the string from the value?

Thanks



P.S

,----
| (string-to-multibyte "\\uc0ac\\ub791 sarang \\uB098\\uB2E4")
| "\\uc0ac\\ub791 sarang \\uB098\\uB2E4"
| 
| (replace-regexp-in-string "%u" "\\u" "%uc0ac%ub791 sarang %uc0ac%ub791")
| ->>>(error "Invalid use of `\\' in replacement text")
| 
| (replace-regexp-in-string "%" "\\\\" "%uc0ac%ub791 sarang %uc0ac%ub791")
| "\\uc0ac\\ub791 sarang \\uc0ac\\ub791"
`----

Re: How to replace a string to Unicode escape?

[harven]

ptmono <ptmono@gmail.com> writes:

> A program returns a unicode value "%uc0ac%ub791". The value can be the
> combination of unicode with ascii. For example "%uc0ac%ub791 sarang
> %uc0ac%ub791".
>
> The function string-to-multibyte can be used to return the string.
>
> ,----
> | (string-to-multibyte "\uc0ac\ub791 sarang \uc0ac\ub791")
> | "사랑 sarang 사랑"
> `----
>
> The *problem* is that how to replace "%" to "\" or "%u" to "\u".

Here is a ugly hack (use at your own risk)

(defun my-ucs (arg)
  "return unicode character \\uxxxx from string \"%uxxxx\" or return \"\".
   probably fails badly if xxx is not a valid hex code"
    (or 
      (char-to-string
        (decode-char 'ucs
               (string-to-number
                   (substring arg 2) 16)))
      ""))

(replace-regexp-in-string 
     "%u...."
     'my-ucs
     "%uc0ac%ub791 sarang %uc0ac%ub791")

 -->  "사랑 sarang 사랑"

Cheers

Re: How to replace a string to Unicode escape?

[ptmono]

Thanks.


harven <harven@free.fr> writes:
> Here is a ugly hack (use at your own risk)
>
> (defun my-ucs (arg)
>   "return unicode character \\uxxxx from string \"%uxxxx\" or return \"\".
>    probably fails badly if xxx is not a valid hex code"
>     (or 
>       (char-to-string
>         (decode-char 'ucs
>                (string-to-number
>                    (substring arg 2) 16)))
>       ""))
>
> (replace-regexp-in-string 
>      "%u...."
>      'my-ucs
>      "%uc0ac%ub791 sarang %uc0ac%ub791")
>
>  -->  "사랑 sarang 사랑"
>
> Cheers