Создание анаграмм слов

Создание анаграмм слов

Примечания:

Нет

Примеры:
Как создать кнопку?

exect=$var_s=##[input=BOX72]||$var_ap=_ArrayPermute(StringSplit('$var_s',Null,2))||_ViewValues($var_ap) ;; анаграмма введённого слова в диалоге в виде массива. (В анаграмму входят слова, с перестановкой всех букв заданного слова без повторов букв и точной длины)

exect=$var_s=##[input=BOX72]||$var_ap=_ArrayPermute(StringSplit('$var_s',Null,2))||_ViewValues($var_ap)||$var_ss=_ArrayToString($var_ap,@CRLF,1)||_ViewValues('$var_ss ')||FileWrite('c:\Test\anagam.txt','$var_ss') ;; создание анаграммы в введённого слова в диалоге, просмотр результата на каждом этапе и сохранение в файл anagam.txt (В анаграмму входят слова, с перестановкой всех букв заданного слова без повторов букв и точной длины)

exect=$var_s=##[input=BOX73]||$var_ar=StringRegExp(@CRLF&FileRead('C:\dictionary.txt')&@CRLF,'[\r\n](['&'$var_s'&']{[input=BOX74],[input=BOX75]})[\r\n]',3)||_ViewValues($var_ar)||$var_s=_ArrayToString($var_ar,@CRLF) bufsr=##$var_s ;; отправить в буфер обмена все слова, составленные из введённых в диалоге букв, которые входят в состав словаря dictionary.txt (В список входят слова, с перестановкой всех букв заданного набора с повторами букв и длина задаётся в диалоге)

exect=$var_s=##[input=BOX73]||$var_ar=StringRegExp(@CRLF&FileRead('C:\dictionary.txt')&@CRLF,'[\r\n](['&'$var_s'&']{3,6})[\r\n]',3)||_ViewValues($var_ar)||$var_s=_ArrayToString($var_ar,@CRLF) bufsr=##$var_s ;; отправить в буфер обмена все слова, составленные из введённых в диалоге букв, которые входят в состав словаря dictionary.txt (В список входят слова, с перестановкой всех букв заданного набора с повторами букв и длина 5 символов)

exect=$var_s=##[input=BOX73]||$var_ar=StringRegExp(@CRLF&FileRead('C:\dictionary.txt')&@CRLF,'[\r\n](['&'$var_s'&']{5})[\r\n]',3)||_ViewValues($var_ar)||$var_s=_ArrayToString($var_ar,@CRLF) bufsr=##$var_s ;; отправить в буфер обмена все слова, составленные из введённых в диалоге букв, которые входят в состав словаря dictionary.txt (В список входят слова, с перестановкой всех букв заданного набора с повторами букв и длина от 3 до 6 символов)

exect=$var_s=##[input=BOX73]||$var_ar=StringRegExp(FileRead(@CRLF&'C:\dictionary.txt'&@CRLF),'[\r\n](['&'$var_s'&']+)[\r\n]',3)||_ViewValues($var_ar)||$var_s=_ArrayToString($var_ar,@CRLF) bufsr=##$var_s ;; отправить в буфер обмена все слова, составленные из введённых в диалоге букв, которые входят в состав словаря dictionary.txt (В список входят слова, с перестановкой всех букв заданного набора с повторами букв без точной длины)

genwd=x ;; запустить приложение "Генератор Слов"

genwd=x||WordGenerator2 ;; запустить приложение "Генератор Слов" (настройки из TCIMG.ini из секции WordGenerator2)

imgpr=1 exect=$var_s=##[input=BOX72]||$var_ap=_ArrayPermute(StringSplit('$var_s','"''"',2),'"''"',1)||$var_af=FileReadToArray('C:\dictionary.txt')||$var_ae=_ArrayDublElem($var_ ap,$var_af,1)||$var_s=_ArrayToString($var_ae,@CRLF) bufsr=##$var_s ;; отправить в буфер обмена все слова анаграммы введённого в диалоге слова, которые входят в состав словаря dictionary.txt (В список входят слова, с перестановкой всех букв заданного слова без повторов букв и точной длины)

imgpr=1 exect=$var_sz=(_ArrayToString(_ArrayPermute(StringSplit(ClipGet(),'"''"',2)),'~~',1)) bufsr=##$var_sz||formt<sps36> ;; записать в буфер обмена анаграмму слова, находящегося в буфере обмена и разбить по 10 слов в строке. Если в слове более 10 символов, то для создание анаграммы понадобится длительное время