[Iska]

Код:

>nul copy nul "b.txt" & for /l %i in (1, 1, 611249) do @>nul copy /b "b.txt"+"a.txt" "b.txt"

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

[Profile]

Сразу говорю, что этот подход категорически не эффективен — заморитесь ждать Ваших 127,139,792 результирующих байт. Но заниматься оптимизацией вычислений такой ерундой на пакетных файлах не вижу ни малейшего смысла. »

...то что нужно. Спасибо)

[alpap]

создать файл "B", гораздо большего размера, например 127139792байта , циклично заполненного содержимым из файла "A" »

если закрыть на это глаза, то проще конечно так:

Код:

fsutil file createnew "B.txt" 127139792

[Profile]

если закрыть на это глаза, то проще конечно так: »

да!
но как его заполнить файлом A?)

[Iska]

но как его заполнить файлом A?) »

Никак. Чудес не бывает.

На WSH:

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

Код:

Option Explicit

Dim strSourceFile
Dim strDestFile

Dim strContent
Dim i


strSourceFile = "C:\Мои проекты\0238\a.txt"
strDestFile   = "C:\Мои проекты\0238\b.txt"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strSourceFile) Then
		With .OpenTextFile(strSourceFile)
			strContent = .ReadAll()
			.Close
		End With
		
		With .CreateTextFile(strDestFile, True)
			For i = 1 To 611249
				.Write strContent
			Next
			
			.Close
		End With
	Else
		WScript.Echo "Can't find source file [" & strSourceFile & "]."
		WScript.Quit 1
	End If
End With

WScript.Quit 0

[YuS_2]

На WSH »

до кучи на powershell:

Код:

$cnt = 611249
$tmp = [io.file]::readalltext('a.txt',[text.encoding]::getencoding("windows-1251"))
#вариант для версии PoSh 3.0 и выше:
#$tmp = gc a.txt -raw -enc default
$str = new-object text.stringbuilder
for ($i = 0; $i -le $cnt; $i++){
	$null = $str.append($tmp)
}
$str.tostring()|sc b.txt -enc default

формируется примерно:
первичный запуск:
TotalSeconds : 16,5885417
повторный:
TotalSeconds : 5,4562804

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

[Iska]

YuS_2, я бы всё-таки вынес [io.file]::readalltext('a.txt') за пределы цикла. Понятно, что по сути повторное чтение будет идти из кэша, но всё же, всё же, всё же…

формируется примерно: TotalSeconds : 157,7945136 »

Что-то многовато. У меня на WSH — примерно 4-5 секунд занимает.

На мой взгляд, здесь лучше зараз писать в файл: конкатенация строк очень ресурсоёмкая операция.

[Busla]

Код:

for /L %%i in (1, 1, 611249) do @type a.txt >> b.txt

~12 мин формируется»

потому что вы шаблон с диска читаете 611249 раз

[mwz]

потому что вы шаблон с диска читаете 611249 раз »

Помнится, в бытность студеном на практических занятиях учились составлять программы на машине Мир-2 (транзисторные модули, перфолента, УВВ "Консул", язык — "русский бейсик").

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

Составили программку: тысячи циклов, включающих конструкция типа:

ЦИКЛ
...
ГДЕ A=3
ГДЕ B=5
...
КОНЦИКЛ

Чуем — что-то долго считает... Остановили, пустили на дальнейшее пошаговое исполнение с распечаткой каждого шага. Сначала ошалели, потом долго смеялись: 50% распечатки заняли строки
A=3
B=5

Ну заменили эти "ГДЕ" на константы, определив их перед циклом — и сразу программа задышала.