Microsoft Small Basic

Program Listing: JGW676-0

List Program

' Import ID - random genarator (speed up)
' Version 0.2
' Copyright © 2017 Nonki Takahashi. The MIT License.
' Program ID JGW676-0

t = Clock.ElapsedMilliseconds
TextWindow.Title = "Import ID - random generator 0.2"
alpha = "BCDFGHJKLMNPQRSTVWXZ" ' except AEIOUY
na = Text.GetLength(alpha)
num = Math.GetRandomNumber(1000) - 1
For n = 1 To 1000
id = Text.GetSubText(alpha, Math.GetRandomNumber(na), 1)
id = id + Text.GetSubText(alpha, Math.GetRandomNumber(na), 1)
id = id + Text.GetSubText(alpha, Math.GetRandomNumber(na), 1)
num = Math.Remainder(num + 727, 1000)
len = Text.GetLength(num)
id = id + Text.GetSubTextToEnd("00", len) + num
TextWindow.WriteLine(n + " " + id)
EndFor
t = Clock.ElapsedMilliseconds - t
TextWindow.WriteLine((t / 1000) + " sec")