自定义函数：删除数组B中与数组A重复的值

'SP_AryDelNItem（）
Dim sourceArray(5) As Integer
Dim compareArray(10) As Integer
Dim replaceArray(8) As Integer
Dim i As Integer
Dim vResult As Variant
sourceArray(1) = 1
sourceArray(2) = 2
sourceArray(3) = 3
sourceArray(4) = 4
sourceArray(5) = 8

compareArray(1) = 2
compareArray(2) = 4
compareArray(3) = 6
compareArray(4) = 8

replaceArray(1) = 22
replaceArray(2) = 44
vResult =  ArrayReplace( sourceArray, compareArray, replaceArray)

MsgBox UBound(vResult)
For i = 1 To UBound(vResult)
msgbox vResult(i)
Next

Dim sourceArray(5) As String
Dim compareArray(10) As String
Dim replaceArray(8) As String
Dim i As Integer
Dim vResult As Variant
Dim vTrimResult As Variant

sourceArray(1) = "1"
sourceArray(2) = "2"
sourceArray(3) = "3"
sourceArray(4) = "4"
sourceArray(5) = "8"

compareArray(1) = "2"
compareArray(2) = "4"
compareArray(3) = "6"
compareArray(4) = "8"

replaceArray(1) = ""

vResult =  ArrayReplace( sourceArray, compareArray, replaceArray)
MsgBox "before fulltrm is :" & UBound(vResult)
vTrimResult =  FullTrim(vResult)
MsgBox "after fulltrm is :" & UBound(vTrimResult)
For i = 1 To UBound(vTrimResult)
msgbox vTrimResult(i)
Next

Function DelOverlapElementOfArray(arrSource As Variant,arrCompare As Variant) As Variant
Dim arrReplace(1) As String
Dim i As Integer
Dim vResult As Variant
Dim vTrimResult As Variant

arrReplace(1) = ""
vResult =  ArrayReplace( arrSource, arrCompare, arrReplace)
vTrimResult =  FullTrim(vResult)
DelOverlapElementOfArray = vTrimResult
End Function

%REM
Agent 测试数组操作
Created Jan 21, 2010 by lion.lv/sunmedia
Description: Comments for Agent
%END REM
Option Public
Option Declare
Option Base 1
Dim sess As NotesSession
Dim dbCur As NotesDatabase
Dim docContext As NotesDocument
Dim dcUnprocessed As NotesDocumentCollection

Dim arrObject() As String
Dim arrSource() As String
Dim itmObject As NotesItem
Dim itmSource As NotesItem

Sub Initialize()
'得到数组A中Item在数组B中的位置，然后删除

'SP_AryDelNItem（）
Dim sourceArray(5) As String
Dim compareArray(10) As String
Dim replaceArray(8) As String
Dim i As Integer
Dim vResult As Variant
Dim vTrimResult As Variant

sourceArray(1) = "1"
sourceArray(2) = "2"
sourceArray(3) = "3"
sourceArray(4) = "4"
sourceArray(5) = "8"

compareArray(1) = "2"
compareArray(2) = "4"
compareArray(3) = "6"
compareArray(4) = "8"

replaceArray(1) = ""

vTrimResult = DelOverlapElementOfArray(sourceArray,compareArray)
For i = 1 To UBound(vTrimResult)
msgbox vTrimResult(i)
Next
End Sub

%REM
Function DelOverlapElementOfArray
Description: Comments for Function
%END REM
Function DelOverlapElementOfArray(arrSource As Variant,arrCompare As Variant) As Variant
Dim arrReplace(1) As String
Dim i As Integer
Dim vResult As Variant
Dim vTrimResult As Variant

arrReplace(1) = ""
vResult =  ArrayReplace( arrSource, arrCompare, arrReplace)
vTrimResult =  FullTrim(vResult)
DelOverlapElementOfArray = vTrimResult
End Function