多次写入数组,用时越来越多,怎么解决?
一个目录下有24个文件,用 For i = 0 To File1.ListCount - 1 来循环处理,第一个文件经过处理得到一个MASK.txt文件,大约1万行,每行就一个字符。用程序代码:
Open (Dir1.Path & "\mask.txt") For Input As #1 bbmask = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine) Close #1 For z = 1 To UBound(bbmask) Print bbmask(z) Next语句进行写入数组,然后kill (Dir1.Path & "\mask.txt") ,接着使用这个数组,使用完后,对这个数组没有做什么处理,就继续循环到下一个文件,再生成一个mask.txt文件,然后再重复使用上面的语句进行写入数组,然后kill ,接着使用这个数组,使用完后,对这个数组没有做什么处理,就继续循环到下一个文件.........
现在遇到一个问题,写入数组的时间越来越长,第一个文件生成的MASK文件写入数组用时0.46秒,第二个文件生成的MASK文件写入数组用时0.93秒,第三个文件生成的MASK文件写入数组用时1.37秒......详细数据如下:
程序代码:
1、把新的MASK文件读入数组 0.46 2、把新的MASK文件读入数组 0.93 3、把新的MASK文件读入数组 1.37 4、把新的MASK文件读入数组 1.83 5、把新的MASK文件读入数组 2.26 6、把新的MASK文件读入数组 2.75 7、把新的MASK文件读入数组 3.18 8、把新的MASK文件读入数组 3.61 9、把新的MASK文件读入数组 4.13 10、把新的MASK文件读入数组 4.64 11、把新的MASK文件读入数组 5.03 12、把新的MASK文件读入数组 5.78 13、把新的MASK文件读入数组 6.32 14、把新的MASK文件读入数组 7.55 15、把新的MASK文件读入数组 8.93 16、把新的MASK文件读入数组 7.24 17、把新的MASK文件读入数组 7.39 18、把新的MASK文件读入数组 7.92 19、把新的MASK文件读入数组 8.42 20、把新的MASK文件读入数组 8.87 21、把新的MASK文件读入数组 9.29 22、把新的MASK文件读入数组 9.78 23、把新的MASK文件读入数组 10.18 24、把新的MASK文件读入数组 10.63请教,这个问题怎么解决?