解析德爾福

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