易语言吧

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 16933|回复: 6

[模块命令] 易语言文件_取文本编码使用详解

[复制链接]

295

主题

537

帖子

1万

积分

超级版主

Rank: 8Rank: 8

积分
14814

幽默大师终生成就

威望
0
易币
14192
贡献
0
积分
14814
UID
580
在线时间
472 小时
注册时间
2019-12-5
发表于 2020-3-13 09:46:03 | 显示全部楼层 |阅读模式
易语言命令名称:- j% `% N5 d4 C* i" p
文件_取文本编码
: W7 M/ e) ?3 v; ^8 A$ V: u) g
! ^' r+ V. B8 c6 n. s命令功能介绍:/ R& U8 l* O6 C0 y9 Y3 N7 x, X! s! U

. ?, }: X: E2 G9 n, b: K4 P获取指定路径的txt文档的编码格式。成功返回(1:UTF-8,2:Unicode;3:Unicode big endian;4:ANSI),默认返回 4。2 \) [6 b2 [4 e7 I7 H
命令类别:精易模块命令5 T$ y4 H, S, y& J* T# j

5 w( b- V) h6 b# X' I9 G* A  J* z! N# j
命令使用说明:$ ~' y6 N9 B: |2 _# o3 `6 W
  子程序名:文件_取文本编码# O; [: f! K; ]; [
    获取指定路径的txt文档的编码格式。成功返回(1:UTF-8,2:Unicode;3:Unicode big endian;4:ANSI),默认返回 4。
: _+ s- N1 T0 v" M  q. z- @! B    返回值类型:整数型
  g$ ?1 z2 ]  O; M: t6 V6 c% C    参数<1>的名称为“参_文件路径”,类型为“文本型”。
* z* w2 O# ^1 q
2 u" _$ Y7 v# W+ H7 |+ L
! Q& Q% N, L1 O8 { 截图202003130945435307..png , V5 X2 }' A& ~* z

! h& K& W2 v% D4 L- ~+ s( Z
0 o0 _8 p: E6 I( K" g2 F+ t/ B- M, I" A" T+ q! F# q
命令源码:
! U: e5 q* \- c  l& a, y) a2 k( U6 d$ N' H' e" V1 D, N
  1. .版本 29 T/ G. ^, U, t8 C- I

  2. % E! C/ p' M( ?2 N) k
  3. .子程序 文件_取文本编码, 整数型, 公开, 获取指定路径的txt文档的编码格式。成功返回(1:UTF-8,2:Unicode;3:Unicode big endian;4:ANSI),默认返回 4。
    8 v! u# M" B: u
  4. .参数 参_文件路径, 文本型* T3 T# o: X5 i8 @
  5. .局部变量 局_文件内容, 字节集. c/ ?7 t  w6 ~+ D: z' N  |
  6. .局部变量 局_文件长度, 整数型/ {9 B$ W4 t( ]1 u0 W( [3 D; H
  7. .局部变量 局_lpiResult, 整数型6 N, C0 K7 s$ X' w1 R3 C3 @9 {2 [

  8. 8 n: X' M2 U' e3 _
  9. 局_文件内容 = 读入文件 (参_文件路径)# k0 t7 \& ?; W- ^. |" P6 q* O/ i
  10. 局_文件长度 = 取字节集长度 (局_文件内容)8 E0 k" \6 F- g0 t+ w/ t
  11. .判断开始 (局_文件长度 > 2 且 取字节集中间 (局_文件内容, 1, 2) = { 239, 187 })  ' UTF-8- @- P# L% O! x' a, b* \, W
  12.     .如果真 (取字节集中间 (局_文件内容, 3, 1) = { 191 })" H- y$ P2 h" T6 b6 p
  13.         返回 (1)
    * G1 l7 g. M& \  ~/ [) U& c. Y
  14.     .如果真结束
    7 f  ~' W) Z  H! W
  15. $ i; c5 t; e1 A# K* K
  16. .判断 (取字节集中间 (局_文件内容, 1, 2) = { 255, 254 })  ' Unicode
    3 P: {8 K. r9 j7 l
  17.     返回 (2)9 V) e7 D9 Q! q- T2 l9 e
  18. .判断 (取字节集中间 (局_文件内容, 1, 2) = { 254, 255 })  ' Unicode big endian6 J; k. L& N9 p( W
  19.     返回 (3)
    8 w- ~: ?4 n" T5 N
  20. .默认
    8 v7 {! c7 h; Q8 ~- A* {. N+ k
  21. 5 p8 {' U9 {9 h; y" O* o- b1 M
  22. .判断结束
    4 J4 t' L) q& y6 O/ I
  23. 局_lpiResult = -17 R- a+ E: Q4 U; ^
  24. .判断开始 (IsTextUnicode (局_文件内容, 局_文件长度, 局_lpiResult))  ' Unicode3 T9 c( i( F) N" }: G
  25.     返回 (2)
    , a  ~0 J: l8 ~9 g9 R' N& i* O
  26. .判断 (文本_是否UTF8_汇编 (局_文件内容))  ' UTF-8
    % F0 V1 L8 }% p5 i' P! c# a
  27.     返回 (1)& j7 x. [: W0 N
  28. .默认, K: S6 _2 t' m: {# y
  29.     返回 (4)  ' ANSI# u) r% J% N  r; ~' n3 g# P- O
  30. .判断结束
    , T  \; }6 [& {$ i

  31. % A. `1 v$ g/ u( b
复制代码

2 q+ Q6 m2 e; C; A8 ]5 P
( H) l9 I! N. G/ s: S, f. ?  y4 z0 B# E: }8 ?/ b$ u# e
4 m0 H& |* _1 M3 j* G# L9 h
; y7 Z- |8 \; Y6 T
源码复制到易语言教程:
9 Y/ S2 {% ^$ S* M2 a% a6 L9 b+ X4 g
首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示! T# h  j; |' S: m5 q0 ?

" J2 `! Y8 z0 Z, A' Z2 b
% G0 q- E  X8 F. i5 M1 f然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码
3 [/ `0 B1 y/ S
4 I$ b" `7 o8 N即可插入易语言命令代码哦$ V- M3 H# J) l8 f

$ L- T) L. X" r6 NDLL源码复制到易语言教程:
$ S# B8 W4 h% S8 B; j% T; c0 [6 M+ X
; P- N( D# Y3 f- r

  m, ^2 W$ N0 K' c3 G/ M

. S6 u/ _8 L' J; o! F5 X

0

主题

9

帖子

14

积分

初识易语言

Rank: 1

积分
14
威望
0
易币
5
贡献
0
积分
14
UID
4846
在线时间
0 小时
注册时间
2020-5-1
发表于 2020-5-1 10:34:38 | 显示全部楼层
111111111111111111111
回复

使用道具 举报

0

主题

38

帖子

118

积分

易语言菜鸟

Rank: 2

积分
118
QQ
威望
0
易币
79
贡献
0
积分
118
UID
7347
在线时间
26 小时
注册时间
2020-7-12
发表于 2020-9-14 22:04:05 | 显示全部楼层

- q; C7 |1 A% r7 T& W. Q楼主太厉害了!楼主,我爱你!我觉得易语言吧真是个好地方!
回复

使用道具 举报

0

主题

14

帖子

14

积分

初识易语言

Rank: 1

积分
14
威望
0
易币
0
贡献
0
积分
14
UID
14289
在线时间
0 小时
注册时间
2021-4-23
发表于 2021-4-23 21:07:05 | 显示全部楼层
1 L- Y# x4 Z3 L+ n( ?1 W. R- F
这个帖子不回对不起自己!我想我是一天也不能离开易语言吧
回复

使用道具 举报

0

主题

2336

帖子

9563

积分

VIP超级贵宾

Rank: 8Rank: 8

积分
9563
威望
198
易币
6831
贡献
0
积分
9563
UID
11903
在线时间
36 小时
注册时间
2021-1-23
发表于 2021-5-28 23:22:07 | 显示全部楼层
楼主发贴辛苦了,谢谢楼主分享!我觉得易语言吧是注册对了!
回复

使用道具 举报

0

主题

6

帖子

50

积分

易语言菜鸟

Rank: 2

积分
50
QQ
威望
0
易币
44
贡献
0
积分
50
UID
14115
在线时间
4 小时
注册时间
2021-4-17
发表于 2021-7-22 18:07:23 | 显示全部楼层
1111112313123123
回复

使用道具 举报

0

主题

20

帖子

175

积分

VIP超级贵宾

Rank: 8Rank: 8

积分
175
威望
0
易币
155
贡献
0
积分
175
UID
19840
在线时间
17 小时
注册时间
2021-11-2
发表于 2022-1-25 21:30:24 | 显示全部楼层
.版本 2
1 M( L% S" H" C! Y
/ p, z' x  Q1 D$ I0 R6 b.子程序 文件_取文本编码, 整数型, 公开, 获取指定路径的txt文档的编码格式。成功返回(1:UTF-8,2:Unicode;3:Unicode big endian;4:ANSI),默认返回 4。
% E" V; u3 K- K/ z1 a5 O.参数 参_文件路径, 文本型! |4 \$ C* t4 V
.局部变量 局_文件内容, 字节集; |4 U" ?& W( g3 n" P
.局部变量 局_文件长度, 整数型4 |4 S# }% l) k
.局部变量 局_lpiResult, 整数型
7 ]) K/ G1 ~$ n/ Y+ d: v- R% s
3 K4 l5 X1 p: t* }局_文件内容 = 读入文件 (参_文件路径)
9 L0 l5 w. y3 r- V1 W& N局_文件长度 = 取字节集长度 (局_文件内容)
( K$ f& ?& w3 ~: y9 l9 D0 u.判断开始 (局_文件长度 > 2 且 取字节集中间 (局_文件内容, 1, 2) = { 239, 187 })  ' UTF-8
5 J5 N* Q0 k% e) ?- {! z8 z( P    .如果真 (取字节集中间 (局_文件内容, 3, 1) = { 191 })
: e! s& P, b$ c0 K- L0 `1 ^& I0 g        返回 (1)
- C0 j" J, m6 d+ T5 b7 i3 J    .如果真结束
) \0 D) a# s8 W/ \( w
% V0 ]. u( r+ b2 b9 ~5 K.判断 (取字节集中间 (局_文件内容, 1, 2) = { 255, 254 })  ' Unicode) Q! V$ Q& Q3 m
    返回 (2)% j) D1 B! G) d9 l- D
.判断 (取字节集中间 (局_文件内容, 1, 2) = { 254, 255 })  ' Unicode big endian
8 s. m# @1 \; h: Q    返回 (3)9 C$ k) X# s+ R% O& a; @! N
.默认
' H$ j8 J& c7 P. E7 M5 c: W/ u; E- H2 q2 ?$ |) F
.判断结束6 Q4 c2 Z1 q, I4 c
局_lpiResult = -1
" v( }* H8 z- F+ T) S' J- S.判断开始 (IsTextUnicode (局_文件内容, 局_文件长度, 局_lpiResult))  ' Unicode6 u, |7 `  ?6 o: ?4 Y& [  H; ?6 k
    返回 (2)
+ y# T0 n! J2 r5 |! g5 o) ~.判断 (文本_是否UTF8_汇编 (局_文件内容))  ' UTF-8
2 c; T' X1 o/ l9 F    返回 (1)
/ y; M9 c) R5 Q. ^5 Z.默认# }: @& F. w9 K$ }" _2 H
    返回 (4)  ' ANSI
# P0 t. W* v$ @6 J9 T4 u& E.判断结束5 n+ p. ?( K7 R+ i& h
回复

使用道具 举报

懒得打字嘛,点击右侧快捷回复 【选择右侧内容,快速回复】
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

大漠插件注册码无须等1-3号

QQ|本站为中文编程爱好者方便学习编程.公益免费,站内所有资源均来自互联网收集或用户上传分享,本站不拥有此类资源的版权。 作为网络服务提供者,对转载行为的发生不具备充分的监控能力。但是当版权拥有者提出侵权并出示充分的版权证明材料时,易语言吧负有移除转载作品以及停止继续传播的义务。在满足前款条件下采取移除等相应措施后不为此向原发布人承担违约责任,包括不承担因侵权不成立而给原发布人带来损害的赔偿责任。 用户免费分享产生,如果侵犯了你的权益,联系QQ:3066137757|Archiver|手机版|小黑屋|易语言吧

GMT+8, 2026-4-29 01:58 , Processed in 0.174044 second(s), 24 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表