批量更改工具支持文件名和翻译

a ＝ 超级列表框1.取表项数 ()
进度条1.最大位置 ＝ a
.计次循环首 (a, i)
进度条1.位置 ＝ i
文件更名 (编辑框1.内容 ＋ “\” ＋ 超级列表框1.取标题 (i － 1, 0), 编辑框1.内容 ＋ “\” ＋ 超级列表框1.取标题 (i － 1, 1))
.计次循环尾 ()
.如果真 (信息框 (“批量更名完成。”, 4096, “提示”) ＝ #确认钮)
进度条1.位置 ＝ 0