| 网站首页 | 技术文章 | 下载频道 | 博客 | 编程论坛 |
 
| 技术教程首页 | 开发语言 | WEB开发 | .NET技术 | 数据库 | 操作系统 | 网页制作 |
 
 
您现在的位置: 编程中国 >> 技术教程 >> 开发语言 >> VB >> 优化技术 >> 正文
  ►  用Mid$命令超速字符串添加操作
用Mid$命令超速字符串添加操作
作者:佚名    阅读人次:……    文章来源:未知    发布时间:2005/12/28    网友评论()条
 
大家都知道,&操作符的执行速度是相当慢的,特别是处理长字符串时。当必须重复地在同一变量上附加字符时,有一个基于Mid$命令的技巧可以使用。基本思路就是:预留一个足够长的空间存放操作的结果。下面是应用这个技术的一个例子。

假设要建立一个字符串,它要附加从1开始的10000个整数:"1 2 3 4 5 6 7 ... 9999

10000"。下面是最简单的实现代码:
res = ""
For i = 1 to 10000: res = res & Str(i): Next

代码虽然简单,但问题也很明显:Res变量将被重分配10000次。下面的代码实现同样的目的,但效果明显好转:

Dim res As String
Dim i As Long
Dim index As Long

'预留足够长的缓冲空间
res = Space(90000)

'指针变量,指出在哪里插入字符串
index = 1

'循环开始
For i = 1 to 10000
substr = Str(i)
length = Len(substr)

'填充字符串的相应区间段数值
Mid$(res, index, length) = substr

'调整指针变量
index = index + length

Next

'删除多余字符
res = Left$(res, index - 1)

测试表明:在一个333MHz的计算机上,前段代码执行时间为2.2秒,后者仅仅为0.08秒!代码虽然长了些,可是速度却提高了25倍之多。呵呵,由此看来:代码也不可貌相啊

 

 
文章录入:静夜思    责任编辑:静夜思 
  • 上一篇文章:

  • 下一篇文章:

  •  
    相关文章
    原创地带
    24小时热门帖子