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

2019-11-18 17:31:07

字體：大中小

供稿：網(wǎng)友

編程人員從大量的程序開發(fā)中積累了許多非常實用的經(jīng)驗與技巧，它們就象一盤盤的快餐，看似簡單但營養(yǎng)絕對豐富！用“餐”之后，您的VB程序?qū)⒘⒓闯l。還猶豫什么，快來品嘗品嘗吧...

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

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

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

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

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

->DimresAsString
DimiAsLong
DimindexAsLong

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

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

'循環(huán)開始
Fori=1to10000
　substr=Str(i)
　length=Len(substr)

　'填充字符串的相應(yīng)區(qū)間段數(shù)值
　Mid$(res,index,length)=substr

　'調(diào)整指針變量
　index=index length

Next

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

　　測試表明：在一個333MHz的計算機(jī)上，前段代碼執(zhí)行時間為2.2秒，后者僅僅為0.08秒！代碼雖然長了些，可是速度卻提高了25倍之多。呵呵，由此看來：代碼也不可貌相啊

從頭開始刪除集合項目

　　刪除集合中的所有內(nèi)容有許多方法，其中有些非常得迅速。來看看一個包含10,000個項目的集合：

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

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

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

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

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

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

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

->Setcol=NewCollection->

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

用InStr函數(shù)實現(xiàn)代碼減肥

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

　　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來檢查變量的內(nèi)容。下面的例子檢查Word中是否包含一個季節(jié)的名字：1、普通的方法：

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

精用Boolean表達(dá)式，讓代碼再減肥

　　當(dāng)設(shè)置基于表達(dá)式結(jié)果的Boolean型數(shù)值時，要避免使用多余的If/Then/Else語句結(jié)果。比如：

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

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

->BoolVal=(SomeVar>SomeOtherVar)->

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

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

　　1、傳統(tǒng)方法：

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

　　2、更簡練的方法

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

函數(shù)名巧做局部變量

　　很多程序員都沒有認(rèn)識到“在函數(shù)本身中使用函數(shù)名”的妙處，這就象對待一個局部變量一樣。應(yīng)用這個技巧可以起到臨時變量的作用，有時還能加速程序運(yùn)行。看看下面的代碼：

->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變量，使用函數(shù)名稱本身這個局部變量，可以使程序更加簡練：

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

上一篇：VisualBasic代碼優(yōu)化的六條軍規(guī)

下一篇：提高VisualBasic訪問數(shù)據(jù)庫的效率