Форум: "Базы";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];
Вниз
Сортировка в строке Найти похожие ветки
← →
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 вся ветка
Форум: "Базы";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.033 c
