optimized to avoid storing a big string in RAM (you can write the output file while reading the input file)
Const ForReading = 1
Const ForWriting = 2
filePath = WScript.Arguments(0)
outFilePath = WScript.Arguments(1)
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filePath)
If fso.FileExists(outFilePath) then
fso.DeleteFile(outFilePath)
End If
Set objFile = fso.CreateTextFile(outFilePath)
objFile.WriteLine "#ifndef __BANK0GFX_H__"
objFile.WriteLine "#define __BANK0GFX_H__"
objFile.WriteLine ""
Do Until f.AtEndOfStream
currentLine = f.ReadLine
objFile.WriteLine "#define " & Replace(currentLine, " = ", " ")
Loop
f.Close
objFile.WriteLine "#endif"
objFile.Close