.版本 2
.支持库 shell
.程序集 窗口程序集1
.程序集变量 路径, 文本型
.程序集变量 文件数, 文本型, , "0"
.程序集变量 文件名, 文本型
.程序集变量 文件内容, 文本型
.程序集变量 文件, 文本型, , "0"
.程序集变量 文件号, 整数型
.程序集变量 文本, 文本型
.子程序 __启动窗口_创建完毕
路径 = 浏览文件夹 (“请点击到要搜寻的文件夹”, )
.如果真 (取文本右边 (路径, 1) ≠ “\”)
路径 = 路径 + “\”
.如果真结束
文件名 = 寻找文件 (路径 + “*.txt”, )
.循环判断首 ()
加入成员 (文件数, 文件名)
文件名 = 寻找文件 (, )
.循环判断尾 (文件名 ≠ “”)
........................