' ***********************************************************
' скрипт rtrim.vbs
' удаление хвостовых пробелов
' вызов
'   cscript /nologo rtrim.vbs fileIN [fileOUT]
' параметры
' fileIN  - Обязательный. Входной файл
' fileOUT - Не обязательный. Выходной файл. 
' 	Если не задан, - получается добавлением к имени входного файла суффикса '.nwp'
' ***********************************************************

option explicit

dim fso, f, f2, s

set fso= createobject("scripting.filesystemobject")
set f= fso.opentextfile(wscript.arguments(0),1)

if wscript.arguments.count=2 then
    s= wscript.arguments(1)
    if s=wscript.arguments(0) then
        wscript.echo "Нельзя читать и писать в один и тот же файл." 
        wscript.quit
    end if
else
    s= wscript.arguments(0) & ".nwp"
end if

set f2= fso.opentextfile(s,2,true)

do until f.atendofstream
    s= rtrim(f.readline)
    f2.writeline s
loop

f.close: set f= nothing
f2.close: set f2= nothing
set fso= nothing

wscript.quit