diff --git a/Plain Craft Launcher 2/Pages/PageInstance/PageInstanceCompResource.xaml.vb b/Plain Craft Launcher 2/Pages/PageInstance/PageInstanceCompResource.xaml.vb index cd3661df..fe1133a0 100644 --- a/Plain Craft Launcher 2/Pages/PageInstance/PageInstanceCompResource.xaml.vb +++ b/Plain Craft Launcher 2/Pages/PageInstance/PageInstanceCompResource.xaml.vb @@ -3,6 +3,10 @@ Imports PCL.Core.UI Public Class PageInstanceCompResource Implements IRefreshable + + ' 搜索延时定时器 + Private WithEvents searchDelayTimer As New System.Timers.Timer + Private lastSearchText As String = "" #Region "模组信息缓存" ' 模组信息缓存 - 解决排序时重复创建FileInfo导致的性能问题 @@ -1997,37 +2001,140 @@ Install: End Get End Property Private SearchResult As List(Of LocalCompFile) + Private searchDelayTimerInterval As Integer + + ' 初始化时设置定时器 + Private Sub InitializeSearchDelayTimer() + searchDelayTimer.AutoReset = False ' 确保每次只触发一次 + searchDelayTimer.Enabled = False + End Sub + + ' 处理输入文本变化，设置延时搜索 Public Sub SearchRun() Handles SearchBox.TextChanged Try + If searchDelayTimer Is Nothing Then + searchDelayTimer = New System.Timers.Timer + InitializeSearchDelayTimer() + End If + + ' 停止当前定时器 + searchDelayTimer.Enabled = False + + ' 保存当前搜索文本 + lastSearchText = SearchBox.Text + If IsSearching Then - '构造请求 - Dim QueryList As New List(Of SearchEntry(Of LocalCompFile)) - For Each Entry As LocalCompFile In CompResourceListLoader.Output - Dim SearchSource As New List(Of KeyValuePair(Of String, Double)) - SearchSource.Add(New KeyValuePair(Of String, Double)(Entry.Name, 1)) - SearchSource.Add(New KeyValuePair(Of String, Double)(Entry.FileName, 1)) - If Entry.Version IsNot Nothing Then - SearchSource.Add(New KeyValuePair(Of String, Double)(Entry.Version, 0.2)) - End If - If Entry.Description IsNot Nothing AndAlso Entry.Description <> "" Then - SearchSource.Add(New KeyValuePair(Of String, Double)(Entry.Description, 0.4)) - End If - If Entry.Comp IsNot Nothing Then - If Entry.Comp.RawName <> Entry.Name Then SearchSource.Add(New KeyValuePair(Of String, Double)(Entry.Comp.RawName, 1)) - If Entry.Comp.TranslatedName <> Entry.Comp.RawName Then SearchSource.Add(New KeyValuePair(Of String, Double)(Entry.Comp.TranslatedName, 1)) - If Entry.Comp.Description <> Entry.Description Then SearchSource.Add(New KeyValuePair(Of String, Double)(Entry.Comp.Description, 0.4)) - SearchSource.Add(New KeyValuePair(Of String, Double)(String.Join("", Entry.Comp.Tags), 0.2)) + ' 判断资源数量，如果少于100个则直接搜索不使用延时 + If CompResourceListLoader IsNot Nothing AndAlso CompResourceListLoader.Output.Count < 100 Then + ' 资源数量较少，直接执行搜索 + searchDelayTimer_Elapsed(Nothing, Nothing) + Else + Dim textLength As Integer = SearchBox.Text.Trim().Length + If textLength = 1 Then + searchDelayTimerInterval = 1000 + ElseIf textLength <= 3 Then + searchDelayTimerInterval = 600 + ElseIf textLength <= 5 Then + searchDelayTimerInterval = 400 + Else + searchDelayTimerInterval = 200 End If - QueryList.Add(New SearchEntry(Of LocalCompFile) With {.Item = Entry, .SearchSource = SearchSource}) - Next - '进行搜索 - SearchResult = Search(QueryList, SearchBox.Text, MaxBlurCount:=6, MinBlurSimilarity:=0.35).Select(Function(r) r.Item).ToList + + ' 设置定时器间隔并启动 + searchDelayTimer.Interval = searchDelayTimerInterval + searchDelayTimer.Enabled = True + End If + Else + ' 没有搜索文本时，直接清空搜索结果并刷新UI + SearchResult = Nothing + RefreshUI() End If - RefreshUI() Catch ex As Exception Log(ex, "搜索过程中发生异常", LogLevel.Debug) End Try End Sub + + ' 定时器触发时执行实际搜索 + Private Async Sub searchDelayTimer_Elapsed(sender As Object, e As EventArgs) Handles searchDelayTimer.Elapsed + Try + ' 停止定时器避免重复触发 + searchDelayTimer.Stop() + + Dim currentSearchText As String = Nothing + Dim currentIsSearching As Boolean = False + Dim currentQueryList As List(Of SearchEntry(Of LocalCompFile)) = Nothing + + Await Dispatcher.InvokeAsync(Sub() + currentSearchText = SearchBox.Text + currentIsSearching = IsSearching + + If lastSearchText = currentSearchText AndAlso currentIsSearching Then + currentQueryList = New List(Of SearchEntry(Of LocalCompFile)) + For Each Entry As LocalCompFile In CompResourceListLoader.Output + Dim SearchSource As New List(Of KeyValuePair(Of String, Double)) + SearchSource.Add(New KeyValuePair(Of String, Double)(Entry.Name, 1)) + SearchSource.Add(New KeyValuePair(Of String, Double)(Entry.FileName, 1)) + + If Entry.Version IsNot Nothing Then + SearchSource.Add(New KeyValuePair(Of String, Double)(Entry.Version, 0.2)) + End If + + If Entry.Description IsNot Nothing AndAlso Entry.Description <> "" Then + SearchSource.Add(New KeyValuePair(Of String, Double)(Entry.Description, 0.4)) + End If + + If Entry.Comp IsNot Nothing Then + If Entry.Comp.RawName <> Entry.Name Then + SearchSource.Add(New KeyValuePair(Of String, Double)(Entry.Comp.RawName, 1)) + End If + If Entry.Comp.TranslatedName <> Entry.Comp.RawName Then + SearchSource.Add(New KeyValuePair(Of String, Double)(Entry.Comp.TranslatedName, 1)) + End If + If Entry.Comp.Description <> Entry.Description Then + SearchSource.Add(New KeyValuePair(Of String, Double)(Entry.Comp.Description, 0.4)) + End If + SearchSource.Add(New KeyValuePair(Of String, Double)(String.Join("", Entry.Comp.Tags), 0.2)) + End If + + currentQueryList.Add(New SearchEntry(Of LocalCompFile) With { + .Item = Entry, + .SearchSource = SearchSource + }) + Next + End If + End Sub) + + ' 检查搜索文本是否已改变 + If lastSearchText <> currentSearchText Then + Return + End If + + Dim searchResults As List(Of LocalCompFile) = Nothing + Try + If currentIsSearching AndAlso currentQueryList IsNot Nothing Then + searchResults = Await Task.Run(Function() + Return Search(currentQueryList, currentSearchText, + MaxBlurCount:=6, MinBlurSimilarity:=0.35) _ + .Select(Function(r) r.Item).ToList() + End Function) + Else + searchResults = Nothing + End If + Catch ex As Exception + Log(ex, "后台搜索过程中发生异常", LogLevel.Debug) + End Try + + Dispatcher.BeginInvoke(Sub() + If lastSearchText = SearchBox.Text Then + SearchResult = searchResults + RefreshUI() + End If + End Sub) + + Catch ex As Exception + Log(ex, "延时搜索过程中发生异常", LogLevel.Debug) + End Try + End Sub #End Region