| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сортировка в строке [D6]

Diman ©   (2004-08-10 15:01:00) 

Как в строку формата '11111<TAB><TAB><TAB>55555<TAB>77777
ПРИВЕСТИ К ФОРМАТУ '11111 0 0 0 55555 0 77777', т.е. найти TAB в строке и заменить его на 0 ?

---

46_55_41_44   (2004-08-10 16:41:00) [1]

Рад за тебя...

P.S. Да кстати поздравляю, ты кажется женишься!

---

Diman   (2004-08-10 16:34:00) [2]

Получилось!!!
Еще раз BIG THANKS!

---

46_55_41_44   (2004-08-10 16:16:00) [3]

ну-ну... Дерзай...

---

Diman   (2004-08-10 16:09:00) [4]

Спасибо Fuad! Щас попробую.

---

46_55_41_44   (2004-08-10 15:41:00) [5]

Да кстати Диман...
#9 адо заменить именно на <пробел><0>, чтобы вся строка пришла к формату: <число><пробел><число>...<пробел><число>

---

Sandman25   (2004-08-10 15:40:00) [6]

StringReplace

---

Наталия   (2004-08-10 15:40:00) [7]

StringReplace ?

---

46_55_41_44   (2004-08-10 15:39:00) [8]

Вставь эту функцию в свой проект!

function ReplaceStr(const S, Srch, Replace: string): string;
var
 I: Integer;
 Source: string;
begin
 Source := S;
 Result := '';
 repeat
   I := Pos(Srch, Source);
   if I > 0 then begin
     Result := Result + Copy(Source, 1, I - 1) + Replace;
     Source := Copy(Source, I + Length(Srch), MaxInt);
   end
   else Result := Result + Source;
 until I <= 0;
end;

а потом:
S2 := ReplaceStr(S, #9, ' 0'); где s2 твоя форматированная строка, а S неформатированная!

---

Наверх