CMD/BAT - [решено] Циклическое повторение данных в файле

megaloman · Отправлено: **01:08, 18-01-2019** | #11

VBS: попробовал соптимизировать немного. На старинном ноуте 2-3 сек
Прямой вариант от Iska 11-13 сек

Код:

T1 = CStr(Now)
FileIn = "Z:\Box_In\FileIn.txt"
FileOut = "Z:\Box_In\FileOut.txt"
NMax = 611249
    
Set FSO = CreateObject("Scripting.FileSystemObject")

On Error Resume Next
Set fIn = FSO.OpenTextFile(FileIn, 1, False)

If Err.Number <> 0 Then
    MsgBox "File   " + FileIn + vbCrLf + Err.Description + "(" + CStr(Err.Number) + ")"
    WScript.Quit 2
End If
On Error GoTo 0

Alls = fIn.ReadAll
fIn.Close

S1 = Alls
S10 = Multi(S1, 10)
S100 = Multi(S10, 10)
S1000 = Multi(S100, 10)
S10000 = Multi(S1000, 10)
S100000 = Multi(S10000, 10)

N100000 = Int(NMax / 100000)

NN = NMax - N100000 * 100000
N10000 = Int(NN / 10000)

NN = NN - N10000 * 10000
N1000 = Int(NN / 1000)

NN = NN - N1000 * 1000
N100 = Int(NN / 100)

NN = NN - N100 * 100
N10 = Int(NN / 10)

N1 = NN - N10 * 10

Set F = FSO.OpenTextFile(FileOut, 2, True)
For i = 1 To N100000
    F.Write S100000
Next
F.Write Multi(S10000, N10000) + Multi(S1000, N1000) + Multi(S100, N100) + Multi(S10, N10) + Multi(S1, N1)
F.Close
MsgBox T1 + vbCrLf + CStr(Now)

'----------------------------------------------
Function Multi(SS, M)
    If M = 0 Then
        Multi = ""
        Exit Function
    End If
    SSM = SS
    For i = 2 To M
        SSM = SSM + SS
    Next
    Multi = SSM
End Function

Интересно всё-таки придумать на CMD ...

Profile · Отправлено: **03:18, 18-01-2019** | #12

кое что получилось вот таким образом:

Код:

@echo off
set symbol=FB7DB47D8BF0AC9840740C487413B40EBB0700CD10EBEFA0FD7DEBE6A0FC7DEBE1CD16CD19268B551A52B001BB0000E83B0072E85B8A5624BE0B7C8BFCC746F03D7DC746F4297D8CD9894EF2894EF6C606967DCBEA030000200FB6C8668B46F86603461C668BD066C1EA10EB5E0FB6C84A4A8A460D32E4F7E20346FC1356FEEB4A525006536A016A10918B4618969233D2F7F691F7F64287CAF7761A8AF28AE8C0CC020ACCB80102807E020E7504B4428BF48A5624CD136161720B40750142035E0B497506F8C341BB000060666A00EB
set file=bin
<nul set /p x=>%file%
for /L %%A IN (1,1,611249) DO (<nul >>%file% set /p x=%symbol%)
msg * "Done!"
exit /b

засунул свои 208байт прямо в команду, но все это дело сохраняется как текст, как сохранить это в бинарном виде?

YuS_2 · Отправлено: **09:25, 18-01-2019** | #13

Цитата Iska:

за пределы цикла »

Цитата Busla:

шаблон с диска читаете 611249 раз »

согласен. поправил...
Изначально в том коде просто нули были, а я вместо этого чтение файла добавил бездумно...

Busla · Отправлено: **10:56, 18-01-2019** | #14

Сидит полный форум несмыслёнышей: кодить умеют, а что писать не знают. И тут приходит Profile, весь в белом™ и наставляет на путь истинный: не берите шаблон из файла, а храните в переменной.

Позволяли бы батники работать с бинарными данными, - так бы и написали, а не советовали на других языках реализовывать.

YuS_2, megaloman, Iska а вы уверены, что текстовое данных представление не даст стороннего эффекта?

YuS_2, задним числом редактировать откоментированные сообщения некорректно и неэтично

YuS_2 · Отправлено: **11:12, 18-01-2019** | #15

Цитата Busla:

а вы уверены, что текстовое данных представление не даст стороннего эффекта? »

В вопросе звучало что? Заполнить файл B данными из файла A
В смысле, что не так?

Цитата Busla:

некорректно и неэтично »

Почему? Я же написал, что с замечаниями согласен и потому код поправлен. Там же нет ничего такого, что имеет принципиальное значение...

Имхо, наоборот, неэтично плодить лишние сущности и оставлять для будущих читателей не совсем корректный код... да и в принципе, зачем дублировать сообщения с кодом, когда его можно просто поправить? Зайдет читатель в топик, а тут от разнообразия кода в глазах рябит и какой из представленных вариантов правильный? По-моему, гораздо правильнее оставить тот код, который наиболее верный и может представлять интерес для будущих читателей, а остальное беспощадно чистить... т.е. не вижу ни одной причины, чтобы хранить на форуме некорректные коды.

Profile · Отправлено: **12:08, 18-01-2019** | #16

Цитата Busla:

Позволяли бы батники работать с бинарными данными, - так бы и написали, а не советовали на других языках реализовывать. »

...т.е. придется что-то сочинять? так просто не отделаюсь?

mwz · Отправлено: **13:23, 18-01-2019** | #17

Цитата Profile:

611249 раз »

Для курьёза:
611249=10010101001110110001b

Скрытый текст

Запоминаем содержимое файла A как Шаблон-0 (ну этот шаг можно пропустить: оно и так будет в самом файле; просто для единообразия алгоритма) и далее используем как Шаблон-1.

Четыре раза (следующая единичка левее в двоичном значении) делаем конкатенацию Шаблон-1 с самим собой, сохраняя в том же Шаблон-1.
Сохраняем полученный файл и далее используем как как Шаблон-2.

Один раз (следующая единичка левее в двоичном значении) делаем конкатенацию Шаблон-2 с самим собой, сохраняя в том же Шаблон-2.
Сохраняем полученный файл и далее используем как как Шаблон-3.

И т.д. до последней единицы левее — сохраняя промежуточные удвоенные файлы при появлении 1 в исходном двоичном значении.

Делаем конкатенацию всех промежуточных шаблонов, начиная с Шаблон-0.

Задача решена.

PS
Возможна и более быстрая реализация этого алгоритма без использования промежуточных шаблонов, а только текущего удваиваемого и исходного файла A — если начать разборку двоичного значения слева.

Profile · Отправлено: **13:35, 18-01-2019** | #18

Цитата mwz:

Для курьёза:
611249=10010101001110110001b »

наверное работае, для того кто понимает в этом)))
а как это в батнике реализовать?

megaloman · Отправлено: **15:33, 18-01-2019** | #19

Цитата Busla:

... megaloman ... а вы уверены, что текстовое данных представление не даст стороннего эффекта? »

Не уверен. Я вообще не понимаю смысл задачи.

Цитата Profile:

засунул свои 208байт прямо в команду, но все это дело сохраняется как текст, как сохранить это в бинарном виде? »

Вообще смысл реплики ускользает. Что в файле? Текст? Что значит сохранить эту строку в бинарном виде?
Profile,

Вот CMD на основе Copy /B. По времени (несколько секунд) немного медленнее, чем моё решение в VBS (но там алгоритм менее эффективный и на основе текстового потока).

Код:

@@Echo Off
cls
Set T=%Time%
	Set "FileIn=Z:\Box_In\FileIn.txt"
	Set "FileOut=Z:\Box_In\FileOut.txt"
	Set /A Max=611249

	If Not Exist "%FileIn%"  (Echo !!! File "%FileIn%" not found &Pause &Exit /B 2)

        Set /A @@01=2, @@02=4, @@03=8, @@04=16, @@05=32, @@06=64, @@07=128, @@08=256, @@09=512, @@10=1024, @@11=2048, @@12=4096, @@13=8192, @@14=16384, @@15=32768, @@16=65536, @@17=131072, @@18=262144, @@19=524288, @@20=1048576, @@21=2097152

	Set /A Min=0
	Set "Var="
	Set "All="
	Set /A Re=%Max%

	:Begin
		Set /A Re=%Re%-%Min%
		Set "All=%Var% %All%
		If %Re% LSS 2 GoTo :Continue
		FOR /F "usebackq tokens=1,2 delims==" %%i IN (`Set "@@"`) DO (
			If %%j GTR %Re% GoTo :Begin
			Set /A Min=%%j
			Set "Var=%%j"
		)
	:Continue
	Call :Double "%FileIn%" "%FileOut%" %Re% %All%  
Echo %Time%
Echo %T%
Pause
GoTo :Eof

:Double
	Copy /B %1 "%~1~tmp1" >nul
	Copy /B %1 "%~1~tmp2" >nul
	> %2 (cd.)
	If %3 EQU 1 Copy /B %1 %2 >nul
	
	Set /A i=1
	:Beg1
		Set /A i=2*i
		Copy /B "%~1~tmp2"+"%~1~tmp1" "%~1~tmp2" >nul
		Copy /B "%~1~tmp2" "%~1~tmp1" >nul
		If %i% NEQ %4 GoTo :Beg1
		Copy /B %2+"%~1~tmp2" %2 >nul
		Shift /4
		If Not "%4"=="" GoTo :Beg1
		Del "%~1~tmp1"
		Del "%~1~tmp2"
GoTo :Eof

Что плохо: за скорость надо заплатить (в худшем случае трёхкратным свободным местом для работы скрипта)

alpap · Конфигурация компьютера

вот на чистом bat

Код:

@echo off
<A.txt (for /f "delims=" %%a in ('more') do set /a n+=1& call set "$_%%n%%=%%a")
>B.txt (for /l %%n in (1 1 611249) do @set $_)
pause

Да, не быстро: время старт/стоп
14:46:20,29
14:47:09,82
но все же менее минуты,
для сравнения время по коду megaloman,
15:10:38,53
15:10:39,47
НО, придется согласиться с появлением в каждой строке приставки: "$_n+1=" (n+1 - номер строки A.txt), что впрочем легко убирается (строка после "="), если нужен будет правильный вывод из B.txt. (Сразу сделать это не получиться если время дорого).