call :zamena <"%file_name%" >"new_%file_name%"

:zamena
@set @x=0/*!&&@set @x=
...

@set @x=0/*!&&@set @x=

@echo off

Впишите любой код командного интерпретатора. 

Вызов команд JScript выполняйте следующей командой
Укажите параметры, имена входных и выходных файлов в конце этой строки
%windir%\System32\cscript.exe //nologo //e:javascript "%~dpnx0" 

@goto :eof */

Здесь любой JScript код

d:\script\CMD\XML\new.bat(1, 7) Ошибка компиляции Microsoft JScript: Предполагае
тся наличие '@'

rem  Узнать количество строк в файле
for /f %%n in ( 'more ^< "%file_name%" ^| find /c /v ""' ) do set tail_count=%%n
rem  если в файле 1 строка - расставить переносы
if %tail_count%==1 call z.cmd <%file_name% >new_%file_name%
rem прибираем
del %file_name%
ren new_%file_name% %file_name%

// Украсить XML-дерево вставкой отступов. (C) Anton Lapounov 2005
function Indent(node, curIndent, levelIndent)
{
    // Если у узла нет содержимого, ничего не делать
    if (!node.hasChildNodes)
    {
        return;
    }
 
    // Если содержимое включает текстовые узлы, ничего не делать
    for (var child = node.firstChild; child != null; child = child.nextSibling)
    {
        if (child.nodeType == 3 ||  // PCDATA
            child.nodeType == 4)    // CDATA
        {
            break;
        }
    }
 
    if (child != null)
    {
        return;
    }
 
    // Вставить текстовые узлы с отступами между дочерними узлами и обработать их рекурсивно
    var newIndent = curIndent + levelIndent;
    var textNode = node.ownerDocument.createNode(3, "", "");
    textNode.text = newIndent;
 
    for (child = node.firstChild; child != null; child = child.nextSibling)
    {
        node.insertBefore(textNode.cloneNode(false), child);
        Indent(child, newIndent, levelIndent);
    }
 
    textNode.text = curIndent;
    node.appendChild(textNode);
}
 
// Пример использования функции Indent:
 
// Загрузить XML-документ из файла XML.xml
var doc = new ActiveXObject("MSXML2.DomDocument");
doc.async = false;
 
if (!doc.load(WScript.Arguments(0)))
{
    WScript.Echo("ERROR: " + doc.parseError.reason);
    WScript.Quit(1);
}
 
// Вставить отступы: перевод строки + 2 пробела на каждый уровень
Indent(doc.documentElement, "\n", "  ");
 
// Показать документ с отступами
//WScript.Echo(doc.xml);
 
// Сохранить документ с отступами в файл XML.xml
doc.save(WScript.Arguments(0));

sed "s/></>\n</g" <doc94313.xml >result.xml

perl -pe "s/></>\n</g" <doc94313.xml >result.xml

@set @x=0/*!&&@set @x=
@ %windir%\System32\cscript.exe //nologo //e:javascript "%~dpnx0" %*
@goto :eof */


var stdin = WScript.StdIn;
var stdout = WScript.StdOut;

while ( ! stdin.AtEndOfStream ) {
    var inputLine = stdin.ReadLine();
    var outputLine = inputLine.replace(/></g, '>\n<');
    stdout.WriteLine(outputLine);
}