работа со строкой

← →
tey (2008-06-17 16:06) [0]

подскажите как убрать из строки все символы, кроме цифр и точек?

← →
Dennis I. Komarov © (2008-06-17 16:09) [1]

Пробежаться по строке, если не цифра и не точка то удалить.

← →
Ega23 © (2008-06-17 16:09) [2]

function ВсёКромеТочек(const S : string) : string; var i : Integer; begin Result := ""; for i:=1 to Length(S) do if S[i] in ["0".."9", "."] then Result := Result + S[i]; end;

← →
tey (2008-06-17 16:09) [3]

← →
Ega23 © (2008-06-17 16:10) [4]

А в целом - пора о метле задумываться, коли такую простейшую вещь сделать не можешь.

← →
Dennis I. Komarov © (2008-06-17 16:12) [5]

> [2] Ega23 © (17.06.08 16:09)

домены уде освоены, теперь за дельфу Медведев взялся... :)

← →
Riply © (2008-06-17 17:03) [6]

> [2] Ega23 © (17.06.08 16:09)
> for i:=1 to Length(S) do > if S[i] in ["0".."9", "."] then > Result := Result + S[i];

Некузяво :)
IMHO, лучше дважды пройтись циклом:
первый раз посчитать необходимый Length результата,
а во втором цикле его (Result) заполнить.

← →
Ega23 © (2008-06-17 17:07) [7]

> Некузяво :)
> IMHO, лучше дважды пройтись циклом:
> первый раз посчитать необходимый Length результата,
> а во втором цикле его (Result) заполнить.
>

Ну ежели за память и быстродействие бороться, и строка немерянного размера - то да.

← →
McSimm © (2008-06-17 17:09) [8]

А если только за быстродействие, то установить первоначальную длину результата как у исходной строки, в конце обрезать.

← →
Правильный-Вася (2008-06-17 17:18) [9]

а латинские цифры кто учитывать будет?

← →
Alien1769 © (2008-06-17 17:26) [10]

> а латинские цифры кто учитывать будет?

Правильный Вася

зы. Шо ник стащили :)

← →
korneley © (2008-06-17 18:19) [11]

> Правильный-Вася (17.06.08 17:18) [9]
> а латинские цифры кто учитывать будет?

А они.., эта... Разве не арабские? Ну, те, что с #48 начинаются :))

← →
Германн © (2008-06-17 18:36) [12]

> korneley © (17.06.08 18:19) [11]
>
>

Римские?

← →
korneley © (2008-06-17 19:02) [13]

> Германн © (17.06.08 18:36) [12]
> Римские?

Не... С римскими всё понятно, там даже ноля нет (если не брать расширенный вариант записи) Перевели всё в верхний регистр, и "почикали" M, D, C, L, X, V, I. О! с римским вариантом упираемся в 4K. Что-то это мне смутно напоминает...

← →
Правильный-Вася (2008-06-17 21:57) [14]

> Римские?

ну да, попутал :)

> с римским вариантом упираемся в 4K

это с числами упираешься, а речь о цифрах

← →
korneley © (2008-06-17 22:47) [15]

> Правильный-Вася (17.06.08 21:57) [14]
> ...а речь о цифрах

И точках :)

← →
McSimm © (2008-06-17 22:49) [16]

> это с числами упираешься, а речь о цифрах

а сколько всего римских цифр?

← →
korneley © (2008-06-17 22:50) [17]

> McSimm © (17.06.08 22:49) [16]
> > это с числами упираешься, а речь о цифраха сколько всего
> римских цифр?

Я полагаю, что семь.

← →
Юрий Зотов © (2008-06-17 22:51) [18]

Еще надо учесть 16-ричную точку.

> Юрий Зотов © (17.06.08 22:51) [18]

Это в римской, непозиционной, системе счисления? Разговор точно выходит за рамки "начинающие" :)

> korneley © (17.06.08 22:55) [19]

В римской, непозиционной системе счисления 16-ричная точка отделяет целую часть от дробной. Например, запись IX.V означает "пятнадцать целых и пять шестнадцатых".

> korneley © (17.06.08 19:02) [13]
> с римским вариантом упираемся в 4K.

Там же ж вроде можно букву mу вставить между тысячами и единицами и упереться в 4M? А потом ещё одну и т.д.?

> ProgRAMmer Dimonych © (18.06.08 00:46) [22]

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

> korneley © (18.06.08 01:17) [23]
>
>
> > ProgRAMmer Dimonych © (18.06.08 00:46) [22]
>
> В обычной записи числа от 1 до 3999 (MMMCMXCIX) дальше -
> расширенние системы записи в "позиционную", там гибрид
> уже, и "M" в качестве нуля, а не "тыщи".
>

Дальше ты идёшь по пути Riply. :)

j := 0; for i := 1 to Length(s) do if s[i] in SetOfGoodSymbols then s[i - j] := s[i] else Inc(j); SetLength(s, Length(s) - j);

> Германн © (18.06.08 02:18) [24]
> Дальше ты идёшь по пути Riply. :)

Неплохо бы :). "Бей Чужих, спасай, мнэ-э... Сигурни Уивер!" Кстати, прикупил сборник "Спасти Чужого". Еще не читал. В предвкушении.

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