AutoHotkey Community

Code: Select all

#Requires AutoHotkey v1.1
#NoEnv
#Warn
SetWorkingDir,%A_ScriptDir%
;-
filelist:=""
FD1:=a_scriptdir . "\Files"
Loop,%fd1%\*.*
    FileList .=A_LoopFileName . "`r`n"  ;- 这里是不是有问题？
msgbox, 262208,FILELIST,%filelist%
exitapp

Code: Select all

;- FileRename in FD1 -----------
#Requires AutoHotkey v1.1
#warn
#singleinstance,force
setworkingdir,%a_scriptdir%
FD1:=a_scriptdir . "\Files"
i:=0
Loop,Files,%FD1%\*.* 
{
i++
i:=SubStr(000 I, -3)
aa:="0001_"
if a_loopfilename contains %aa%
  {
  msgbox, 262208, ,Files in =`n%FD1%`n are already renamed
  break
  }
newname:=I . "_" . a_loopfilename
new:=fd1 . "\" . newname
filemove,%A_LoopFileFullPath%,%new%,1
}   
try,run,%fd1%
exitapp
;---------------
esc::exitapp
;===============

Code: Select all

;- Filemove ( or copy )  from FD1 to FD2 ----
#Requires AutoHotkey v1.1
#warn
#singleinstance,force
setworkingdir,%a_scriptdir%
FD1:=a_scriptdir . "\Files"
FD2:=a_scriptdir . "\NEW_Files"
If !FileExist(fd2)
	FileCreateDir,%fd2%
Loop,Files,%FD1%\*.* , R 
{
new:=fd2 . "\" . a_loopfilename
filemove,%A_LoopFileFullPath%,%new%,1
}   
try,run,%fd2%
exitapp
;---------------
esc::exitapp
;===============

Code: Select all

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

FileList := ""  ; Initialize to be blank.
Loop, .\files\*.*
    FileList := FileList . A_LoopFileName . "`n" ; 这里是不是有问题？
;Sort, FileList, R  ; The R option sorts in reverse order. See Sort for other options.

FileDelete, .\manual_sort.txt
FileAppend, %FileList%, .\manual_sort.txt

Run, .\manual_sort.txt
MsgBox,,, 继续

FileRead, newFileList, .\manual_sort.txt
newFileArray := StrSplit(newFileList, "`n")


FileDelete, .\test2.txt
For key, oldFileName in newFileArray{
    FileAppend, %oldFileName%`n, .\test2.txt
    ;oldFileName := Trim(oldFileName, OmitChars = "`n")
    oldFileName := StrReplace(oldFileName, "`r", "")
    oldFileName := StrReplace(oldFileName, "`n", "")
    if(oldFileName = ""){
        Continue
    }
    newFileName := Format("{:03}", A_Index) . "." . SubStr(oldFileName, 5)
    oldFileName := ".\files\" . oldFileName
    newFileName := ".\files\" . newFileName
    ;FileAppend, %oldFileName%`n, .\test2.txt
    ;FileAppend, %newFileName%`n`n, .\test2.txt
    FileMove, %oldFileName%, %newFileName%
    ;Run, %ComSpec% /c rename "%oldFileName%" "%newFileName%"
    ;FileAppend, rename "%oldFileName%" "%newFileName%"`n, .\test2.txt
}

MsgBox,,, 继续

Code: Select all

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

FileList := ""  ; Initialize to be blank.
Loop, .\files\*.*
    FileList .= A_LoopFileName "`n"
;Sort, FileList, R  ; The R option sorts in reverse order. See Sort for other options.

FileDelete, .\test.txt
FileAppend, %FileList%, .\test.txt

MsgBox,,, 继续

FileRead, newFileList, test.txt
newFileArray := StrSplit(newFileList, "`n")

FileDelete, .\test2.txt
For key, oldFileName in newFileArray{
    newFileName := Format("{:03}", A_Index) . "." . SubStr(oldFileName, 5)
    oldFileName := ".\files\" . oldFileName
    ;newFileName := ".\files\" . newFileName
    FileAppend, %oldFileName%`n, .\test2.txt
    FileAppend, %newFileName%`n`n, .\test2.txt
    ;FileMove, %oldFileName%, %newFileName%
    Run, %ComSpec% /c rename "%oldFileName%" "%newFileName%" 
}

MsgBox,,, 继续