读一个txt文件（UTF-8）,分行读入，不乱码。

null.

解决读一个txt文件（UTF-8）,分行读入，不乱码。
e:\\123.txt
设置为二进制模式
设置3为二进制模式
设置为4二进制模式

2. (defun read-utf8-file (sm / binarystream file filestream lines pos size str)
   
3.   (setq file "e:\\123.txt")
   
4.   (setq binarystream (vlax-create-object "Adodb.Stream"))
   
5.   (vlax-invoke binarystream 'Open)
   
6.   (vlax-invoke-Method binarystream 'LoadFromFile file)
   
7.   
   
8.   (vlax-put-property binarystream 'Type 2) ; 2文本模式读取
   
9.   (vlax-put-property binarystream 'Charset "utf-8")
   
10.   (vlax-put-property binarystream 'Position 2);将位置重置为起始位置
    
11.   (setq str (Vlax-Invoke-Method binarystream 'ReadText nil))
    
12.   (vlax-invoke binarystream 'flush)
    
13.   (vlax-invoke binarystream 'Close)   
    
14.   (vlax-release-object binarystream)
    
15.   (while (setq pos (vl-string-search "\r\n" str))
    
16.     (setq lines (cons (substr str 1 pos) lines))
    
17.     (setq str (substr str (+ pos 3)))
    
18.   )
    
19.   (reverse (cons str lines))
    
20. )

(defun read-utf8-file (sm / binarystream file filestream lines pos size str)<br />   (setq file "e:\\123.txt")<br />   (setq binarystream (vlax-create-object "Adodb.Stream"))<br />   (vlax-invoke binarystream 'Open)<br />   (vlax-invoke-Method binarystream 'LoadFromFile file)<br />   <br />   (vlax-put-property binarystream 'Type 2) ; 2文本模式读取<br />   (vlax-put-property binarystream 'Charset "utf-8")<br />   (vlax-put-property binarystream 'Position 2);将位置重置为起始位置<br />   (setq str (Vlax-Invoke-Method binarystream 'ReadText nil))<br />   (vlax-invoke binarystream 'flush)<br />   (vlax-invoke binarystream 'Close)   <br />   (vlax-release-object binarystream) <br />   (while (setq pos (vl-string-search "\r\n" str))<br />     (setq lines (cons (substr str 1 pos) lines))<br />     (setq str (substr str (+ pos 3)))<br />   )<br />   (reverse (cons str lines))<br /> )

• (read-utf8-file nil)
  ("设置为二进制模式" "设置3为二进制模式" "设置为4二进制模式")