VPF::Преобразовать текст из столбца в одну строку

Olegan

Дата 8.6.2007, 17:26 (ссылка)

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

Загрузка ...

Крутой сисадмин

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

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

Доброе время суток!

Задачка такая:

в RichEdit я вставляю столбец с кодами товаров из Excel (через буфер обмена).
Получается так:
    K131
    K1501F3
    K1501G3
    K1501H3
    K1501I3
    K1502D3
    K1502E3
    K1502F3
    K1502G3
далее эти значения нужно загнать в edit  чтобы получилось вот так:

K131, K1501F3, K1501G3, K1501H3, K1501I3, K1502D3, K1502E3, K1502F3, K1502G3

т.е. преобразовать в одну строку, убрать лишние пробелы и поставить между кодами запятую с одним пробелом  ( ', ' )

Как это можно сделать?     smile

Спасибо!

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

Цитата(Mayk @ 18.6.2008, 14:29

)

/me объявляет Olegan врагом народа

Цитата(gta4kv @ 20.6.2008, 22:01

)

/me объявляет Olegan врагом народа во второй раз

Цитата(localhost @ 15.6.2009, 08:45

)

/me объявляет Olegan врагом народа в третий раз

m0ro

Дата 8.6.2007, 17:48 (ссылка)

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

Загрузка ...

Опытный

Награды: 1

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

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

Код


//.......
var i,j: integer; s: string; //c: char = '';
//.......
begin
Edit1.Clear;
for i := 0 to (RichEdit1.Lines[RichEdit1.Lines.Count - 1]) do //перебираем от первой до последней строки
  begin
    for j := 1 to (Length(s)) do //перебираем символы строки
      if (s[j] = ' ') then //если символ строки равен пробелу
        s[j] := ''; //то заменяем его на пустое значение
    Edit1.Text := Edit1.Text + ', ' + RichEdit1.Lines[i]; //соединяем строки
  end;
//.......

вроде оно, но не проверил - тут делфи нет (за чужой машиной сижу). не уверен, могут быть проблемы с очисткой значения символа во втором цикле.. если будет несоответствие типов, то используйте вместо пустого значения переменную с

Это сообщение отредактировал(а) m0ro - 8.6.2007, 17:49

lukas

Дата 8.6.2007, 20:41 (ссылка)

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

Загрузка ...

Опытный

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

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

зачем парится и добавлять по одному символу не проще ли так...

Код


function GetListText(var RE:TRichEdit):string;
   var
   i:integer;
begin
Result:='';
for i:=0 to RE.Lines.Count-2 do
      begin
      Result:=Result+RE.Lines.Strings[i]+',';
      end;
Result:=Result+RE.Lindes.Strings[RE.Lines.Count-1];
end;

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

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

Sunvas

Дата 8.6.2007, 21:47 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

m0ro, lukas, ребята совершенно не обязательно писать кучу строк и уж тем более функции, там где можно обойтись одной строкой. Не позорьтесь.

Код


Edit1.Text:=StringReplace(RichEdit1.Lines.Text, #13#10, ', ', [rfReplaceAll]);

Это сообщение отредактировал(а) Sunvas - 8.6.2007, 21:47

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

lukas

Дата 8.6.2007, 22:07 (ссылка)

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

Загрузка ...

Опытный

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

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

Sunvas, а если в более 255 символов... у меня по крайней мере в Memo все что уходило за 255 символ терялось... smile

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

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

Sunvas

Дата 8.6.2007, 22:21 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Цитата(lukas @ 8.6.2007, 22:07

)

у меня по крайней мере в Memo все что уходило за 255 символ терялось...

Это не мои проблеммы.
string - может вмещать до 2х миллионов симоволов!
Сейчас токо что сам провеил на 4028 символах и все влезло.
На закуску. Покажи, где могли потеряться остальные твои символы??

Код


function StringReplace(const S, OldPattern, NewPattern: string;
  Flags: TReplaceFlags): string;
var
  SearchStr, Patt, NewStr: string;
  Offset: Integer;
begin
  if rfIgnoreCase in Flags then
  begin
    SearchStr := AnsiUpperCase(S);
    Patt := AnsiUpperCase(OldPattern);
  end else
  begin
    SearchStr := S;
    Patt := OldPattern;
  end;
  NewStr := S;
  Result := '';
  while SearchStr <> '' do
  begin
    Offset := AnsiPos(Patt, SearchStr);
    if Offset = 0 then
    begin
      Result := Result + NewStr;
      Break;
    end;
    Result := Result + Copy(NewStr, 1, Offset - 1) + NewPattern;
    NewStr := Copy(NewStr, Offset + Length(OldPattern), MaxInt);
    if not (rfReplaceAll in Flags) then
    begin
      Result := Result + NewStr;
      Break;
    end;
    SearchStr := Copy(SearchStr, Offset + Length(Patt), MaxInt);
  end;
end;

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

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