string - Delphi-在某些字符串后解析备忘录

Question

我有一条备注行：

Mahogany
        Unpolished
        In Stock :  Yes
        Total Stock : 102
Redwood
        Polished
        In Stock :  Yes
        Total Stock : 80
Pine
        Polished
        In Stock :  Yes
        Total Stock : 22

我只想拥有Redwood的总库存行。
由于有很多相同的字符串


总存货


我不能使用此字符串作为关键字。因此，我使用“ Redwood”，但是我不知道如何在“ Redwood”之后获得“ Total Stock”行。

var
  i: Integer;
  s: string;
begin
  for i := 0 to mem0.lines.Count - 1 do
  begin
    if (AnsiContainsStr(mem0.lines[i], 'Redwood')) then
    begin
      // s:= Redwood's total stock, how to do this ?
    end
  end;
end;

Answer 1

缺少的代码是：

s := mem0.Lines[i+3];

这假设数据的格式始终与问题中所见完全相同。如果该假设有效，那么此简单代码就是最佳解决方案。



使用具有良好解析器和发射器的标准人类可读结构化数据格式（如JSON或YAML）中的一种可能更有意义。遗憾的是，在Delphi上对YAML的支持实际上是不存在的，因此只剩下JSON。