8

SQLServer2008をデータベースとして使用するWebアプリケーションがあります。ユーザーは、データベース内の特定の列に対して全文検索を行うことができます。SQL Serverのフルテキスト機能は、ヒットの強調表示をサポートしていないようです。これを自分で構築する必要がありますか、それともこれを行う方法に関するライブラリや知識がありますか？

ところで、アプリケーションはC＃で記述されているため、.Netソリューションが理想的ですが、翻訳できるので必要ありません。

4

4 に答える 4

3

新しいSQLServer2008ストアドプロシージャsys.dm_fts_parserの出力を解析し、正規表現を使用できるようですが、あまり詳しく調べていません。

于 2009-03-06T18:43:01.240 に答える
3

Ishmael のアイデアを拡張すると、これは最終的な解決策ではありませんが、開始するには良い方法だと思います。

まず、フルテキスト エンジンで取得された単語のリストを取得する必要があります。 

declare @SearchPattern nvarchar(1000) = 'FORMSOF (INFLECTIONAL, " ' + @SearchString + ' ")' 
declare @SearchWords table (Word varchar(100), Expansion_type int)
insert into @SearchWords
select distinct display_term, expansion_type
from sys.dm_fts_parser(@SearchPattern, 1033, 0, 0)
where special_term = 'Exact Match'

たとえば、検索パターンは非常に基本的なものです。また、必要のない単語を除外するより良い方法があるかもしれませんが、少なくとも、全文検索で一致する語幹単語などのリストが得られます。

必要な結果が得られたら、RegEx を使用して結果セットを解析できます (または、できれば高速化するためにサブセットのみを解析しますが、これを行う良い方法はまだわかりません)。これには、2 つの while ループと、一連の一時テーブルと変数を使用するだけです。

declare @FinalResults table 
while (select COUNT(*) from @PrelimResults) > 0
begin
    select top 1 @CurrID = [UID], @Text = Text from @PrelimResults
    declare @TextLength int = LEN(@Text )
    declare @IndexOfDot int = CHARINDEX('.', REVERSE(@Text ), @TextLength - dbo.RegExIndexOf(@Text, '\b' + @FirstSearchWord + '\b') + 1)
    set @Text = SUBSTRING(@Text, case @IndexOfDot when 0 then 0 else @TextLength - @IndexOfDot + 3 end, 300)

    while (select COUNT(*) from @TempSearchWords) > 0
    begin
        select top 1 @CurrWord = Word from @TempSearchWords
        set @Text = dbo.RegExReplace(@Text, '\b' + @CurrWord + '\b',  '<b>' + SUBSTRING(@Text, dbo.RegExIndexOf(@Text, '\b' + @CurrWord + '\b'), LEN(@CurrWord) + 1) + '</b>')
        delete from @TempSearchWords where Word = @CurrWord
    end

    insert into @FinalResults
    select * from @PrelimResults where [UID] = @CurrID
    delete from @PrelimResults where [UID] = @CurrID
end

いくつかの注意点:
1. ネストされた while ループはおそらく最も効率的な方法ではありませんが、他に思い浮かびません。カーソルを使用する場合、本質的に同じでしょうか?
2.@FirstSearchWordここでは、元の検索語の 1 つのテキスト内の最初のインスタンスを参照するため、基本的に、置換するテキストは要約にのみ含まれます。繰り返しますが、これは非常に基本的な方法であり、ある種のテキスト クラスター検索アルゴリズムがおそらく便利です。
3. そもそも RegEx を取得するには、CLR ユーザー定義関数が必要です。

于 2010-07-26T19:07:45.023 に答える
1

この場合、データベースの要点を見落としている可能性があります。その仕事は、与えられた条件を満たすデータを返すことです。おそらくWebコントロールで正規表現を使用して強調表示を実装したいと思うでしょう。

これは、簡単な検索で明らかになるものです。

http://www.dotnetjunkies.com/PrintContent.aspx?type=article&id=195E323C-78F3-4884-A5AA-3A1081AC3B35

于 2008-09-16T17:40:40.750 に答える
1

いくつかの詳細:

            search_kiemeles=replace(lcase(search),"""","")
            do while not rs.eof  'The search result loop
                hirdetes=rs("hirdetes")
                data=RegExpValueA("([A-Za-zöüóőúéáűíÖÜÓŐÚÉÁŰÍ0-9]+)",search_kiemeles)   'Give back all the search words in an array, I need non-english characters also
                For i=0 to Ubound(data,1)
                    hirdetes = RegExpReplace(hirdetes,"("&NoAccentRE(data(i))&")","<em>$1</em>")
                Next
                response.write hirdetes
                rs.movenext
            Loop
            ...

機能

'All Match to Array
Function RegExpValueA(patrn, strng)
    Dim regEx
    Set regEx = New RegExp   ' Create a regular expression.
    regEx.IgnoreCase = True   ' Set case insensitivity.
    regEx.Global = True
    Dim Match, Matches, RetStr
    Dim data()
    Dim count
    count = 0
    Redim data(-1)  'VBSCript Ubound array bug workaround
    if isnull(strng) or strng="" then
        RegExpValueA = data
        exit function
    end if
    regEx.Pattern = patrn   ' Set pattern.
    Set Matches = regEx.Execute(strng)   ' Execute search.
    For Each Match in Matches   ' Iterate Matches collection.
        count = count + 1
        Redim Preserve data(count-1)
      data(count-1) = Match.Value
    Next
    set regEx = nothing
    RegExpValueA = data
End Function

'Replace non-english chars
Function NoAccentRE(accent_string)
    NoAccentRE=accent_string
    NoAccentRE=Replace(NoAccentRE,"a","§")
    NoAccentRE=Replace(NoAccentRE,"á","§")
    NoAccentRE=Replace(NoAccentRE,"§","[aá]")
    NoAccentRE=Replace(NoAccentRE,"e","§")
    NoAccentRE=Replace(NoAccentRE,"é","§")
    NoAccentRE=Replace(NoAccentRE,"§","[eé]")
    NoAccentRE=Replace(NoAccentRE,"i","§")
    NoAccentRE=Replace(NoAccentRE,"í","§")
    NoAccentRE=Replace(NoAccentRE,"§","[ií]")
    NoAccentRE=Replace(NoAccentRE,"o","§")
    NoAccentRE=Replace(NoAccentRE,"ó","§")
    NoAccentRE=Replace(NoAccentRE,"ö","§")
    NoAccentRE=Replace(NoAccentRE,"ő","§")
    NoAccentRE=Replace(NoAccentRE,"§","[oóöő]")
    NoAccentRE=Replace(NoAccentRE,"u","§")
    NoAccentRE=Replace(NoAccentRE,"ú","§")
    NoAccentRE=Replace(NoAccentRE,"ü","§")
    NoAccentRE=Replace(NoAccentRE,"ű","§")
    NoAccentRE=Replace(NoAccentRE,"§","[uúüű]")
end function
于 2008-09-24T13:20:06.043 に答える