一个varchar，如何删掉里面所有非数字的东西，急！！！！！！

Question

create function dbo.regexReplace
(
@source varchar(5000),    --原字符串
@regexp varchar(1000),    --正则表达式
@replace varchar(1000),   --替换值
@globalReplace bit = 0,   --是否是全局替换
@ignoreCase bit = 0       --是否忽略大小写
)
returnS varchar(1000) AS
begin
declare @hr integer
declare @objRegExp integer
declare @result varchar(5000)exec @hr = sp_OACreate 'VBScript.RegExp', @objRegExp OUTPUT
IF @hr <> 0 begin
exec @hr = sp_OADestroy @objRegExp
return null
end
exec @hr = sp_OASetProperty @objRegExp, 'Pattern', @regexp
IF @hr <> 0 begin
exec @hr = sp_OADestroy @objRegExp
return null
end
exec @hr = sp_OASetProperty @objRegExp, 'Global', @globalReplace
IF @hr <> 0 begin
exec @hr = sp_OADestroy @objRegExp
return null
end
exec @hr = sp_OASetProperty @objRegExp, 'IgnoreCase', @ignoreCase
IF @hr <> 0 begin
exec @hr = sp_OADestroy @objRegExp
return null
end 
exec @hr = sp_OAMethod @objRegExp, 'Replace', @result OUTPUT, @source, @replace
IF @hr <> 0 begin
exec @hr = sp_OADestroy @objRegExp
return null
end
exec @hr = sp_OADestroy @objRegExp
IF @hr <> 0 begin
return null
endreturn @result
end
GO
--调用 declare @str varchar(100)
    set @str='3-(2*47)'
    select dbo.regexReplace(@str,'[^1-9]','',1,1)

Answer 1

create function f_dele(
@a varchar(12)
)returns varchar(12)
as
begin
declare @n varchar(12)
set @n=''while(len(@a)<>0)
begin
if (ascii(left(@a,1))>=48 and ascii(left(@a,1))<=57)
begin
set @n=@n+left(@a,1)
set @a=stuff(@a,1,1,'')
end
else
set @a=stuff(@a,1,1,'' )
end
return(@n)
end
goupdate 表名 set  字段名=dbo.f_dele(字段名)