【分享】交换变量的2种方法

阿杰 · 发表于 2009-5-29 17:35:48

'【程序一】：
'标准的做法SwapStr

Sub SwapStr(sA As String, sB As String)
Dim sTmp As String
sTmp = sA
sA = sB
sB = sTmp
End Sub

'【程序二】：

'用指针的做法SwapPtr
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _ (Destination As Any, Source As Any, ByVal Length As Long)

Sub SwapPtr(sA As String, sB As String)
Dim lTmp As Long
CopyMemory lTmp, ByVal VarPtr(sA), 4
CopyMemory ByVal VarPtr(sA), ByVal VarPtr(sB), 4
CopyMemory ByVal VarPtr(sB), lTmp, 4
End Sub

'你是不是以为第一个程序要快，因为它看着简单而且不用调用API（调用API需要额外的处理，VB文档明确指出大量调用API将降低程序性能）。但事实上，在VB集成环境中运行，程序二要比程序一快四分之一；而编译成本机代码或p-code，程序二基本上要比程序一快一倍。下面是两个函数在编译成本机代码后，运行不同次数所花时间的比较：

'　　运行100000次，SwapStr需要170毫秒，SwapPtr需要90毫秒。
'　　运行200000次，SwapStr需要340毫秒，SwapPtr需要170毫秒。
'　　运行2000000次，SwapStr需要3300毫秒，SwapPtr需要1500毫秒。
'　　的确，调用API是需要额外指令来处理，但是由于使用了指针技术，它没有进行临时字串的分配和拷贝，因此速度提高了不少。