打开文本的问题

无名d晓峰

怎么想电脑自带的notepad.exe（记事本）一样自动获取文本编码，然后转换，然后打开文本
直接用“到文本（读入文件（“文件名”））”这样不行


补充内容 (2019-1-23 20:46):
我的目的就是可以读入更多编码文本

补充内容 (2019-1-23 20:48):
直接用到文本有些会乱码

大司命

  

变量名	类 型	静态	数组	备 注
byte	字节集

byte ＝ 读入文件 (“新建文本文档.txt”)
判断 (取字节集左边 (byte, 2) ＝ { 255, 254 })  ' Unicode
调试输出 (“编码：Unicode”, 编码_Unicode到Ansi_对象 (byte))
判断 (取字节集左边 (byte, 2) ＝ { 254, 255 })  ' Unicode big endian
调试输出 (“编码：Unicode”, 编码_Unicode到Ansi_对象 (byte))
判断 (取字节集左边 (byte, 3) ＝ { 239, 187, 191 })  ' UTF-8
调试输出 (“编码：UTF-8”, 编码_Utf8到Ansi_对象 (byte))
调试输出 (“编码：ANSI”, 到文本 (byte))  ' ANSI

.局部变量 byte, 字节集<br /> byte ＝ 读入文件 (“新建文本文档.txt”)<br /> .判断开始 (取字节集左边 (byte, 2) ＝ { 255, 254 })  ' Unicode<br />     调试输出 (“编码：Unicode”, 编码_Unicode到Ansi_对象 (byte))<br /> .判断 (取字节集左边 (byte, 2) ＝ { 254, 255 })  ' Unicode big endian<br />     调试输出 (“编码：Unicode”, 编码_Unicode到Ansi_对象 (byte))<br /> .判断 (取字节集左边 (byte, 3) ＝ { 239, 187, 191 })  ' UTF-8<br />     调试输出 (“编码：UTF-8”, 编码_Utf8到Ansi_对象 (byte))<br /> .默认<br />     调试输出 (“编码：ANSI”, 到文本 (byte))  ' ANSI<br /> .判断结束

331212221

自动识别编码？

jr21066

只能一种一种判断了.
文本_是否UTF8_汇编()这个可以判断utf8

Dragons

如果文本中有固定文字，可以多种编码转码后分别判断有没有找到固定文字。如果没有固定的文字可以取一些经常出现的文字，比如：“的”，或者其他文字，转码后寻找。。。
小白勿喷，不知道行不行，或者给我个源码例子