循环不停止查找全盘TXT文件,进行资源写出替换

真实的我

.版本 2
.支持库 eAPI
.局部变量 文件, 文本型
.局部变量 驱动器, 逻辑型
.局部变量 i, 整数型
驱动器 ＝ { #接口常量.所有驱动器 }
文件=寻找文件(驱动器[i],*.*,#子目录)
.循环判断首 (文件名=寻找文件(文件,*.*,))
    .如果真(文件名="*.txt")
    .如果真结束
.循环判断尾 ()



查度找了点代码,弄不出来了,应怎写才对呢,,,,就是想循环查找全盘TXT  然后写出资源替换掉

doudou4631

已经测试过了，可以了，如果看不懂代码可以在联系

a896

.版本 2
.支持库 iext

.子程序 _按钮1_被单击
.局部变量 临时文本, 文本型
.局部变量 临时文本数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 ii, 整数型
.局部变量 文件号, 整数型
.局部变量 临时txt, 文本型
.局部变量 临时bat, 文本型
.局部变量 dir文件名, 文本型
.局部变量 dir命令, 文本型

临时bat ＝ 取运行目录 () ＋ “\临时bat.bat”
临时txt ＝ #引号 ＋ 取运行目录 () ＋ “\临时txt.txt” ＋ #引号
dir命令 ＝ “dir /s /b ”
dir文件名 ＝ “c:\*.txt”

写到文件 (临时bat, 到字节集 (dir命令 ＋ #引号 ＋ dir文件名 ＋ #引号 ＋ “ > ” ＋ 临时txt))
.如果真 (运行 (#引号 ＋ 临时bat ＋ #引号, 真, 1))
    文件号 ＝ 打开文件 (取运行目录 () ＋ “\临时txt.txt”, , )
    临时文本 ＝ 读入文本 (文件号, )
    关闭文件 (文件号)
    临时文本数组 ＝ 分割文本 (临时文本, #换行符, )
    .计次循环首 (取数组成员数 (临时文本数组), i)
        .如果真 (寻找文本 (临时文本数组 [i], “.”, , 假) ≠ -1)
            ii ＝ 超级列表框1.插入表项 (, , , , , )
            超级列表框1.置标题 (ii, 0, 临时文本数组 [i])
        .如果真结束

    .计次循环尾 ()