当要处理字符串中的每一个字符时,可以将字符串赋值到一个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编译指令。
->