Hallo, hab folgendes Problem:
Habe in einem Ordner mehrere Textdateien mit unterschiedlichem Namen z.b. wqdwqd.txt, efrwer.txt, tewrwr.txt usw. der Inhalt dieser Dateien ist teilweise ähnlich.
In jeder Textdatei ist ein Name enthalten diesen möchte ich rauskopieren und in eine neue Textdatei schreiben.
Am Ende sollen in einer einzigen Datei die Namen, welche in den Textdateien enthalten waren aufgelistet werden.
Also ich bekomm es bis jetzt nur hin alle Textdateien aufzulisten und aus einer einzigen Textdatei den Namen zu extrahieren und in eine neue Datei zu schreiben.
Schaff es aber irgendwie nicht in Zeile 8 / 10 bei "ListBox1.Items.Item(Datei)" den korrekten Pfad zu erstellen ? Da dürfte doch nur das Problem liegen ?
für jede anregung bin ich dankbar gruß
Habe in einem Ordner mehrere Textdateien mit unterschiedlichem Namen z.b. wqdwqd.txt, efrwer.txt, tewrwr.txt usw. der Inhalt dieser Dateien ist teilweise ähnlich.
In jeder Textdatei ist ein Name enthalten diesen möchte ich rauskopieren und in eine neue Textdatei schreiben.
Am Ende sollen in einer einzigen Datei die Namen, welche in den Textdateien enthalten waren aufgelistet werden.
Also ich bekomm es bis jetzt nur hin alle Textdateien aufzulisten und aus einer einzigen Textdatei den Namen zu extrahieren und in eine neue Datei zu schreiben.
Schaff es aber irgendwie nicht in Zeile 8 / 10 bei "ListBox1.Items.Item(Datei)" den korrekten Pfad zu erstellen ? Da dürfte doch nur das Problem liegen ?
VB.NET-Quellcode
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- For Each Datei As String In My.Computer.FileSystem.GetFiles("F:\Namenslisten", FileIO.SearchOption.SearchTopLevelOnly, "*.txt")
- Dim counter = My.Computer.FileSystem.GetFiles("F:\Namenslisten", FileIO.SearchOption.SearchTopLevelOnly, "*.txt")
- ListBox1.Items.Add(Datei)
- For Each Line As String In File.ReadLines(ListBox1.Items.Item(Datei)) ' Hatte hier vorher auch ursprünglich den normalen Pfad einer einzelnen Datei das funktioniert auch wunderbar
- Dim Reader As New StreamReader(ListBox1.Items.Item(Datei)) ' Hatte hier auch ursprünglich eine Testdatei ging auch 1a z.b. F:\Namenslisten\dfnsdkjfn.txt
- Dim Textinhalt As String
- Dim position As Integer
- Textinhalt = Reader.ReadToEnd
- Reader.Close()
- position = InStr(1, Textinhalt, "Name: ")
- activatelink2 = Mid(Textinhalt, position, 91)
- Dim Writer As New StreamWriter("F:\Eddy\Namenslisten\Zusammengefasst.txt", False)
- Writer.Write(activatelink2)
- Writer.Close()
- Next
- Next
- End Sub
für jede anregung bin ich dankbar gruß
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „fwalser“ ()