Microsoft Small Basic

Program Listing: JGW676
' Import ID random genarator
' Version 0.1
' Copyright © 2017 Nonki Takahashi. The MIT License.

t = Clock.ElapsedMilliseconds
TextWindow.Title = "Import ID - random generator 0.1"
Not = "True=False;False=True;"
alpha = "BCDFGHJKLMNPQRSTVWXZ" ' except AEIOUY
na = Text.GetLength(alpha)
n = 0
While n < 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.GetRandomNumber(1000) - 1
len = Text.GetLength(num)
id = id + Text.GetSubTextToEnd("00", len) + num
If Not[Array.ContainsValue(list, id)] Then
n = n + 1
list[n] = id
TextWindow.WriteLine(n + " " + id)
EndIf
EndWhile
t = Clock.ElapsedMilliseconds - t
TextWindow.WriteLine((t / 1000) + " sec")