1
Textfile in Pakete zusammenfassen per VBS
Hallo zusammen,
ich habe eine Textdatei mit ca. 2000 Zeilen an Daten die ich gerne splitten möchte.
Kann ich irgendwie per VBS mehrere Textdateien erstellen lassen, die nur jeweils 100 Zeilen enthalten?
Also das mir dann aus der einen, 20 neue Dateien erstellt werden? Am besten durchnummeriert und evtl. mit Prüfung ob ein Eintrag doppelt vorkommt.
Vielen Dank für eure Hilfe!
Gruß
Privex007
ich habe eine Textdatei mit ca. 2000 Zeilen an Daten die ich gerne splitten möchte.
Kann ich irgendwie per VBS mehrere Textdateien erstellen lassen, die nur jeweils 100 Zeilen enthalten?
Also das mir dann aus der einen, 20 neue Dateien erstellt werden? Am besten durchnummeriert und evtl. mit Prüfung ob ein Eintrag doppelt vorkommt.
Vielen Dank für eure Hilfe!
Gruß
Privex007
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 270013
Url: https://administrator.de/contentid/270013
Printed on: April 18, 2024 at 17:04 o'clock
1 Comment
Const TEXTFILE = "C:\quellordner\daten.txt"
Const PATHOUT = "D:\zielordner"
Const NUMLINES = 100
Set fso = CreateObject("Scripting.FileSystemObject")
content = Split(fso.OpenTextFile(TEXTFILE,1).ReadAll(),vbNewLine)
count = UBound(content)
intFull = Int(count / NUMLINES)
intRest = count Mod NUMLINES
strPath = PATHOUT & "\" & fso.GetBaseName(TEXTFILE) & "_"
For i = 0 To intFull
newPath = strPath & Right("00" & i+1,3) & ".txt"
If Not fso.FileExists(newPath) Then
Set fOut = fso.CreateTextFile(newPath,False)
If i < intFull Then
For j = i*NUMLINES To (i*NUMLINES)+NUMLINES-1
fOut.WriteLine content(j)
Next
ElseIf i = intFull And intRest > 0 Then
For j = (intFull)*NUMLINES To ((intFull)*NUMLINES)+intRest
fOut.WriteLine content(j)
Next
End If
fOut.Close()
Else
MsgBox "Datei '" & newPath & "' existiert schon!",vbExclamation
End If
Next
