快速清除数组部分内容

资讯 2008-05-04 驱动中国若水 756 次阅读 0 条评论

清除动态数组的最快方法是使用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

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

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

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

内容部分清除快速使用函数 Long 方法 Zero

本文价值 ★★★★★ — 成为第一个评分的人

登录后为本文打分

网友评论0 条评论

正在回复的评论取消

评论加载中…

🔐

评论、点赞均可赚积分
连续签到、邀请好友也有奖励 🎁