當要處理字符串中的每一個字符時,可以將字符串賦值到一個byte數組中進行操作。要記住:每一個Unicode字符對應雙字節。這種方法通常要快許多,因為節省了大量的Mid$函數操作以及大量的臨時字符串空間。下面的代碼是統計字符串中空格數目的最快方法
Dimb()asByte,countAsInteger
b()=source$
Fori=0toUBound(b)StepLenB("A")
Ifb(i)=32Thencount=count 1
Next
請注意上面代碼中LenB()函數的特殊用法:在VB4(32位)、VB5和VB6中它返回數值2,在VB4(16位)中返回數值1。因此,我們就可以使用同一代碼段,而無需#If編譯指令。
->