请教如何加快程序运行速度

ictest 发布于 2018-07-24 17:01， 2451 次点击

一个文件，内部大概需要读取5万多个数据，然后这些数据分类，我尝试做了一下，规规矩矩的读取后再分类，大概需要1.7秒的时间；尝试使用循环分类，速度提高了三倍，大概需要0.5秒的时间，请帮忙看看，还能提速吗？多谢

附件中提供了一个“实验文件”供程序测试使用。

只有本站会员才能查看附件，请登录

4 回复

wds12018-07-25 10:04

1、速度慢主要是I/O原因，采用一次性读取
Open Dir1.Path & "\" & File1.FileName For Binary As #1
File2 = LOF(1)
ReDim filebyte(File2) As Byte
Get #1, , filebyte()
Close #1
2、之后你在内存数组filebyte中分类，速度就快了。

ictest2018-07-25 10:26

wds1大神，
我知道将文件一次性读到内存里后在内存里分类速度会很快，但是您也看到了，我目前的能力只达到了磁盘上读写读写的程度，在内存里操作对我来说感觉就是“神的操作”，语句和写法还不会，求wds1大神能否针对我的这个程序按照“在内存里操作”的方式修改一下，然后发给我，我真的想好好学习一下。
拜谢wds1大神了。

ictest2018-07-26 11:20

同求路过的各位版主、高手、大神。

wds12018-07-26 17:05

只有本站会员才能查看附件，请登录

仅增加了内存一次性读入，其他的都是用的你的代码。
你看看。

只有本站会员才能查看附件，请登录

[此贴子已经被作者于2018-7-26 18:16编辑过]