CSV Datei neu anordnen, leere Spalten hinzufügen

Alt = "D:\Die.csv"  
Neu = "D:\Die neue.csv"  
Delim = ";"  

Set fso = CreateObject("Scripting.FileSystemObject")  
Zeilen = Split(fso.OpenTextFile(Alt).ReadAll, vbCrLf)
Set DateiNeu = fso.CreateTextFile(Neu)
For Each Zeile In Zeilen
    If Trim(Zeile) = "" Then 'Leerzeile oder nur Leerzeichen enthalten  
        ZeileNeu = Zeile
    Else
        Felder = Split(Zeile, Delim) 'anhand des Trennzeichens <Delim> in Felder zerlegen  
        ZeileNeu = _
            Felder(5) & Delim & _
            Felder(0) & Delim & _
            Felder(3) & Delim & _
            Delim & _
            Felder(4) & Delim & _
            Felder(2) & Delim & _
            Delim & _
            Felder(6)
    End If	
    DateiNeu.WriteLine ZeileNeu
Next

@echo off

setlocal


set "InputFile=Test.csv"  
set "OutputFile=Out.csv"  


::Altes Spaltenlayout
::Datum;IMEI;Hersteller;Kundenummer;ArtikelNr;Id;Fehler

::Neues Spaltenlayout
::Id;Datum;Kundenummer;KontaktNr;ArtikelNr;Hersteller;IMEI;Ansprechpartner;Fehler

set "ColLayout=6 1 4 5 3 2 7"  
set "NewColumns=4 7"  
set "NewColumnsHeader=Kontaktnummer Ansprechpartner"  

type NUL > "%OutputFile%"  


set /a MaxCol=0

for %%i in (%ColLayout%) do (
  call :GetMaxCol %%i
)


set /a RowCount=1

for /f "usebackq eol= delims=" %%l in ("%InputFile%") do (  
  set "Line=%%l"  
  call :ProcessLine
)

exit /b



:ProcessLine
set /a ColCount=0

for %%i in (%ColLayout%) do (
  set /a ColCount+=1
  call :WriteNewColumn
  call :WriteColumn %%i
)

>>"%OutputFile%" echo.  
set /a RowCount+=1
exit /b



:WriteNewColumn
set /a Idx=1

for %%j in (%NewColumns%) do (
  if "%%j" equ "%ColCount%" (  
    if %RowCount% equ 1 (
      call :WriteNewColumnHeader
    ) else (
      >>"%OutputFile%" <NUL set /p "=;"  
    )
  )

  set /a Idx+=1
)

exit /b



:WriteNewColumnHeader
for /f "tokens=%Idx%" %%k in ("%NewColumnsHeader%") do (  
  >>"%OutputFile%" <NUL set /p "=%%k;"  
)

exit /b



:WriteColumn
for /f "tokens=%1 eol= delims=;" %%c in ("%Line%") do (  
  if %ColCount% lss %MaxCol% (
    >>"%OutputFile%" <NUL set /p "=%%c;"  
  ) else (
    >>"%OutputFile%" <NUL set /p "=%%c"  
  )
)

exit /b



:GetMaxCol
if %1 gtr %MaxCol% set /a MaxCol=%1
exit /b

Alt = "D:\Die.csv"  
Neu = "D:\Die neue.csv"  
Delim = ";"  
'Falls der Header aus der Datei übernommen werden soll, als nächste Zeile: Header = ""  
Header = "ID;Datum;Kundenummer;KontaktNr;ArtikelNr;Hersteller;Ansprechpartner;Fehler"  

Set fso = CreateObject("Scripting.FileSystemObject")  
Zeilen = Split(fso.OpenTextFile(Alt).ReadAll, vbCrLf)
Set DateiNeu = fso.CreateTextFile(Neu)
If Header <> "" Then  
    DateiNeu.WriteLine Header
    Ab = 1
End If
For i = Ab To UBound(Zeilen)
    If Trim(Zeilen(i)) = "" Then 'Leerzeile oder nur Leerzeichen enthalten  
        ZeileNeu = Zeilen(i)
    Else
        Felder = Split(Zeilen(i), Delim) 'anhand des Trennzeichens <Delim> in Felder zerlegen  
        ZeileNeu = _
            Felder(5) & Delim & _
            Felder(0) & Delim & _
            Felder(3) & Delim & _
            Delim & _
            Felder(4) & Delim & _
            Felder(2) & Delim & _
            Delim & _
            Felder(6)
    End If	
    DateiNeu.WriteLine ZeileNeu
Next