Better version updated. Uses DopusRT. Performs rename from clipboard with filename allowed characters being only alphanumeric, space, dash, parenthesis, comma, period.
^+r::
IfWinActive, ahk_class dopus.lister
{
StringReplace, filename, clipboard, `r`n, %A_Space%, All ;replace newlines with spaces
StringReplace, filename, filename, /, -, All
StringReplace, filename, filename, \, -, All
StringReplace, filename, filename, :, -, All
StringReplace, filename, filename, », -, All
StringReplace, filename, filename, ~, -, All
filename := RegExReplace(filename, "-+", "-") ;remove double dash
filename := RegExReplace(filename,"[^[:alnum:][:space:]-(),.]") ;remove all but desired filename characters
filename := RegExReplace(filename, "[[:blank:]]+", " ") ;remove double space
filename = %filename% ;autotrim leading and trailing whitespaces
StringLeft, filename, filename, 64
;MsgBox %filename%
Run, "C:\Program Files\GPSoftware\Directory Opus\dopusrt.exe" /cmd Rename TO "%filename%.{ext}" FILEINFO
VarSetCapacity(filename, 0) ; Free memory
}
Return