[整理分享技巧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 , @desc out

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

*/