Batch: Eine TXT Datei intelligent auslesen und in kleinere Dateien aufteilen.

@ECHO OFF &SETLOCAL ENABLEDELAYEDEXPANSION
set /a mb50=52428800
set /a fsize=%~z1
set /a pnum=fsize/mb50
set /a psize=fsize/pnum
echo Info: %~1 %fsize% Bytes, %pnum% Parts a ca. %psize% Bytes.
set /a scnt=psize
set /a pcnt=1
<"%~1" set /p "header="  
for /f "delims=" %%a in ('findstr /o "^" "%~1"') do (  
	set "liner=%%a"  
	for /f "delims=:" %%b in ("%%~a") do set /a lbyte=%%b  
	set "line=!liner:*:=!"  
	if !lbyte! gtr !scnt! (
		for /f %%b in ("!line!") do set /a rline=1%%b-100 2>nul  
		if !rline!==1 (
			set /a pcnt+=1
			if !pcnt!==%pnum% (set /a scnt=2147483647) else set /a scnt+=psize
			>"%~1.part!pcnt!" echo(%header%  
		)
	)
	>>"%~1.part!pcnt!" echo(!line!  
)
set /a fnum=pnum-1
for /l %%a in (1 1 %fnum%) do >>"%~1.part%%a" echo(%line%  

 
Private Sub Form_Load()

Dim Quelldatei As String 'Dateiname der Datenquelle  
Dim Zielgroesse As Long 'Zielgröße der Pakete  
Dim Dateinummer As Long 'Nummer der Datei, auf die sich die aktuelle Dateioperation bezieht  
Dim ErsteZeile As String 'Inhalt der ersten Zeile  
Dim Zeile As String 'Jeweils ausgelesene Zeile  
Dim Groesse(50) As Long 'Schon geschriebene Länge der jeweiligen Zieldatei  
Dim Flag1 As Long 'Zeiger, der anzeigt, daß bei der aktuellen Ausgabedatei die Zielgröße erreicht ist  
Dim Dateien 'Hilfsvariable beim Schlußdurchlauf (Letzte Zeile an alle Ausgabedateien anfügen)  

Quelldatei = "d:\Testfile.txt" ' Dateiname der aufzuteilenden Datei  
Zielgroesse = 5 * 1048576 '5 * 1048576 Bytes = 5 MB  

Open Quelldatei For Input As 1
Line Input #1, ErsteZeile

Dateinummer = 1
Flag1 = 1


Do While Not EOF(1)
Line Input #1, Zeile

If Left(Zeile, 8) = "99999999" Then  
   ' Dies ist die letzte Zeile, sie wird an alle Ausgabedateien angehängt und alle Dateien werden geschlossen  
   ' Anschließend wird die Routine verlassen, ohne dass die anderen Schritte noch bearbeitet werden  
   For Dateien = 2 To Dateinummer
   Print #Dateien, Zeile
   Close Dateien
   Next
   Close 1
   Exit Do
   End If
   
If Left(Zeile, 2) = "01" And Flag1 = 1 Then  
   ' Ein neuer Client beginnt UND das Flag, daß bei der Ausgabedatei die Zielgröße überschritten ist, ist gesetzt  
   ' Es wird eine neue Ausgabedatei geöffnet und die erste Zeile wird dort hineingeschrieben  
   ' Danach geht es weiter im normalen Ablauf  
   Flag1 = 0
   Dateinummer = Dateinummer + 1
   Open Left(Quelldatei, Len(Quelldatei) - 4) & "_teil" & Str(Dateinummer - 1) & ".txt" For Output As Dateinummer  
   Print #Dateinummer, ErsteZeile
   Groesse(Dateinummer) = Groesse(Dateinummer) + Len(ErsteZeile) 'Hier wird protokolliert, wie groß die aktuelle Ausgabedatei schon ist  
   End If

' Die aktuelle Zeile aus der Quelldatei wird in die aktuelle Ausgabedatei geschrieben:  
Print #Dateinummer, Zeile
'Hier wird protokolliert, wie groß die aktuelle Ausgabedatei schon ist:  
Groesse(Dateinummer) = Groesse(Dateinummer) + Len(Zeile)
' Wenn die Größe die Zielgröße überschritten hat, wird ein Flag gesetzt, daß beim nächsten Clienten eine neue Ausgabedatei begonnen wird:  
If Groesse(Dateinummer) > Zielgroesse Then Flag1 = 1
   
Loop

MsgBox "Auftrag abgeschlossen"  

End Sub