在 Delphi 中将非分隔文本转换为名称/值对

Question

我有一个文本文件，它到达我的应用程序的行数如下形式：

<row amount="192.00" store="10" transaction_date="2009-10-22T12:08:49.640"
 comp_name="blah                                            " 
 comp_ref="C65551253E7A4589A54D7CCD468D8AFA" 
 name="Accrington                                                  "/>

并且我想将此“行”转换为给定 TStringList 中的一系列名称/值对（可能有数十个） 在文件中，所以最终我想遍历文件，依次将每一行分解为名称/值对）。

我遇到的问题是数据没有明显分隔（从技术上讲，我认为它是空格分隔的）。现在，如果不是因为某些值包含前导或尾随空格，我可能会做出一些合理的假设并编写一些代码来根据空格分解行。但由于值本身可能包含也可能不包含空格，所以我没有看到明显的方法来做到这一点。 Delphi 的 TStringList.CommaText 没有帮助，我尝试使用 Delimiter 但每次都会被值内的空格所困扰。

有没有人有一个聪明的德尔菲技术可以将上面的示例变成类似这样的东西？ ;

amount="192.00"
store="10"
transaction_date="2009-10-22T12:08:49.640"
comp_name="blah                                            " 
comp_ref="C65551253E7A4589A54D7CCD468D8AFA" 
name="Accrington                                                  "

不幸的是，就像这种事情通常的情况一样，我对数据的格式一开始就没有任何控制权——例如，我无法返回并在源处“使其”以逗号分隔。尽管我想我可能可以编写一些代码将其转换为逗号分隔 - 宁愿找到一种很好的方法来处理我所拥有的内容。

如果有什么区别的话，那就是 Delphi 2007 中的内容了。

Answer 1

您说它不是“明显分隔的”，但对我来说，它是非常明显分隔的，因为它是非常明显的 XML。因此，请使用 XML 解析器。您可以从 Delphi 的 TXmlDocument 开始。您可以将每个“行”字符串分别传递给解析器，但我怀疑所有这些行都被其他一些尖括号标记括起来。将整个文件提供给解析器，它可以帮助您获取表示行的对象列表，然后您可以按名称询问其属性的值。

如果您尝试解析 XML，而不考虑 XML 解析的细微差别，那么您迟早会被烧死。

Answer 2

procedure RowToStrings(const row: string; list: TStrings);
var
  i       : integer;
  iDelim  : integer;
  inQuotes: boolean;
begin
  iDelim := 0;
  inQuotes := false;
  for i := 1 to Length(row) do begin
    if (row[i] = ' ') and (not inQuotes) then begin
      list.Add(Copy(row, iDelim+1, i-iDelim-1));
      iDelim := i;
    end
    else if row[i] = '"' then
      inQuotes := not inQuotes;
  end;
  list.Add(Copy(row, iDelim+1, Length(row)-iDelim));
end;

procedure TForm37.Test;
var
  row: string;
begin
  row := 'amount="192.00" store="10" transaction_date="2009-10-22T12:08:49.640" ' +
         'comp_name="blah                                            " '          +
         'comp_ref="C65551253E7A4589A54D7CCD468D8AFA" '                           +
         'name="Accrington                                                  "';
  RowToStrings(row, ListBox1.Items);
end;