盒子论坛 v2.1

只是没有格式头信息而已, 所以文件需要预先告知编码模式, 否则需要自己猜喽

一般这样猜测, 看英文占用字节数, 2个的就是unicode, 一个的就可能是ansi或者utf-8
再看中文, 对于中文部分先用utf-8模板带入看看是否符合, 如果符合就可以认为是UTF-8, 否则认为是ansi, windows的记事本基本就是这么猜的

当然, 猜测也会有错误的情况, 最著名的就是"联通", 用ansi格式保存的"联通"文字, 再用记事本打开会认为是utf-8编码, 从而无法正常显示
----------------------------------------------
http://www.cnblogs.com/lzl_17948876/

作者：

crystalmoon (crystalmoon)	★☆☆☆☆	-
	盒子活跃会员

2016/4/15 11:21:31

5楼：

QDAC里的Qstring，有一个函数，DetectTextEncoding，楼主可以研究一下
----------------------------------------------
-

作者：

lwcvod (lwcvod)	★☆☆☆☆	-
	普通会员

2016/4/15 23:49:59

6楼：

Qstring 确实不错，但是不能识别所有的文本，还有其他的文本无法识别
----------------------------------------------
Delphi

作者：

crystalmoon (crystalmoon)	★☆☆☆☆	-
	盒子活跃会员

2016/4/16 18:20:31

7楼：

本地文件如果没有格式头,全部自动识别是不可能的...只能手工一个个试了...网络上html等内容还好一点,直接可以根据head信息和内容自动判断。
----------------------------------------------
-

作者：

letianwuji (大器晚成)	▲▲▲▲▲	-
	普通会员

2016/4/16 18:43:36

8楼：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,TypInfo;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
  TTextFormat=(tfAnsi,tfUnicode,tfUnicodeBigEndian,tfUtf8);
const
  TextFormatFlag:array[tfAnsi..tfUtf8] of word=($0000,$FFFE,$FEFF,$EFBB);

var
  Form1: TForm1;

implementation

{$R *.dfm}

function WordLoHiExchange(w:Word):Word;register;
asm
  XCHG AL, AH
end;

{ TextFormat返回文本编码类型，sText未经处理的文本 }
procedure ReadTextFile( const FileName: string;
          var TextFormat: TTextFormat;
          var sText:string);
var
  w:Word;
  b:Byte;
begin
  with TFileStream.Create(FileName,fmOpenRead or fmShareDenyNone) do
  try
    Read(w,2);
    w:=WordLoHiExchange(w);//因为是以Word数据类型读取，故高低字节互换
    if w = TextFormatFlag[tfUnicode] then
      TextFormat:= tfUnicode
    else if w = TextFormatFlag[tfUnicodeBigEndian] then
      TextFormat:= tfUnicodeBigEndian
    else if w = TextFormatFlag[tfUtf8] then
    begin
      Read(b,1);//这里要注意一下，UFT-8必须要跳过三个字节。
      TextFormat:=tfUtf8;
    end else
    begin
      TextFormat:=tfANSI;
      Position:=0;
    end;
    SetLength(sText,Size-Position);
    ReadBuffer(sText[1],Size-Position);
  finally
    Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   TexF:TTextFormat;
   TexS:string;
begin
   ReadTextFile('1.txt',TexF,TexS);
   ShowMessage(TexS);

   TexS:=GetEnumName(TypeInfo(TTextFormat),Ord(TexF));//枚举值转字符串
   ShowMessage(TexS);

   TexF := TTextFormat(GetEnumValue(TypeInfo(TTextFormat), 'tfUtf8'));//字符串转枚举值
   TexS:=GetEnumName(TypeInfo(TTextFormat),Ord(TexF));//枚举值转字符串
   ShowMessage(TexS);
end;

end.
----------------------------------------------
相信自己，若自己都不相信，那还有谁可信。

信息

登陆以后才能回复