Hallo ich brauche etwas Hilfe bei Zusammenfügen einiger Codeschnipsel
Hintergrund:
Ich möchte Dateien per Drag&Drop auf eine Listbox ziehen,
diese sollen dann entsprechend des Inhaltes ihrer ersten Zeile umbenannt werden
Mit diesem Codeabschnitt Fülle ich eine Listbox mit Dateipfaden
Dieser Codeabschnitt liest die erste Zeile aus einem Dokument aus und gibt mir einen teil dieser Zeile als variable zurück Der Pfad des Dokuments steht in diesem Fall in der Textbox1 (bzw eigentlich in der listbox1 durch das Drag&Drop)
er teil der ersten Zeile wird in der textbox2 ausgegeben (die Originalzeile hat das Schema: $A123.MIN wobei der Buchstabe und die anzahl an ziffern variieren) (in textbox2 wird dann A123 Ausgegeben)
Ich möchte nun, das jede Datei die in der listbox1 per Drag&Drop abgelegt wird umbenannt wird der neue Name, soll der sein, der in textbox2 angezeigt wird.
Die Dateiendung soll erhalten werden (sie ist immer .CNC)
Ich hoffe ich habe das ganze verständlich rübergebracht
Grüße Kevin
Hintergrund:
Ich möchte Dateien per Drag&Drop auf eine Listbox ziehen,
diese sollen dann entsprechend des Inhaltes ihrer ersten Zeile umbenannt werden
Mit diesem Codeabschnitt Fülle ich eine Listbox mit Dateipfaden
Visual Basic-Quellcode
- Private Sub ListBox1_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
- If e.Data.GetDataPresent(DataFormats.FileDrop) Then
- Dim filePaths As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
- For Each s As String In filePaths
- ListBox1.Items.Add(s)
- Next s
- End If
- End Sub
Dieser Codeabschnitt liest die erste Zeile aus einem Dokument aus und gibt mir einen teil dieser Zeile als variable zurück Der Pfad des Dokuments steht in diesem Fall in der Textbox1 (bzw eigentlich in der listbox1 durch das Drag&Drop)
er teil der ersten Zeile wird in der textbox2 ausgegeben (die Originalzeile hat das Schema: $A123.MIN wobei der Buchstabe und die anzahl an ziffern variieren) (in textbox2 wird dann A123 Ausgegeben)
Visual Basic-Quellcode
- Private Sub Button_Starter_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
- Dim fs As IO.FileStream = New IO.FileStream(TextBox1.Text, IO.FileMode.Open, IO.FileAccess.Read)
- Dim w As IO.StreamReader = New IO.StreamReader(fs)
- Dim name As String
- name = w.ReadLine
- w.Close()
- fs.Close()
- 'alles ab ".MIN" abschneiden
- Dim ePos As Integer = name.LastIndexOf("."), sPos As Integer = name.LastIndexOf("$", ePos)
- name = name.Substring(sPos, ePos - sPos)
- 'Das Erste Zeichen "$" abschneiden
- name = Mid(name, 2, Len(name) - 1)
- TextBox2.Text = name
- End Sub
Ich möchte nun, das jede Datei die in der listbox1 per Drag&Drop abgelegt wird umbenannt wird der neue Name, soll der sein, der in textbox2 angezeigt wird.
Die Dateiendung soll erhalten werden (sie ist immer .CNC)
Ich hoffe ich habe das ganze verständlich rübergebracht
Grüße Kevin