回复 "Globe" 关于 XML 编码转换的问题

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了回复 "Globe" 关于 XML 编码转换的问题，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1492字，纯文字阅读大概需要3分钟。

内容图文

   回复 "Globe" 关于 XML 编码转换的问题    

Globe 同学有这样的 XML 文件：

---

---

其中包含中文、韩文，并且有些是十六进制、有些是十进制，真实的内容应该是：

---

---

下面是把它打开并另存为标准的 UTF-8 格式 XML 的代码(使用了 DelphiXE 最新的正则表达式组件)：

---

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    function MyMatchEvaluator(const Match: TMatch): string;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
  pattern = '&#x?[0-9A-Fa-f]{1,5};';
var
  List: TStringList;
  reg: TRegEx;
  path,tmpName: string;
begin
  with TOpenDialog.Create(nil) do begin
    Execute;
    path := FileName;
    Free;
  end;
  if path = '' then Exit;

  List := TStringList.Create;
  List.LoadFromFile(path);
  List.Text := StringReplace(List.Text, 'GB2312', 'UTF-8', [rfIgnoreCase]);
  reg := TRegEx.Create(pattern, [roCompiled]);
  List.Text := reg.Replace(List.Text, MyMatchEvaluator);

  tmpName := ExtractFileName(path);
  path := StringReplace(path, tmpName, 'UTF8_' + tmpName, [rfIgnoreCase]);
  Text := path;
  List.SaveToFile(path, TEncoding.UTF8);
  List.Free;
end;

function TForm1.MyMatchEvaluator(const Match: TMatch): string;
begin
  Result := Match.Groups[1].Value;
  if Match.Value[3] = 'x' then Result := '$' + Result;
  Result := WideChar(StrToInt(Result));
end;

end.

---

内容总结

以上是互联网集市为您收集整理的回复 "Globe" 关于 XML 编码转换的问题全部内容，希望文章能够帮你解决回复 "Globe" 关于 XML 编码转换的问题所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---