圣者
精华
|
战斗力 鹅
|
回帖 0
注册时间 2012-7-17
|
本帖最后由 夜语 于 2023-12-13 19:18 编辑
它导出的txt是什么格式
每行一个完整的路径?
我熟悉的脚本是AutoHotkey V2
在这下载 https://www.autohotkey.com/download/ahk-v2.zip
提取其中的AutoHotkey64.exe
将以下代码保存到一个文本文件中,
清空dirs并在其中按格式添加要扫描的文件夹,
在filterDir中按格式添加排队文件夹(去除前面的分号)
修改完成将此文本文件拖到刚提取的AutoHotkey64.exe上
看桌面是否会出现IrfanView_数字.txt的文件,然后导入看看可以不
; 小写图片后缀名
exts := Map(
"jpeg", true,
"jpg", true,
"bmp", true,
"png", true,
"webp", true,
)
; 要扫描的文件夹
dirs := [
"F:\Documents\Pictures",
"F:\Documents\Downloads\pixiv",
]
;排除的文件夹,大小写敏感,不包含\
filterDir := Map(
; "F:\Documents\Pictures\排除1", true,
)
txtArr := []
for i in dirs
{
loop files i "\*.*", "FR"
if !filterDir.Has(A_LoopFileDir) && exts.Has(StrLower(A_LoopFileExt))
txtArr.Push(A_LoopFileFullPath)
}
if len := txtArr.Length
{
for i in SortRandom(txtArr)
txt .= i "`n"
FileAppend(txt, A_Desktop "\IrfanView_" A_TickCount ".txt", "UTF-8")
}
MsgBox("生成完成,共索引 " len " 个文件")
SortRandom(arr)
{
newarr := []
while arr.Length
newarr.Push(arr.RemoveAt(Random(1, arr.Length)))
return newarr
}
|
|