從《加速VB》說開去

阿新 • • 發佈：2019-01-16

前一段收的網易期刊裡有一篇《加速VB》，我以為切實說到了大多數VB程式設計師的缺點，所以不嫌羅嗦，在這裡先複述一遍。

在此篇裡，主要的一段程式的三種寫法，因為原文被我給誤刪掉了，我只是憑記憶寫出，和原文程式有出入，但大體不錯，首先是作者的朋友的：

If Form1.WindowState = vbNormal Then
    MsgBox "此視窗在正常狀態"
Else
    If Form1.WindowState = vbMinimized Then
        MsgBox "此視窗在最小化狀態"
    Else
        If Form1.WindowState = vbMaximized Then
            MsgBox "此視窗在最大化狀態"
        End If
    End If
End If

然後是作者的朋友修改後的：

With Form1
    If .WindowState = vbNormal Then
        MsgBox "此視窗在正常狀態"
    ElseIf .WindowState = vbMinimized Then
        MsgBox "此視窗在最小化狀態"
    ElseIf .WindowState = vbMaximized Then
        MsgBox "此視窗在最大化狀態"
    End If
End With

然後是作者修改後的：

Select Case Form1.WindowState
Case vbNormal
    MsgBox "此視窗在正常狀態"
Case vbMinimized
    MsgBox "此視窗在最小化狀態"
Case vbMaximized
    MsgBox "此視窗在最大化狀態"
End If

至此，作者修改的是當然的最好的程式，以下我來簡單分析一下這三段程式。

其實第一段程式和第二段程式沒有本質區別，其中的 With 語句也沒有起到應有的作用——比如有一屬性“Form1.Picture1.Picture.Height”使用“With Form1.Picture1.Picture”有用，但是在這裡沒有用，VB幫助裡說VB為每一個“.”付出一些分析的時間，第二段程式裡使用 With 並沒有減少“.”的用量，所以速度並不會加快，只是看上去比較整齊罷了。

第三段程式當然是標準的用法，事實上，遇到這種問題的首選自然是“Select Case”，這應該說是一個習慣問題，不過養成好的程式設計習慣至關重要。但是從很多人不使用“Select Case”來看，很有些倉促上陣的感覺，我並不是想強調程式設計一定要科班出身，但是對程式設計來說，對語言有一種整體的瞭解很重要，對於類或控制元件的用法我們大可以慢慢的查，但對於類似“Select Case”這樣的語句一定在程式設計序前就要有充分的瞭解。

現在我想改寫以上程式，不記得原作者是不是用的“Form1”，不過我用“Me”，簡單而且移植性強，這個習慣也很好，推薦使用，好了，再說一下以上程式可以這樣寫：

Dim S: S = Array("正常", "最小化", "最大化")
MsgBox "此視窗在" & S(Me.WindowState) & "狀態"

可能大多數人對這種寫法比較陌生，甚至會有抵制思想，但是這卻是一種最小的寫法，速度上也不會比“Select Case”慢，因為“Select Case”可以判斷字串，還有許多同級的複雜格式（可參見“Select Case”的VB幫助），勢必速度更慢，不信各位大可進行測試，如果我錯了，我將會對有個VB重新認識了。

其實，不規則的寫法不止一個，下面我再寫一個：

Dim S As Integer: S = Me.WindowState
MsgBox "此視窗在" & Switch(S=0,"正常",S=1,"最小化",S=2,"最大化") & "狀態"

為了使行短一些，我用數字而不是系統定義的變數進行測試，我在這裡舉例並沒有什麼大礙，但這不是一個好習慣，很可能在你回頭升級程式時才會發現有太多的類似的地方需要修改，不過到那時就悔之晚矣！

在這裡我用變數 S 取得“Me.WindowState”的值進行判斷，不只是程式變短，而且速度更快，為什麼是這樣呢？如果大家編過“類模組”，編過“屬性”的話，就會知道“屬性”其實是由兩個函式組成的，一個變數之於一個函式，自然“變數”的速度快了，其實我在這裡是有過教訓的，這就是為“VBAPI”寫的搜尋程式，以前我是這樣寫的：

sub B2_onClick()
dim i,v,n:v=trim(T2.value):n=len(v)
if n>0 then
  answer.innerhtml=""
  for i=0 to ubound(index)
   if instr(1,index(i),v,1) then
    answer.innerhtml=answer.innerhtml & _
     "<a href='" & index(i) & ".htm'>" & index(i) & "</a><br>"
   end if
  next
else
  MsgBox "請輸入有效的搜尋關鍵字"
end if
end sub

在使用中，如果所查到的項數不多，這個程式執行的也非常好，但是項數多時簡直要死掉了，我讓它查所有的 API 名時，不得不小睡了一覺。

然後我考慮要優化，遍查程式，我認為最吃時間的就是“answer.innerhtml”了，於是將程式改為以下：

sub B2_onClick()
answer.innerhtml="正在搜尋，請稍候……"
setTimeout "B2onClick()",100
end sub
sub B2onClick()
dim i,v,n,t:t="":v=trim(T2.value):n=len(v)
if n>0 then
  for i=0 to ubound(index)
   if instr(1,index(i),v,1) then
    t=t & "<a href='" & index(i) & ".htm'>" & index(i) & "</a><br>"
   end if
  next
  answer.innerhtml=t
else
  MsgBox "請輸入有效的搜尋關鍵字"
end if
end sub

現在大家看到了，程式最主要的變化只在於定義了一個“t”，但是卻使此程式增速不止十倍！如果想體驗一下這種速度差異，我的主頁上有“VBAPI”，其中包括我以前寫的搜尋程式和修改後的。

這兩天，我加入了網易社群，而後在網易的討論版上我見到一個問題說“怎麼提取完整路徑名裡的檔名”，如從完整路徑名“c:/tools/winrar/winrar.exe”中提取“winrar.exe”，有一人回答查詢最後一個“/”，這種回答是對的，不過我有更好的辦法，所以也回答了一下：

Dim F As String, x
F = "c:/tools/winrar/winrar.exe"
x = split(F, "/") 'VB6 格式,和我寫的“Perl2”模組引數不同
F = x(UBound(x))

而後提問題的人給我留言說我是他的救星，雖然肉麻，我也滿接受的。只不過我想說一下，Split 確實很好用，但即使沒有我以上的那一段程式，沒有 Split 函式，也不至於一籌莫展的：

Dim F As String, t As Integer, t1 As Integer
F = "c:/tools/winrar/winrar.exe"
Do
    t = t1 + 1
    t1 = InStr(t, F, "/")
Loop Until t1 <= 0
F = Mid(F, t)

這一段程式也不見得比上一段複雜多少，我願意相信各位都能編出來，也衷心希望如此，若非，則其他人笑罵 VB 程式設計師沒水平也就不值得奇怪了！

從《加速VB》說開去

從“盜版”說開去

從printf說開去(一)

從virtualDOM說開去

從printf說開去(四)

從printf說開去(三)

從《加速VB》說開去

從MySQL slave system lock延遲說開去

從 Swift 的面向協議程式設計說開去

從埋頭做事與擡頭看路說開去

從安全、監控與災備說開去，談運維管理防線建設

從附加資料Overlay說開去-記一次討論

斐波那契數－從爬樓梯問題說開去

從Python列表Remove操作的一個小問題說開去

從一次python程式的效能優化說開去

斐波那契數_從樓梯問題說開去

從豆瓣說和Backbone.js說開去

從面試官問“為什麼選擇mysql資料庫”說開去

從宜家廁所前說開去

從合並兩個Map說開去 - foldLeft 和 foldRight 還有模式匹配

從需求的角度去理解Linux系列：總線、設備和驅動

從《加速VB》說開去

相關推薦