[整理分享技巧2] 利用sp_OA系列存儲過程，處理數學公式結果

USE Tempdb

go

IF OBJECT_ID('Tab1') IS NOT NULL

DROP TABLE Tab1

go

create table Tab1(Col1 real,formula varchar(50))

insert into Tab1 select 1000,'+20.5×÷.1'

insert into Tab1 select 50 ,'÷.5×+23.0'

insert into Tab1 select -50,'+100+(23.0×)'

go

IF OBJECT_ID('Roy_OA') IS NOT NULL

DROP function Roy_OA

go

create function Roy_OA(

@str varchar(1000)-- 要计算的表达式

)returns sql_variant

as

begin

declare @re sql_variant

declare @err int,@src varchar(255),@desc varchar(255)

declare @obj int

exec @err=sp_oacreate'MSScriptControl.ScriptControl',@obj out

if @err<>0 goto lb_err

exec @err=sp_oasetproperty@obj,'Language','vbscript'

if @err<>0 goto lb_err

exec @err=sp_oamethod@obj,'Eval',@re out,@str

if @err=0 return(@re)

lb_err:

exec sp_oageterrorinfo NULL,@src out, @descout

declare @errb varbinary(4),@s varchar(20)

set @errb=cast(@err as varbinary(4))

return(N'错误源: '+@src+char(13)+N'错误描述: '+@desc)

end

go

select

Col1,

formula,

dbo.Roy_OA(cast(Col1 as varchar)+replace(replace(formula,'×','*'),'÷','/')) as Result

from Tab1

/*

Col1 formula Result

1000 +20.5×÷.1 1023.47328244275

50 ÷.5×+23.0 2023

-50 +100+(23.0×) 188

*/