[Fors1k]

Код:

Set-Content c:\test.txt (1..1000000)

215ms

[Iska]

215ms »

SSD?

megaloman, вообще — да: когда-то коллективно игрались на предмет того, эффективно ли делать вывод больших объёмов текста блоками строк (по сравнению с байтовым), и, если да — то какими именно. Насколько помнится, оптимальные цифры «крутились» вокруг 512-4096 байт — у разных участников.

[Fors1k]

SSD? »

SSD!

Но сам SSD - не панацея:

1..1000000>> c:\test.txt »

21sec

[Iska]

SSD! »

Спасибо, ясно.

Но сам SSD - не панацея: »

Конечно. Будет время — попробую проверить, нет ли в этом того же самого миллиона «приседаний».

[megaloman]

Iska,

У меня ноут 2007 года. HDD заменил на SSD. Отчитываюсь

Прямой перебор

Код:

T = Timer()
Filename = "Z:\Box_Out\aaa.txt"

Nmax = 1000000

With CreateObject("Scripting.FileSystemObject")
    Set fOut = .CreateTextFile(Filename, True)
    fOut.Close
                
    Set fOut = .OpenTextFile(Filename, 8, False)
    
    For i = 1 To Nmax - 1
        fOut.WriteLine CStr(i)
    Next
    fOut.Write CStr(Nmax)
    
    fOut.Close
End With

MsgBox Timer() - T

Запись блоками

Код:

T = Timer()
Filename = "Z:\Box_Out\aaa.txt"

Nmax = 1000000
Nstep = 100	'Ограничение: NNax должно нацело делиться на Nstep

With CreateObject("Scripting.FileSystemObject")
    Set fOut = .CreateTextFile(Filename, True)
    fOut.Close
                
    Set fOut = .OpenTextFile(Filename, 8, False)
    
    jMax = Nmax - Nstep + 1
    
    For j = 1 To jMax Step Nstep
        If j <> 1 Then
            jj = j
            ss = ""
        Else
            jj = 2
            ss = "1"
        End If
        
        For i = jj To j + Nstep - 1
            ss = ss + vbCrLf + CStr(i)
        Next
        fOut.Write ss
    Next
    
    fOut.Close
End With

MsgBox Timer() - T

Код:

1	20,1	сек
10	4,9	сек
50	3,3	сек
100	3,1	сек
200	3,2	сек
500	3,7	сек
1000	5,1	сек
10000	56,0	сек

Можно, наверное, соптимизировать алгоритм, чтобы записывать не одинаковое количество чисел, а приблизительно одинаковое количество байт, но стОит ли?
Наверное, не всё так универсально, тут соотношение производительности процессора и скорости записи в файл важно.
Кстати, скрипт в качестве макроса Excel при записи по 100 чисел выполнился у меня в 2 раза быстрее, а при прямом переборе -всего на 20%.

[Vadikan]

21sec »

Я-то думал, что тут самыми короткими пиписьками меряются, а оказалось - кто быстрее закончит :)

[Iska]

Оптимизация пределов цикла по скорости выполнения. Результат: снижение времени выполнения ~20 раз »

О!