Hallo zusammen,
ich habe folgendes Problem.
In einem Ordner habe ich eine Menge .mp3 Dateien.
Davon möchte ich nun eine Liste zum ausdrucken generieren.
z.B. quer 4 Spalten.
Also:
1. Ich habe den Inhalt per Array eingelesen. (Klappt)
2. Ich möchte den Inhalt m. regex bearbeiten (Und das klappt schon nicht) z.B. Lied.mp3 soll einfach Lied heißen.
3. Wie kann ich das ganze in 4 Spalten fortlaufend nummeriert bekommen. (neue Spalte, nächstes Blatt)
Hier mein Code
Spoiler anzeigen
#include <File.au3>
#include <Array.au3>
Dim $Ordnerwahl, $ListeNeu
[/autoit] [autoit][/autoit] [autoit]; Ordner wird ausgewählt
$Ordnerwahl = FileSelectFolder("Bitte Ordner wählen...", "")
$Ordnerliste = _FileListToArray($Ordnerwahl, "*.mp3")
_ArrayDisplay($Ordnerliste)
;Liste wird bearbeitet: z.B. alle suffix entfernen...
[/autoit] [autoit][/autoit] [autoit]$ListeNeu = StringRegExpReplace($Ordnerliste, '.mp3', '', 3)
_ArrayDisplay($ListeNeu)
; Die neue Liste wird als TXT Abgespeichert.
$file = FileOpen("test.txt", 1)
; Prüfen, ob Datei im Schreibmodus geöffnet ist
If $file = -1 Then
MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
Exit
EndIf
For $i = 1 To UBound($ListeNeu) - 1
[/autoit] [autoit][/autoit] [autoit]If IsArray($ListeNeu) Then
;_ArrayDisplay($array)
FileWriteLine($file, $ListeNeu & @CRLF)
[/autoit] [autoit][/autoit] [autoit]EndIf
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Next
[/autoit] [autoit][/autoit] [autoit]FileClose($file)
MsgBox(4096, "Die Liste wurde generiert", "fertig", 1)
Liebe Grüße
Ilse