Frage Entwicklung Batch & Shell

gelöst Datei einlesen - Zeilenweise Inhalt ändern - Datei abspeichern

Hallo ihr lieben,

kann mir mal jemand einen Tip geben.

Und zwar bekomme ich aus unserer Software Zeitdaten, die ich in dem Format leider nicht einlesen kann. Zur Zeit importiere ich diese in Excel und formatier sie hier um. Leider schaffe ich so aber einen Single Point of Failure (mich) und auch Flüchtigkeitsfehler können mir so passieren. Daher würde ich das ganze gerne automatisieren,

Die Ursprungsdatei sieht wie folgt aus:

Bsp.:

551|1212098|01.08.2010|08:30:00|16:30:00|0,75|273234|

Die Datei muss aber wie folgt aussehen (neuer Trenner ; )

022;L551;;1212098;01.08.2010;083000;163000;;273234;

022 -> Von mir vorgegebener Wert
L551 ->Ursprungsdatei erster Wert +L
1212098 -> Ursprungsdatei zweiter Wert (ohne Änderung)
;; Leerzeichen zwischen den Trenner muss eingefügt werden
01.08.2010 -> Ursprungsdatei dritter Wert (ohne Änderung)
08:30:00-> Ursprungsdatei vierter Wert (ohne : )
16:30:00-> Ursprungsdatei fünfter Wert (ohne : )
;; Leerzeichen zwischen den Trenner muss eingefügt werden
273234 -> Ursprungsdatei siebter Wert (ohne Änderung )

Ich wäre für eure Hilfe sehr Dankbar.

Wenn es nicht per Batch geht, wären VB Scripte für mich auch kein Problem hauptsache die Datei kann automatisiert verändert werden.

Gruß

@echo off &setlocal 

>neu.txt type nul 

for /f "delims=|: tokens=1-9,11" %%a in (alt.txt) do ( 

  >>neu.txt echo 022;L%%a;;%%b;%%c;%%d%%e%%f;%%g%%h%%i;;%%j; 

)

const ersetzen = true					 

const deinwert = "022"					 

const einzulesende_datei = "test.txt"	 

const temp_datei = "temp.txt"			 

dim objfso : set objfso = createobject("scripting.filesystemobject") 

dim arr_line, inputfile, ouputfile 

set inputfile = objfso.opentextfile(einzulesende_datei,1) 

set outputfile = objfso.opentextfile(temp_datei,2, true) 

do while not inputfile.atendofstream 

	arr_line = split(inputfile.readline(),"|") 

	outputfile.writeline deinwert & ";" & _											 

						"L" & arr_line(0) & ";" & _ 

						arr_line(1) & ";;" & _ 

						arr_line(2) & ";" & _ 

						replace(arr_line(3),":","") & ";" & _ 

						replace(arr_line(4),":","") & ";;" & _ 

						arr_line(5) & ";" & _ 

						arr_line(6) & ";" 

loop 

inputfile.close 

outputfile.close 

if ersetzen = true then 

	objfso.deletefile einzulesende_datei 

	objfso.movefile temp_datei, einzulesende_datei 

end if