收集来自僵尸大佬的脚本，一拖记事本改变文件名

FileEncoding, UTF-8
for n, param in A_Args  ; 对每个参数进行循环:
{
    If !(RegExMatch(A_Args[A_Index] , “\.[^.]+$”)){
        lsname .= ” ” param
    }
    Else{
        lsname .= ” ” param
        lsname := LTrim(lsname, ” “)
        FileReadLine, 首行内容, % lsname, 1
        FileMove, % lsname, % RegExReplace(lsname, “^(.+?\\)([^\\]+)(\.[^.]+)$”, “$1” 首行内容 “$3”)
        lsname := “”
        }
}