Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Как обработать данные в memo

Автор: illia 16.3.2010, 18:24

Приветствую! Помогите пожалуйста реализовать следующее

Имеется текст в формате текст1:текст2:текст3:текст4 добавленный в memo1, необходимо его перенести в memo2 в таком виде

текст1
текст2
текст3
текст4

добавлять необходимо через memo2.Lines.Add т.к. к каждому "текст" будут дописываться другие символы.

Научился переносить только до первого : . Делал вот так

Код


var
txt: string;
begin

txt := memo1.Lines.Strings[0];

memo2.Lines.Add(Copy(txt, 1, Pos(':', txt) - 1));
memo2.Lines.Add(Copy(txt, Pos(':', txt) + 1));

как отделить от следующих : не знаю.

Автор: Keeper89 16.3.2010, 18:33

Код


Memo2.Text := StringReplace(Memo1.Text, ':', sLineBreak, [rfReplaceAll]);

Автор: illia 16.3.2010, 19:13

это конечно быстро, только мне еще надо дописать другой текст к каждой строке в memo2 поэтому и решил делать через Lines.Add

так же предложенный метод не подходит потомучто после обработки каждой строчки из memo1 данные из memo2 будут сохранятся.

думаю лучше извлекать от символа : до : вот только как это сделать не знаю

Автор: Matematik 16.3.2010, 21:11

Код


function NextStrPart(const AStr: AnsiString; var AStart: Integer): AnsiString;
var p: Integer;
begin
  p := PosEx(':', AStr, AStart);
  if p>0 then
  begin
    Result := Copy(AStr, AStart, p-AStart);
    AStart := P + 1;
  end
  else
  begin
    Result := Copy(AStr, AStart, MaxInt);
    AStart := MaxInt;
  end;
end;

procedure ParseStr(AIn,AOut: TStrings);
var
  zi: AnsiString;
  i,l: Integer;
begin
  AOut.BeginUpdate;
  try
    for zi in AIn do
    begin
      l := Length(zi);
      i := 1;
      while i<=l do
      begin
        AOut.Add(NextStrPart(zi, i));
      end;
    end;
  finally
    AOut.EndUpdate;
  end;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  ParseStr(mmo1.Lines, mmo2.Lines);
end;

Автор: illia 16.3.2010, 22:42

Matematik, спасибо, а как здесь добавить к каждой строчке текст, как я писал выше, мне необходимо добалять к кажой строке еще текст что бы получалось примерно так

текст1 аааа
текст2 бббб
текст3 ссссс

Автор: Keeper89 16.3.2010, 22:45

Цитата(illia @ 16.3.2010, 19:13

)

это конечно быстро, только мне еще надо дописать другой текст к каждой строке в memo2 поэтому и решил делать через Lines.Add

Это можно реализовать позже как:

Код


Memo2.Text := StringReplace(Memo1.Text, ':', sLineBreak, [rfReplaceAll]);
Memo2.Lines[i] := Memo2.Lines[i] + 'Мой текст';

Цитата(illia @ 16.3.2010, 19:13

)

так же предложенный метод не подходит потомучто после обработки каждой строчки из memo1 данные из memo2 будут сохранятся.

А это уже новое обстоятельство.
Можно сделать как предложил Matematik, можно так:

Код


var
    slMemo2: TStringList;
    tempText: string;
...
begin
    ...
    slMemo2 := TStringList.Create;
    try
        slMemo2.Text := StringReplace(Memo1.Text, ':', sLineBreak, [rfReplaceAll]);
        for tempText in slMemo2.Strings
            Memo2.Lines.Add(tempText + 'Мой текст');
    finally
        FreeAndNil(slMemo2);
    end;
    ...
end;

Автор: illia 17.3.2010, 00:03

Keeper89,

Цитата

можно так:

Но в этом примере "мой текст" добавляется к каждой строке один и тот же. А мне необходимо к каждой строке добавить текст "мой текст 1" "другой текст 2" и т.д.

Автор: illia 17.3.2010, 00:22

Всем спасибо! Сделал вот так

Memo2.Text := StringReplace(Memo1.Lines.Strings[0], ':', sLineBreak, [rfReplaceAll]);
Memo2.Lines[0] := 'Мой текст ' + Memo2.Lines[0];
Memo2.Lines[1] := 'Мой текст 2' + Memo2.Lines[1];

Но было бы интересно узнать как выдергивать текст до определенного сисмвола.

Автор: Metros 26.3.2010, 19:50

Код


var 
  temp:string;
  p:integer;
begin
  p:=pos(':',memo1.lines[0]);
  while p>0 do
    begin
      temp:=copy(memo1.lines[0],1,p-1);
      delete(memo1.lines[0],1,p);
      {используем temp}
      p:=pos(':',memo1.lines[0]);
    end;
end;