Продвинутый поиск
Все наверное знают как можно искать что то в базе данных, напр:
1. select * from ... where SomeField=SomeSearch (самый быстрый, ищет точные совпадения)
2. select * from ... where SomeField like %SomeSearch% (медленный, ищет точные вхождения)
3. и мой метод, он разработан на основе алгоритма MetaPhone, он позволяет искать на подобии оператора Like, но с некоторой точностью, напр. частенько нужно проверять не на точною соответственность, а на некоторою вероятность совпадения, как раз это я и попиталса сделать. (Заточено под MS SQL 97).
Привожу полный текст:
CREATE PROCEDURE dbo.StrCompareEx (@p varchar(255), @t varchar(255), @maxdist tinyint)
--RETURNS integer
AS
BEGIN
/* Compare two Strings, maxlen=255, @maxdist = max len to compare strings, use 100 = max len field [StoreList].[Name] */
DECLARE @dist tinyint
DECLARE @d varchar(255)
DECLARE @dp varchar(255)
DECLARE @dt varchar(255)
DECLARE @plen tinyint
DECLARE @tlen tinyint
SELECT @plen = LEN(@p)
SELECT @tlen = LEN(@t)
DECLARE @i tinyint
DECLARE @j tinyint
SELECT @i = 1
SELECT @d = ''
WHILE @i<@plen <="" p="">
BEGIN
SELECT @d = @d char(@i)
SELECT @i = @i + 1
END
DECLARE @dst1 tinyint
DECLARE @dst2 tinyint
DECLARE @dst3 tinyint
DECLARE @dst4 tinyint
DECLARE @ct varchar(1)
DECLARE @ctp varchar(1)
SELECT @ctp=''
SELECT @j = 1
WHILE @j<@tlen <="" p="">
BEGIN
SELECT @ct = substring(@t,@j,1)
SELECT @i = 1
SELECT @dt = NULL
WHILE @i<@plen <="" p="">
BEGIN
IF @i = 1
SELECT @dst1 = @j-1
ELSE
SELECT @dst1 = ASCII(substring(@d,@i-1,1))
IF @ct
SELECT @dst1 = @dst1 + 1
SELECT @dst2 = ASCII(substring(@d,@i,1))+1
IF @i = 1
SELECT @dst3 = @j +1
ELSE
SELECT @dst3 = ASCII(substring(@dt,@i-1,1)) + 1
SELECT @dst4 = @dst1
IF @j > 1 and @i > 1
IF @ctp = substring(@p,@i,1) and @ct = substring(@p,@i-1,1)
BEGIN
IF @i = 2
SELECT @dst4 = @j - 2 + 1
ELSE
SELECT @dst4 = ASCII(substring(@dp,@i-2,1)) + 1
END
DECLARE @dst tinyint
SELECT @dst = @dst1
IF @dst2 <@dst <="" p="">
SELECT @dst = @dst2
IF @dst3 <@dst <="" p="">
SELECT @dst = @dst3
IF @dst4 <@dst <="" p="">
SELECT @dst = @dst4
IF @i >1
SELECT @dt = @dt char(@dst)
ELSE
SELECT @dt = char(@dst)
SELECT @i = @i + 1
END
SELECT @ctp = @ct
SELECT @dp = @d
SELECT @d = @dt
SELECT @j = @j + 1
END
SELECT @dist = ASCII(substring(@d,@plen,1))
IF @dist > @maxdist + 1
SELECT @dist = @maxdist + 1
RETURN @dist
END
CREATE PROCEDURE dbo.StrCompareExSpecific
@ComparedStr varchar(100) -- str to compare
AS
BEGIN
declare @StoredProcName varchar(50); set @StoredProcName=OBJECT_NAME(@@PROCID);
EXEC [GetAccess] @StoredProcName, 0, 0, 'Вивід схожий по назві в номенклаторі';
if exists (select * from tempdb..sysobjects where name ='#tempS') drop table #tempS
CREATE TABLE [dbo].[#tempS] (
[ID] int IDENTITY(1, 1) NOT NULL,
[aID] int NOT NULL,
[Sname] varchar(100) NOT NULL,
[dist] int NOT NULL
)
ON [PRIMARY]
DECLARE @RetCode [int]
declare @id int -- cursor ID
declare @fname varchar(255) -- cursor our name to compare, fack you bill, stuped idiot, don't include Functions in to MS SQL 97 !!!
if (select count(*) from storelist where [name]=ltrim(rtrim(@ComparedStr)))>0
begin
raiserror('Данна позиція уже існує, запис неможливий!', 16, 1);
-- select @ttt=1; -- use for outher break), small hack for stuped)
end
declare Names_Cursor cursor for
select storeid, [Name] as 'sname'
from storelist
where (len([Name])>len(@ComparedStr)-len(@ComparedStr)/4) and (len([Name])
FOR READ ONLY
OPEN Names_Cursor
FETCH NEXT FROM Names_Cursor
INTO @id, @fname
WHILE @@FETCH_STATUS = 0
BEGIN
EXEC @RetCode = [dbo].[StrCompareEx] @ComparedStr, @fname, 100
if 100-@RetCode > 85
insert #tempS
(aID, SName, dist)
values (@id, @fname, 100-@RetCode)
FETCH NEXT FROM Names_Cursor
INTO @id, @fname
END
CLOSE Names_Cursor
DEALLOCATE Names_Cursor
select *
from #tempS
order by dist desc;
END
Если будут вопросы, пишите, дополню чего не хватает....
Чтото с оформлением здесь не то.... всьо сбило под левий угол (