VPF::Как обработать данные в memo - Форум программистов

illia

Дата 16.3.2010, 18:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 7.11.2009

Репутация: нет
Всего: нет

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

Имеется текст в формате текст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));

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

Это сообщение отредактировал(а) illia - 16.3.2010, 18:30

Keeper89

Дата 16.3.2010, 18:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Код


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

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

illia

Дата 16.3.2010, 19:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 7.11.2009

Репутация: нет
Всего: нет

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

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

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

Это сообщение отредактировал(а) illia - 16.3.2010, 19:26

Matematik

Дата 16.3.2010, 21:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 7
Всего: 50

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 7.11.2009

Репутация: нет
Всего: нет

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

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

Keeper89

Дата 16.3.2010, 22:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Цитата(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;

Это сообщение отредактировал(а) Keeper89 - 16.3.2010, 22:47

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

illia

Дата 17.3.2010, 00:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 7.11.2009

Репутация: нет
Всего: нет

Keeper89,

Цитата

можно так:

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

illia

Дата 17.3.2010, 00:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 7.11.2009

Репутация: нет
Всего: нет

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

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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 15.3.2009

Репутация: нет
Всего: нет

Код


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;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »