SQL去除html代码的函数ReplaceHTML

CSICSICSICSI

已于 2023-02-02 08:51:25 修改

阅读量359

点赞数

CC 4.0 BY-SA版权

分类专栏：数据库知识文章标签： sql 数据库 java

于 2023-02-01 08:18:54 首次发布

本文链接：https://blog.csdn.net/m0_37546766/article/details/128826151

数据库知识专栏收录该内容

8 篇文章

订阅专栏

该函数使用VBScript的RegExp对象在SQL环境中创建，用于全局、不区分大小写地替换HTML标签，将文本字符串中的HTML标签去除，同时处理了&nbsp;和全角空格的替换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

函数代码如下：

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go
CREATE FUNCTION [dbo].[ReplaceHTML] (
@Textstr varchar (8000)
)
RETURNS varchar(8000) AS
BEGIN
DECLARE @hr integer
DECLARE @objRegExp integer
DECLARE @sStr varchar(8000)
DECLARE @re integer
DECLARE @results varchar(8000)
EXEC @hr = sp_OACreate 'VBScript.RegExp', @objRegExp OUTPUT
IF @hr <> 0 BEGIN
RETURN '不能创建VBScript.RegExp对象'
END
EXEC @hr = sp_OASetProperty @objRegExp, 'Pattern', '<(.[^>]*)>'
IF @hr <> 0 BEGIN
RETURN 'Pattern对象错误'
END
EXEC @hr = sp_OASetProperty @objRegExp, 'Global', True
IF @hr <> 0 BEGIN
RETURN 'Global对象错误'
END
EXEC @hr = sp_OASetProperty @objRegExp, 'IgnoreCase', True
IF @hr <> 0 BEGIN
RETURN 'IgnoreCase对象错误'
END
EXEC @hr = sp_OAMethod @objRegExp, 'Replace', @results OUTPUT, @Textstr,''
IF @hr <> 0 BEGIN
RETURN @Textstr
END
EXEC @hr = sp_OADestroy @objRegExp
IF @hr <> 0 BEGIN
RETURN '不能注销VBScript.RegExp对象'
END
-- Set @results = Replace(Replace(Replace(@results,'&nbsp;',''),'　',''),' ','')
-- RETURN @results
RETURN Replace(Replace(Replace(@results,'&nbsp;',''),'　',''),' ','')
end