VB中对string array快速插入、删除某个元素的办法

 

这是很实用的两个函数，迟早会用到的，作为资源储备。以下是代码：

'作为测试，添加1个按钮，两个listbox
Private Declare Sub CopyMemory Lib "kernel32" Alias _
"RtlMoveMemory" (dest As Any, source As Any, _
ByVal numBytes As Long)

Sub InsertStringItem(strArr() As String, ByVal index As Long, _
ByVal newItem As String)
Dim lastItem As Long, saveAddr As Long
lastItem = UBound(strArr)
saveAddr = StrPtr(strArr(lastItem))
CopyMemory ByVal VarPtr(strArr(index + 1)), ByVal _
VarPtr(strArr(index)), (lastItem - index) * 4
CopyMemory ByVal VarPtr(strArr(index)), saveAddr, 4
strArr(index) = newItem
End Sub

Private Sub DeleteStringItem(strArr() As String, ByVal index As Long)
Dim lastItem As Long, saveAddr As Long
lastItem = UBound(strArr)
saveAddr = StrPtr(strArr(index))
CopyMemory ByVal VarPtr(strArr(index)), ByVal VarPtr(strArr(index + 1)), (lastItem - index) * 4
CopyMemory ByVal VarPtr(strArr(lastItem)), saveAddr, 4
strArr(lastItem) = vbNullString
End Sub


Private Sub Command1_Click()

Dim a() As String
ReDim a(5) '
a(0) = "1 黄河远上"
a(1) = "2 白云一片"
a(2) = "3 孤城万仞山"
a(3) = "4 羌笛何需怨"
a(4) = "5 杨柳春风"
a(5) = "6 不渡玉门关"
'插入元素的时候先redim，再调用InsertStringIte
ReDim Preserve a(UBound(a) + 1)
InsertStringItem a, 1, "mc"
'测试输出
Dim i As Long
For i = 0 To UBound(a)
List1.AddItem "a(" + CStr(i) + ")=" + a(i)
Next
'删除元素的时候，先调用DeleteStringItem，再redim
DeleteStringItem a, 2
ReDim Preserve a(UBound(a) - 1)
'测试输出
For i = 0 To UBound(a)
List2.AddItem "a(" + CStr(i) + ")=" + a(i)
Next
End Sub