VB“超頻”秘籍之給字符串提速
編程人員從大量的程序開發中積累了許多非常實用的經驗與技巧，它們就象一盤盤的快餐，看似簡單但營養絕對豐富！用“餐”之后，您的VB程序將立即超頻。還猶豫什么，快來品嘗品嘗吧 ...
用Mid$命令超速字符串添加操作
大家都知道，&操作符的執行速度是相當慢的，特別是處理長字符串時。當必須重復地在同一變量上附加字符時，有一個基于Mid$命令的技巧可以使用。基本思路就是：預留一個足夠長的空間存放操作的結果。下面是應用這個技術的一個例子。
假設要建立一個字符串，它要附加從1開始的10000個整數："1 2 3 4 5 6 7 ... 9999 10000"。下面是最簡單的實現代碼：
代碼雖然簡單，但問題也很明顯：Res變量將被重分配10000次。下面的代碼實現同樣的目的，但效果明顯好轉：
測試表明：在一個333MHz的計算機上，前段代碼執行時間為2.2秒，后者僅僅為0.08秒！代碼雖然長了些，可是速度卻提高了25倍之多。呵呵，由此看來：代碼也不可貌相啊
從頭開始刪除集合項目
刪除集合中的所有內容有許多方法，其中有些非常得迅速。來看看一個包含10,000個項目的集合：
可以從末尾位置為起點刪除集合內容，如下：
也可以從開始位置為起點刪除集合內容，如下：
試驗證明，后者要快于前者百倍多，比如0.06秒比4.1秒。原因在于：當引用接近末尾位置的集合項目時，VB必須要從第1個項目開始遍歷整個的項目鏈。更有趣的是，如果集合項目的數量加倍，那么從末尾開始刪除與從頭開始刪除，前者要比后者花費的時間將成倍增長，比如前者是24秒，后者可能為0.12秒這么短！
最后提醒您：刪除集合的所有內容的最快方法就是“毀滅”它，使用下面的語句：
對于一個包含20,000個項目的集合，上述操作僅僅耗時0.05秒，這比使用最快的循環操作進行刪除也要快2倍左右。
用InStr函數實現代碼減肥
可以采用“旁門左道”的方式使用Instr函數實現代碼的簡練。下面是一個典型的例子，檢測字符串中是否包含一個元音字母：
1、普通的方法：
2、更加簡練的方法：
同樣，通過單詞中沒有的字符作為分界符，使用InStr來檢查變量的內容。下面的例子檢查Word中是否包含一個季節的名字： 1、普通的方法：
2、更加簡練的方法：
有時候，甚至可以使用InStr來替代Select Case代碼段，但一定要注意參數中的字符數目。下面的例子中，轉換數字0到9的相應英文名稱為阿拉伯數字：
1、普通的方法：
2、更加簡練的方法：
精用Boolean表達式，讓代碼再減肥
當設置基于表達式結果的Boolean型數值時，要避免使用多余的If/Then/Else語句結果。比如：
上面這段代碼就很煩瑣，它們完全可以使用下面的一行代碼來替代：
括號不是必須的，但可以增加可讀性。根據表達式中的操作數不同，后者比前者執行起來大約快50%到85%。后者中的括號對速度沒有影響。
有時，使用這個技術實現代碼的簡練并非很明顯。關鍵是要牢記：所有的比較操作結果或者是0（false），或者是－1（True）。所以，下面例子中的2段代碼是完全相同的，但是第2段要運行得快些：
1、傳統方法：
2、更簡練的方法
函數名巧做局部變量
很多程序員都沒有認識到“在函數本身中使用函數名”的妙處，這就象對待一個局部變量一樣。應用這個技巧可以起到臨時變量的作用，有時還能加速程序運行。看看下面的代碼：
去掉res變量，使用函數名稱本身這個局部變量，可以使程序更加簡練：
用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 |