Autohotkey для преобразования точки "." в космос

Question

Я ищу простой код AutoHotkey для преобразования точки "." имени файла в пробе. Пример Hamburger.Hill.1987.BluRay.720p.x264 необходимо преобразовать в Hamburger Hill 1987 BluRay 720p x264.

Начало шпагатом: Hamburger.Hill.1987.BluRay.720p.x264.mov

Строка результата: Hamburger Hill 1987 BluRay 720p x264.mov

Обратите внимание на точку перед расширением должен быть сохранен.

Затем в отдельной операции удалите строку символов, следующих за 4-значным годом. Эта операция также должна удалить расширение файла.

Начало шпагатом: Hamburger Hill 1987 BluRay 720p x264.mov

Строка результата: Hamburger Hill 1987.mov

Вот мой код

#.:: ; Replace all "." (except before extension) with spaces 
OldCLip := ClipboardAll 
Clipboard := "" 
Send ^c 
ClipWait, .2 
; MsgBox % Clipboard ; for testing 

if Clipboard FileMove, % Clipboard, % RegExReplace(Clipboard, "\.(?=.*?\.[^.]+$)", " ") 
Clipboard := OldClip 
return 

Я посмотрел тщательно, но не мог видеть код, связанный с этим. Заранее спасибо за вашу помощь.

Answer 1

В AutoHotKey вы бы использовать что-то вроде этого:

; set the value 
String := "Hamburger.Hill.1987.BluRay.720p.x264.mov" 

; capture the extension 
RegexMatch(String, "(.*)(\.[^.]*?$)", SubPart) 
Filename := SubPart1 
Extension := SubPart2 

; replace all the dots with spaces 
Output1 := RegexReplace(Filename, "\.", " ") 

; remove the unwanted characters after the year 
Output2 := RegexReplace(Output1, "(?<=\d{4}).*", "") 

strMessage := "" 
, strMessage .= "String = '" . String . "' 
, strMessage .= "`nOutput1 = '" . Output1 . Extension "' 
, strMessage .= "`nOutput2 = '" . Output2 . Extension "' 
MsgBox, % strMessage 

Пример вывода

String = 'Hamburger.Hill.1987.BluRay.720p.x264.mov' 
Output1 = 'Hamburger Hill 1987 BluRay 720p x264.mov' 
Output2 = 'Hamburger Hill 1987.mov' 

---

Как бы включить это в сценарий.

#.:: ; Replace all "." (except before extension) with spaces 
OldCLip := ClipboardAll 
Clipboard= 
Send ^c 
ClipWait 
; MsgBox % Clipboard ; for testing 

; set the value 
String := Clipboard 
; String := "Hamburger.Hill.1987.BluRay.720p.x264.mov" 

; capture the extension 
RegexMatch(String, "(.*)(\.[^.]*?$)", SubPart) 
Filename := SubPart1 
Extension := SubPart2 

; replace all the dots with spaces 
Output1 := RegexReplace(Filename, "\.", " ") 

; remove the unwanted characters after the year 
Output2 := RegexReplace(Output1, "(?<=\d{4}).*", "") 

; strMessage := "" 
; , strMessage .= "String = '" . String . "' 
; , strMessage .= "`nOutput1 = '" . Output1 . Extension "' 
; , strMessage .= "`nOutput2 = '" . Output2 . Extension "' 
; MsgBox, % strMessage 

if (String) { 
    strMessage := "Renaming '" . Output1 . Extension . "' to '" . Output2 . Extension . "'" 
    MsgBox, % strMessage 
    FileMove, % Output1 . Extension, % Output2 . Extension 
    } ; end if 

Clipboard := OldClip 
return