改文件夹内的txt文件名

FileEncoding, Utf-8
jslog()
For k,v in A_Args
	lsname .= " " v
	lsname := LTrim(lsname, " ")
Loop, Files, % lsname "\*.txt", R
	nameall .= "`n" A_LoopFileFullPath
	nameall := LTrim(nameall, "`n")
Loop, Parse, % nameall, `n
{
	FileReadLine, 首行文本, % A_LoopField, 1
	nameend := RegExReplace(A_LoopField, "^(.+?\\)([^\\]+)(\.[^.]+)$", "$1" 首行文本 "$3")
	FileMove, % A_LoopField, % nameend
	log.info(文件名, nameend)
}