AutoHotkey Community

SetBatchlines -1
#NoEnv


loop, 3 ;26 chars + 9 digits
{
   AsciNum := A_Index + 64 ;48
   if (AsciNum > 57 and AsciNum < 65)
    continue
   baselist .= Chr(AsciNum)
}


new_newlist := makelists(baselist, "")
MsgBox %list_idx% strings created:`n`n%FinalList%
;fileappend, %FinalList%, permutations.txt
Return

makelists(baselist, newlist)
{

   loop, parse, baselist
   {
      global rec_depth
      thischar := A_Loopfield
      StringReplace, newbaselist, baselist, %thischar%,, All
      new_newlist := newlist . thischar
      if (newbaselist = "")
      {
         rec_depth := 0
         Tooltip, %rec_depth%, 0, 40, 2
         newlist(new_newlist)
      }
      else
      {
         rec_depth ++
         Tooltip, %rec_depth%, 0, 40, 2
         makelists(newbaselist, new_newlist)   
      }
   }
   return new_newlist
}

newlist(newlist)
{
   global FinalList
   global list_idx
   SetFormat, float, 3.0
   list_idx ++
   FinalList := FinalList . "`n" . newlist
   tooltip %list_idx%, 0, 0, 1
   return   
}

; Permutate -------------------------------
; creates a list of permutations from word

Permutate(set,delimeter="",trim="", presc="")
{ ; function by [VxE]
  ; returns a newline-seperated list of all
  ; unique permutations of the input set.
  ; set = word to be worked on
  ; delimiter can be used to provide a list of words
  ; trim is for trimming characters out of the word
  ; presc = use unknown
  ; Note that the length of the list will be (N!)
   d := SubStr(delimeter,1,1)
   StringSplit, m, set, %d%, %trim%
   IfEqual, m0, 1, return m1 d presc
   Loop %m0%
   {
      remains := m1
      Loop % m0-2
         x := A_Index + 1, remains .= d m%x%
      list .= Permutate(remains, d, trim, m%m0% d presc)"`n"
      mx := m1
      Loop % m0-1
         x := A_Index + 1, m%A_Index% := m%x%
      m%m0% := mx
   }
   return substr(list, 1, -1)
}