Geschwindigkeit usw...

Amelie · 8. Februar 2022, 08:08

@VaporiZed

Moin moin

Ich habe mal 2 Bilder an gehangen, hoffe das es dadurch verständlicher ist.

Also bisher klappt das ja: sind die Dateien vorhanden, werden sie in der Listbox aufgelistet.
Was ich erreichen wollte; eine Art Fehlermeldung, wenn Dateien aus der Suchliste, nicht gefunden / vorhanden sind. Das klappt halt nicht.

Das nächste was ich noch versuche zu ändern ist der Suchfilter.
Die Dateien können unterschiedlichste Namen haben aber eins haben sie alle gemeinsame die Zahlen.
Beispiele: _xyz0001.Endung oder DCS_0012.Endung oder 60N_0012.Endung IMMER 4 Zahlen!!

Gebe ich nun NUR die Zahlen ein, werden alle Dateien mit den verschiedensten Vorzeichen aufgelistet. Das ist OK.
Ich bekomme diese Dateinamen aber meisten in voller schreibweise und weiß nun nicht wie ich das mit dem "abschneiden" hier:

For Each filename As String In Directory.GetFiles(tb_eingabe.Text, "*" & source & FileExtension, SearchOption.AllDirectories)

einbaue.
Alles erst per Hand umzuschreiben um dann ins Suchfeld einzugeben macht wenig Sinn oder ?

Hoffe Du kannst meine Logik nachvollziehen und mir helfen

Facebamm · 8. Februar 2022, 10:08

youtube.com/watch?v=GBIGdij5r-0&list=PLBFFFE8C8976D8B2
openbook.rheinwerk-verlag.de/einstieg_vb_2012/

Ich glaub hier findest du das wichtigste

VaporiZed · 8. Februar 2022, 15:49

Nochemal langsam. Ich nehm Deinen Codeausschnitt nochmal her:

VB.NET-Quellcode

If System.IO.File.Exists(tempFilePath) Then
Me.Invoke(Sub() listbox(sourceFile & "nicht vorhanden")) '<======== Das macht der code nicht wenn Dateien nicht vorhanden!!
Else
Me.Invoke(Sub() listbox(tempFilePath)) '<====== Das läuft einwandfrei.
If Not Directory.Exists(Klass.Workdir & tempdir) Then Directory.CreateDirectory(Klass.Workdir & tempdir)
File.Copy(filename, tempFilePath, True)
End If

Dein Code sagt: Wenn die Datei vorhanden ist, schreib in die ListBox "Datei nicht vorhanden". Das ist offensichtlich falsch, denn das ergibt keinen Sinn. Damit schreibst Du eine Lüge in die ListBox rein. Das mit dem "nicht vorhanden" gehört also in den Else-Bereich. Außerdem wird eine Datei kopiert, wenn eine andere nicht da ist. Das versteh ich nicht.

If Not Directory.Exists(Klass.Workdir & tempdir) Then Directory.CreateDirectory(Klass.Workdir & tempdir)Schau mal in der Doku von Directory.CreateDirectory nach. Da steht drin, dass das Verzeichnis nur angelegt wird, wenn es nicht existiert. Den If-Teil kannst Du Dir damit sparen. Mach aus

VB.NET-Quellcode

If Not Directory.Exists(Klass.Workdir & tempdir) Then Directory.CreateDirectory(Klass.Workdir & tempdir)

einfach

VB.NET-Quellcode

Directory.CreateDirectory(Klass.Workdir & tempdir)

Tu uns (inkl. Dir) einen Gefallen. Erklär mal bitte Codezeile für Codezeile, was detailliert pasiert bzw. passieren soll, angefangen bei dieser Zeile in Post#37 (Zeile#18) bis zum entsprechenden Next.

Amelie · 8. Februar 2022, 16:27

@VaporiZed

OK ich versuche es zu erklären.
Habe heute einges versucht aber immer mit dem Resultat, das immer nur in einen Zweig der If Else gegangen wurde.
Im Moment habe ich das ganze If Else rausgeschmissen.

VB.NET-Quellcode

For Each line In tb_auswahl.Lines '<=== Textbox mit Einträgen
Dim source As String = line
'<= Nimm den Namen aus der Liste(Lines) und suche die Datei mit der Entsprechenden Endung
For Each filename As String In Directory.GetFiles(tb_eingabe.Text, "*" & source & FileExtension, SearchOption.AllDirectories)
Dim sourceFile = Path.GetFileName(source & FileExtension)
'<= Mache aus der gefundenen Datei einen neuen Dateipfad
Dim tempFilePath = Klass.Workdir & tempdir & sourceFile
If System.IO.File.Exists(tempFilePath) Then
'<= Wenn die datei aus der Liste(Lines) auch gefunden wurde, trage es in die ListBox ein
' wenn das neue Verzeichnis ( Dateipfad ) noch nicht da ist, erstelle es
' und kopiere die Datei ins neue Verzeichnis
Me.Invoke(Sub() listbox(tempFilePath))
Directory.CreateDirectory(Klass.Workdir & tempdir)
File.Copy(filename, tempFilePath, True)
Else
'<= Wird die Datei aus der Liste(Lines) nicht gefunden, trage in die Listbox ein
Me.Invoke(Sub() listbox(sourceFile & "Datei(en) nicht vorhanden"))
End If
Next
Next

VaporiZed · 8. Februar 2022, 16:59

Das sind mir zu viele Spekulatiusstückchen.
Also füge ich mal ein paar Daten ein und Du sagst mir, ob das plausibel ist.
in tb_auswahl (ausbaufähiger Control-Name; ist das ne TextBox?) steht drin:

Quellcode

UserNames
CodeFiles
Manual

tb_eingabe (ganz schlechter Control-Name) ist wohl für das Quellverzeichnis, z.B. E:\Quelle
Dann steht im Code also:

Gehe alle Zeilen in der tb_auswahl durch.
Such mir für jeden Eintrag darin die Dateien mit dem Namen (also zuerst "UserNames") mit der (irgendwo) angegebenen Extension. Wenn es also eine UserNames.dat und eine UserNames.txt gibt, werden die jetzt hergenommen.
speichere in sourceFile den Dateinamen und die Extension (also UserNames.dat)
speichere in tempFilePath einen ominösen Pfad - keine Ahnung was WorkDir und tempDir ist, ich sag mal D:\Ziel\UserNames.dat
wenn dieser Dateipfad D:\Ziel\UserNames.dat existiert, dann schreib ihn in die ListBox, erstelle das Verzeichnis D:\Ziel\ - eh Moment. Das Verzeichnis muss schon exisieren, sonst würde der Dateipfad nicht existieren
kopiere die Datei zum Zielpfad, also von E:\Quelle\UserNames.dat nach D:\Ziel\UserNames.dat
wenn der ominöse Pfad D:\Ziel\UserNames.dat nicht exisiert, schreibe E:\Quelle\UserNames.dat in die ListBox

Sollte so passen. Ob es das ist, was Du willst, musst Du entscheiden.

Amelie · 8. Februar 2022, 17:33

@VaporiZed

tb_auswahl ist eine Textbox mit einem FolderBrowserDialog wo ich den Pfad angebe aus dem die Dateien gesucht und kopiert werden sollen. (Sourcepath)
tb_eingabe ist die Textbox (Multiline) in der die Namen (Dateinamen ohne Endung) reingeschrieben werden die gesucht werden sollen.
Diese Dateien können verschiedene Endungen haben und die Namen können verschieden aufgebaut sein.
z.B.: _GH0001.jpg oder df_0023.cr2 Alles was diese Dateien im Namen gemeinsam habe ist die 4Stelliige Zahl. Das ist sourcefile

Die entsprechende Extension wähle ich mittels RadioButton aus.

Jetzt sollen diese Dateien von der einen Source-Festplatte/USB-Stick z.B. ( G:\ ) in das Arbeitsverzeichnis auf dem Computer kopiert werden.
Workdir ist die Festplatte ( D:\) und tempdir das Verzeichnis ( \temp )

Also quasi:
Nimm _df0023.jpg von G:\ und kopiere diese nach D:\temp
Das mit den Dateiendungen ist wichtig, weil es z.B. so sein kann, das in G:\ eine Datei _df0023.jpg und eine Datei _df0023.cr2 liegen kann.
Es kann auch sein, das nur die _df0023.jpg vorhanden ist, ich aber nur die _df0023.cr2 brauche/suche!

Deswegen soll dann in der Listbox der Eintrag kommen
a.) das die datei kopiert ist
b.) oder eben nicht kopiert ist weil nicht vorhanden

VaporiZed · 8. Februar 2022, 18:08

Dann müsste wohl der Code so aussehen:

VB.NET-Quellcode

For Each line In tb_auswahl.Lines
Dim source As String = line
For Each filename As String In Directory.GetFiles(tb_eingabe.Text, "*" & source & FileExtension, SearchOption.AllDirectories)
Dim sourceFile = Path.GetFileName(source & FileExtension)
Dim tempFilePath = Klass.Workdir & tempdir & sourceFile
Directory.CreateDirectory(Klass.Workdir & tempdir)
Me.Invoke(Sub() listbox(tempFilePath))
File.Copy(filename, tempFilePath, True)
Next
Next

Denn: Wieso sollte die Datei nicht gefunden werden, wenn sie doch über GetFiles ermittelt wurde? Oder geht es darum, dass die Datei nicht kopiert werden soll, wenn sie schon am Ziel ist? Was hat das dann aber mit "Datei nicht gefunden" zu tun? Welche Datei kann nicht gefunden werden? Nenn mal bitte ein konkretes Beispiel, bei dem eine Datei nicht gefunden wird.

Amelie · 8. Februar 2022, 18:30

@VaporiZed

Dies war mein letzter Code der ohne das ganze If Else funktioniert. Halt nur das eben nicht angezeigt wird, wenn eine gesuchte datei NICHT gefunden wurde.
Beispiel:
Auf dem USB-Stick sind 100 Dateien. Wild gemischt. sowohl xxxxx.jpg alsauch xxxxx.cr2
Nun habe ich eine Liste von sagen wir 10 Dateien, diese gebe ich ein und lasse suchen . Ich brauche aber nur die XXXXX.CR2 nicht die gleichlautende XXXXX.JPG.
Wenn nun nur die xy.jpg vorhanden ist aber die xy.cr2 nicht müsste die Meldung kommen das eine Datei nicht gefunden wurde.

VB.NET-Quellcode

Private Sub copyfiles()
Extension()
If FileExtension = Nothing Then
Dim übergabe As String = "nefcr2arwjpg"
MessageBox.Show("Bitte Dateityp auswählen", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
End If
Try
tempdir = "\" & tb_eingabe.Text.Substring(3) & "\"
Me.BeginInvoke(Sub() PBcopy.Visible = True)
For Each line In tb_auswahl.Lines
Dim source As String = line
For Each filename As String In Directory.GetFiles(tb_eingabe.Text, "*" & source & FileExtension, SearchOption.AllDirectories)
Dim sourceFile = Path.GetFileName(source & FileExtension)
Dim tempFilePath = Klass.Workdir & tempdir & sourceFile
Me.BeginInvoke(Sub() lb_worktarget.Items.Add(tempFilePath))
Directory.CreateDirectory(Klass.Workdir & tempdir)
File.Copy(filename, tempFilePath, True)
Next
Next
Threading.Thread.Sleep(1000)
Me.BeginInvoke(Sub() PBcopy.Visible = False)
Catch ex As Exception
MessageBox.Show("Fehler: " & ex.ToString)
End Try
End Sub

VaporiZed · 8. Februar 2022, 18:44

Einer von uns hat einen Denkfehler.

For Each filename As String In Directory.GetFiles(tb_eingabe.Text, "*" & source & FileExtension, SearchOption.AllDirectories)

wird nur die Dateien durchgehen, die auch wirklich da sind. Wenn Du damit nach einer Datei suchst, die so nicht exisiert, dann wird dafür die Schleife auch nicht ausgeführt. Die Datei wird komplett ignoriert.
Ein Beispiel:
Du hast Dein Verzeichnis G:\ mit den Dateien AAA.jpg, AAA.cr2 und BBB.jpg und Du suchst mit For Each filename As String In Directory.GetFiles(…), dann wird diese Schleife 3x ausgeführt. Beim ersten mal steht die Datei AAA.jpg in filename drin, beim 2. Mal AAA.cr2 und beim 3. Mal BBB.jpg. Aber NIE BBB.cr2. Mit dieser Schleife werden keine Dateien gefunden, die nicht exisieren.

Du kannst das eigentlich nur so abfangen:

VB.NET-Quellcode

If Directory.GetFiles(tb_eingabe.Text, "*" & source & FileExtension, SearchOption.AllDirectories).Count = 0 Then Me.BeginInvoke(Sub() lb_worktarget.Items.Add($"Die Datei {source & FileExtension} gibbet nüsch."))

Amelie · 8. Februar 2022, 18:55

@VaporiZed

dann wird dafür die Schleife auch nicht ausgeführt. Die Datei wird komplett ignoriert.

Genau das ist das Problem was ich nicht gelöst bekomme.
Teste dein Code nachermal durch.

@VaporiZed

Nö geht nicht. Fehlermeldung: Count ist kein Memberr von System Array

Und diese Variante geht auch nicht.

VB.NET-Quellcode

If Directory.GetFiles(tb_eingabe.Text, "*" & source & FileExtension, SearchOption.AllDirectories) Is Nothing Then Me.BeginInvoke(Sub() lb_worktarget.Items.Add("Die Datei {source & FileExtension} gibbet nüsch."))

Beiträge zusammengefasst ~VaporiZed

VaporiZed · 8. Februar 2022, 21:18

Visual Studio kann nicht nur meckern, sondern auch konstruktive Vorschläge machen

Amelie · 8. Februar 2022, 21:41

@VaporiZednull
Das kam bei mir nicht

Habes es getestet. Keine Fehlermeldung aber auch kein Resultat, bzw Resultat wie immer.

VaporiZed · 8. Februar 2022, 21:45

Nee. Wenn Du Code kopierst, dann richtig.
Nicht
lb_worktarget.Items.Add("Die Datei {source & FileExtension} gibbet nüsch.")
sondern
lb_worktarget.Items.Add($"Die Datei {source & FileExtension} gibbet nüsch.")
Da ist ein Dollarzeichen nach dem Add, was zu einer interpolierten Zeichenfolge führt und die Bedeutung verändert. Probier es mal.

Dass mein Codevorschlag nicht funktioniert, kann ich ohne Gesamtcode nicht erklären. Bei mir funktioniert's. Was Deinen Vorschlag zunichte macht: Du wolltest doch in allen Verzeichnissen suchen. Das geht mit Deinem If File.Exists(source & FileExtension) = False nicht. Der sucht ja nur in einem Verzeichnis.

Amelie · 8. Februar 2022, 21:57

@VaporiZed

Also das $ habe ich entfernt weil ich einen Fehler angezeigt bekomme. " Ungültiges Zeichen " Nicht mehr und nicht weniger kommt vom Studio als Hilfe.
Den Verweis habe ich drin.

VB.NET-Quellcode

For Each line In tb_auswahl.Lines
Dim source As String = line
For Each filename As String In Directory.GetFiles(tb_eingabe.Text, "*" & source & FileExtension, SearchOption.AllDirectories)
Dim sourceFile = Path.GetFileName(source & FileExtension)
Dim tempFilePath = Klass.Workdir & tempdir & sourceFile
If Directory.GetFiles(tb_eingabe.Text, "*" & source & FileExtension, SearchOption.AllDirectories).Count = 0 Then Me.BeginInvoke(Sub() lb_worktarget.Items.Add($"Die Datei {source & FileExtension} gibbet nüsch."))
Me.BeginInvoke(Sub() lb_worktarget.Items.Add(tempFilePath))
Directory.CreateDirectory(Klass.Workdir & tempdir)
File.Copy(filename, tempFilePath, True)
Next
Next

VaporiZed · 8. Februar 2022, 22:09

Mit welchem Uralt-.NET-Framework arbeitest Du? 4.0?
Naja, dann eben lb_worktarget.Items.Add("Die Datei " & source & FileExtension & " gibbet nüsch.")

Eh. Schau nochmal in Post#49. Die For-Schleife wird für nichtexistente Dateien NICHT ausgeführt. Die If-Abfrage gehört also nicht in die For-Schleife, sondern davor.

VB.NET-Quellcode

For Each line In tb_auswahl.Lines
Dim source As String = line
If Directory.GetFiles(tb_eingabe.Text, "*" & source & FileExtension, SearchOption.AllDirectories).Count = 0 Then
Me.BeginInvoke(Sub() lb_worktarget.Items.Add("Die Datei " & source & FileExtension & " gibbet nüsch."))
Continue For 'man kann diese Zeile auch weglassen, damit sieht man aber SOFORT, dass der weitere Code nicht für diese Datei ausgeführt wird
End If
For Each filename As String In Directory.GetFiles(tb_eingabe.Text, "*" & source & FileExtension, SearchOption.AllDirectories)
Dim sourceFile = Path.GetFileName(source & FileExtension)
Dim tempFilePath = Klass.Workdir & tempdir & sourceFile
Me.BeginInvoke(Sub() lb_worktarget.Items.Add(tempFilePath))
Directory.CreateDirectory(Klass.Workdir & tempdir)
File.Copy(filename, tempFilePath, True)
Next
Next

##########

Und dann hat man das GetFiles doppelt und kann es somit zusammenfassen:

VB.NET-Quellcode

For Each line In tb_auswahl.Lines
Dim source As String = line
Dim FittingFiles = Directory.GetFiles(tb_eingabe.Text, "*" & source & FileExtension, SearchOption.AllDirectories)
If FittingFiles.Count = 0 Then
Me.BeginInvoke(Sub() lb_worktarget.Items.Add("Die Datei " & source & FileExtension & " gibbet nüsch."))
Continue For 'man kann diese Zeile auch weglassen, damit sieht man aber SOFORT, dass der weitere Code nicht für diese Datei ausgeführt wird
End If
For Each filename As String In FittingFiles
Dim sourceFile = Path.GetFileName(source & FileExtension)
Dim tempFilePath = Klass.Workdir & tempdir & sourceFile
Me.BeginInvoke(Sub() lb_worktarget.Items.Add(tempFilePath))
Directory.CreateDirectory(Klass.Workdir & tempdir)
File.Copy(filename, tempFilePath, True)
Next
Next

Amelie · 8. Februar 2022, 22:26

@VaporiZed

VisualStudio 2013 mit Net. 4.51 auf Windows 7 SP3 - 64Bit - 16GB RAM - Core-I3

Dein letzten Code scheint beim ersten durchlauf zu funktionieren.
Das mit der If vor dem For Each hatte ich ja auch schon in anderer Form versucht ...

############
OK noch kürzer der Code

Hab jetzt noch mein Zähler eingebaut ... klappt auch

Was meintest du mit "schlechten" Namen für die Textboxen etc???

VaporiZed · 8. Februar 2022, 23:07

Naja, mal sollte schon erkennen, wofür ein Control ist. tb_Eingabe - hm, ok, ich kann da was eingeben bzw. der User hat da was eingegeben. Aber was? Das sollte man aus dem Controlnamen schon erfahren. Also wäre m.E. besser: tb_Quellverzeichnis bzw. tb_SourceDirectory*. Oder eigentlich gar tb_Quellverzeichnispfad bzw. tb_SourceDirectoryPath*, aber man kann's auch übertreiben.

Und tb_auswahl? Naja, wieso Auswahl? Der User kann mit CheckedListBoxen, CheckBoxen, RadioButtons, … was auswählen. Aber in ner TextBox stehen Dinge drin -> tb_zuSuchendeDateinamen bzw. tb_FileNamesToLookFor.
ABER: Du musst Dich in Deinem Code auskennen. Gemeckert wird wohl nur von dem, der es zu lesen bekommt. Und im Forum sind das ziemlich viele. Aber in z.B. drei Monaten kannst Du das auch selbst sein, die mit dem Code selber nicht klarkommt, weil Du heute z.B. komische Controlnamen verwendet hast.

* ich verwende nur englische Begriffe im Code. User-sichtbare Texte sind aber natürlich deutsch.

Amelie · 8. Februar 2022, 23:10

Hmm.. Ja ich tue mich immer schwerr mit solchen Namen, auch für Variablen usw....
Vielleicht fehlt mir einfach die Übung... oder mein AA hindert mich

Ich versuche es zu verbessern

petaod · 9. Februar 2022, 12:43

Amelie schrieb:

VisualStudio 2013

Interpolierte Strings kamen erst mit Visual Studio 2015.
Zeit, um auf etwas aktuelles umzusteigen.

Amelie · 9. Februar 2022, 14:18

@petaod

hi
Schon öfters hier kundgetan, das mein PC mit Win10 sooooooooooooo lahm wird; trotz 16GB RAM und deswegen lasse ich es wie es ist.
Wenn ich mal viel Geld über habe, kann ich mir evtl mal einen neuen PC zulegen.

ABER: Danke für die Info mit den "Interpolierten Strings"

Geschwindigkeit usw...

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Amelie schrieb:

Tags

Ähnliche Themen

8 Benutzer haben hier geschrieben