Eine Tabelle aus einer großen CSV exportieren

@echo off & setlocal

for /f "usebackq tokens=31,* delims=;" %%s in ("datei.csv") do call :Ablauf "%%t"  
pause

:Ablauf
for /f "tokens=29-31,* delims=;" %%m in (%1) do (  
	echo %%m;%%n;%%o>>"neu.csv"  
)
goto :eof

Ein = "muster.csv"  
Aus = "test.csv"  
Delim = ";"  
FeldNr = 60
Set fso = CreateObject("Scripting.FileSystemObject")  
Zeilen = Split(fso.OpenTextFile(Ein).ReadAll, vbCrLf)
For Each Zeile In Zeilen
    T = T & vbCrLf & Split(Zeile, Delim)(FeldNr - 1)
Next
fso.CreateTextFile(Aus).Write Mid(T, 3)

... set "Zeile=%%i" & call :ProcessLine  
...

:ProcessLine
set "Zeile=%Zeile:;;=; ;%"  
set "Zeile=%Zeile:;;=; ;%"  
for /f "tokens=15 delims=;" %%i in ("%Zeile%") do echo %%i  

Ein = "muster.csv"  
Aus = "test.csv"  
Delim = ";"  
FeldNr = 60
Set fso = CreateObject("Scripting.FileSystemObject")  
Zeilen = Split(fso.OpenTextFile(Ein).ReadAll, vbCrLf)
For Each Zeile In Zeilen
    If Trim(Zeile) <> "" Then T = T & vbCrLf & Split(Zeile, Delim)(FeldNr - 1)  
Next
fso.CreateTextFile(Aus).Write Mid(T, 3)

    If Trim(Zeile) <> "" Then T = T & vbCrLf & Replace(Split(Zeile, Delim)(FeldNr - 1), """", "")

siehe unten

for /f "eol=§ tokens=31,* delims=;" %%m ...

Ein = "muster.csv"  
Quelle = "P:\bilderarchiv\" '\ am Ende beachten  
Ziel = "c:\bilder\" '\ am Ende beachten  
Delim = ";"  
FeldNr = 60
Set fso = CreateObject("Scripting.FileSystemObject")  
Zeilen = Split(fso.OpenTextFile(Ein).ReadAll, vbCrLf)
For Each Zeile In Zeilen
   If Trim(Zeile) <> "" Then fso.CopyFile Quelle & Replace(Split(Zeile, Delim)(FeldNr - 1), """", ""), Ziel  
Next

@echo off &setlocal disabledelayedexpansion
:: echo on
set  "InFile=D:\Testordner\Datei.csv"  
set "OutFile="  
set   "Cells=20 45 50 60 61 62 63 64 65 70 80 90"  


if defined Outfile (set "Um=>") else set "Um="  
%Um% %OUTFILE% (
for /f usebackqDelims^=^ eol^= %%i in ("%Infile%") do (  
	set Line="%%i"  
	set "cell=0"  
	set "incell=0"  
	set "check=1"  
	call :ReadCell %cells%
	echo(
)
)
if not defined OutFile >&3 pause
goto :eof

:ReadCell
if %incell% neq 0 if %incell% equ %1 (
	<nul set /p ="  
	if "%2" equ "" goto :eof  
	<nul set /p =";"  
	set /a "cell =%2-%1"  
	shift
) 
if %cell% equ 0 set /a cell =%1
2>nul set /a x=1/((cell-1)/30) && set /a Cell -=30 , Token=30 || set /a Token=Cell
set /a incell +=Token
setlocal enabledelayedexpansion
if defined check set "Line=!Line:;=";"!"  
for /f "Tokens=%Token%* delims=;" %%a in ("!Line!") do endlocal&(set "Line=%%b"  
	if %incell% equ %1 <nul set /p ="%%~a"  
	set "ChecK="  
	goto :ReadCell
)

for /f "delims=" %%i in ('findstr /n "^" "datei.csv"') do (set Line=%%i  
  set "Line=!Line:*:=!"  
 call untenrum
)

@echo off & setlocal
for /f usebackqDelims^=^ eol^= %%s in ("datei.csv") do (  
	set "Zeile=%%s"  
	echo %%s^|findstr /B ";">nul && set "Zeile= %%s"  
	call :Ablauf
)
pause
goto :eof

:Ablauf
set "Zeile=%Zeile:;;=; ;%"  
set "Zeile=%Zeile:;;=; ;%"  
for /f "tokens=31,* delims=;" %%m in ("%Zeile%") do call :Bereich "%%n"  
goto :eof

:Bereich
for /f "tokens=29,* delims=;" %%i in (%1) do echo %%i>>"neu.csv"  
goto :eof

for /f usebackqDelims^=^ eol^= %%s in ("datei.csv") do ( ....  

for /f "usebackq tokens=* eol=" %%s in ("datei.csv") do ( ....

Ein = "muster.csv"  
Quelle = "P:\bilderarchiv\" '\ am Ende beachten  
Ziel = "c:\bilder\" '\ am Ende beachten  
Delim = ";"  
FeldNr = 60
Set fso = CreateObject("Scripting.FileSystemObject")  
Zeilen = Split(fso.OpenTextFile(Ein).ReadAll, vbCrLf)
For i = 1 To UBound(Zeilen)
   If Trim(Zeilen(i)) <> "" Then fso.CopyFile Quelle & Replace(Split(Zeilen(i), Delim)(FeldNr - 1), """", ""), Ziel  
Next

for /f ^"usebackqDelims^=^ eol^=^  

delims=^" %%s in ("datei.csv") do ( ....