Ok gerne, ich stehe vor einem kleinen Problem. Kurz Erklärung, ich habe eine Form erstellt auf der mehrere Listboxen sind. Ich habe ein Textfeld in den ich einen Begriff eingebe und er sucht mir 18 Ordner mit je 10000 Textdatein nach dem eingegebenen Begriff durch und schreibt mir in die Listboxen wo sich das wort befindet. Ich hab reinprogrammiert dass ich die Textdatei aus der Listbox raus öffnene kann. alles Top, aber jetzt zur Sache:
Ich möchte dass er mir nur die Textdateien in die Listboxen schreibt in der eine "75" am Anfang der Zeile steht und dann der Suchbegriff. Momentan kann der Begriff überall stehen und es wird reingeladen in die Listboxen.
es können mal mehr oder weniger Leerzeichen dazwischen dass wenn mal ne variation davon vorkommen sollte er mir die trotzdem anzeigt. es können nur leerzeichen verschieden gesetzt sein, es gilt zu sagen dass wenn die Suche vorkommt nur die 75 mit dem schlagwort zusammen in der Datei steht.
Funktioniert soweit wie er soll der Code.
Nur gerne hätte ich dass die Variationen von verschiedenen gesetzten leerzeichen auch berücksichtigt werden.
jetzt ging das prg auch einmal kurz auf Störung, aber nur einmal jetzt 10 mal in folge funktioniert keine ahnung warum.
jedenfalls darum geht es.
Ich möchte dass er mir nur die Textdateien in die Listboxen schreibt in der eine "75" am Anfang der Zeile steht und dann der Suchbegriff. Momentan kann der Begriff überall stehen und es wird reingeladen in die Listboxen.
es können mal mehr oder weniger Leerzeichen dazwischen dass wenn mal ne variation davon vorkommen sollte er mir die trotzdem anzeigt. es können nur leerzeichen verschieden gesetzt sein, es gilt zu sagen dass wenn die Suche vorkommt nur die 75 mit dem schlagwort zusammen in der Datei steht.
VB.NET-Quellcode
- Try
- If CInt(txtsuchenVS.TextLength.ToString()) = 4 Then
- ListBox21.Items.Clear()
- Dim Pfad21 As String = (Pfadprg21)
- Dim TextSuche21 As ReadOnlyCollection(Of String)
- Dim prg21 As String = (vbCrLf) + "75 " + txtsuchenVS.Text
- 'prg21.TrimStart()
- 'prg21 = prg21.Replace(" ", "")
- TextSuche21 = My.Computer.FileSystem.FindInFiles(Pfad21, prg21, True, FileIO.SearchOption.SearchAllSubDirectories, "*.dat")
- For Each Suche21 In TextSuche21
- Dim Ordner21 As String = IO.Path.GetFileName(Suche21)
- ListBox21.Items.Add(Ordner21.Replace(".dat", ""))
- Next
- Else
- MsgBox("Es müssen 4 Zahlen eingeben werden.", MsgBoxStyle.Critical, "Fehler")
- End If
- Catch ex As Exception
- MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler")
- End Try
- End Sub
Funktioniert soweit wie er soll der Code.
Nur gerne hätte ich dass die Variationen von verschiedenen gesetzten leerzeichen auch berücksichtigt werden.
jetzt ging das prg auch einmal kurz auf Störung, aber nur einmal jetzt 10 mal in folge funktioniert keine ahnung warum.
jedenfalls darum geht es.