Hallo zusammen,
ich habe ein Problem mit einer Anwendung. Kurze Erklärung:
Die Anwendung durchsucht ca. 10000 Textdatein a 1000 Zeilen Code nach einem Bestimmten Anfangsberiff zusammen mit dem gesuchten Schlagwort. Wenn ich jetzt aber die Anwendung laufen lasse hängt sie sich auf soblad ich ein Fenster verschieben will oder sonst irgendeine Aktivität auf der Anwendugn anklicke. Nicht immer, aber es kommt schon ab und an mal vor. Besonders verstärkt wenn ich es über ein Netztwerk suchen lasse und nicht lockal auf meinem Laptop.
Kann es sein dass diese zu vearbeitende Datenmenge zuviel ist für mein kleines Tool?
Hier der Code. Ich habe jetzt mal versucht das Prg. einfrieren zu lassen wenn die Suchfunktion ausgelöst wird. Von meinem Gedankengang her kann er dann in der Zeit sich mit dem Netzwerk verbinden. Aber das hat nicht so geklappt wie ich das dachte. hahahaha
Jemand ne Idee?
ich habe ein Problem mit einer Anwendung. Kurze Erklärung:
Die Anwendung durchsucht ca. 10000 Textdatein a 1000 Zeilen Code nach einem Bestimmten Anfangsberiff zusammen mit dem gesuchten Schlagwort. Wenn ich jetzt aber die Anwendung laufen lasse hängt sie sich auf soblad ich ein Fenster verschieben will oder sonst irgendeine Aktivität auf der Anwendugn anklicke. Nicht immer, aber es kommt schon ab und an mal vor. Besonders verstärkt wenn ich es über ein Netztwerk suchen lasse und nicht lockal auf meinem Laptop.
Kann es sein dass diese zu vearbeitende Datenmenge zuviel ist für mein kleines Tool?
Hier der Code. Ich habe jetzt mal versucht das Prg. einfrieren zu lassen wenn die Suchfunktion ausgelöst wird. Von meinem Gedankengang her kann er dann in der Zeit sich mit dem Netzwerk verbinden. Aber das hat nicht so geklappt wie ich das dachte. hahahaha
VB.NET-Quellcode
- Private Sub btnsuchen_Click(sender As Object, e As EventArgs) Handles btnsuchen.Click
- 'System.Threading.Thread.Sleep(100)
- If txtsuchen.TextLength = 4 Then
- If rbtn21.Checked = True Then
- ListBox21.Items.Clear()
- ProgressBar1.Value = 0
- Dim fInfo21 = New IO.DirectoryInfo(Pfadprg21).GetFiles("*.dat", IO.SearchOption.AllDirectories)
- ProgressBar1.Invoke(New MethodInvoker(Sub() ProgressBar1.Maximum = fInfo21.Length))
- For Each fi21 In fInfo21
- For Each line In IO.File.ReadAllLines(fi21.FullName)
- Dim parts = line.Split(New Char() {}, StringSplitOptions.RemoveEmptyEntries)
- line = line.Replace(" ", "")
- If line.StartsWith("75" & txtsuchen.Text) Then
- ListBox21.Items.Add(fi21.Name.Replace(fi21.Extension, ""))
- Exit For
- End If
- Next
- ProgressBar1.Invoke(New MethodInvoker(Sub() ProgressBar1.Increment(1)))
- Next
- End If
Jemand ne Idee?