实用的搜索引擎式关键字查询存储过程
作者:CrazyFor (冬眠的鼹鼠) CREATE PROCEDURE SP_AdvanceSearch --author: CrazyFor
(@TableName Nvarchar(200) --表名
,@ViewColumns Nvarchar(200)='*' --需要查询的字段列表
,@SearchColumnName Nvarchar(100) --被搜索的字段名
,@KeyWord Nvarchar(200) --搜索关键字
)
AS
---开始处理关键字
---**********************
declare @TempKeyWord Nvarchar(200)
,@CurrKeyWord Nvarchar(200)declare @KH_Q Nvarchar(20),@KH_H Nvarchar(20)
declare @KeyCount int,@I int,@J int,@FirstWordLocal int
declare @AndOr varchar(20),@WhereStr Nvarchar(2000)if @KeyWord<>N''
begin
set @KeyWord=Lower(@KeyWord) set @KeyWord=replace(@KeyWord,')',')') --处理全角的括号
set @KeyWord=replace(@KeyWord,'(','(')
set @KeyWord=replace(@KeyWord,' ',' ')
set @KeyWord=replace(@KeyWord,'+','+') --处理全角+-|
set @KeyWord=replace(@KeyWord,'-','-')
set @KeyWord=replace(@KeyWord,'|','|') set @KeyWord=replace(@KeyWord,' and ','+') --处理全角英文关键字
set @KeyWord=replace(@KeyWord,' or ','|')
set @KeyWord=replace(@KeyWord,' not ','-')
set @KeyWord=replace(@KeyWord,' ','+') set @KeyWord=replace(@KeyWord,'+',';+')
set @KeyWord=replace(@KeyWord,'-',';-')
set @KeyWord=replace(@KeyWord,'|',';|')
if len(replace(@KeyWord,'(',''))<>len(replace(@KeyWord,')',''))
set @KeyWord='' --前后括号不匹配 Set @WhereStr=' where '
if @KeyWord<>N''
begin
--生成搜索字符串
set @KeyWord=@KeyWord+';' set @KeyCount=len(@KeyWord)-len(replace(@KeyWord,';',''))
set @TempKeyWord=@KeyWord set @I=1 while (@I<=@KeyCount)
begin
set @FirstWordLocal=CharIndex(';',@TempKeyWord)
set @CurrKeyWord=rtrim(ltrim(left(@TempKeyWord,@FirstWordLocal-1)))
set @TempKeyWord=rtrim(ltrim(right(@TempKeyWord,len(@TempKeyWord)-@FirstWordLocal)))
if (@CurrKeyWord='' or replace(replace(replace(replace(replace(@CurrKeyWord,'+',''),'-',''),'|',''),'(',''),')','') ='')
begin
set @WhereStr=@WhereStr +replace(replace(replace(@CurrKeyWord,'+',''),'-',''),'|','')
set @I=@I+1
CONTINUE
end set @KH_Q=''
set @KH_H=''
--检查前面的括号
Set @j=1
while (substring(@CurrKeyWord,@j,1)='('
or substring(@CurrKeyWord,@j,1)='+'
or substring(@CurrKeyWord,@j,1)='-'
or substring(@CurrKeyWord,@j,1)='|')
begin if substring(@CurrKeyWord,@j,1)='('
set @KH_Q=@KH_Q + '(' set @j=@j+1
end --检查后面的括号
Set @j=len(@CurrKeyWord)
while (substring(@CurrKeyWord,@j,1)=')')
begin
set @KH_H=@KH_H + ')'
set @j=@j-1
end set @AndOr=''
if substring(@CurrKeyWord,1,1)='+'
set @AndOr='and' if substring(@CurrKeyWord,1,1)='-'
set @AndOr='and not' if substring(@CurrKeyWord,1,1)='|'
set @AndOr='or'
Set @CurrKeyWord=replace(@CurrKeyWord,'+','')
Set @CurrKeyWord=replace(@CurrKeyWord,'-','')
Set @CurrKeyWord=replace(@CurrKeyWord,'|','')
Set @CurrKeyWord=replace(@CurrKeyWord,')','')
Set @CurrKeyWord=replace(@CurrKeyWord,'(','') Set @WhereStr=@WhereStr + ' ' + @AndOr + ' ' + @KH_Q + ' ' + @SearchColumnName +' like ''%' + @CurrKeyWord + '%'' ' + @KH_H set @I=@I+1
end
end
end
exec ( 'select ' +@ViewColumns + ' from ' +@TableName + @WhereStr)
GO应用实例:
exec SP_AdvanceSearch 'syscolumns' , '*' ,'[name]' ,'(id+a)-b'
exec SP_AdvanceSearch 'syscolumns' , '*' ,'[name]' ,'(id+a)+b'
exec SP_AdvanceSearch 'syscolumns a left join sysobjects b on a.id=b.id' , '*' ,'a.[name]' ,'(ta+b-@)|(id+s)'
作者:CrazyFor (冬眠的鼹鼠) CREATE PROCEDURE SP_AdvanceSearch --author: CrazyFor
(@TableName Nvarchar(200) --表名
,@ViewColumns Nvarchar(200)='*' --需要查询的字段列表
,@SearchColumnName Nvarchar(100) --被搜索的字段名
,@KeyWord Nvarchar(200) --搜索关键字
)
AS
---开始处理关键字
---**********************
declare @TempKeyWord Nvarchar(200)
,@CurrKeyWord Nvarchar(200)declare @KH_Q Nvarchar(20),@KH_H Nvarchar(20)
declare @KeyCount int,@I int,@J int,@FirstWordLocal int
declare @AndOr varchar(20),@WhereStr Nvarchar(2000)if @KeyWord<>N''
begin
set @KeyWord=Lower(@KeyWord) set @KeyWord=replace(@KeyWord,')',')') --处理全角的括号
set @KeyWord=replace(@KeyWord,'(','(')
set @KeyWord=replace(@KeyWord,' ',' ')
set @KeyWord=replace(@KeyWord,'+','+') --处理全角+-|
set @KeyWord=replace(@KeyWord,'-','-')
set @KeyWord=replace(@KeyWord,'|','|') set @KeyWord=replace(@KeyWord,' and ','+') --处理全角英文关键字
set @KeyWord=replace(@KeyWord,' or ','|')
set @KeyWord=replace(@KeyWord,' not ','-')
set @KeyWord=replace(@KeyWord,' ','+') set @KeyWord=replace(@KeyWord,'+',';+')
set @KeyWord=replace(@KeyWord,'-',';-')
set @KeyWord=replace(@KeyWord,'|',';|')
if len(replace(@KeyWord,'(',''))<>len(replace(@KeyWord,')',''))
set @KeyWord='' --前后括号不匹配 Set @WhereStr=' where '
if @KeyWord<>N''
begin
--生成搜索字符串
set @KeyWord=@KeyWord+';' set @KeyCount=len(@KeyWord)-len(replace(@KeyWord,';',''))
set @TempKeyWord=@KeyWord set @I=1 while (@I<=@KeyCount)
begin
set @FirstWordLocal=CharIndex(';',@TempKeyWord)
set @CurrKeyWord=rtrim(ltrim(left(@TempKeyWord,@FirstWordLocal-1)))
set @TempKeyWord=rtrim(ltrim(right(@TempKeyWord,len(@TempKeyWord)-@FirstWordLocal)))
if (@CurrKeyWord='' or replace(replace(replace(replace(replace(@CurrKeyWord,'+',''),'-',''),'|',''),'(',''),')','') ='')
begin
set @WhereStr=@WhereStr +replace(replace(replace(@CurrKeyWord,'+',''),'-',''),'|','')
set @I=@I+1
CONTINUE
end set @KH_Q=''
set @KH_H=''
--检查前面的括号
Set @j=1
while (substring(@CurrKeyWord,@j,1)='('
or substring(@CurrKeyWord,@j,1)='+'
or substring(@CurrKeyWord,@j,1)='-'
or substring(@CurrKeyWord,@j,1)='|')
begin if substring(@CurrKeyWord,@j,1)='('
set @KH_Q=@KH_Q + '(' set @j=@j+1
end --检查后面的括号
Set @j=len(@CurrKeyWord)
while (substring(@CurrKeyWord,@j,1)=')')
begin
set @KH_H=@KH_H + ')'
set @j=@j-1
end set @AndOr=''
if substring(@CurrKeyWord,1,1)='+'
set @AndOr='and' if substring(@CurrKeyWord,1,1)='-'
set @AndOr='and not' if substring(@CurrKeyWord,1,1)='|'
set @AndOr='or'
Set @CurrKeyWord=replace(@CurrKeyWord,'+','')
Set @CurrKeyWord=replace(@CurrKeyWord,'-','')
Set @CurrKeyWord=replace(@CurrKeyWord,'|','')
Set @CurrKeyWord=replace(@CurrKeyWord,')','')
Set @CurrKeyWord=replace(@CurrKeyWord,'(','') Set @WhereStr=@WhereStr + ' ' + @AndOr + ' ' + @KH_Q + ' ' + @SearchColumnName +' like ''%' + @CurrKeyWord + '%'' ' + @KH_H set @I=@I+1
end
end
end
exec ( 'select ' +@ViewColumns + ' from ' +@TableName + @WhereStr)
GO应用实例:
exec SP_AdvanceSearch 'syscolumns' , '*' ,'[name]' ,'(id+a)-b'
exec SP_AdvanceSearch 'syscolumns' , '*' ,'[name]' ,'(id+a)+b'
exec SP_AdvanceSearch 'syscolumns a left join sysobjects b on a.id=b.id' , '*' ,'a.[name]' ,'(ta+b-@)|(id+s)'
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货