Открываете окно фильтров, открываете скрипт, нажимаете Alt+1 - оно начинает подавать в клипбоард по одной строке фильтров.
По умолчанию фильтр Заголовок или Тема, переместить в ...
Shift +Esc - выход из скрипта.
Остальное, думаю, сможете сами.
По умолчанию фильтр Заголовок или Тема, переместить в ...
Shift +Esc - выход из скрипта.
Код |
---|
#singleinstance force !1:: Abc := " ( Тема содержит Диплом студент|Диплом|студенч|методического пособ|методическим пособ|методическом пособ|методическому пособ|методическое пособ|Курсова|курсовую|гимназ|колледж|Лаборат -Python python|питон HTML JS vue|javascript Сайты-Битрикс Битрикс|Bitrix C++ C++|С++ Arduino Arduino|ESP32|ESP8266 Сайты-2 Ссылка на сайт|Wordexpress|Joomla|сайта с wechat|Laravel|создать сайт|wechat|интернет-магазин C# C#|С# Данные прочитка Данные прочитка HTML HTML|SCSS|Wordpress|Нужно сверстать|Web-программист|PHP| Django|shop-script Excel -Word -VBA Excel|XLS|Outlook|екселе|Exel|эксель|Word Не информатика - вариационное счисление комбинации |комбинации Backend NodeJs|React.Js|Reactjs|Node.Js|nodeJS|React.js|Reactjs|Node.Js Минус мораль помойка системы k8s|kubernetes|Golang Не мои ОС iOS-разработ|доработка iOS|Android-разработ|телеграмм|Telegram|Телеграм бот|Телеграм-бот|бот в телеграм|тг-бот|tg-бот|tg бот|tg-bot|tg bot|Kotlin|ТГ бот|ТГ bot|React Native|приложения для Android|приложение для Android Сайты работка 2-х сайтов|Web-программист|доработка сайтов Парсинг профи Парсинг|CRM|парсинг раздела|спарсить ) " StringReplace, Abc1, Abc, `r, ;MsgBox Abc: %Abc1% StringSplit, MyArray, Abc, `n ; Split the string based on the accent character. ArrayLen := MyArray0 ;MsgBox, ArrayLen: %ArrayLen% Loop, { Ind := A_Index if( Mod(A_Index,2) == 0) continue Str1 := "" Str2 := "" Loop, Parse, Abc, `n , `r { Str1 := A_Loopfield if(Ind <= A_Index) break } Loop, Parse, Abc, `n , `r { Str2 := A_Loopfield if(Ind +1 <= A_Index) break } if(Ind >= ArrayLen) break ; Calculate the position of the delimiter at the end of this field. ; Position += StrLen(A_LoopField) + 1 ; Retrieve the delimiter found by the parsing loop. ; Delimiter := SubStr(Colors, Position, 1) ; MsgBox Field: %A_LoopField%`nDelimiter: %Delimiter% ; ClipBoard := A_LoopField Str3 := StrReplace(Str1," ","\20") Str3Directory := Str3 ;"RSS\20Subscriptions\5C" . Str3 ; ; ; Str4 := StrReplace(Str2," ","\20") ; ВНИМАНИЕ: добавляя новые условия фильтров, заменяйте `2`15 на ``2``15 . Иначе не вставит! (ошибки по счастью не будет) Clipboard := " ( $$$$ TB! Message Filter $$$$`r beginFilter`r UID: [1A9A5D78.01D88E32.29426A3C.42F7452E]`r Name: " . Str3 . "`r Filter: {\0D\0A{\0D\0A\20``4``15``" . Str4 . "\0D\0A1``2``15``" . Str4 . "\0D\0A}\0D\0A{0\0D\0A\20``17``0``/5C/5CRSS\20Subscriptions/5CTrash;/5C/5CRSS\20Subscriptions/5Cfreelance.ru/2Frss;/5C/5CRSS\20Subscriptions/5Cfl.ru/2Frss\201С\20программирование;/5C/5CRSS\20Subscriptions/5Cfl.ru/2Frss\20Макро\20программирование;/5C/5CRSS\20Subscriptions/5Cfl.ru/2Frss\20программирование\20все;/5C/5CRSS\20Subscriptions/5CТема\20содержит\20Диплом;/5C/5CRSS\20Subscriptions/5C-Python;/5C/5CRSS\20Subscriptions/5CC++;/5C/5CRSS\20Subscriptions/5CСайты;/5C/5CRSS\20Subscriptions/5CПарсинг\20профи;/5C/5CRSS\20Subscriptions/5CExcel\20-Word\20-VBA;/5C/5CRSS\20Subscriptions/5CНе\20информатика\20-\20вариационное\20счисление;/5C/5CRSS\20Subscriptions/5CНе\20мои\20ОС;/5C/5CRSS\20Subscriptions/5CСайты-Битрикс;/5C/5CRSS\20Subscriptions/5CСайты-2;/5C/5CRSS\20Subscriptions/5CHTML\20JS;/5C/5CRSS\20Subscriptions/5CC#;/5C/5CRSS\20Subscriptions/5CМинус\20мораль\20помойка\20системы;/5C/5CRSS\20Subscriptions/5CДанные\20прочитка;/5C/5CRSS\20Subscriptions/5CHTML;/5C/5CRSS\20Subscriptions/5CArduino;/5C/5CRSS\20Subscriptions/5CBackend\0D\0A}\0D\0A}`r MoveMessage AutoFolder folder \5C\5C" . Str3Directory . " Ignore`r endFilter`r ) " ;\20Subscriptions\5CRSS\20Тема\20содержит\20Диплом ;{0\0D\0A\20`17`0`/5C/5CRSS\20Subscriptions/5CTrash;/5C/5CRSS\20Subscriptions/5Cfreelance.ru/2Frss;/5C/5CRSS\20Subscriptions/5Cfl.ru/2Frss\201С\20программирование;/5C/5CRSS\20Subscriptions/5Cfl.ru/2Frss\20Макро\20программирование;/5C/5CRSS\20Subscriptions/5Cfl.ru/2Frss\20программирование\20все\0D\0A}\0D\0A} MsgBox Field: Str1: %Str1% `n Str2: %Str2% `n%Clipboard% } return +Esc:: exitapp |