去掉參數(shù)內(nèi)HTML代碼的SQL函數(shù)
下面為您介紹的SQL函數(shù)用于去掉參數(shù)內(nèi)HTML代碼,需要給數(shù)據(jù)庫訪問者master.sp_OA系列存儲過程的EXEC權(quán)限,該方法供您參考,希望對您學(xué)習(xí)SQL函數(shù)的使用能夠有所幫助。
函數(shù)名稱:ReplaceHTML
參數(shù):@Textstr
作用:去掉 @Textstr 內(nèi)的HTML代碼
備注:需要給數(shù)據(jù)庫訪問者master.sp_OA系列存儲過程的EXEC權(quán)限
請先用Convert函數(shù)保證@Textstr為varchar(5000)而不是ntext
Create FUNCTION [dbo].[ReplaceHTML] (
@Textstr varchar (5000)
)
RETURNS varchar(5000) AS
BEGIN
DECLARE @hr integer
DECLARE @objRegExp integer
DECLARE @sStr varchar(5000)
DECLARE @re integer
DECLARE @results varchar(5000)
EXEC @hr = sp_OACreate 'VBScript.RegExp', @objRegExp OUTPUT
IF @hr <> 0 BEGIN
RETURN '不能創(chuàng)建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,' ',''),' ',''),' ','')
-- RETURN @results
RETURN Replace(Replace(Replace(@results,' ',''),' ',''),' ','')
【編輯推薦】