#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

Поместить в папку:
\\XXX\yyy 

Выполнить: 
wscript.exe "E:\XXX\The Bat!\mail_alert.vbs" "%OSubj" 

arg1 = Wscript.Arguments(0)
WScript.Echo arg1

%путь%\%DATE\%VALIDFILECHARS="%OSUBJ"\письмо.txt

!16.12.2020, 09:10:36: FILTR - Exception: Экспорт письма - Невозможно открыть файл "%путь%\16.12.2020\тема \письмо.txt" Системе не удается найти указанный путь