VB超频快餐之十(转)

最后一个例子是：检测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

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


另辟蹊径处理字符串中的字符：字节数组法

当要处理字符串中的每一个字符时，可以将字符串赋值到一个byte数组中进行操作。要记住：每一个Unicode字符对应双字节。这种方法通常要快许多，因为节省了大量的Mid$函数操作以及大量的临时字符串空间。下面的代码是统计字符串中空格数目的最快方法

Dim b() as Byte, count As Integer

b() = source$

For i = 0 to UBound(b) Step LenB("A")

If b(i) = 32 Then count = count + 1

Next

请注意上面代码中LenB()函数的特殊用法：在VB4（32位）、VB5和VB6中它返回数值2, 在VB4（16位）中返回数值1。因此，我们就可以使用同一代码段，而无需#If编译指令。

快速清除数组部分内容

清除动态数组的最快方法是使用ReDim，清除静态数组则是使用删除。但是如果只想清除数组的一部分内容，怎么办呢？看上去似乎只能使用For-Next循环了。

如果处理的是数字数组，有一个较快的方法。它基于ZeroMemory API函数，正如函数名所示，它能将一块内存区域填充为0。看看怎么应用这个函数来清除一个Long类型数组的一部分内容：

Private Declare Sub ZeroMemory Lib "kernel32" Alias "RtlZeroMemory" (dest As _

Any, ByVal Bytes As Long)

'定义数组，填充数据

Dim a(1000) As Long

For i = 1 To UBound(a)

a(i) = i

Next

'从a(200)开始清除100个元素内容

ZeroMemory a(200), 100 * Len(a(1))

请注意上述代码中清除长度的表示方法，使用Len()函数保证了当数组类型改变时代码仍然有效。
[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8781179/viewspace-925227/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/8781179/viewspace-925227/