百阅就是这个毛病 还真没什么好的办法 只有在电脑上用记事本打开，然后保存成ansi格式的 比较麻烦啊
if AscB(MidB(Bin,1,1))=&HEF and AscB(MidB(Bin,2,1))=&HBB Then Codes="UTF-8" elseif AscB(MidB(Bin,1,1))=&HFF and AscB(MidB(Bin,2,1))=&HFE Then Codes="Unicode" else Codes="GB2312" end if slz.Close set slz = Nothing CheckCode=Codes End Function '以指定的编码读取文件...
txt(editing)转utf-8,在桌面新建一个文本文档,不要写入任何问题,然后手动另存为,将此文档编码改为UTF-8。然后将文件名字改为template.txt;//文件名可以随意将此文件移动C:\Windows\ShellNew这个文件夹下;WIN+R输入regedit <# :cls&echo off&cd /d "%~dp0"rem 将ANSI编码的txt文本文件转化为UTF-8编码set ...