VPF::замена Шаблона - Форум программистов

student43

Дата 2.7.2006, 12:04 (ссылка)

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

Загрузка ...

Новичок

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

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

Делаю программу для обработки строк и получения из них нужной информации. В поле Memo содержаться строчки вот такого шаблона.

Код


qwert('Бла-бла',1234567890,'0','','8',0,0,'2','0',0);

нужно из этой строки убрать всё лишнее и оставить только номер 1234567890. Как это сделать известно что цифр 10. Пожалуйста приведите пример.

Yanis

Дата 2.7.2006, 12:43 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

Поиск по форуму "регулярные выражения".

Добавлено @ 12:54
student43
Грубо говоря так:

Код

var
  s: string;
begin
  s := Edit1.Text; 
  s := Copy(s, PosEx(',', s, Pos('(', s))+1,10);
  ShowMessage(s);
end;

Добавлено @ 12:56
Конечно же в Edit1 у тебя строка "qwert('Бла-бла',1234567890,'0','','8',0,0,'2','0',0);".

--------------------

*щёлк*

Yanis

Дата 2.7.2006, 13:10 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

student43
Ну если сам не догадался, то вот как нужно в твоём случае:

Код

var
  s: string;
  n: Integer;
begin
  s := Edit1.Text;
  n := PosEx(',', s, Pos('(', s))+1;
  Delete(s, n, 10);
  Insert('0000000000', s, n);
  ShowMessage(s);
end;

--------------------

*щёлк*

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