读一个txt文件（UTF-8）,分行读入，不乱码。和判断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二进制模式")
  

null.

加一个判断TXT是否为UTF-8

2. (defun c:CheckUTF8 (/ binarystream bomFlag byte1 byte2 byte3 check_continuation_byte fHandle filePath str1 str2 utf8Flag)
   
3.   (defun check_continuation_byte ( dd / byte)
   
4.     (setq byte (car str2))
   
5.     (setq str2 (cdr str2))
   
6.     (if (and byte (<= 128 byte 191)) t nil)
   
7.   )
   
8.   (setq filePath (getfiled "选择TXT文件" "" "txt" 16))
   
9.   (if filePath
   
10.     (progn
    
11.       (setq binarystream (vlax-create-object "Adodb.Stream"))
    
12.       (vlax-put-property binarystream 'Type 1)
    
13.       (vlax-put-property binarystream 'Mode 3)
    
14.       (vlax-invoke binarystream 'Open)
    
15.       (vlax-put-property binarystream 'Position 0)
    
16.       (vlax-invoke-Method binarystream 'LoadFromFile filePath)  
    
17.       (setq str1 (Vlax-Invoke-Method binarystream 'Read nil))
    
18.       ;(setq str1 (Vlax-Invoke-Method binarystream 'Read 3))      
    
19.       (vlax-invoke binarystream 'flush)
    
20.       (vlax-invoke binarystream 'Close)
    
21.       (vlax-release-object binarystream)
    
22.       (setq str2 (vlax-safearray->list (vlax-variant-value str1) ))
    
23.       ;(setq fHandle (open filePath "rb")) ; 二进制方式打开文件
    
24.       (setq bomFlag nil
    
25.         utf8Flag t)
    
26.       
    
27.       ; 阶段一：BOM头判断 [1]()
    
28.       (setq byte1 (nth 0 str2)
    
29.         byte2 (nth 1 str2)
    
30.         byte3 (nth 2 str2))
    
31.       (if (and (= byte1 239) (= byte2 187) (= byte3 191))
    
32.         (setq bomFlag t)
    
33.         (progn
    
34.           ; 无BOM时回退到起始位置
    
35.          
    
36.           (setq str2 (vlax-safearray->list (vlax-variant-value str1) ))
    
37.         )
    
38.       )
    
39.       
    
40.       ; 阶段二：UTF-8编码规则验证 [5]()
    
41.       (while (and utf8Flag (setq byte1 (car str2)))
    
42.         (setq str2 (cdr str2))
    
43.         (cond
    
44.           ((< byte1 128) ; 单字节字符（0xxxxxxx）
    
45.           )
    
46.           ((<= 194 byte1 222) ; 双字节字符（110xxxxx）
    
47.             (if (null (check_continuation_byte fHandle))
    
48.               (setq utf8Flag nil)
    
49.             )
    
50.           )
    
51.           ((<= 224 byte1 239) ; 三字节字符（1110xxxx）
    
52.             (if (or (null (check_continuation_byte fHandle))
    
53.                   (null (check_continuation_byte fHandle)))
    
54.               (setq utf8Flag nil)
    
55.             )
    
56.           )
    
57.           ((<= 240 byte1 244) ; 四字节字符（11110xxx）
    
58.             (if (or (null (check_continuation_byte fHandle))
    
59.                   (null (check_continuation_byte fHandle))
    
60.                   (null (check_continuation_byte fHandle)))
    
61.               (setq utf8Flag nil)
    
62.             )
    
63.           )
    
64.           (t (setq utf8Flag nil))
    
65.         )
    
66.       )
    
67.       
    
68.       
    
69.       ; 输出结果
    
70.       (alert
    
71.         (strcat "文件编码："
    
72.           (cond
    
73.             (bomFlag "UTF-8 with BOM")
    
74.             (utf8Flag "UTF-8 without BOM")
    
75.             (t "非UTF-8编码（可能是ANSI/GBK）")
    
76.           )
    
77.         )
    
78.       )
    
79.     )
    
80.   )
    
81.   (princ)
    
82. )

(defun c:CheckUTF8 (/ binarystream bomFlag byte1 byte2 byte3 check_continuation_byte fHandle filePath str1 str2 utf8Flag)<br />   (defun check_continuation_byte ( dd / byte)<br />     (setq byte (car str2))<br />     (setq str2 (cdr str2))<br />     (if (and byte (<= 128 byte 191)) t nil)<br />   )<br />   (setq filePath (getfiled "选择TXT文件" "" "txt" 16))<br />   (if filePath<br />     (progn <br />       (setq binarystream (vlax-create-object "Adodb.Stream"))<br />       (vlax-put-property binarystream 'Type 1)<br />       (vlax-put-property binarystream 'Mode 3)<br />       (vlax-invoke binarystream 'Open)<br />       (vlax-put-property binarystream 'Position 0)<br />       (vlax-invoke-Method binarystream 'LoadFromFile filePath)  <br />       (setq str1 (Vlax-Invoke-Method binarystream 'Read nil))<br />       ;(setq str1 (Vlax-Invoke-Method binarystream 'Read 3))      <br />       (vlax-invoke binarystream 'flush)<br />       (vlax-invoke binarystream 'Close)<br />       (vlax-release-object binarystream)<br />       (setq str2 (vlax-safearray->list (vlax-variant-value str1) ))<br />       ;(setq fHandle (open filePath "rb")) ; 二进制方式打开文件<br />       (setq bomFlag nil <br />         utf8Flag t)<br />       <br />       ; 阶段一：BOM头判断 [1]()<br />       (setq byte1 (nth 0 str2)<br />         byte2 (nth 1 str2)<br />         byte3 (nth 2 str2))<br />       (if (and (= byte1 239) (= byte2 187) (= byte3 191))<br />         (setq bomFlag t)<br />         (progn<br />           ; 无BOM时回退到起始位置<br />           <br />           (setq str2 (vlax-safearray->list (vlax-variant-value str1) ))<br />         )<br />       )<br />       <br />       ; 阶段二：UTF-8编码规则验证 [5]()<br />       (while (and utf8Flag (setq byte1 (car str2)))<br />         (setq str2 (cdr str2))<br />         (cond <br />           ((< byte1 128) ; 单字节字符（0xxxxxxx）<br />           )<br />           ((<= 194 byte1 222) ; 双字节字符（110xxxxx）<br />             (if (null (check_continuation_byte fHandle))<br />               (setq utf8Flag nil)<br />             )<br />           )<br />           ((<= 224 byte1 239) ; 三字节字符（1110xxxx）<br />             (if (or (null (check_continuation_byte fHandle))<br />                   (null (check_continuation_byte fHandle)))<br />               (setq utf8Flag nil)<br />             )<br />           )<br />           ((<= 240 byte1 244) ; 四字节字符（11110xxx）<br />             (if (or (null (check_continuation_byte fHandle))<br />                   (null (check_continuation_byte fHandle))<br />                   (null (check_continuation_byte fHandle)))<br />               (setq utf8Flag nil)<br />             )<br />           )<br />           (t (setq utf8Flag nil))<br />         )<br />       )<br />       <br />       <br />       ; 输出结果<br />       (alert <br />         (strcat "文件编码："<br />           (cond <br />             (bomFlag "UTF-8 with BOM")<br />             (utf8Flag "UTF-8 without BOM")<br />             (t "非UTF-8编码（可能是ANSI/GBK）")<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

null.

可以自动判断TXT格式，读取TXT内容。(仅区分 UTF-8和UTF-8 BOM和ANSI)