Textdatei per Batch auslesen und neue erzeugen

TrennzeichenAlt = "*"  
TrennzeichenNeu = "|"  
Datumstrennzeichen = "."  
Uhrtrennzeichen = ":"  

DatUhr = date & time
DatUhrOhne = replace (DatUhr,Datumstrennzeichen,"")  
DatUhrOhne = replace (DatUhrOhne,Uhrtrennzeichen,"")  

Alarmpfad = "C:\Alarm.txt"  
AlarmpfadNeu = "C:\" & DatUhrOhne & ".txt"  

Set FSO = CreateObject("Scripting.FileSystemObject")  

MeineAlarme = Split(FSO.OpenTextFile(Alarmpfad, 1).ReadAll, TrennzeichenAlt)


For i = 0 to Ubound(MeineAlarme)
	AlarmtextNeu = AlarmtextNeu & DatUhrOhne & TrennzeichenNeu & DatUhr & TrennzeichenNeu & _
        "2511" & TrennzeichenNeu & (i + 11) & TrennzeichenNeu & "+" & _  
        TrennzeichenNeu & MeineAlarme(i) & vbcrlf
Next

	AlarmtextNeu = AlarmtextNeu & DatUhrOhne & TrennzeichenNeu & DatUhr & TrennzeichenNeu & _
        "2511" & TrennzeichenNeu & (i + 11) & TrennzeichenNeu & "+" & _  
        TrennzeichenNeu & DatUhr

Set MeineAlarmeNeu = FSO.CreateTextFile(AlarmpfadNeu,True)
	MeineAlarmeNeu.Write(AlarmtextNeu)
MeineAlarmeNeu.Close

Msgbox AlarmtextNeu

::: --schnipp Feuermelder.cmd --
:: zu starten mit Feuermelder.cmd "Parameter"  
:: "D:\Dort wo es brennt\" mit dem Verzeichnis austauschen   
@echo off&setlocal
for /f "tokens=2-4 delims=(-)" %%i in ('echo.^|date^|more +1') do for /f "tokens=1-6 delims=MoDiMFrSa.,:- " %%l in ('echo exit^|cmd /q /k"prompt $D:$T"') do set "%%i=%%l" & set "%%j=%%m" & set "%%k=%%n" & set "HH=%%o" & set "min=%%p" & set "ss=%%q"  
echo "%HH%"|findstr "[0-9][0-9]" >nul || set "HH=0%HH%"  
echo "%JJ%"|findstr "[0-9][0-9][0-9][0-9]" >nul && (set "JJJJ=%JJ%" & set "JJ=%JJ:~-2%" ) || set "JJJJ=20%JJ%"  
chcp 1252 >nul
set "Zeile=%*"  
set "DH=""  
setlocal enabledelayedexpansion
if "!DH!!Zeile:~1,-1!!DH!" == "!Zeile!" set "Zeile=!Zeile:~1,-1!"  
(
	for /f "tokens=1-4 delims=*" %%i in ("!Zeile!") do (endlocal  
		echo %JJJJ%%MM%%TT%%HH%%min%%ss%^|%TT%.%MM%.%JJ% %HH%:%min%:%ss%^|2511^|11^|+^|%%j
		echo %JJJJ%%MM%%TT%%HH%%min%%ss%^|%TT%.%MM%.%JJ% %HH%:%min%:%ss%^|2511^|12^|+^|%%k
		echo %JJJJ%%MM%%TT%%HH%%min%%ss%^|%TT%.%MM%.%JJ% %HH%:%min%:%ss%^|2511^|15^|+^|%%i
		echo %JJJJ%%MM%%TT%%HH%%min%%ss%^|%TT%.%MM%.%JJ% %HH%:%min%:%ss%^|2511^|14^|+^|%%l
		echo %JJJJ%%MM%%TT%%HH%%min%%ss%^|%TT%.%MM%.%JJ% %HH%:%min%:%ss%^|2511^|16^|+^|%TT%.%MM%.%JJ% %HH%:%min%:%ss%
	)
)>"D:\%JJJJ%%MM%%TT%%HH%%min%%SS%.txt"  
chcp 850 >nul
::: --schnapp Feuermelder.cmd --

Const EingabePath = "C:\Alarm.txt"  
Const AusgabePath = "C:\%1.txt"  

Const DelimEingabe = "*"  
Const DelimAusgabe = "|"  

Const Einsatzart = 0
Const Ort = 1
Const Strasse = 2
Const Info = 3

Set Fso = CreateObject("Scripting.FileSystemObject")  

Zeit = Left(Date, 6) & Right(Date, 2) & " " & Time  
Zeitstempel = Year(Date) & Right("0" & Month(Date), 2) & Right("0" & Day(Date), 2) & Replace(Time, ":", "")  

Text = Split(Fso.OpenTextFile(EingabePath, 1).ReadLine, DelimEingabe)

Alarm = Array(Text(Ort), 11, Text(Strasse), 12, Text(Einsatzart), 15, Text(Info), 14, Zeit, 16)

Text = ""  

For i = 0 To UBound(Alarm) Step 2
    Text = Text & Zeitstempel & DelimAusgabe & Zeit & DelimAusgabe & "2511" & _  
        DelimAusgabe & Alarm(i + 1) & DelimAusgabe & "+" & DelimAusgabe & Alarm(i) & vbCrLf  
Next

Set File = Fso.CreateTextFile(Replace(AusgabePath, "%1", Zeitstempel))  
   
File.Write Text:  File.Close

  for /f "tokens=1-4 delims=*" %%i in ("%~1") do ( 

  for /f "tokens=1-4 delims=*" %%i in ("%*") do ( 

>f:\schnipsel\Feuermelder.cmd Einsatzart(zB Feuer)*Zell am See *Dorfstr 12 2.Etage* Das rauchte stark
20110118173127|18.01.11 17:31:27|2511|11|+|Zell am See
20110118173127|18.01.11 17:31:27|2511|12|+|Dorfstr 12 2.Etage
20110118173127|18.01.11 17:31:27|2511|15|+|Einsatzart(zB Feuer)
20110118173127|18.01.11 17:31:27|2511|14|+| Das rauchte stark
20110118173127|18.01.11 17:31:27|2511|16|+|18.01.11 17:31:27