0

FindInFiles 検索を使用して位置をバイト単位で設定できません。検索された単語が見つかったときに、検索位置にアクセスできると考えることができませんか?

以下は、アプリケーションのディレクトリ内のすべてのファイルに対する検索コードです。

If Not String.IsNullOrWhiteSpace(Trim(TextBox1.Text)) Then
                Dim matches As String = Trim(TextBox1.Text).ToLower
                Dim list As System.Collections.ObjectModel.
      ReadOnlyCollection(Of String)

                list = My.Computer.FileSystem.FindInFiles(My.Application.Info.DirectoryPath & "\Librairies\",
     matches, True, FileIO.SearchOption.SearchTopLevelOnly)
                If list.Count > 0 Then
                    For Each filename In list
                        ListView1.Items.Add(System.IO.Path.GetFileName(filename))
                        'ListView1.Items(0).SubItems.Add(FirstCharacter)
                    Next
                Else
                    MessageBox.Show("Aucun résultat.")
                End If
            End If
4

0 に答える 0