Im Verzeichnis jede Datei durchsuchen

Sam85 · 10. Oktober 2016, 12:11

Hallo,

ich habe eine Frage: Ich möchte in einem Verzeichnis, in jeder Datei, an einer bestimmten Stelle den Wert auslesen bzw. prüfen. (die Datei hat keine Endung)
Den Wert in der Datei kann ich schon finden, wie kann ich nun eine Schleife einbauen, damit alle Dateien im Verzeichnis geprüft werden? (ohne Unterverzeichnisse)
Und dann soll aus allen erkannten Dateien ein Extra Verzeichnis erstellt werden. Wie gehe ich da am besten vor? Ich habe zwar schon mit etwas angefangen aber mehr als ein Rohbau ist es noch nicht.
Derzeit lass ich mir die Daten in TextBoxen einlesen.

Freue mich über eine Rückmeldung.

VB.NET-Quellcode

Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
Dim Pfad As String = "C:/300export/"
Dim Lines() As String = IO.File.ReadAllLines(Pfad & "test")
'Position in der Datei
Dim IMG As String = Lines(6).Substring(4, 11)
Dim TIF As String = Lines(0).Substring(52, 11)
Dim Rechnung As String = Lines(5).Substring(4, 6)
Dim E_IK As String = Lines(0).Substring(21, 9)
Dim File As String
For Each File In Pfad
System.IO.Directory.CreateDirectory(Rechnung)
Next

Vultrax · 10. Oktober 2016, 18:14

Du möchtest also diese Werte aus jeder Datei in diesem Verzeichnis auslesen und anschließend für jede Datei ein eigenes Verzeichnis erstellen?

VB1963 · 10. Oktober 2016, 18:46

Sam85 schrieb:

wie kann ich nun eine Schleife einbauen, damit alle Dateien im Verzeichnis geprüft werden?

guck dir diesen Member von der DirectoryInfo-Klasse einmal genau an...

Sam85 schrieb:

ein Extra Verzeichnis erstellt werden

das findest du in der DirectoryInfo-Klasse...

Sam85 · 11. Oktober 2016, 08:46

Hallo Vultrax,
ja so ungefähr:[*]in jeder Datei ohne Endung (hier definiert als "x") steht an einer bestimmten Stellen der Name des geplanten Verzeichnisses (E_IK). In dieses Verzeichnis kommt dann "x" plus eine weitere Datei (hier definiert als "y") und alle "x" mit "y" die ebenfalls dieses Merkmal (gleiches E_IK) haben. Der Name von "y" (TIF) steht ebenfalls in "x" an einer bestimmten Stelle. Der Abschnitt erfolgt ohne Unterordner.
[*]Anschließend, soll nur in den Unterordnern erneut untergliedert werden, nach dem nächsten Kriterium aus "x" (Rechnung) und das entsprechende "y" mit in dieses Verzeichnis hinterlegt werden.
Sozusagen sollen zwei Prozeduren nacheinander unternommen werden.

Hallo VB1963,
ich habe mir das mal angeschaut, bin aber nicht 100% schlau daraus geworden. Was hat es mit der Function auf sich, ist die zwingend nötig?
Im Sub ist ein "fi" hinterlegt was nicht definiert ist und das DirectoryInfo wird auch nicht erkannt. Ich bin leider noch ein ziemlicher Anfänger und
freue mich über Hinweise und Ratschläge, wie ich ans Ziel kommen kann.

VB.NET-Quellcode

Public Function GetFiles(searchPattern As String, searchOption As SearchOption) As FileInfo()
End Function
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
Dim di As DirectoryInfo = New DirectoryInfo("C:\300export")
Console.WriteLine("Search pattern AllDirectories returns:")
For Each fi In di.GetFiles("*", SearchOption.AllDirectories)
Console.WriteLine(fi.Name)
Next
Console.WriteLine()
End Sub

VB1963 · 11. Oktober 2016, 10:16

Sam85 schrieb:

Was hat es mit der Function auf sich, ist die zwingend nötig?

Naja - du willst doch eine Files-Auflistung durchfahren und die Files einzeln auf irgendetwas überprüfen und eine Aktion ausführen...
Wenn du alle Files eines Verzeichnisses testen möchtest, dann kannst du .GetFiles() verwenden.
Wenn du nur das Top-Verzeichnis durchlaufen möchtest, dann verwende SearchOption.TopDirectoryOnly oder lasse das Argument einfach weg...
Momentan gibst du die Filenamen des Top- und aller Unterverzeichnise aus...

Sam85 · 11. Oktober 2016, 10:35

Ah ok...und kommt noch etwas zwischen Function und End Function? (End Function ist derzeit noch grün unterstrichen mit Begründung: "Die Funktion "GetFiles" gibt nicht für alle Codepfade einen Wert zurück. Wenn das Ergebnis verwendet wird, kann zur Laufzeit eine NULL-Verweisausnahme auftreten."

Und was hat es mit diesem "fi" im Code auf sich, ist das bloß ein Schreibfehler oder muss es noch deklariert werden?

petaod · 11. Oktober 2016, 10:54

Sam85 schrieb:

Was hat es mit der Function auf sich, ist die zwingend nötig?

Nein. Die kann (muss) raus.
Die hast du wahrscheinlich von der IDE definieren lassen, weil di.GetFiles wegen fehlendem Import nicht gefunden wurde.
Die automatischen Korrekturvorschläge sind nicht immer sinnvoll und sollten nur verwendet werden, wenn du weißt, was du tust.

Sam85 schrieb:

Im Sub ist ein "fi" hinterlegt was nicht definiert

Das definiert sich selber, wenn du Option Infer On aktiviert hast.
Der Compiler weiß ja, was di.GetFiles zurückliefert.
Ansonsten kannst du auch explizit schreiben

VB.NET-Quellcode

For Each fi As FileInfo In di.GetFiles(...)

Sam85 schrieb:

das DirectoryInfo wird auch nicht erkannt

Importiere den Namespace System.IO
Dann legen sich auch die anderen Fehler automatisch.

Sam85 · 11. Oktober 2016, 11:15

Hallo petaod,

vielen Dank :), das System.IO und Option Infer On ist nun drin und die Function ist raus. Nun will ich das Suchkriterium einbauen:
Wie verbinde ich das Obere nun mit dem Unteren? Ich möchte die Dateien nach "E_IK" durchsuchen und daraus dann die Ordner erstellen und anschließend die Datei plus die Datei mit der Bezeichnung unter "TIF" in diesen Ordner eintragen.

VB.NET-Quellcode

Dim Pfad As String = "C:\300export\"
Dim Lines() As String = IO.File.ReadAllLines(Pfad & "test")
'Position in der Datei
Dim IMG As String = Lines(6).Substring(4, 11)
Dim TIF As String = Lines(0).Substring(52, 11)
Dim Rechnung As String = Lines(5).Substring(4, 6)
Dim E_IK As String = Lines(0).Substring(21, 9)
Dim File As String = "*"
For Each File In Pfad
System.IO.Directory.CreateDirectory(Rechnung)

VB.NET-Quellcode

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
Dim di As DirectoryInfo = New DirectoryInfo("C:\300export\")
Console.WriteLine("Search pattern AllDirectories returns:")
For Each fi As FileInfo In di.GetFiles("*", SearchOption.TopDirectoryOnly)
Console.WriteLine(fi.Name)
Next
Console.WriteLine()
End Sub

VB1963 · 11. Oktober 2016, 15:34

Sam85 schrieb:

Wie verbinde ich das Obere nun mit dem Unteren?

Ein kleiner Schubs von mir:
Du wirst den vollständigen Pfad der Dateien brauchen, um damit die Dateien öffnen zu können und deine Kalkulationen durchführen zu können. Jetzt hast du ja nur den Filenamen...
Den vollständigen Pfad der jeweiligen Datei findest du in der Fileinfo-Klasse. Was ist fi bei dir für ein Objekt?

Sam85 · 11. Oktober 2016, 15:41

Den Code habe ich von hier:

HTML-Quellcode

https://msdn.microsoft.com/de-de/library/system.io.directoryinfo(v=vs.110).aspx

Da stand fi :), woran erkenne ich wie fi deklariert wurde?
Den vollständigen Pfad bedeutet ich kann ihn dennoch so abkürzen (Dim Pfad As String = "C:\300export\" und Dim Pfad2 as "Y:\abgeschlossen")?

VB1963 · 11. Oktober 2016, 16:04

Wenn der Typ nicht explizit angegeben ist, dann bewege in deinem Code deinen Mousezeiger einmal über fi und halte inne - Intelisense sagt es dir dann.

Sam85 · 11. Oktober 2016, 16:10

VB.NET-Quellcode

(lokale Variable) fi as fileinfo

VB1963 · 11. Oktober 2016, 16:16

Wenn du jetzt alle Member dieser Klasse einsehen willst, markiere fi und führe mit der rechten Mousetaste den Befehl Gehe zu Typdefinition aus...
Damit gelangst du direkt in den Objectbrowser und dort kannst du ganz leicht alle Eigenschaften und Methoden dieser Klasse untersuchen.
Dort findest du auch wie du den vollständigen Pfad einer Datei ermitteln kannst...

Sam85 · 11. Oktober 2016, 16:24

Also wenn ich auf FI rechtsklicke und gehe zur Definition (Typendefinition gab es keine) klicke dann passiert nichts und wenn ich Definition einsehe dann kommt der Code im Gelb. Wenn ich auf FileInfo das gleiche mache, komme ich zu den Metadaten oder Metadaten in gelb?
Ist es das, was du meinst?

VB1963 · 11. Oktober 2016, 16:29

Sam85 schrieb:

Typendefinition gab es keine

Welches Studio verwendest du?

Sam85 · 11. Oktober 2016, 16:37

Visual Studio 2015 Express.

VB1963 · 11. Oktober 2016, 16:46

Mit VS2013 geht das...
Gút - dürfte bei VS2015 anders sein...
Mit Strg+Alt+J öffnest du den Objektbrowser und dort kannst du auch nach FileInfo suchen und dir alle Member anschauen...

Sam85 · 11. Oktober 2016, 16:52

Ah sehr interessant, dort stehen dann auch alle Auswahlmöglichkeiten zu dem jeweiligen Befehlen.
So und das steht dort zu FileInfo.

VB.NET-Quellcode

Public NotInheritable Class FileInfo
Inherits System.IO.FileSystemInfo
Element von System.IO

VB.NET-Quellcode

Public Shared Function GetFileInfo(file As String) As System.IO.FileInfo
Element von Microsoft.VisualBasic.FileIO.FileSystem

VB.NET-Quellcode

Public Function GetFileInfo(file As String) As System.IO.FileInfo
Element von Microsoft.VisualBasic.MyServices.FileSystemProxy

VB1963 · 11. Oktober 2016, 17:06

Ist das alles, was du im Objektbrowser zu sehen bekommst?
Kannst du einmal ein Bildchen davon machen...

Sam85 · 12. Oktober 2016, 08:36

Habe einen Screenshot gemacht. Hoffe, dass war was du gemeint hast.

Im Verzeichnis jede Datei durchsuchen

Im Verzeichnis jede Datei durchsuchen

VB.NET-Quellcode

Sam85 schrieb:

Sam85 schrieb:

VB.NET-Quellcode

Sam85 schrieb:

Sam85 schrieb:

Sam85 schrieb:

VB.NET-Quellcode

Sam85 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Sam85 schrieb:

HTML-Quellcode

VB.NET-Quellcode

Sam85 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben