[TestComplete 系列]VB检查编码类型

发布时间：2020-12-16 23:10:26 所属栏目：大数据来源：网络整理

导读：Sub CheckTextCodingType(Textfile) Set fl = aqFile.OpenBinaryFile(Textfile,aqFile.faRead) Binary1 = fl.ReadByte() Binary2 = fl.ReadByte() fl.Close select case CStr(Binary1) CStr(Binary2) case 255254: '*Unicode (UTF-16) 前两个字节为FFFE Log.

Sub CheckTextCodingType(Textfile) Set fl = aqFile.OpenBinaryFile(Textfile,aqFile.faRead) Binary1 = fl.ReadByte() Binary2 = fl.ReadByte() fl.Close select case CStr(Binary1)& CStr(Binary2) case 255254: '*Unicode (UTF-16) 前两个字节为FFFE Log.Message("file is ctUnicode type") TextCodingType = 21 case 239187: '*UTF8 前两字节为EFBB Log.Message("file is ctUTF8 type") TextCodingType = 22 case else Log.Message("file will open via ANSI type") TextCodingType = 20 end select End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!