指定目录下文件搜索批量改名工具

.如果真 (信息框 (“确定？？”, 1, ) ＝ 0)
.计次循环首 (列表框1.取项目数 (), 计次)
临时文件名 ＝ 列表框1.取项目文本 (计次 － 1)
替换文件名 ＝ 子文本替换 (临时文件名, 编辑框2.内容, 编辑框3.内容, , , 真)
临时 ＝ 临时 ＋ 替换文件名 ＋ “|” ＋ 临时文件名 ＋ #引号 ' 分割的字符最好是不能作为文件命名
文件更名 (临时文件名, 替换文件名)
.计次循环尾 ()
写到文件 (取运行目录 () ＋ “\temp.ini”, 到字节集 (临时))

.如果真 (信息框 (“确定？？”, 1, ) ＝ 0)
分割1 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\temp.ini”)), #引号, )
.计次循环首 (取数组成员数 (分割1), 计次)
分割2 ＝ 分割文本 (分割1 [计次], “|”, )
.如果真 (取数组成员数 (分割2) ＜ 2)
到循环尾 ()
.如果真结束
.计次循环首 (取数组成员数 (分割2), )
文件更名 (分割2 [1], 分割2 [2])
.计次循环尾 ()
.计次循环尾 ()