[Anufriev]

Скажите, коллега, подпись всегда одна и та же? А если могут быть разные — не попадётся ли как-нибудь однажды в подписи символ 0x0A или 0x0D, сиречь LineFeed, або CarriageReturn? Тройку нулевых символов я там уже вижу. »

Подпись может меняться, эм... не, не встречал я таких символов

Ну, WSH везде есть. »

Есть то она есть, но у нас беда с ИБ, прилетает по шапке и доказать, что это необходимо в работе практически не возможно, не любят они скрипты на пользовательских компах...

[Iska]

не любят они скрипты на пользовательских компах... »

Если они такие умные не любят — пусть принимают скрипты, проверяют, снабжают своей цифровой подписью и возвращают вобрат для использования. А mshta.exe они ещё случайно не запретили пользовать, а?

[Anufriev]

А mshta.exe они ещё случайно не запретили пользовать, а? »

пока что не добрались))))

[YuS_2]

Ну, WSH везде есть. »

ms-dos, win 3.11, win 95?

[Iska]

YuS_2, я имел в виду — из нонешних ОС.

[YuS_2]

нонешних ОС. »

дык, нонешние это уже семерка, восьмерка да десятка (там posh везде есть)... а остальные в музей пора передавать, на вечное хранение

[Iska]

YuS_2, смотря где. У меня и Windows NT 4.0 Workstation не так давно были вполне рабочими станциями. Что делать… За неимением гербовой — пишем на простой .

[megaloman]

Anufriev, с голым CMD Ваша задача вряд ли может быть решена. Если принять, как в вашем примере, что строки разделяются символами 0D 0A (то есть 13 10) и последняя строка этими символами не завершается, в подписи эта парочка не присутствует, то

Вот cmd с привлечением js

Код:

@set @E=1; /*
@Echo Off
	cls
	
	Set "BoxIn=Z:\Box_In"
	Set "BoxOut=Z:\Box_Out"
	Set "Mask=*.xml"
	
	FOR %%f IN ("%BoxIn%\%Mask%") DO (
		Copy "%%f" "%BoxOut%\" >nul
		Call Cscript //NoLogo /E:jscript "%~dpnx0" "%BoxOut%\%%~nxf"
	)
	pause
GoTo :Eof

*/
var oArg = WScript.Arguments;
var nArg = oArg.Count();

if (nArg != 1) {
	WScript.Echo("Error! Invalid number of arguments!");
	WScript.Quit(1);
}

var FText=oArg(0);

var FSO=WScript.CreateObject("Scripting.FileSystemObject");

var InFile;
try {InFile = FSO.OpenTextFile(FText,1);}
catch (e) {
   if (e !=0 ) {
	WScript.Echo("Error! " + FText + "  " + e.description);
       	WScript.Quit(2);
     }
}
var TextAll = InFile.ReadAll();
InFile.Close();

var Nlast=TextAll.lastIndexOf(String.fromCharCode(13,10));
TextAll=TextAll.substr(0,Nlast);

InFile = FSO.OpenTextFile(FText,2);
InFile.Write(TextAll);
InFile.Close();

WScript.Quit(0);

Пропишите пути к вашим входной и выходной папкам.

[megaloman]

Тихий ужас! Я не понимаю как, но это на представленном примере работает

Код:

@Echo Off
	Set "BoxIn=Z:\Box_In"
	Set "BoxOut=Z:\Box_Out"
	Set "Mask=*.xml"
	
	FOR %%f IN ("%BoxIn%\%Mask%") DO (
		>"%BoxOut%\%%~nxf" (FOR /F "usebackq delims=" %%t IN ("%%f") DO @echo.%%t)
	)
GoTo :Eof

Возможно, из-за какого-то непристойного символа в подписи
Гарантировать, что это будет работать всегда, не берусь.

А так, наверное, более предсказуемо:

Код:

@Echo Off
	Set "BoxIn=Z:\Box_In"
	Set "BoxOut=Z:\Box_Out"
	Set "Mask=*.xml"
	Set "End=</ESDT_BNK>"
	
	FOR %%f IN ("%BoxIn%\%Mask%") DO Call :Restrict "%%f"
GoTo :Eof

:Restrict
	>"%BoxOut%\%~nx1" (FOR /F "usebackq delims=" %%t IN (%1) DO (@echo.%%t) &If /I "%End%"=="%%t" GoTo :Eof)
GoTo :Eof

[Iska]

Возможно, из-за какого-то непристойного символа в подписи »

Из-за тех самых нулевых символов (0x00) в подписи, надо полагать. Стоит их убрать — и подпись остаётся на месте.