Разбор текста в Delphi

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 

и т.д. Пожалуйста, как я идти о том, что в Delphi. Я ищу лучший способ сделать это. Я попробовал загрузку из файла в 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'

ПФС. Другое дело, рассмотреть вопрос о том, как бы вы справиться файлы, начинающиеся с-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