hvordan?

Prøv følgende Visual Basic Script, gem det i en .vbs fil og dobbeltklik på filen.
Bemærk, at det kører i et stykke tid og den resulterende fil 'combinations.txt'
er 1679616 linier lang!

Mvh
Jesper Naur


Option Explicit

dim WshShell
Dim fso, MyFile, objArgs
dim fnam
dim characters
dim numch

fnam = "combinations.txt"
characters = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

numch = len(characters)

sub GenPos( str, pos )
  dim i
  dim locstr
 
  for i = 1 to numch
      locstr = str & Mid(characters, i, 1)
      if pos > 1 then
        call GenPos( locstr, pos-1 )
      else
        MyFile.WriteLine( locstr )
      end if
  next
End Sub

Set WshShell = WScript.CreateObject("WScript.Shell")

Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(fnam, True)

call GenPos( "", 4 )

MyFile.Close