Поиск по наименованию и суммирование (Memo)

[cybernewbie]

Здравствуйте,

Возможно неверно указал заголовок, нужно вот что.
Имеется следующий текст в Memo:

class: 1234
buf: 2323
prod:
 name: msi 990
 col: red
 quantity: 1
prod:
 name: micro 500
 col: blue
 quantity: 1
prod:
 name: msi 990
 col: red
 quantity: 2
prod:
 name: allso
 col: blue
 quantity: 1
prod:
 name: micro 500
 col: blue
 quantity: 1
book: open
TF: open

Нужно привести его к такому виду:

class: 1234
buf: 2323
prod:
 name: msi 990
 col: red
 quantity: 3
prod:
 name: micro 500
 col: blue
 quantity: 2
prod:
 name: allso
 col: blue
 quantity: 1
book: open
TF: open

Помогите пожалуйста, заранее благодарю Вас.

[digitalis]

Считать Memo в массив строк, сделать что надо - и обратно в Memo, предварительно его очистив.

[cybernewbie]

Сообщение от digitalis

сделать что надо

С этим у меня проблемы, а точнее не могу построить логику поиска, и подсчёта по родительским строкам..

procedure TForm1.Button1Click(Sender: TObject);
const
S=100; // размер массива var
var
a:array[0..S]of string[255]; //массив
n: integer; // количество строк, введенных в поле Memo
i:integer; // индекс элемента массива
st:string;
begin
n:=Memo1.Lines.Count;
 if n = 0 then begin
 ShowMessage('Нет данных!');
 Exit; // выход из процедуры обработки события
 end;
 if n > S then begin
 ShowMessage('Количество строк превышает размер массива.');
 n:=S;
 end;
for i:=1 to n do
a[i]:=Form1.Memo1.Lines[i-1];
Memo1.Clear;
 if n > 0 then begin
 st:='Введенный массив:'+#13;
  for i:=1 to n do begin
  st:=st+a[i]+#13;
  Memo1.lines.Add(a[i]);
  end;
 ShowMessage(st);
 end;
end;

[macomics]

С полем Memo.Lines можно работать как с массивом. Вы можете в массиве собирать сразу конечный результат, а не загружать в него исходные данные. После очищаете Memo.Lines.Clear и переносите строки из массива в Memo через Memo.Lines.Add

Для реализации подсчета стоит завести динамический список, а не массив. Так будет проще собрать одинаковые записи в кучу.

[cybernewbie]

Что то у меня пока не получается, сейчас я вывожу в список так, т.е. всё что найду:

type
  TPCount = ^TCount; //указатель на тип TCount

  TCount = record
    name1: string;
    name2: string;
    name3: string;
    next: TPCount; // следующий элемент списка
  end;

var
  head: TPCount; // начало (голова) списка



procedure TForm1.Button1Click(Sender: TObject);
var
  curr: TPCount; // новый элемент списка
  i,n:integer;
  st:string;
begin
  //new(curr); // выделить память для элемента списка

  for i:=0 to memo1.Lines.Count-1 do
  begin
  new(curr);
   if LeftStr(memo1.Lines.Strings[i], 6)=' name:' then
   curr^.name1 := memo1.Lines.Strings[i];
   if LeftStr(memo1.Lines.Strings[i], 5)=' col:' then
   curr^.name2 := memo1.Lines.Strings[i];
   if LeftStr(memo1.Lines.Strings[i], 10)=' quantity:' then
   curr^.name3 := memo1.Lines.Strings[i];
   curr^.next := head;
   head := curr;
  end;

  n := 0;
  st := '';
  curr := head; // указатель на первый элемент списка
  while curr <> nil do
  begin
    n := n + 1;
    st := st + curr^.name1 + #13 + curr^.name2 + #13 + curr^.name3;
    curr := curr^.next; // указатель на следующий элемент
  end;

  if n <> 0
    then ShowMessage('Список:' + #13 + st)
  else ShowMessage('В списке нет элементов.');
end;

Как мне вести подсчёт? цикл в цикле? и как потом это всё собрать воедино... у меня в голове всё смешалось... завтра ещё попробую

[northener]

Сообщение от cybernewbie

type
TPCount = ^TCount; //указатель на тип TCount

TCount = record
name1: string;
name2: string;
name3: string;
next: TPCount; // следующий элемент списка
end;

Это не тот список. Это список времен Турбо Паскаля / Царя Гороха.

[macomics]

Сообщение от northener

Это не тот список. Это список времен Турбо Паскаля / Царя Гороха.

northener, научи же новичка как по твоему надо.

cybernewbie, ошибка в том, что вы в списке не ассоциируете 4 строки с одной записью. Когда нашли строку prod: вам надо следующие 3 строки загнать в одну структуру и желательно упорядочить (если они могут идти в произвольном порядке). При добавлении новой записи в список надо сделать еще кое-что. Проверить все уже имеющиеся данные в списке на предмет совпадения с новой записью и при совпадении сложить числа в поле quantity, а не добавлять новую запись в список.

[cybernewbie]

Сообщение от macomics

cybernewbie, ошибка в том, что вы в списке не ассоциируете 4 строки с одной записью. Когда нашли строку prod: вам надо следующие 3 строки загнать в одну структуру и желательно упорядочить (если они могут идти в произвольном порядке). При добавлении новой записи в список надо сделать еще кое-что. Проверить все уже имеющиеся данные в списке на предмет совпадения с новой записью и при совпадении сложить числа в поле quantity, а не добавлять новую запись в список.

Спасибо, стало понятней, сейчас буду пробовать

[cybernewbie]

Теперь считает:

procedure TForm1.Button1Click(Sender: TObject);
var
  curr: TPCount; // новый элемент списка
  i,a,b,n:integer;
  st:string;
begin
  //new(curr); // выделить память для элемента списка

  for i:=0 to memo1.Lines.Count-1 do begin
  new(curr);
   if LeftStr(memo1.Lines.Strings[i], 5)='prod:' then begin
   curr^.name1 := memo1.Lines.Strings[i];
   curr^.name2 := memo1.Lines.Strings[i+1];
   curr^.name3 := memo1.Lines.Strings[i+2];
   curr^.name4 := memo1.Lines.Strings[i+3];
   b:=i+4;
    for a:=b to memo1.Lines.Count-1 do begin
     if (memo1.Lines.Strings[a+1]=curr^.name2) and (LeftStr(memo1.Lines.Strings[a+3], 10)=' quantity:') then begin
     curr^.name4:=' quantity: ' + inttostr((strtoint(StringReplace(curr^.name4,' quantity: ','',[rfReplaceAll])) + strtoint(StringReplace(memo1.Lines.Strings[a+3],' quantity: ','',[rfReplaceAll]))));


     end;
    end;
   curr^.next := head;
   head := curr;

  end;
  end;

  n := 0;
  st := '';
  curr := head; // указатель на первый элемент списка
  while curr <> nil do
  begin
    n := n + 1;
    st := st + #13 + curr^.name1 + #13 + curr^.name2 + #13 + curr^.name3 + #13 + curr^.name4;
    curr := curr^.next; // указатель на следующий элемент
  end;

  if n <> 0
    then ShowMessage('Список:' + #13 + st)
  else ShowMessage('В списке нет элементов.');

end;

Но после подсчёта считает и повторяющиеся записи, и формирует список снизу-верх.. не могу понять как сделать проверку на то, чтобы он проверял список, и не добавлял запись если она есть в списке..

[macomics]

Использовать Delete на каждой посчитанной записи. Тогда и циклы надо будет проходить от конца к началу