VB给字符串提速

时间:2010-01-28 13:49:37  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:>   大家都知道,&操作符的执行速度是相当慢的,特别是处理长字符串时。当必须重复地在同一变量上附加字符时,有一个基于Mid$命令的技巧可以使用。基础思路就是:预留一个足够长的空间存放操作的结果。下面是应用这个技术的一个例子。    假设要建立一个字符串,它要附加从1开始的10000个整数:"1 2 3 4 5 6 7 ... 9999 10000"。下面是最简单的实现代码: ...
  正文:编程人员从大量的程序开发中积累了许多非常实用的经验与技巧,它们就象一盘盘的快餐,看似简单但营养绝对丰富!用“餐”之后,您的vb程序将立即超频。还犹豫什么,快来品尝品尝吧 ...

用Mid$命令超速字符串添加操作

   大家都知道,&操作符的执行速度是相当慢的,特别是处理长字符串时。当必须重复地在同一变量上附加字符时,有一个基于Mid$命令的技巧可以使用。基础思路就是:预留一个足够长的空间存放操作的结果。下面是应用这个技术的一个例子。

   假设要建立一个字符串,它要附加从1开始的10000个整数:"1 2 3 4 5 6 7 ... 9999 10000"。下面是最简单的实现代码

res = ""
For i = 1 to 10000: res = res & Str(i):
Next

   代码虽然简单,但问题也很明显:Res变量将被重分配10000次。下面的代码实现同样的目的,但效果明显好转:

Dim res As String
Dim i As Long
Dim index As Long

'预留足够长的缓冲空间
res = Space(90000)

'指针变量,指出在哪里插入字符串
index = 1

'循环开始
For i = 1 to 10000
  substr = Str(i)
  length = Len(substr)

  '填充字符串的相应区间段数值
  Mid$(res, index, length) = substr

  '调整指针变量
  index = index + length

Next

'删除多余字符
res = Left$(res, index - 1)

   测试表明:在一个333MHz的计算机上,前段代码执行时间为2.2秒,后者仅仅为0.08秒!代码虽然长了些,可是速度却提高了25倍之多。呵呵,由此看来:代码也不可貌相啊

从头开始删除集合项目

   删除集合中的所有内容有许多方法,其中有些非常得迅速。来看看一个包含10,000个项目的集合:

Dim col As New Collection, i As Long
For i = 1 To 10000
  col.Add i, CStr(i)
Next

   可以从末尾位置为起点删除集合内容,如下:

For i = col.Count To 1 Step -1
  col.Remove i
Next

   也可以从开始位置为起点删除集合内容,如下:

For i = 1 To col.Count Step 1
col.Remove i
Next

   试验证明,后者要快于前者百倍多,比如0.06秒比4.1秒。原因在于:当引用接近末尾位置的集合项目时,VB必须要从第1个项目开始遍历整个的项目链。更有趣的是,如果集合项目的数量加倍,那么从末尾开始删除与从头开始删除,前者要比后者花费的时间将成倍增长,比如前者是24秒,后者可能为0.12秒这么短!

   最后提醒您:删除集合的所有内容的最快方法就是“毁灭”它,使用下面的语句:

Set col = New Collection

   对于一个包含20,000个项目的集合,上述操作仅仅耗时0.05秒,这比使用最快的循环操作进行删除也要快2倍左右。

用InStr函数实现代码减肥

   可以采用“旁门左道”的方式使用Instr函数实现代码的简练。下面是一个典型的例子,检测字符串中是否包含一个元音字母:

   1、普通的方法:

If UCase$(char) = "A" Or UCase$(char) = "E" Or UCase$(char) = "I" Or UCase$(char) = "O" Or UCase$(char) = "U" Then
  ' it is a vowel
End If

   2、更加简练的方法:

If InStr("AaEeIiOoUu", char) Then
  ' it is a vowel
End If

   同样,通过单词中没有的字符作为分界符,使用InStr来检查变量的内容。下面的例子检查word中是否包含一个季节的名字: 1、普通的方法:

If LCase$(word) = "winter" Or LCase$(word) = "spring" Or LCase$(word) = _ "summer" Or LCase$(word) = "fall" Then
  ' it is a season's name
End If

   2、更加简练的方法:

"VB给字符串提速"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/VB/12555.html


关键字:

关于《VB给字符串提速》文章的评论

If Instr(";winter;spring;summer;fall;", ";" & word & ";") Then
  ' it is a season's name
End If
站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td