Textdatei splitten in Anzahl Datensätze aus Originaldatei

Vielen vielen Dank !!! Die Scripte sind perfekt. Schön wenn Profis sich so unkompliziert bereit erklären zu helfen.

mit den freundlichsten und hochachtungsvollen Grüßen
Ralf

Hallo nochmal,
nach den ersten Tests sind jetzt doch noch ein paar Hindernisse aufgetaucht. Das Ziel muss es sein Dateien zu haben die eine feste Satzlänge von 855 Zeichen haben, keinen BOM am Beginn der Datei und kein CRLF am Ende der Datei haben und die Dateien müssen im Format UTF-8 sein.

Ich habe mir das Powershellscript von Uwe als Basis genommen. Eine Kollegin probiert sich in VBS.

Das ich kein Programmierer bin, seht ihr wahrscheinlich gleich an meinem aktuellen Script. Wir hatten vorher schon die Ausgangsdatei vom BOM mit einem Powershell-Script bereinigt. Den Code habe ich mal einfach an das Script von Uwe angefügt. Das geht bestimmt auch eleganter, aber es funktioniert erstmal face-smile

Ich habe jetzt im Ausgangsordner ( ....\noBOM) alle Dateien ohne BOM und in UTF-8 liegen, leider noch inkl. CRLF am Ende.

Kann mir einer das Script vervollständigen, damit bei jeder Datei das CRLF am Ende entfernt wird, kein BOM am Beginn der Dateien steht, sie im UTF-8 Format sind und die Satzlänge genau 855 Zeichen beträgt ???

Hier mein vorläufiges angepasstes Script:

$date = Get-Date -Format "yyyy-MM-dd"
$infile = "D:\Ausgangsdatei.txt"
$outpath = "D:\Uebermittlungsdateien\"
$zeichen = 885
$content = gc $infile | out-string
$length = ($content | measure -Character).Characters
$parts = 0
if($length -gt $zeichen){
$parts = [int]($length/$zeichen)
}else{
$parts = 1
$zeichen = $length
}
for($i=0;$i -lt $parts;$i++){
echo "$($content.Substring($i*$zeichen,$zeichen))" | out-file "$outpath\$($date)_$($i+1).txt"
}

set-location "D:\Uebermittlungsdateien\"
foreach($i in ls -name *.txt)
{
$file = get-content $i
$encoding = New-Object System.Text.UTF8Encoding($False)
[System.IO.File]::WriteAllLines("D:\Uebermittlungsdateien_noBOM\" + $i, $file, $encoding)
}


Um CRLF am Ende einer Datei zu entfernen, haben wir bislang ein VBS benutzt. Dieses kann aber nur mit einer Datei klarkommen und nicht mit allen Dateien im Zielordner.

Hier mal der Ansatz in VBS: (hoffe das kann einer in Powershell nachstellen)


' File: crlf-entfernen.vbs

Option Explicit

Dim WSHShell, fso, FileIn, FileOut
Dim Datei, Text, Txt, i, arrSort, arrTest(), oArgs

Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
set oArgs = Wscript.Arguments

' Zuweisen von Admin-Rechten
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
If WScript.Arguments.length =0 Then
Set objShell = CreateObject("Shell.Application")
'Pass a bogus argument with leading blank space, say [ uac]
objShell.ShellExecute "wscript.exe", Chr(34) & _
WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else
'Add your code here
End If


' Fals ein Argument übergeben wurde, sollte es einen Dateinamen
' enthalten
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
For i = 0 to oArgs.Count - 1 ' hole alle Argumente
Datei = oArgs.item(i)
If not fso.FileExists( Datei ) then
MsgBox UCase( Datei ) & " existiert nicht!" & vbCRLF & vbCRLF & " . . . das ist das Ende.", , WScript.ScriptName
WScript.Quit
End If
Exit For ' nur das erste Argument reicht
Next


' Gibt's keinen Dateinamen, wird halt das Skript gelesen
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
if Datei = "" then Datei = WScript.ScriptName


' Datei komplett einlesen
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Set FileIn = FSO.OpenTextFile(Datei, 1 ) ' Datei zum Lesen öffnen

Text = FileIn.ReadAll

FileIn.Close
Set FileIn = nothing


' Inhalt bearbeiten
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Text = Replace( Text, vbCRLF , "" )
Text = Replace( Text, vbCRLF , "" )


' (Ziel-) Datei schreiben
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Datei = fso.GetBaseName( Datei ) & "-.txt"

Set FileOut = FSO.OpenTextFile( Datei , 2, true) ' Datei zum Screiben öffnen; 2: immer neu anlegen

FileOut.Write( Text )

FileOut.Close
Set FileOuT = nothing


Hoffe es euch genug erklärt zu haben. Evtl. hat ja jemand noch nen Lösungsansatz für mich.

Gruß Ralf

Yes, bislang sieht es SUPER aus. KNIEFALL !!!
Sollte bei weiteren Tests noch etwas auffallen, melde ich mich nochmals hier.

DANKE DANKE DANKE !!!