【AHK学习记录】设置待办工作文件夹路径用于查看/处理/提醒

演示：

1、准备工作，资源管理器设置【在标题栏中显示完整路径】；

2、在本地或局域网某个路径下新建   需要排版的.txt  文件用于存放需要处理的文件路径；

3、F3为查看条目，shift+F3为新建需要处理的文件夹路径  条目。

; 构思来自  @“僵尸牌木乃伊” 特此鸣谢……

监测需要排版的:
FileGetTime, 参考时间, \\Tx--001\工作文档（最新）\G公司文档--来自4号机\每日定稿汇总\需要排版的.txt
SetTimer, 比对需要排版的, 250
return

比对需要排版的:
FileGetTime, 修改时间, \\Tx--001\工作文档（最新）\G公司文档--来自4号机\每日定稿汇总\需要排版的.txt
if (修改时间 > 参考时间)
	{
		SetTimer, 比对需要排版的, off
		Gosub 排版提醒
		SetTimer, 监测需要排版的, -500
	}
return

; shift+F3新增需要排版条目
+F3::
WinGetTitle, 窗口标题, A
FileAppend, `n%窗口标题%, \\Tx--001\工作文档（最新）\G公司文档--来自4号机\每日定稿汇总\需要排版的.txt
Gosub 排版提醒
return

; F3查看需要排版的目录
F3::
排版提醒:
Gosub, 显示排版列表
return

显示排版列表:
路径 := []
Gui, Pb:Destroy
Gui, Pb:Font, s18, Verdana
Gui, Pb:Add, Text, Center h30,需要排版的：
Gui, Pb:Font, s18, Verdana
Gui, Pb:Add,Button, x+20 h33 g删除排版数据, 删除条目
Gui, Pb:Add,Button, x+40 h33 g关闭排版窗口, 关闭
Gui, Pb:Font, s18, Verdana

FileRead, 文件内容, \\Tx--001\工作文档（最新）\G公司文档--来自4号机\每日定稿汇总\需要排版的.txt
    Loop, parse, 文件内容, `n, `r
    {
        显示行 := A_LoopField 
        Gui, Pb:Add, link, x-0 h10,<a href="%显示行%">%A_Index%、%显示行%</a>
    }
	
GUi, Pb:Show
return

关闭排版窗口:
Gui, Pb:Destroy
return

删除排版数据:
run \\Tx--001\工作文档（最新）\G公司文档--来自4号机\每日定稿汇总\需要排版的.txt
return