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

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

'【程序一】：
'标准的做法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是需要额外指令来处理，但是由于使用了指针技术，它没有进行临时字串的分配和拷贝，因此速度提高了不少。

liuyilin 发表于 2009-5-29 20:50:39

谢谢,有学到东西了

364589886 发表于 2009-9-4 12:42:51

<p>'可以用异或运算的。。。效率会更高</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>dim x as string,y as string</p>
<p>x="test1",y="test2"</p>
<p>&nbsp;</p>
<p>x=x Xor y</p>
<p>y=y Xor x</p>
<p>x=x Xor Y</p>
<p>&nbsp;</p>
<p>'OK!完成交换！！</p>

364589886 发表于 2009-9-4 12:44:08

因为位运算的速度是所有这些运算中速度最快的！

huabao 发表于 2010-11-25 13:57:09

364589886 发表于 2009-9-4 12:42 static/image/common/back.gif
'可以用异或运算的。。。效率会更高
&nbsp;
&nbsp;


vb6中出现类型不匹配错误

马大哈 发表于 2010-11-25 18:16:46

回复 huabao 的帖子

字符串貌似不行的.

用数值型变量试试看?

HoviDelphic 发表于 2010-11-25 18:35:02

用汇编指令XCHG。
PS：很久没用这个号了，今天无聊登录一下。

WallesCai 发表于 2012-8-1 17:02:43

为什么好多帖子我看到的都是很诡异的排版呢, 貌似内容中的标记没有正确解释,到处是尖括号.

WallesCai 发表于 2012-8-1 17:03:55

交换指针适合于数组和字符串变量的交换. 普通变量还是直接用临时变量赋值最快.

wszjljx 发表于 2012-8-21 01:23:19

测试异或方法交换两个Long类型变量成功...
页: [1]
查看完整版本: 【分享】交换变量的2种方法