if Wscript.Arguments.Count = 0 then
	WScript.Echo "Необходимо указать хотя бы имя файла"
	WScript.Quit 1
end if

filename = WScript.Arguments.Named.Item("filename")

Set fso = CreateObject("Scripting.FileSystemObject")

if fso.FileExists(filename) then
	Set fr = fso.OpenTextFile(filename, 1, false)
else
	WScript.Echo "Файл не существует"
	WScript.Quit 1
end if

summa = 0.0
Do Until fr.AtEndOfStream
	buff = fr.ReadLine
	if Left(buff, 1) <> "#" then
		arr = Split(buff, ";")
		summa = summa + CCur(arr(7))
	end if
Loop
fr.Close()

Set sr = CreateObject("ADODB.Stream")
sr.Type = 2
sr.Charset = "cp866"
sr.Open
sr.LoadFromFile(filename)
Set sw = CreateObject("ADODB.Stream")
sw.Type = 2
sw.Charset = "cp866"
sw.Open

bEnd = true
Do Until sr.EOS
	buff = sr.ReadText(-2)
	if bEnd then
		if Left(buff, 1) <> "#" then
			sw.WriteText("#NOTE " + FormatNumber(summa,2,vbTrue,vbFalse,vbFalse) + vbCrLf)
			bEnd = false
			WScript.Echo summa
		end if
	end if
	sw.WriteText(buff + vbCrLf)
Loop
sr.Close
sw.SaveToFile filename+".note", 2
sw.Close

if (WScript.Arguments.Count() == 0) {
	WScript.Echo("Необходимо указать хотя бы имя файла");
	WScript.Quit(1);
}

filename = WScript.Arguments.Named.Item("filename");

var fso = new ActiveXObject("Scripting.FileSystemObject");

if (fso.FileExists(filename))
	var fr = fso.OpenTextFile(filename, 1, false);
else {	
	WScript.Echo("Файл не существует");
	WScript.Quit(1);
}

var buff = "";
var summa = 0.0;
while (!fr.AtEndOfStream) {
	buff = fr.ReadLine();
	if (buff.charAt(0) != "#") {
		arr = buff.split(";");
		summa = summa + parseFloat(arr[7]);
	}
}
fr.Close();

var sr = new ActiveXObject("ADODB.Stream")
sr.Type = 2
sr.Charset = "cp866"
sr.Open
sr.LoadFromFile(filename)
var sw = new ActiveXObject("ADODB.Stream")
sw.Type = 2
sw.Charset = "cp866"
sw.Open

bEnd = true
while (!sr.EOS) {
	buff = sr.ReadText(-2);
	if (bEnd) {
		if (buff.charAt(0) != "#") {
			sw.WriteText("#NOTE " + summa.toFixed(2) + "\r\n");
			bEnd = false;
		}
	}
	sw.WriteText(buff + "\r\n");
}
sr.Close();
sw.SaveToFile(filename+".note", 2);
sw.Close();

WScript.Echo(summa);