Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > замена Шаблона

Автор: student43 2.7.2006, 12:04

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

Код


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

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

Автор: Yanis 2.7.2006, 12:43

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

Добавлено @ 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

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;