VPF::string -> integer - Форум программистов

thep

Дата 11.3.2009, 22:32 (ссылка)

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

Загрузка ...

Новичок

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

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

Привет парни. Такой вопрос. Допустим есть некая строка 'werty1234werty' из неё надо вытащить '1234' и перевести в integer. Как это можно сделать?

Kbl4AH

Дата 12.3.2009, 16:40 (ссылка)

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

Загрузка ...

Опытный

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

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

просматривай посимвольно строку, если символ - не цифра, то удаляй... оставшееся переводи в число...

Добавлено через 2 минуты и 12 секунд
слабо было на одну тему ниже глянуть?

Shtorm

Дата 13.3.2009, 02:14 (ссылка)

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

Загрузка ...

Новичок

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

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

Простой пример..........

Код


uses Crt;
Var
   st,stR: string;
   Leng: integer;
begin
     write('bla bla bla... - ');
     readln(st);
     Leng := 1;
     stR := '';
     while Leng<=Length(st) do
     begin
          if (st[Leng]>#47) and (st[Leng]<#58) then
             stR := stR+st[Leng];
          inc(Leng);
     end;
     write('number - ',stR);
     repeat until keypressed;
end.

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