| Вопрос: длинная последовательность из чисел | Добавлено: 07.11.07 17:41 |
Автор вопроса:  StudioMaX | ICQ: 971351 |
|
Подскажите, как можно создать текстовый файл из последовательности чисел. Способом output это очень долго. Мне нужно создать такую последовательность:
0000000 0000001 0000002 ....... 9999999 |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:    Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #1 | Добавлено: 07.11.07 18:59 |
Любим способом долго  Хоть как ты делай. 86 метров на диск записать даже на ассемблере не особо быстро будет
попробуй так, может быстрее.... Private Sub Form_Load()
Dim S(9999999) As String * 9 Dim i As Long Do S(i) = Format$(i, "0000000"  & vbNewLine
i = i + 1 Loop While i <> 10000000 'самая быстрая конструкция, насколько я помню... Open "output.txt" For Binary As #1 Put #1, 1, S Close #1 End Sub |
||
|
Номер ответа: 2 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #2 | Добавлено: 08.11.07 00:29 |
|
85.83 МБ... не плохо)
У меня на X2_5600+, 2Gb выполнялось 107.703 сек. |
||
|
Номер ответа: 3 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #3 | Добавлено: 08.11.07 00:30 |
| хотя тут наверно от скорости ж\диска зависит всё.. или я не прав? | ||
|
Номер ответа: 4 Автор ответа: Mr.Smile ICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #4 | Добавлено: 08.11.07 00:46 |
| Ну не все... Тут вдобавок и проц и оператива... | ||
|
Номер ответа: 5 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #5 | Добавлено: 08.11.07 01:05 |
|
да-да, проц и память влияют.
можно на асме написать - быстрее будет. |
||
|
Номер ответа: 6 Автор ответа: StudioMaX ICQ: 971351 Вопросов: 18 Ответов: 15 |
Профиль | | #6 | Добавлено: 08.11.07 16:22 |
| Спасибо, тема больше не актуальна. | ||
|
Номер ответа: 7 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #7 | Добавлено: 08.11.07 18:15 |
| Да и изначально не была вроде. | ||
Страница: 1 |