生成查询的模糊匹配字符串.sql

sqlserver 数据库编程的绝好脚本

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[f_Sql]') and xtype in (N'FN', N'IF', N'TF'))
drop function [dbo].[f_Sql]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[序数表]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [序数表]
GO

--为了效率,所以要一个辅助表配合
select top 1000 id=identity(int,1,1) into 序数表 
from syscolumns a,syscolumns b
alter table 序数表 add constraint pk_id_序数表 primary key(id)
go

/*--根据指定字符串生成查询的模糊匹配字符串

	条件连接的关键字为 and,or
	可以任意指定括号
	生成的条件表达式为 like 模糊匹配

--邹建 2004.08(引用请保留此信息)--*/

/*--调用示例

	--调用示例
	select A=dbo.f_Sql('(Web or HTML or Internet) and (Programmer or Developer)','content')
	select B=dbo.f_Sql('Web or HTML or Internet','content')
	select C=dbo.f_Sql('(Web and HTML)','content')
	select D=dbo.f_Sql('Web','content')
--*/
--示例函数
create function f_Sql(
@str Nvarchar(1000),	--要检索的字符串
@fdname sysname	--在那个字段中检索
)returns Nvarchar(4000)
as
begin
	declare @r Nvarchar(4000)
	set @r=''
	select @r=@r+case
		when substring(@str,id,charindex(' ',@str+' ',id)-id) in('or','and')
			then ' '+substring(@str,id,charindex(' ',@str+' ',id)-id)+' '
		when substring(@str,id,1)='('
			then '(['+@fdname+'] like ''%'
				+substring(@str,id+1,charindex(' ',@str+' ',id)-id-1)
				+'%'''
		when substring(@str,charindex(' ',@str+' ',id)-1,1)=')'
			then '['+@fdname+'] like ''%'
				+substring(@str,id,charindex(' ',@str+' ',id)-id-1)
				+'%'')'
		else '['+@fdname+'] like ''%'
			+substring(@str,id,charindex(' ',@str+' ',id)-id)
			+'%'''
		end
	from 序数表
	where id<=len(@str)
		and charindex(' ',' '+@str,id)-id=0
	return(@r)
end
go