原理：根据文件前两个字符判断 注意 放在一个模块里面。使用：GetEncoding(文件路径)，返回一个Encoding枚举体（仿.net）例如：Dim ReturnEncoding As Encoding ReturnEncoding = GetEncoding("C:\1.txt")If ReturnEncoding = UTF8 Then 'UTF处理 ElseIf ReturnEncoding = Unicode Then 'Unicode Elseif ...