|
发表于 2013-12-28 18:50:50
|
显示全部楼层
发你个识别“txt”文件编码(不是什么字符串变量编码)的函数,以前论坛里看到的,【非原创!】
功能 识txt编码(文件路径)
变量 Stream,Codes,TEXT_a,编码ID
Stream=com("ADODB.Stream")//文件操作的对象
Stream.Type =2 //1-二进制,2-文本
Stream.charset("x-ansi")
Stream.Open //打开文件流操作
Stream.LoadFromFile(文件路径)//读入文件
TEXT_a=Stream.ReadText(2)//获取文件2个字节文本
编码ID=字符串.返回字符(TEXT_a,0)&"|"&字符串.返回字符(TEXT_a,1)
选择(编码ID)
条件 "239|187":
Codes="UTF-8"
条件 "255|254":
Codes="Unicode"
条件 "254|255":
Codes="Unicode big endian"
默认 :
Codes="gb2312" //txt文件的ANSI编码
选择结束
Stream.Close
Stream=null
返回 Codes
功能结束 |
|