Скачать: CL | DM;

Сортировка в строке   Найти похожие ветки 

← →
Diman   (2004-08-10 15:01) [0]

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

---

← →
46_55_41_44 ©   (2004-08-10 15:39) [1]

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

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 неформатированная!

---

← →
Sandman25 ©   (2004-08-10 15:40) [2]

StringReplace

---

← →
Наталия ©   (2004-08-10 15:40) [3]

StringReplace ?

---

← →
46_55_41_44 ©   (2004-08-10 15:41) [4]

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

---

← →
Diman   (2004-08-10 16:09) [5]

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

---

← →
46_55_41_44 ©   (2004-08-10 16:16) [6]

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

---

← →
Diman   (2004-08-10 16:34) [7]

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

---

← →
46_55_41_44 ©   (2004-08-10 16:41) [8]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c