汉字字符解码

2016-10-22 08:50:48来源:CSDN作者:l09120204人点击

一、如这种十六进制表示的汉子需要转换成汉字

 /u7535/u4fe1


解码函数:

function WideDecode( srctext:string):string;

var
  i,p:integer;
  gbc,html,
  ttxt:string;
begin
  html :=srctext;
  p:=pos('/u',html);
  while (p>0) do
  begin
    i:=p+2;
    ttxt:=Copy(html,i,4);
    delete(html,p,6);
    gbc:=widechar(strtoint('$'+ttxt));
    insert(gbc,html,p);
    p:=pos('/u',html);
  end;
  result:=html;

end;


调用

WideDecode(' /u7535/u4fe1');


二、

function HtmlDecode(S: string): string;
var
  List: TStringList;
  i, GBK: integer;
  wStr: WideString;
begin
  List := TStringList.Create;
  S := StringReplace(S, '&#', '', [rfReplaceAll]); //空头
  S := StringReplace(S, ';', #13#10, [rfReplaceAll]); //尾回车
  List.Text := S;
  for i := 0 to List.Count - 1 do
  begin
    GBK := StrToInt(List[i]);
    wStr := wStr + WideChar(GBK); //汉字是宽字符
  end;
  Result := wStr
end;

调用 HtmlDecode(‘刘&#40857’);//刘文

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台