解析德尔福

Question

文本我有一个具有以下数据的文本文件：

dgm P1 
s0:->b1 
*s1:b2->b1 
S2:b2->b1,b3 
dgm P2 
s0:->b2 
*s1:b1,b3->b2 

我要分析此文件，以获得一个数组，其元素将包含每个 DGM年代，直到下一个。也就是说，第一个元素是：

dgm P1 
s0:->b1 
*s1:b2->b1 
S2:b2->b1,b3 

第二个元素是：

dgm P2 
s0:->b2 
*s1:b1,b3->b2 

等 请我如何去在德尔福。我正在寻找更好的方法来做到这一点。我试着从文件加载到TStringList。

begin 
str:=TstringList.Create; 
try 
str.LoadFromFile('example.txt'); 
for i:=0 to str.Count -1 do 
if str[i] ='dgm' then 
//get the position, add it to an array; 
//get the next position, till the end; 
//use the positions to divide up the string 

finally 
str.Free; 

但是，这是行不通的，我也觉得可能是一个更好的办法 来处理这个比我简要介绍。

Answer 1

AS。这个答案使用了Delphi 2010+的特性，因为它是在topicstarter指定了他的目标Delphi版本之前编写的。尽管如此，这些代码仍然可以作为他自己实现的框架，使用他可用的库和语言功能。

function ParseDgmStringsList(const str: TStrings): TArray<TArray<String>>; 
var 
    s: string; 
    section: TList<String>; 
    receiver: TList<TArray<String>>; 

    procedure FlushSection; 
    begin 
    if section.Count > 0 then begin 
     receiver.Add(section.ToArray()); 
     section.Clear; 
    end; 
    end; 
begin 
    section := nil; 
    receiver := TList<TArray<String>>.Create; 
    try 
    section := TList<String>.Create; 

    for s in str do begin 
     if StartsText('dgm ', s) then // or StartsStr 
     FlushSection; 
     section.Add(s); 
    end; 

    FlushSection; 
    Result := receiver.ToArray(); 
    finally 
    receiver.Destroy; 
    section.Free; 
    end; 
end; 

• http://docwiki.embarcadero.com/Libraries/Seattle/en/System.StrUtils.StartsStr
• http://docwiki.embarcadero.com/Libraries/Seattle/en/System.StrUtils.StartsText

http://docwiki.embarcadero.com/Libraries/Seattle/en/System.Generics.Collections.TList_Properties

PS。请注意，“使用AnsiContainsStr(str,'dgm')”很脆弱并且几乎不正确 - 它会在S2:b2->bcdgmaz,b3这样的行上产生误报。 您应该检查dgm启动字符串，它是一个独立的单词，而不是一些随机的长单词的一部分（即搜索'dgm' + #32，而不是单纯的'dgm'

PPS。另一个要考虑的是，你将如何处理与非DGM线开始的文件吗？你会用空行，缩进的行？例如你将如何分析这样的文件怎么办？

s8:->b2 
;*s1:b1,b3->b2 
dgm P1 
s0:->b1 
*s1:b2->b1 

S2:b2->b1,b3 
    dgm P2 
    s0:->b2 
*s1:b1,b3->b2