|
|
发表于 2022-1-25 21:30:24
|
显示全部楼层
.版本 2+ s2 Z4 G, `4 U' |3 [* Q) P2 J4 l2 {
, y& |, _( J( F3 F, h9 f
.子程序 文件_取文本编码, 整数型, 公开, 获取指定路径的txt文档的编码格式。成功返回(1:UTF-8,2:Unicode;3:Unicode big endian;4:ANSI),默认返回 4。
- |) t5 c; I( `1 f2 L1 O.参数 参_文件路径, 文本型# K$ D3 _) Y) x" b4 F" l
.局部变量 局_文件内容, 字节集
, {, Y, u- k& L! \5 t.局部变量 局_文件长度, 整数型( g1 l8 Z: M& u! Y
.局部变量 局_lpiResult, 整数型
$ H; F8 e" H) U7 ]" P: R* N
! }. t" D2 r% N$ `局_文件内容 = 读入文件 (参_文件路径)2 y2 b0 J: F' g6 Z
局_文件长度 = 取字节集长度 (局_文件内容): w' u; @) ~, {8 H1 R# D
.判断开始 (局_文件长度 > 2 且 取字节集中间 (局_文件内容, 1, 2) = { 239, 187 }) ' UTF-8
/ R7 o2 u! M, F .如果真 (取字节集中间 (局_文件内容, 3, 1) = { 191 })
7 q! ]: o# ]) s- M2 _4 q9 \$ m 返回 (1)2 Q! m/ q: l. b+ V# k
.如果真结束
& @, o4 ~. `* t
, v p( ]9 W4 s; E" y.判断 (取字节集中间 (局_文件内容, 1, 2) = { 255, 254 }) ' Unicode
5 v9 m: S8 ~% W2 w( }; } 返回 (2)% B; i( M1 h3 ~6 f
.判断 (取字节集中间 (局_文件内容, 1, 2) = { 254, 255 }) ' Unicode big endian& ]+ K9 e$ L# d% s
返回 (3)
% v0 Z: a) R! x1 |7 P3 p h.默认
3 M: q( b4 o; u7 d5 P
: K2 |3 `* N& Y; |" b" m.判断结束
% u0 p7 e) t x1 Y4 G6 H$ k局_lpiResult = -18 Q# H3 N6 W0 }' d
.判断开始 (IsTextUnicode (局_文件内容, 局_文件长度, 局_lpiResult)) ' Unicode) E! S. O! r* ]1 Q+ Q
返回 (2)6 K4 I0 [* N5 V4 U
.判断 (文本_是否UTF8_汇编 (局_文件内容)) ' UTF-8" b6 G. N7 s( j% X
返回 (1)# b4 P& O) k; u- i5 U; R
.默认& ]/ c& B- _. S7 O9 b2 E& M: M
返回 (4) ' ANSI
7 `1 @( B* ~9 F.判断结束
$ `, g1 r, X& j- f4 s% k1 P |
|