快捷搜索:

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、加倍简练的措施:

If Instr(";winter;spring;summer;fall;", ";" & word & ";") Then

’ it is a season’s name

End If

无意偶尔候,以致可以应用InStr来替代Select

Case代码段,但必然要留意参数中的字符数目。下面的例子中,转换数字0到9的响应英文名称为阿拉伯数字: 1、通俗的措施:

Select Case LCase$(word)

Case "zero"

result = 0

Case "one"

result = 1

Case "two"

result = 2

Case "three"

result = 3

Case "four"

result = 4

Case "five"

result = 5

Case "six"

result = 6

Case "seven"

result = 7

Case "eight"

result = 8

Case "nine"

result = 9

End Select

2、加倍简练的措施:

result = InStr(";zero;;one;;;two;;;three;four;;five;;six;;;seven;eight;nine;", _

";" & LCase$(word) & ";") \ 6

精用Boolean表达式,让代码再减肥

当设置基于表达式结果的Boolean型数值时,要避免应用多余的If/Then/Else语句结果。比如:

If SomeVar > SomeOtherVar Then

BoolVal = True

Else

BoolVal = False

End If

上面这段代码就很啰嗦,它们完全可以应用下面的一行代码来替代:

BoolVal = (SomeVar > SomeOtherVar)

括号不是必须的,但可以增添可读性。根据表达式中的操作数不合,后者比前者履行起来大年夜约快50%到85%。后者中的括号对速率没有影响。

无意偶尔,应用这个技巧实今世码的简练并非很显着。关键是要切记:所有的对照操作结果或者是0(false),或者是-1(True)。以是,下面例子中的2段代码是完全相同的,然则第2段要运行得快些:

1、传统措施:

If SomeVar > SomeOtherVar Then

x = x + 1

End If

2、更简练的措施

x = x - (SomeVar > SomeOtherVar)

函数名巧做局部变量

很多法度榜样员都没有熟识到“在函数本身中应用函数名”的妙处,这就象对待一个局部变量一样。利用这个技术可以起莅临时变量的感化,无意偶尔还能加速法度榜样运行。看看下面的代码:

Function Max(arr() As Long) As Long

Dim res As Long, i As Long

res = arr(LBound(arr))

For i = LBound(arr) + 1 To UBound(arr)

If arr(i) > res Then res = arr(i)

Next

Max = res

End Function

去掉落res变量,应用函数名称本身这个局部变量,可以使法度榜样加倍简练:

Function Max(arr() As Long) As Long

Dim i As Long

Max = arr(LBound(arr))

For i = LBound(arr) + 1 To UBound(arr)

If arr(i) > Max Then Max = arr(i)

Next

End Function

您可能还会对下面的文章感兴趣: