簡體與繁體文的轉換

[hotswin]

尋找簡繁 轉換函式

[sqrkim]

http://zhidao.baidu.com/question/40014165.html 参考一下

[haitao]

gb和big的转码表？

unit uBIG2GB;

interface

uses
  Windows, Classes, Messages, SysUtils;

function BIG5toGB(S: string): string;

implementation
{$R BIG2GB32.res}

const
  BIGfirst = $A140; // first code of BIG
  BIGlast  = $F9FE; // last code of BIG
  BIGsize  = $58BF; // BIGlast - BIGfirst + 1
var
    Instance : THandle;
    BIGTAB : TResourceStream;

procedure TBIG2GB_Create;
begin
  BIGTAB := TResourceStream.Create(Instance, 'BIG2GB', RT_RCDATA);
end;

procedure TBIG2GB_Destroy;
begin
  BIGTAB.free;
end;


function BIG5toGB(S: string): string;
var
  bak   : string;
  C  : array[0..1] of Byte;
  I  : Integer;            
  W  : PWordArray;         
  CA : array[0..2] of Char;
begin
  bak := '';
  I := 1;
  w:=@(C[0]);
  while I <= Length(S) do
  begin
    C[1] := Byte(S[I]);
    if C[1] > $A0 then
    begin
      inc(I, 1);
      C[0] := byte(S[I]);
      inc(I, 1);
      W[0] := W[0] - BIGfirst;
      BigTAB.Position:= W[0]*2;
      BIGTAB.Read(CA,2);
      CA[2]:=#0;
      bak := bak + StrPas(CA);
    end
    else
    begin
      bak := bak + S[I];
      inc(I, 1);
    end;
  end;
  Result := bak;
end;

Initialization
  TBIG2GB_Create;

Finalization
  TBIG2GB_Destroy;

end.

unit uGB2BIG;

interface

uses
  Windows, Messages, SysUtils, Classes;

function GBtoBIG5(S: string): string;
//function GetBIGS(S: string): string;

implementation
{$R GB2BIG32.res}

const
  GBfirst  = $A1A1; // first code of GB */
  GBlast   = $FEFE; //last code of GB */
  GBsize   = $5E5E; // GBlast - GBfirst + 1 */
var
    Instance: THandle;
    GBTAB, DupCode, DupData: TResourceStream;

procedure TGB2BIG_Create;
begin
  GBTAB := TResourceStream.Create(Instance, 'GB2BIG', RT_RCDATA);
  DupCode := TResourceStream.Create(Instance, 'DUPCODE', RT_RCDATA);
  DupData := TResourceStream.Create(Instance, 'DUPDATA', RT_RCDATA);
end;

procedure TGB2BIG_Destroy;
begin
  GBTAB.free;
  DupCode.free;
  DupData.free;
end;
{
function TGB2BIG_GetBIGS(S: string): string;
var
  C  : array[0..5] of Char;
  W  : PWordArray;
  CA : array[0..2] of Char;
  I  : Integer;            
  bak: string;             
begin
  bak := '';
  if Byte(S[1]) > $A0 then
  begin
    W := @(C[0]);
    C[2] := S[1];
    C[3] := S[2];
    C[5] := S[1];
    C[4] := S[2];
    W[2] := W[2] - GBfirst;
    GBTAB.Position := W[2] * 2;
    GBTAB.read (CA, 2);
    CA[2] := #0;
    bak := bak + StrPas(CA);
    I := 0;
    while I < DupCode.Size do
    begin
      DupCode.Position := I;
      DupCode.read (C, 2);
      if W[0] = W[1] then
      begin
        DupData.Position := I;
        DupData.read (CA, 2);
        CA[2] := #0;
        bak := bak + CA;
      end;
      inc(I, 2);
    end;
  end;
  Result := bak;
end;
}

function {TGB2BIG.}GBtoBIG5(S: string): string;
var
  bak: string;             
  C  : array[0..1] of Byte;
  I  : Integer;            
  W  : PWordArray;         
  CA : array[0..2] of Char;
begin
  bak := '';
  W := @(C[0]);
  I := 1;
  while I <= Length(S) do
  begin
    C[1] := Byte(S[I]);
    if C[1] > $A0 then
    begin
      inc(I, 1);
      C[0] := Byte(S[I]);
      inc(I, 1);
      W[0] := W[0] - GBfirst;
      GBTAB.Position := W[0] * 2;
      GBTAB.read (CA, 2);
      CA[2] := #0;
      bak := bak + StrPas(CA);
    end
    else
    begin
      bak := bak + S[I];
      inc(I, 1);
    end;
  end;
  Result := bak;
end;

Initialization
  TGB2BIG_Create;

Finalization
  TGB2BIG_Destroy;

end.

还有2个50k的res文件。。。。。

[Seamour]

没有简单的解决方案，经常几个繁体对应着同一个简体字
网上流传的简单转换结果，稍微有点儿文化的人都能看出问题来，使用繁体字的人更是笑掉大牙
不知道word有没有提供接口，它的准确率还凑合

[duduxia]

LCMapString