0

17 文字の長さの数値から大量の連番 (一度に 100 万個) を出力するスクリプトを探しています。(EG 12345678912345678)

基本的に、このサイト ( http://sequencegenerator.com )のように動作するようにしたいのですが、彼ではなく私の CPU を使用します。彼のサイトは、私が100万を実行するように指示するとロックされ、一度に何百万も生成する傾向があります.

このスクリプトはオンラインで見つけましたが、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
4

2 に答える 2

3

VBScript の Double/Currency 数値の信頼できる範囲に関するすべての問題を回避するには、開始番号 (文字列) を、安定した/変更されないプレフィックスと、インクリメントされる長い数値テールに分割します。

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
于 2013-07-07T08:07:09.803 に答える
1

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
于 2013-07-07T17:14:16.077 に答える