度量快速开发平台中sqlserver2008数据库自定义正则表达式使用介绍

王爱东

度量快速开发平台中，有文章类型的字段，可以设置成word和html编辑类型，在记录部件中录入数据后，数据库中保存的就有带格式的字符。例如：

如果要在其他地方来显示这里面的内容，比如咋bs中，只显示没有格式的文字内容。比如想要这样的效果：
原来保存的是：<?xml version="1.0" encoding="utf-8"?>保存的数据</>。
现在需要的就是: 保存的数据   这几个字。

这就需要进行正则表达式的匹配替换。

在sqlserver2008中，可以定义自动匹配函数：

CREATE function [dbo].[regexReplace]
(
@source ntext, --原字符串
@regexp varchar(1000), --正则表达式
@replace varchar(1000), --替换值
@globalReplace bit = 1, --是否是全局替换
@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
end
return @result
end

王爱东

自定义函数设置好后，我们可以在企业管理器中执行查看效果。
下面sql中的huiyineirong字段就是文章类型的word内容，里面有很多格式化标记内容。

select huiyineirong, dbo.regexReplace(huiyineirong,'<[^>]+>','',1,0) newcontent  from SECURITY_MEETING


一般情况下在sqlserver2008中执行上面sql是要报错的（请点击图片打开查看具体错误）：

该错误是没有权限执行
Ole Automation Procesures
因此我们需要打开sqlserver的Ole Automation Procesures权限后才能执行。

王爱东

打开Ole Automation Procesures 的方式是：


--查看Ole Automation Procesures是否打开
EXEC sp_configure 'Ole Automation Procedures';
--打开高级选项允许显示
EXEC sp_configure 'show advanced options', 1;
RECONFIGURE;
--启用Ole Automation Procesures
EXEC sp_configure 'Ole Automation Procedures', 1;
RECONFIGURE;

打开后，再执行就不会报错。
下面的sql是把所有网页中左右尖括号及里面的内容替换成空值的效果。

select huiyineirong,  dbo.regexReplace(huiyineirong,'<[^>]+>','',1,0)  from SECURITY_MEETING

王爱东

还有很多方法来实现把html或者xml格式替换掉，只保留文字的方法。

万望