Const ForReading = 1
Const ForWriting = 2

if  WScript.Arguments.length <> 1 then
	msgBox "Bitte ziehen Sie eine Datei auf dieses Skript!"
else
	filename = WScript.Arguments(0)
	
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFile = objFSO.OpenTextFile(filename, ForReading)
	
	myString = ""
	Do Until objFile.AtEndOfStream
		myString = myString & objFile.ReadLine & vbCRLF
	Loop
	objFile.Close
	
	'Prepare a regular expression object
	Set myRegExp = New RegExp
	myRegExp.IgnoreCase = True
	myRegExp.Global = True
	myRegExp.Pattern = "\r\nER\r\n"
	myString = myRegExp.replace(myString, vbCRLF & "ER" & vbCRLF & vbCRLF)
	
	Set WriteStuff = objFSO.OpenTextFile(filename, ForWriting, False)
	WriteStuff.WriteLine(myString)
	WriteStuff.Close
	
	msgBox "Leerzeilen eingefügt!"
	
end if