VB“超頻”秘籍之給字符串提速

2019-11-18 17:31:07

字體：大中小

來源：轉載

供稿：網友

編程人員從大量的程序開發中積累了許多非常實用的經驗與技巧，它們就象一盤盤的快餐，看似簡單但營養絕對豐富！用“餐”之后，您的VB程序將立即超頻。還猶豫什么，快來品嘗品嘗吧...

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

　　大家都知道，&操作符的執行速度是相當慢的，特別是處理長字符串時。當必須重復地在同一變量上附加字符時，有一個基于Mid$命令的技巧可以使用。基本思路就是：預留一個足夠長的空間存放操作的結果。下面是應用這個技術的一個例子。

　　假設要建立一個字符串，它要附加從1開始的10000個整數："1234567...999910000"。下面是最簡單的實現代碼：

->res=""
Fori=1to10000:res=res&Str(i):
Next->

　　代碼雖然簡單，但問題也很明顯：Res變量將被重分配10000次。下面的代碼實現同樣的目的，但效果明顯好轉：

->DimresAsString
DimiAsLong
DimindexAsLong

'預留足夠長的緩沖空間
res=Space(90000)

'指針變量，指出在哪里插入字符串
index=1

'循環開始
Fori=1to10000
　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個項目的集合：

->DimcolAsNewCollection,iAsLong
Fori=1To10000
　col.Addi,CStr(i)
Next->

　　可以從末尾位置為起點刪除集合內容，如下：

->Fori=col.CountTo1Step-1
　col.Removei
Next->

　　也可以從開始位置為起點刪除集合內容，如下：

->Fori=1Tocol.CountStep1
col.Removei
Next->

　　試驗證明，后者要快于前者百倍多，比如0.06秒比4.1秒。原因在于：當引用接近末尾位置的集合項目時，VB必須要從第1個項目開始遍歷整個的項目鏈。更有趣的是，如果集合項目的數量加倍，那么從末尾開始刪除與從頭開始刪除，前者要比后者花費的時間將成倍增長，比如前者是24秒，后者可能為0.12秒這么短！

　　最后提醒您：刪除集合的所有內容的最快方法就是“毀滅”它，使用下面的語句：

->Setcol=NewCollection->

　　對于一個包含20,000個項目的集合，上述操作僅僅耗時0.05秒，這比使用最快的循環操作進行刪除也要快2倍左右。

用InStr函數實現代碼減肥

　　可以采用“旁門左道”的方式使用Instr函數實現代碼的簡練。下面是一個典型的例子，檢測字符串中是否包含一個元音字母：

　　1、普通的方法：

->IfUCase$(char)="A"OrUCase$(char)="E"OrUCase$(char)="I"OrUCase$(char)="O"OrUCase$(char)="U"Then
　'itisavowel
EndIf->

　　2、更加簡練的方法：

->IfInStr("AaEeIiOoUu",char)Then
　'itisavowel
EndIf->

　　同樣，通過單詞中沒有的字符作為分界符，使用InStr來檢查變量的內容。下面的例子檢查Word中是否包含一個季節的名字：1、普通的方法：

->IfLCase$(word)="winter"OrLCase$(word)="s

精用Boolean表達式，讓代碼再減肥

　　當設置基于表達式結果的Boolean型數值時，要避免使用多余的If/Then/Else語句結果。比如：

->IfsomeVar>SomeOtherVarThen
　BoolVal=True
Else
　BoolVal=False
EndIf->

　　上面這段代碼就很煩瑣，它們完全可以使用下面的一行代碼來替代：

->BoolVal=(SomeVar>SomeOtherVar)->

　　括號不是必須的，但可以增加可讀性。根據表達式中的操作數不同，后者比前者執行起來大約快50到85。后者中的括號對速度沒有影響。

　　有時，使用這個技術實現代碼的簡練并非很明顯。關鍵是要牢記：所有的比較操作結果或者是0（false），或者是－1（True）。所以，下面例子中的2段代碼是完全相同的，但是第2段要運行得快些：

　　1、傳統方法：

->IfSomeVar>SomeOtherVarThen
　x=x 1
EndIf->

　　2、更簡練的方法

->x=x-(SomeVar>SomeOtherVar)->

函數名巧做局部變量

　　很多程序員都沒有認識到“在函數本身中使用函數名”的妙處，這就象對待一個局部變量一樣。應用這個技巧可以起到臨時變量的作用，有時還能加速程序運行?？纯聪旅娴拇a：

->FunctionMax(arr()AsLong)AsLong
　DimresAsLong,iAsLong
　res=arr(LBound(arr))
　Fori=LBound(arr) 1ToUBound(arr)
　　Ifarr(i)>resThenres=arr(i)
　Next
　Max=res
EndFunction->

　　去掉res變量，使用函數名稱本身這個局部變量，可以使程序更加簡練：

->FunctionMax(arr()AsLong)AsLong
　DimiAsLong
　Max=arr(LBound(arr))
　Fori=LBound(arr) 1ToUBound(arr)
　　Ifarr(i)>MaxThenMax=arr(i)
　Next
EndFunction->

上一篇：VisualBasic代碼優化的六條軍規

下一篇：提高VisualBasic訪問數據庫的效率