VB超频快餐，让我一次用个够！（四）

妙用Replace函数替代字符串连接操作符&

你大概不知道Replace函数还能这么用吧？比如下面的语句：

MsgBox "Disk not ready." & vbCr & vbCr & _

"Please check that the diskette is in the drive" & vbCr & _

"and that the drive’s door is closed."

可以看出，为了显示完整的字符串含义，要将可打印字符与非打印字符（比如：回车符vbCr）用&符号连接在一起。结果是：长长的字符连接串变得难于阅读。但是，使用Replace函数，可以巧妙地解决这个问题。方法就是：将非打印字符以字符串中不出现的一个可打印字符表示，这样完整地写出整个字符串，然后使用Replace函数替换那个特别的打印字符为非打印字符（比如：回车符vbCr）。代码如下：

MsgBox Replace("Disk not ready.§§Please check that the diskette is in the " _

& "drive§and that the drive’s door is closed.", "§", vbCr)

固定长度字符串数组：赋值快，释放快！

固定长度字符串的处理速度通常慢于可变长度字符串，这是因为所有的VB字符串函数和命令只能识别可变长度字符串。因此，所有固定长度字符串比然被转换为可变长度字符串。

但是，由于固定长度字符串数组占据着一块连续的内存区域，因此在被分配以及释放时，速度明显快于可变长度的数组。比如：在一个Pentium 233MHz机器上，对于一个固定长度为100,000的数组，给其中30个位置分配数值，大约只花费半秒种的时间。而如果是可变长度的数组，同样的操作要耗费8秒之多！后者的删除操作耗时大约0.35秒，但固定长度的数组几乎可以立即“毙命”！如果应用程序中涉及到这么大的一个数组操作，选择固定长度方式数组绝对是确定无疑的了，无论是分配数值，还是释放操作，都可以风驰电掣般完成。

未公开的返回数组型函数加速秘诀

在VB6中，函数是能够返回数组对象的。这种情况下，我们不能象返回对象或者数值的其他函数一样使用函数名当做局部变量来存储中间结果，因此不得不生成一个临时局部数组，函数退出前再分配这个数组给函数名，就象下面的代码一样：

’ 返回一个数组，其中含有N个随即元素

’ 并且将平均值保存在AVG中

Function GetRandomArray(ByVal n As Long, avg As Single) As Single()

Dim i As Long, sum As Single

ReDim res(1 To n) As Single

’ 以随机数填充数组，并计算总和

Randomize Timer

For i = 1 To n

res(i) = Rnd

sum = sum + res(i)

Next

’ 赋值结果数组，计算平均值

GetRandomArray = res

avg = sum / n

End Function

难以置信的是，只需要简单地颠倒最后2条语句的顺序，就能使上面这段程序变得快些：

’ ... ’ 赋值结果数组，计算平均值

avg = sum / n

GetRandomArray = res

End Function

例如，在一个Pentium II 333MHz 机器上，当N＝100,000时，前段程序运行时间为0.72秒，后段程序则为0.66秒，前后相差10%。

原因何在呢？前段程序中，VB将拷贝res数组到GetRandomArray对应的结果中，当数组很大时，花费的时间是很长的。后段程序中，由于GetRandomArray = res是过程的最后一条语句，VB编译器就能确认res数组不会被再使用，因此将直接交换res和GetRandomArray的地址数值，从而节省了数组元素的物理拷贝操作以及随后的res数组释放操作。

总结如下：当编写返回数组的函数时，一定要将分配临时数组到函数名的语句放在最后，就是其后紧挨者Exit Function 或者End Function的位置。

深入使用LIKE操作符

在VB中，相对于本身的潜在功能，LIKE可能是最被忽视的一个操作符了。它的最基本用途是检查一个字符串与给定样式的匹配程度。比如，很容易检查一个产品ID号是否由一个字母以及3个数字组成：

If ProductID Like "[A-Za-z][0-9][0-9][0-9]" Then Print "OK"

’ this is equivalment, because "#" stands for a digit

If ProductID Like "[A-Za-z]###" Then Print "OK"

除了上述基本功能，LIKE在其他情况下也非常有用。以下就一一列举：

比如，可以检查一个字符串只包含大写字母：

If Not ProductID Like "*[!A-Z]*" Then Print "OK"

同理，也可以检查一个字符串只包含数字：

If Not ProductID Like "*[!0-9]*" Then Print "OK"

下面的语句检查一个字符串只包含字母或者数字符：

If Not ProductID Like "*[!A-Za-z0-9]*" Then Print "OK"

下面的语句检查一个字符串是否为合法的VB变量名，就是说，开头是一个字母，接着跟随字母或数字符：

’ VarName是被检查的字符串

If VarName like "[A-Za-z]*" And Not Mid$(VarName, 2) Like "*[!A-Z_a-z0-9]*" _

Then Print "OK"

下面的语句检查字符串是否至少包含2个空格（连续的或者间隔的）：

If TestString Like "* * *" Then Print "OK"

而下面的语句进一步确认2个空格是不连续的：

If TestString Like "* ?* *" Then Print "OK"

检查一个有符号整数是很复杂的事情，因为必须计算出前导符号并且计算好"#"符号的正确数目：

’ NumValue是被检测的字符串

If NumValue Like "#" Or (Len(NumValue) > 1 And NumValue Like "[-+0-9]" & _

String$(Len(NumValue) - 1, "#")) Then Print "OK"

最后一个例子是：检测NumValue是否包含一个有符号的十进制数值。这种情况下，我们必须要确定存在一个前导符号以及只有一个十进制分隔符，并且所有其他字符都是数字符：

’ NumValue是被检测的字符串

If NumValue Like "#" Or (Len(NumValue) > 1 And Left$(NumValue, _

1) Like "[-+.0-9]" And Not Mid$(NumValue, 2) Like "*[!.0-9]*" And Not _

NumValue Like "*.*.*" ) Then Print "OK"

创建任意长度重复字符串的简洁方法

String$函数只能重复复制单字符，当需要重复复制2个或多个字符时，就需要一个循环。看起来是否很麻烦？然而，使用以下的函数就能解决这个问题。基本思路是：建立一个空格字符串，其长度为要重复复制的数目，然后替换每一个空格为要复制的字符串：

Function ReplicateString(Source As String, Times As Long) As String

ReplicateString = Replace$(Space$(Times), " ", Source)

End Function

但是请注意：根据字符串的长度以及重复的数目，这个方法也许比传统的循环方法要慢些。