[Iska]

Brety, возьмите несколько файлов, при соединении/разъединении которых гарантированно происходит описанное Вами, и упакуйте их в архив, каковой прикрепите к сообщению, либо выложите на обменник.

[Brety]

Ну вот например. Из 13 соединённых файлов получается 11 разъединённых. Собственно, даже если соединить 2 файла, а потом разъединить, то второй файл будет оборван на каком-то моменте. Плюс разбивка на новые строки в произвольных местах.

[Iska]

Brety, ну, начнём с того, что у Ваших файлов концы строк в формате Unix — 0x0A, оно же Lf или LineFeed. Используя вывод в пакетных файлах, Вы уже в объединённом файле получаете концы строк не в виде Lf, а, как и принято в мире DOS/Windows — в виде пар CrLf. Не знаю, насколько это критично для Вас, но оригинальные файлы Вы таким способом уже не получите.

Далее. «разбивка на новые строки в произвольных местах» — совсем не в произвольных, а строго по длине в 1024 символа.


Смотреть-разбираться, где там что не так в пакетных файлах — не интересно и не продуктивно. Если найдутся заинтересованные в пакетных файлах коллеги — подскажут.

[megaloman]

Хотелось бы найти способ разделения одного файла на несколько используя именно bat/cmd.

Это обусловлено чем-то серьезным, или это каприз? Возиться с текстом в файле со всякими символами в cmd, имхо, затея достаточно рискованная. Как вариант, vbs или js скрипт.

[Brety]

Это обусловлено чем-то серьезным, или это каприз?»

Это просто в использовании и работает в любой ситуации на любой винде. Я думал для спецов это было бы как два пальца, поскольку текст в файле вроде как имел более-менее чёткое обозначение начала и конца, и раз уж тот предыдущий разделитель хоть как-то но срабатывал.

[Iska]

Brety, «в любой ситуации» — такого не бывает в принципе, «на любой винде» — это как раз WSH.

Я думал для спецов это было бы как два пальца, »

Обработка файлов посредством пакетных файлов сродни починке микросхемы при помощи стамески и молотка. Слишком грубый и ненадёжный инструмент.

поскольку текст в файле вроде как имел более-менее чёткое обозначение начала и конца, и раз уж тот предыдущий разделитель хоть как-то но срабатывал. »

Какой «тот предыдущий»? В той теме, на которую Вы ссылаетесь, я cделал обработчики на PowerShell.

Выше я Вам уже указал, что фокус с пакетными файлами тупо не прокатит, поскольку в оригинале совсем другие концы строк, которые теряются уже при слиянии.

[Brety]

Какой «тот предыдущий»? »

Который этот.

Код:

@echo off
 
set "result=outfile.txt"
 
for /f %%i in ('^<"%result%" find/c /v ""') do <"%result%" (
 for /l %%j in (1 1 %%i) do @(
  set "x="
  set/p x=
  if defined x (
   (
   for /f "delims=" %%k in ('
    cmd/v/c if "!x!" equ "[!x:~1,-1!]" echo "!x:~1,-1!"
   ') do @(
    2>nul md "%%~dpk"
    rem:>"%%k"
    set y=%%k
   )
   )|| if defined y cmd/v/c ">>!y! echo.!x!"
  ) else if defined y cmd/v/c ">>!y! echo."
 )
)
 
exit/b 0

Выше я Вам уже указал, что фокус с пакетными файлами тупо не прокатит, поскольку в оригинале совсем другие концы строк, »

Насколько я сейчас заметил, похоже это ни на что в конечном итоге не влияет, если сам код от { и до } остаётся целым.

[Iska]

Насколько я сейчас заметил, похоже это ни на что в конечном итоге не влияет, если сам код от { и до } остаётся целым. »

Вы везучий.

[megaloman]

Brety,

Вот батник со встроенным js-скриптом, который умеет консолидировать файлы в указанной папке и разделять консолидированный файл

Код:

@set @E=1; /*

@Echo Off
cls

Set "FileIn=Z:\Box_In\*.txt"
Set "FileOut=Z:\Box_In\Rezult.txt"

Echo ------------------------------
Echo Press:1 for Consolidation "%FileIn%"
Echo Press:2 for Separation "%FileOut%"

Set /P X=Press:
If Not "%X%"=="1" If Not "%X%"=="2" (
	Echo !!! Option "%X%" not defined 
	Echo Script %~dpnx0 canceled
	Echo ------------------------------
	Pause
	GoTo :Eof
)
If %X%==1 Call :Consolidate "%FileIn%" "%FileOut%"
If %X%==2 Call :Separate "%FileIn%" "%FileOut%"
GoTo :Eof

:Consolidate
rem	GoTo :Continue
	If Exist "%~2" (
		Echo !!! File "%~2" already exists
		Echo Script %~dpnx0 canceled
		Pause
		GoTo :Eof
	)
	:Continue

	rem ------------------------------ Backup input files
	Set "DateTime=%Date%-%Time%"
	Set "DateTime=%DateTime: =0%" 
	Set "DateTime=%DateTime::=%" 
	Set "DateTime=%DateTime:/=%" 
	Set "DateTime=%DateTime:,=%" 
	"C:\Program Files\7-Zip\7z.exe" a "%~2-%DateTime%.7Z" "%~1"
	rem ------------------------------

	<Nul Set /P X=>"%~2"
 
	FOR %%f IN ("%~1") DO If /I Not "%%f"=="%~2" (
		>"%~2.tmp.tmp" (Echo ==========%%~nxf==========)
		Copy "%~2"+"%~2.tmp.tmp"+"%%f" "%~2.tmp" /B /Y >Nul && (
			Del "%%f" >nul
			Move /Y "%~2.tmp" "%~2" >Nul
		) 
	)
	Del "%~2.tmp.tmp" >Nul 2>&1 
	Del "%~2.tmp" >Nul 2>&1 
GoTo :Eof

:Separate
	Set "$InFile=%~dpnx2"
	Set "$InFile=%$InFile:\=\\%"
	Set "$OutPath=%~dp1"
	Set "$OutPath=%$OutPath:\=\\%"
	cscript //NoLogo /E:jscript "%~dpnx0" "%$InFile%" "%$OutPath%"
GoTo :Eof
*/
var oArg=WScript.Arguments;        
if (oArg.Count()>1) {
	WScript.Echo(oArg(0),'\t',oArg(1));
	var FileTxt=oArg(0); 
	var PathOut=oArg(1);

	var Txt,err,nlen,i;

	var FSO=WScript.CreateObject("Scripting.FileSystemObject");
	try {Txt=FSO.OpenTextFile(FileTxt);}
	catch (err) {
		if (err != 0) {
			WScript.Echo("Open file "+FileTxt+"\nerror: "+err.number+"\n"+err.description);
			WScript.Quit();
		}
	}
	var strContent = Txt.ReadAll();
	Txt.Close();
	var OutMass = strContent.split('==========');

	for (var i = 2; i < OutMass.length; i=i+2) {
		WScript.Echo(PathOut+OutMass[i-1]);
		Txt=FSO.CreateTextFile(PathOut+OutMass[i-1],true);
		Txt.Write(OutMass[i].substr(2));
		Txt.Close();
	}
}
else {WScript.Echo('using script \n======== \n\n'+'cscript.exe //nologo "scriptname.js" "input text" >"outputfile.txt"');}

Если запустить консолидацию файлов а затем без изменения разбиение на файлы, длина файлов будет равна исходной.
Перед консолидацией делается страховочный архив посредством архиватора 7z.
При консолидации исходные файлы удаляются.
Пропишите свои пути.
Если пропИшите:
Set "FileIn=*.txt"
Set "FileOut=Rezult.txt"
то батник должен располагаться в папке с файлами.

Я думал для спецов это было бы как два пальца »

Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение.