Loading ...
Sorry, an error occurred while loading the content.

2157[Clip] Re: generate 20.000 names with letters

Expand Messages
  • Raymond Fitzgerald
    Dec 3, 1999
    • 0 Attachment
      Hi Manuel,

      >How can I made a list of posibles combinations of letters abc?.
      >
      >I woul like in a txt file the results. Example:
      >
      >aaa
      >aab
      >aac
      >aad
      >.....
      >etc.

      OK, see how this works for ya:

      H="abc combinations"
      ; 120399/rayfitz
      ^!ClearVariables
      ^!SetListDelimiter |
      ^!SetArray %a1%=a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z
      ^!SetArray %a2%=a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z
      ^!SetArray %a3%=a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z
      ; long line!
      ^!Set %a%=^?{How many letters
      (1-26)==1|2|_3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|2
      6}
      ; end of long line
      ^!SetHintInfo Working, please wait...
      ^!SetScreenUpdate OFF
      ^!Set %n1%=0
      :LOOP1
      ^!Set %n2%=0
      ^!Inc %n1%
      ^!If ^%n1% > ^%a% Done
      :LOOP2
      ^!Set %n3%=0
      ^!Inc %n2%
      ^!If ^%n2% > ^%a% Loop1
      :LOOP3
      ^!Inc %n3%
      ^!If ^%n3% > ^%a% Loop2
      ^!Append %Text%=^%a1^%n1%%^%a2^%n2%%^%a3^%n3%%^%nl%
      ^!Goto Loop3
      :DONE
      ^!Toolbar New Document
      ^%Text%
      ; end of clip

      Cheers,
      Ray