Kod:
Private Sub DRm_TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
RichTextBox1.Text = ""
Arama_Yap_Olmayanlari_Sil(ListView1, TextBox1.Text)
End Sub
Private Shared Sub Arama_Yap_Olmayanlari_Sil(ByVal ListView_Adi As ListView, ByVal Aranacak_TextBox As String)
ListView_Adi.Items.Clear()
Dim ara As String = Aranacak_TextBox.ToLower()
For Each item As ListViewItem In ListView_Adi.Items
If item.Text.ToLower().Contains(ara) = True Then
item.Selected = True
Else
item.Remove()
End If
Next
End Sub
Bu şekilde textboxa girilen isim ile Listview in 1. kolonunda "Parça Adı" Kolonunda arama yaptırmak, olmayanları silmek, text sıfırlanınca tüm verilerin geri gelmesini istiyorum.
Kod:
Sub KlasorleriListele()
Dim satir As Integer
Dim sarkiBaslangic, klasorBaslangic, sarkiAdiUzunlugu As Integer
Dim sarkiAdi, klasorAdi As String
Dim FilesInDir As String() = Directory.GetFiles(Application.StartupPath & "\REPERTUARX\", "*.txt", SearchOption.AllDirectories)
Dim SFile As String
ListView1.Items.Clear()
For Each SFile In FilesInDir
sarkiBaslangic = SFile.LastIndexOf("\") + 2
sarkiAdi = Mid(SFile, sarkiBaslangic)
sarkiAdiUzunlugu = Len(SFile) - sarkiBaslangic + 2
klasorBaslangic = SFile.IndexOf("X\") + 3
klasorAdi = Mid(SFile, klasorBaslangic, (Len(SFile) - sarkiAdiUzunlugu + 1) - klasorBaslangic)
ListView1.Items.Add(klasorAdi)
ListView1.Items(satir).SubItems.Add(sarkiAdi)
satir += 1
Next
End Sub
Sub Ara()
Dim satir As Integer
Dim sarkiAdi, klasorAdi As String
Dim sarkiBaslangic, klasorBaslangic, sarkiAdiUzunlugu As Integer
Dim ara As String = "*" & TextBox1.Text.Trim() & "*.txt"
Dim FilesInDir As String() = Directory.GetFiles(Path.Combine(Application.StartupPath, "REPERTUARX"), ara, SearchOption.AllDirectories)
Dim SFile As String
ListView1.Items.Clear()
For Each SFile In FilesInDir
sarkiBaslangic = SFile.LastIndexOf("\") + 2
sarkiAdi = Mid(SFile, sarkiBaslangic)
sarkiAdiUzunlugu = Len(SFile) - sarkiBaslangic + 2
klasorBaslangic = SFile.IndexOf("X\") + 3
klasorAdi = Mid(SFile, klasorBaslangic, (Len(SFile) - sarkiAdiUzunlugu + 1) - klasorBaslangic)
ListView1.Items.Add(klasorAdi)
ListView1.Items(satir).SubItems.Add(sarkiAdi)
satir += 1
Next
End Sub
Private Sub DRm_TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
RichTextBox1.Text = ""
Ara()
End Sub