Textdatei Zeilenumbruch bei Sonderzeichen, danach Sonderzeichen löschen und bestimmte Zeilen löschen die mit einem Wert beginnen

Hallo zusammen,

habe mal wieder ein kleines Problem und hoffe auf eure Hilfe:

Ich habe eine Textdatei, die wie folgt ausschaut (Beispiel):

123, 456789,01/02/03;25,1,27
123, 4512313789,01/02/03;25,1,27
123, 456124,01/02/03;25,1,27
123, 45645489,01/02/03;25,1,27
123, 456454589,01/02/03;25,1,27
131;231145;01/11/166;96,00;1;198@21;23076;0111/611;12,0;72
933, 34241 123132 ,13213131
933, 34241 123132 ,13213131
933, 34241 123132 ,13213131

Das @ Zeichen wurde eingefügt, um zu erkennen, wo ein Zeilenumbruch eingefügt werden soll.
Außerdem sollen die Zeilen, welche mit 933 beginnen vollständig gelöscht werden.

Der Text soll dann am Ende so aussehen:

123, 456789,01/02/03;25,1,27
123, 4512313789,01/02/03;25,1,27
123, 456124,01/02/03;25,1,27
123, 45645489,01/02/03;25,1,27
123, 456454589,01/02/03;25,1,27
131;231145;01/11/166;96,00;1;198
21;23076;0111/611;12,0;72


Also folgende 3 Punkte:

1. Nach einem @ soll ein Zeilenumbruch eingefügt werden
2. Das @ soll gelöscht werden
3. Alle Zeilen mit dem Inhalt beginnend 933 sollen gelöscht werden.

Ich hoffe ihr könnt mir helfen.

LG tekken

@echo off & setlocal
(for /f "tokens=1,* delims=@" %%s in ('findstr /v /B "933," "E:\Skripte\test.txt"') do (  
	echo %%s
	set "end=%%t"  
	if defined end echo %%t
))>%temp%\neu.txt
pause
goto :eof

Set fso = CreateObject("Scripting.FileSystemObject")  
DateiEin = "D:\Datei.txt"  
DateiAus = "D:\Datei_neu.txt"  
T = Split(fso.OpenTextFile(DateiEin).ReadAll, vbCrLF)
Set Ausgabe = fso.CreateTextFile(DateiAus, True)
For Each Z In T
   Z = replace(Z, "@",  vbcrlf)  
   If Left(Z, 3) <> "933" Then Ausgabe.WriteLine Z  
Next
Ausgabe.Close