Выделение цифр из строки

← →
dest81 © (2006-09-22 12:31) [0]

Есть строка из которой надо вытянуть номер договора (например: оплата газа Сидоров И.И. дог 345 от 26.07.06)!
Определенного шаблона эта строка не имеет так что тут надо вытягивать только цифры! Подскажите какой-нибудь алгоритм!

← →
Desdechado © (2006-09-22 12:34) [1]

str1:=""; for i:=1 to Length(str) do if( str[i] in ["0".."9"] ) then str1:=str1+str[i];

дата из-за отсутствия шаблона тоже туда бухнется

> dest81 © (22.09.06 12:31)

Если строка никак не подчиняется никаким правилам для рег.выражений, то задача заведомо не решаема, если конечно не брать в расчет ИИ)

Выделение цифр из строки Найти похожие ветки