AutoHotkey Community

;#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetTitleMatchMode 2
DetectHiddenWindows On
DetectHiddenText, On
#SingleInstance force

MsgBox F1%A_Tab%Set active title of explorer.exe with bad symbols `nF2%A_Tab%Get & save active win title name to scriptdir (Except BadSymbols) `nF3%A_Tab%Take it back original explorer title

GroupAdd winExp,ahk_class ExploreWClass
GroupAdd winExp,ahk_class CabinetWClass


;SET ACTIVE TITLE WITH BAD SYMBOLS (FOR TEST)
#IfWinActive ahk_group winExp
F1::
badSymbols = \,/, :, *, ?, ", <, >, | RESTRICTED SYMBOLS GETOUT!!!
WinSetTitle, A,, %badSymbols%
Return   


;GET & SAVE ACTIVE WIN TITLE NAME TO SCRIPTDIR (Except BadSymbols)
#IfWinActive ahk_group winExp
F2::
WinGetTitle, AT, A
ControlGetText, path, Edit1, A
;HERE NEED CODE FOR REPLACING RESTRICTED SYMBOLS FROM VARIABLE "AT"
FileAppend, %AT%, %path%\%AT%.txt
Return


;TAKE IT BACK ORIGINAL EXPLORER TITLE
#IfWinActive ahk_group winExp
F3::
ControlGetText, path, Edit1, A
SplitPath, path, nam, dir, ext, nm, drive
WinSetTitle,A,, %nam%
Return

#IfWinActive
Esc::ExitApp

#IfWinActive
F1::
;\/:*?"<>|
;StringReplace Title, outRep, %badsymb%, +, All
;StringReplace, clipboard, clipboard, \/ : * ? " < > |, , All
ta = E:\1prog\*Gr?aph\!Screen Capture\`Console\Capturemation

Loop
{
    StringReplace, fk, ta, /, =,+ UseErrorLevel
    if ErrorLevel = 0  ; No more replacements needed.
    MsgBox %fk% `n%ta%
            Break
           
}

badsymb = \,/, :, *, ?, ", <, >, | NeedAnyLegalSymbolsCozOtherwiseNotSavingToFile
Loop, parse, badsymb, `,
    ;MsgBox %A_LoopField%
    StringReplace, t, ta, %A_LoopField%, =, All
   
MsgBox %ta%
Return

#IfWinActive
Esc::ExitApp

Line Text: RegExReplace(tit, "\\|\/|\:|\*|\?|\||\<|\>|\"", " ")
Error: Missing ")"

RegExReplace(AT, "[\\/:*?|<>""]", @)

;GET & SAVE ACTIVE WIN TITLE NAME TO SCRIPTDIR (Except BadSymbols)
#IfWinActive ahk_group winExp
F2::
WinGetTitle, AT, A
ControlGetText, path, Edit1, A
;HERE NEED CODE FOR REPLACING RESTRICTED SYMBOLS FROM VARIABLE "AT"
file = RegExReplace(AT, "[\\/:*?|<>""]", @)
FileAppend, %AT%, %path%\%file%.txt
Return