如何判断没有bom头的 utf-8 文本文件？

chinawcs 2012-11-09 08:46:34

delphi 判断时因为没有文件头标识会被误认为是 ansi 编码导致乱码

...全文

790 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

蓝色光芒 2012-11-25

打赏
举报

XE就把Utf8ToAnsi改成UTF8ToString即可

chinawcs 2012-11-25

打赏
举报

我用的是 xe

chinawcs 2012-11-25

打赏
举报

想做一个 ansi unicode utf8-有bom utf8-无bom txt 编码判断程序有bom当然好说 ansi 与 utf8-无bom 怎么区分

chinawcs 2012-11-25

打赏
举报

引用 3 楼 kiboisme 的回复:

先判断文件头,如果没有文件头, 把文件读到字符串Str1中,然后用Utf8ToAnsi转换到Str2,如果Str2为空字符串,则是Ansi文本,直接用Str1 如果Str2不为空,则用Str2,这时Str2已经解码

情况是这样的 txt 编码是 utf8无bom 的 str1 定义什么类型 ansistring widestring utf8string ? UTF8ToString 只有乱码没有空的时候小弟不才请给出 xe 示例代码谢谢

蓝色光芒 2012-11-09

打赏
举报

先判断文件头,如果没有文件头, 把文件读到字符串Str1中,然后用Utf8ToAnsi转换到Str2,如果Str2为空字符串,则是Ansi文本,直接用Str1 如果Str2不为空,则用Str2,这时Str2已经解码

chinawcs 2012-11-09

打赏
举报

大哥求你看清标题是无bom 的 utf8 没有 $EF $BB $BF

JPEXE 2012-11-09

打赏
举报

function UTF8FileBOM(const FileName: string): boolean;
var
  txt: file;
  bytes: array[0..2] of byte;
  amt: integer;
begin
  FileMode := fmOpenRead;
  AssignFile(txt, FileName);
  Reset(txt, 1);
  try
    BlockRead(txt, bytes, 3, amt);
    result := (amt=3) and (bytes[0] = $EF) and (bytes[1] = $BB) and (bytes[2] = $BF);
  finally    
    CloseFile(txt);
  end;
end;