论坛风格切换切换到宽版
  • 5103阅读
  • 5回复

问一个技术上的问题! [复制链接]

上一主题 下一主题
离线冯世磊
 

发帖
1212
金钱
20
威望
2
只看楼主 倒序阅读 0 发表于: 2002-09-07
我采用了字节方式查找字串,为什么还是很慢呢?一下是部分代码:
Dim temp() As Byte
Dim CZ_zh As String
Dim CZ_Str As String
Dim CZ_zz As Double
Dim ass(15) As Integer
Dim cz_gv, cz_tol As Long
If Dir(CZ_text_F.Text) = "" Or CZ_text_D.Text = "" Then MsgBox "您输入的路径找不到程序!请检查后重试!", , "出错了": Exit Sub
Open CZ_text_F.Text For Binary As #1
Open CZ_text_D.Text For Output As #2
CZ_j.Max = FileLen(CZ_text_F.Text)
CZ_j.Value = 0
    ReDim temp(1 To FileLen(CZ_text_F.Text))
    Get #1, , temp
    i = 0
欢迎光临狂风软件:[kuangfeng.51vip.cn] 狂风BLOGhttp://fengshilei.51vip.cn
==============================
见他人行善,随之心生欢喜,称为随喜。《法华经.随喜功德品》载,听闻经典而随喜,次次累积,功德至大。《大智度论》则谓,随喜者的功德,胜于行善者本人。又随己所喜,亦称随喜,如布施时,富者施金帛,贫者施水草,各随所喜,皆为随喜。
离线梁利锋
发帖
291
金钱
0
威望
0
只看该作者 1 发表于: 2002-09-08
你贴出来的代码是打开文件部分的,而且我觉得它的速度应该是很快的,所以速度慢应该是你的查找代码造成的。建议你对每一部分加入一个计时器,用以计算哪个步骤最耗时,再专门优化那一部分,这种方法我常用的。
点睛工作室: http://llf.hanzify.org
离线冯世磊

发帖
1212
金钱
20
威望
2
只看该作者 2 发表于: 2002-09-08
哦!我查找的时候是单个字符判断的,也许这就是慢之所在!
欢迎光临狂风软件:[kuangfeng.51vip.cn] 狂风BLOGhttp://fengshilei.51vip.cn
==============================
见他人行善,随之心生欢喜,称为随喜。《法华经.随喜功德品》载,听闻经典而随喜,次次累积,功德至大。《大智度论》则谓,随喜者的功德,胜于行善者本人。又随己所喜,亦称随喜,如布施时,富者施金帛,贫者施水草,各随所喜,皆为随喜。
离线冯世磊

发帖
1212
金钱
20
威望
2
只看该作者 3 发表于: 2002-09-08
提取部分我发到你邮箱里面了,你看看哪里有问题?
欢迎光临狂风软件:[kuangfeng.51vip.cn] 狂风BLOGhttp://fengshilei.51vip.cn
==============================
见他人行善,随之心生欢喜,称为随喜。《法华经.随喜功德品》载,听闻经典而随喜,次次累积,功德至大。《大智度论》则谓,随喜者的功德,胜于行善者本人。又随己所喜,亦称随喜,如布施时,富者施金帛,贫者施水草,各随所喜,皆为随喜。
离线梁利锋
发帖
291
金钱
0
威望
0
只看该作者 4 发表于: 2002-09-08
已回信
点睛工作室: http://llf.hanzify.org
离线梁利锋
发帖
291
金钱
0
威望
0
只看该作者 5 发表于: 2002-09-09
对了,你的 2.0a 版查找 colorpicker.exe 会出错退出……
点睛工作室: http://llf.hanzify.org