Генерация числовой последовательности в VBScript

Я ищу сценарий для вывода большого количества последовательных чисел (один миллион за раз) из числа длиной 17 символов. (например, 12345678912345678)

По сути, я хочу, чтобы он работал как этот сайт (http://sequencegenerator.com), но использовал МОЙ ЦП, а не его. Его сайт блокируется, когда я говорю ему сделать миллион, а я склонен генерировать много миллионов за раз.

Я нашел этот сценарий в Интернете, но я не знаю VisualBasic, поэтому не знаю, как заставить его работать на меня.

Set WSHShell = Wscript.CreateObject("WScript.Shell")       
Set FSO = Wscript.CreateObject("Scripting.FileSystemObject") 
Set EnvVar = wshShell.Environment("Process")
tBestand= EnvVar("USERPROFILE") & "\Desktop\HexNumbers.txt"
Set Bestand = fso.createtextfile(tBestand,1)
For x = 1486262272 To 1486461337
Bestand.WriteLine(hex(x))
Next
Bestand.close
WScript.quit

sequential numbers generator vbscript
person SuperMar1o    schedule 07.07.2013    source источник

Ответы (2)


arrow_upward
3
arrow_downward

Чтобы избежать всех проблем с надежным диапазоном двойных/валютных чисел VBScript, разделите свой начальный номер (строку) на стабильный/никогда не меняющийся префикс и хвост длинного числа, который увеличивается:

Option Explicit

Dim sStart : sStart = "12345678901234567"
Dim nCount : nCount = 20

Dim sPfx   : sPfx   = Left(sStart, 10)
Dim nStart : nStart = CLng(Mid(sStart, 11))
Dim n
For n = 1 To nCount
    WScript.Echo sPfx, nStart, sPfx & nStart
    nStart = nStart + 1
Next

выход:

1234567890 1234567 12345678901234567
1234567890 1234568 12345678901234568
1234567890 1234569 12345678901234569
1234567890 1234570 12345678901234570
1234567890 1234571 12345678901234571
1234567890 1234572 12345678901234572
1234567890 1234573 12345678901234573
1234567890 1234574 12345678901234574
1234567890 1234575 12345678901234575
1234567890 1234576 12345678901234576
1234567890 1234577 12345678901234577
1234567890 1234578 12345678901234578
1234567890 1234579 12345678901234579
1234567890 1234580 12345678901234580
1234567890 1234581 12345678901234581
1234567890 1234582 12345678901234582
1234567890 1234583 12345678901234583
1234567890 1234584 12345678901234584
1234567890 1234585 12345678901234585
1234567890 1234586 12345678901234586
person Ekkehard.Horner    schedule 07.07.2013
comment
Ну есть хорошая идея xD Как мне сделать этот вывод в текстовый файл вместо эха? - person SuperMar1o; 07.07.2013
comment
Сделал небольшие доработки, но теперь работает отлично. Спасибо! - person SuperMar1o; 07.07.2013

arrow_upward
1
arrow_downward

Скрипт Ekkehard.Horner с небольшими изменениями. Работаю как хотел. Спасибо!

Option Explicit
Dim sStart : sStart = "1234567891234567"
Dim nCount : nCount = 1000000
Dim sPfx   : sPfx   = Left(sStart, 10)
Dim nStart : nStart = CLng(Mid(sStart, 11))
Dim n
For n = 1 To nCount

Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Dim objLog
set objLog = Fs.OpenTextFile("Numbers.txt", 8, true, 0)
objLog.WriteLine sPfx & nStart
objLog.close 

nStart = nStart + 1
Next
person SuperMar1o    schedule 07.07.2013