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

测试环境：Lotus Designer8.5.1

使用ArrayReplace

'SP_AryDelNItem（）Dim sourceArray(5) As IntegerDim compareArray(10) As IntegerDim replaceArray(8) As IntegerDim i As IntegerDim vResult As VariantsourceArray(1) = 1sourceArray(2) = 2sourceArray(3) = 3sourceArray(4) = 4sourceArray(5) = 8compareArray(1) = 2compareArray(2) = 4compareArray(3) = 6compareArray(4) = 8replaceArray(1) = 22replaceArray(2) = 44vResult = ArrayReplace( sourceArray, compareArray, replaceArray)MsgBox UBound(vResult)For i = 1 To UBound(vResult) msgbox vResult(i) Next

结合FullTrim删除数组中的重复值

Dim sourceArray(5) As StringDim compareArray(10) As StringDim replaceArray(8) As StringDim i As IntegerDim vResult As VariantDim 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 VariantDim arrReplace(1) As StringDim i As IntegerDim vResult As VariantDim vTrimResult As Variant arrReplace(1) = ""vResult = ArrayReplace( arrSource, arrCompare, arrReplace)vTrimResult = FullTrim(vResult)DelOverlapElementOfArray = vTrimResultEnd Function

完整的测试用例：（放在代理中执行）

%REMAgent 测试数组操作Created Jan 21, 2010 by lion.lv/sunmediaDescription: Comments for Agent%END REMOption PublicOption DeclareOption Base 1Dim sess As NotesSessionDim dbCur As NotesDatabaseDim docContext As NotesDocumentDim dcUnprocessed As NotesDocumentCollectionDim arrObject() As StringDim arrSource() As StringDim itmObject As NotesItemDim itmSource As NotesItemSub Initialize()'得到数组A中Item在数组B中的位置，然后删除'SP_AryDelNItem（）Dim sourceArray(5) As StringDim compareArray(10) As StringDim replaceArray(8) As StringDim i As IntegerDim vResult As VariantDim 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%REMFunction DelOverlapElementOfArrayDescription: Comments for Function%END REMFunction DelOverlapElementOfArray(arrSource As Variant,arrCompare As Variant) As VariantDim arrReplace(1) As StringDim i As IntegerDim vResult As VariantDim vTrimResult As Variant arrReplace(1) = ""vResult = ArrayReplace( arrSource, arrCompare, arrReplace)vTrimResult = FullTrim(vResult)DelOverlapElementOfArray = vTrimResultEnd Function