[编程交流] 如何读取UTF-8编码？

Can't display "[color="red"]ດິນບຸກຄົນ[/color]" ?
[color="green"];;;(setq remark (vk_ReadTextStream "C:/test.txt" "UTF-8"))[/color]
[color="green"];Try alternative way manually copy text from text file then paste[/color]
(setq [b]remark[/b] ([color="blue"]getstring [/color] "\nPaste our text here -> "))
[color="green"];"\U+0E94\U+0EB4\U+0E99\U+0E9A\U+0EB8\U+0E81\U+0E84\U+0EBB\U+0E99"[/color]
[color="green"];or dialog [/color]
(setq [b]remark[/b] (lisped "paste here ") )

(setq f (open path "r"))
(setq ret (read-line f))[color="green"] ;<--test only 1st line[/color]
(if f (close f))

(defun foo ( str ) ; read unicode - test version 
hanhphuc 17.04.2018 
 (apply 'strcat
(mapcar
          ''( ( x ) (apply 'strcat (vl-list* (chr 92) "U+" (mapcar ''( (x / $)  (setq $ ( LM:dec->base x 16))
                                          (if (or (< x 10) (=(strlen $)1)) (strcat "0" $) $) )
                                    (reverse x)
                                )
                   )
               )
                )
        
        (
         '( ( f ) (f (vl-remove-if
                      '(lambda (x) (vl-some '(lambda (y)
                                               (= x y)
                                               )
                                           '( 254 255 ))
                                      )
                        (vl-string->list str)
                      )
                   )
                        )
          '( ( l ) (if l (cons (list (car l)(cadr l))
                                (f (cddr l)))
                   )
            )
        )        
)
 )
)
;; Decimal to Base  -  Lee Mac
;; Converts a decimal number to another base.
;; n - [int] decimal integer
;; b - [int] non-zero positive integer base
;; Returns: [str] Representation of decimal in specified base
(defun LM:dec->base ( n b )
   (if (< n b)
       (chr (+ n (if (< n 10) 48 55)))
       (strcat (LM:dec->base (/ n b) b) (LM:dec->base (rem n b) b))
   )
)

(alert (foo ret ) ) 
[b][color="red"]ດິນບຸກຄົນ[/color][/b] ??
[color="green"]"\U+0E94\U+0EB4\U+0E99\U+0E9A\U+0EB8\U+0E81\U+0E84\U+0EBB\U+0E99" [/color]

                               
登录/注册后可看大图

[color="green"];Reference, post#138 
;https://stackoverflow.com/questions/643694/what-is-the-difference-between-utf-8-and-unicode[/color]
(defun [color="blue"]UTF8->unicode[/color] ( l / ls 8b d2 foo) ; encode UTF-8 to unicode
[color="green"];;;hanhphuc 17.04.2018 [/color]
 (setq        8b '((s) (while (< (strlen s)  (setq s (strcat "0" s))) s) 
        d2 '((str) ;split string to two list  
                 (if (> (strlen str) 0)
                   (cons (substr str 1  (d2 (setq str (substr str 9 ))))
                   )
             )
foo '(($ / pos i) ; base2 to decimal 
                 (setq i 0)
                 (+ (cond ((while (and (> (strlen $) 0) (setq pos (vl-string-search "1" $)))
                              (setq         $ (substr $ (+ 2 pos))
                                   i (+ i (expt 2 (strlen $)))
                            )
                           )
                      )
                   (0)
                 )
                       (atoi $)
                           )
             )
         ls (mapcar ''((x / $) 
              (setq $ (LM:dec->base (foo x) 16))
              (if
               (= (strlen $) 1)
               (strcat "0" $)
               $
               )
              )
           (d2 
             (apply 'strcat
                    (mapcar ''((a x) (substr (8b a) (- 9 x) x))
                            l
                            (cdr (assoc (length l) '((1 . (7)) (2 . (5 6)) (3 . (4 6 6)) (4 . (3 6 6 6)))))
                            )
                    )
             ) 
           ) 
)
 (apply 'strcat
 (vl-list* "\\U"
          (if (> (length ls) 1)
         "+"
         "+00")
       ls
       )
 )
 )
(defun [color="blue"]U8:bytes[/color] (l / x ls)
 [color="green"];hanhphuc 17.04.2018[/color]
 ;UTF-8 split the bytes 
 (setq x (car l))
 (if l
   (cons (vl-remove nil (cond        ((<= 0 x 191)
         (setq ls (list x)
               l  (cdr l)
               )
         ls
         )
        ((<= 192 x 223)
         (setq ls (list x (cadr l))
               l  (cddr l)
               )
         ls
         )
        ((<= 224 x 239)
         (setq ls (list x (cadr l) (caddr l))
               l  (cdddr l)
               )
         ls
         )
        ((<= 240 x 247)
         (setq ls (list x (cadr l) (caddr l) (cadddr l))
               l  (cddddr l)
               )
         ls
         )
        )
    )
  (U8:bytes l)
  )
   ) 
 )

(setq ret [b][color="purple"]"Lee Mac & Marko Ribar\r\nHappy Birthday\r\n祝ä½*们生日快乐\r\n幸福\r\nChúc mừng sinh nháº*t\r\n"[/color][/b]
     )