msgbox

генерация словаря?

Jul 9th, 2011
214
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #CommentFlag //
  2. #SingleInstance Force
  3. SetBatchLines -1
  4.  
  5. /*
  6. В Chars указываем символы, после чего
  7. присваиваем переменным значения из массива,
  8. и уже после присваиваем переменным значения
  9. из ранее созданных переменных, каждый раз
  10. присваивая перменной Export значение текущей
  11. переменной для строки, длиной в 1,2,3 символа,
  12. после чего пишем в файл и оповещаем юзверя. :)
  13. */
  14.  
  15.  
  16.     Chars=0123456789
  17.  
  18.     Lenght := StrLen(Chars)
  19.         Loop, % Lenght
  20.         Char%a_index% := SubStr(Chars, a_index, 1)
  21.  
  22.     Loop, % Lenght
  23.         {
  24.         Char1%a_index% = % Char%a_index%
  25.         Export = % Export "`n" Char1%a_index%
  26.         }
  27.    
  28.     Loop, % Lenght
  29.     {
  30.     Char2 = % Char1%a_index%
  31.         Loop, % Lenght
  32.         {
  33.         Char3 = % Char2 Char1%a_index%
  34.         Export = % Export "`n" Char3
  35.         }
  36.     }
  37.  
  38.     Loop, % Lenght
  39.     {
  40.     Char2 = % Char1%a_index%
  41.         Loop, % Lenght
  42.         {
  43.         Char3 = % Char2 Char1%a_index%
  44.             Loop, % Lenght
  45.             {
  46.             Char4 = % Char3 Char1%a_index%
  47.             Export = % Export "`n" Char4
  48.             }
  49.         }
  50.     }
  51.  
  52. FileAppend, % Export, export.txt
  53. msgbox, 64, Export, Okay :3
  54. ExitApp
Advertisement
Add Comment
Please, Sign In to add comment