[YuS_2]

Зачем?

[megaloman]

serg515, что вы хотите получить, в каком виде?

[Iska]

Как написать цифры от 1 до 1000000. »

Нет таких цифр. Есть числа.

Напишите непосредственно в командной строке:

Код:

for /l %i in (1, 1, 1000000) do @echo %i

Если нужен вывод не на консоль, а в файл:

Код:

>"Out.txt" (for /l %i in (1, 1, 1000000) do @echo %i)

[serg515]

Если нужен вывод не на консоль, а в файл: Код: >"Out.txt" (for /l %i in (1, 1, 1000000) do @echo %i) »

работает. только вместо %i,нужно %%i
или

Код:

for /l %%x in (1, 1, 1000000) do echo %%x>>C:\Out.txt

так же:

Код:

@echo off
set a=1
:start
>>Out.txt echo %a%
if "%a%"=="1000000" (exit)
echo %a%
set /a a=%a%+1
goto start

[Iska]

только вместо %i,нужно %%i »

serg515, я написал русским языком и даже выделил — «в командной строке».

или »

Заморитесь ждать. Пример выше один раз открывает файл и пишет в него «до упора», потом закрывает. Ваш пример — делает миллион приседаний раз последовательность действий «открыть файл, дописать в него строку, закрыть файл». Даже с учётом кэширований, это много больше по времени.

Вот на 20000 у меня:

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

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

echo %time%
>"Out1.txt" (for /l %%i in (1, 1, 20000) do echo %%i)
echo %time%
for /l %%i in (1, 1, 20000) do echo %%i>"Out2.txt"
echo %time%

endlocal
exit /b 0

Код: 22:31:42.32 22:31:43.38 22:31:50.62

так же: »

Нет, так:

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

set /a iCount = 0
2>nul del /f /q "Out.txt"

:Repeat
	set /a iCount += 1
	>>"Out.txt" echo %iCount%
	if %iCount% lss 1000000 goto :Repeat
)

endlocal
exit /b 0

Опять же, этот построчный вывод много медленнее «пакетного».

[megaloman]

vbs

Код:

Filename = "Z:\Box_Out\aaa.txt"

With CreateObject("Scripting.FileSystemObject")
    Set fOut = .CreateTextFile(Filename, True)
    fOut.Close
                
    Set fOut = .OpenTextFile(Filename, 8, False)

    For j = 1 To 999901 Step 100
        fOut.Write iii(j, j + 99)
    Next
    
    fOut.Close
End With

Function iii(i1, i2)
    If i1 = 1 Then
        ii = CStr(i1)
    Else
        ii = vbCrLf + CStr(i1)
    End If
    
    For i = i1 + 1 To i2
        ii = ii + vbCrLf + CStr(i)
    Next
    iii = ii
End Function

[Iska]

megaloman, а зачем такие сложности? Операции над строками одни из самых медленных. Ваш скрипт выполняется у меня за 26 секунд. Тупой перебор 1...1000000 с выводом выполняется у меня за 7 секунд.

[megaloman]

Iska, посчитал, что так будет быстрее, видимо ошибся, высплюсь, проверю.

[Vadikan]

PowerShell range

Код:

1..100500 >> "$env:userprofile\100500.txt"