Public Function IsInArray(ByVal sData As String, ByVal vData As Variant) As Boolean ‘\u67d0\u5b57\u7b26\u4e32\u662f\u5426\u5728\u67d0\u4e00\u7ef4\u6570\u7ec4\u4e2d
IsInArray = False
If Not IsArray(vData) Then Exit Function
If IsEmptyArray(vData) Then Exit Function
Dim I As Integer
For I = LBound(vData) To UBound(vData)
If sData = vData(I) Then IsInArray = True
Next I
End Function<\/p>\n\n\n\n
Public Function IsEmptyArray(ByVal sArray As Variant) As Boolean ‘\u5224\u65ad\u4e00\u7ef4\u6570\u7ec4\u4e3a\u7a7a\u6216\u8005\u5c1a\u672a\u521d\u59cb\u5316
‘\u7c7b\u4f3c Dim TestArray(0 To 2) As String\uff0c\u4e00\u7ecf\u7533\u660e\uff0c\u5404\u5143\u7d20\u5373\u88ab\u8d4b “” \u503c\uff0cIsEmptyArray \u4e3a False\uff1b
‘\u7c7b\u4f3c Dim TestArray() As String\uff0c\u867d\u7ecf\u7533\u660e\uff0c\u4ecd\u4e3a\u7a7a\u6570\u7ec4\uff0cIsEmptyArray \u4e3a True\u3002
Dim I As Integer, J As Integer
On Error GoTo ERR_EMPTY
I = UBound(sArray) ‘\u8bd5\u9519
If LBound(sArray) > UBound(sArray) Then GoTo ERR_EMPTY
IsEmptyArray = False
On Error GoTo 0
Exit Function
ERR_EMPTY:
IsEmptyArray = True
On Error GoTo 0
End Function<\/p>\n\n\n\n
Public Function IndexInArray(ByVal sData As String, ByVal vData As Variant) As Integer ‘\u67d0\u6570\u503c\u5728\u67d0\u4e00\u7ef4\u6570\u7ec4\u4e2d\u7684\u4f4d\u6b21(\u4ee5\u6700\u5c0f\u53f7\u4e3a\u51c6, \u4e0d\u5b58\u5728\u5219\u4e3a -1)
Dim I As Integer, J As Integer
IndexInArray = -1
If Not IsArray(vData) Then Exit Function
If IsEmptyArray(vData) Then Exit Function
For I = LBound(vData) To UBound(vData)
If LCase(sData) = LCase(vData(I)) Then
IndexInArray = I
Exit For
End If
Next I
End Function<\/p>\n\n\n\n
Public Sub CleanUpArray(vData As Variant) ‘\u5254\u9664\u6570\u7ec4\u4e2d\u7684\u91cd\u590d\u6570\u636e
If Not IsArray(vData) Then Exit Sub ‘\u6570\u7ec4\u5224\u65ad
If IsEmptyArray(vData) Then Exit Sub
Dim LO, HI As Integer ‘\u4e0a\u4e0b\u754c
LO = LBound(vData)
HI = UBound(vData)
Dim I, J, KCount As Integer
KCount = 0 ‘\u8ba1\u6570\u5668
Dim DupeIndex() As String ‘\u91cd\u590d\u6570\u636e\u7684\u5e8f\u53f7\u7ec4\u6210\u7684\u6570\u7ec4\uff0c\u8bb0\u540e\u4e0d\u8bb0\u524d
For I = HI To LO Step -1
For J = I – 1 To LO Step -1
If vData(I) = vData(J) Then
KCount = KCount + 1
ReDim Preserve DupeIndex(1 To KCount) As String
DupeIndex(KCount) = CStr(I)
Exit For
End If
Next J
Next I
If KCount > 0 Then ‘\u6709\u91cd\u590d
Dim iCount As Integer
iCount = LO – 1 ‘\u8ba1\u6570\u5668
Dim TempArray() As String
For I = LO To HI
If Not IsInArray(CStr(I), DupeIndex()) Then ‘\u9996\u6b21\u51fa\u73b0\u6216\u672a\u91cd\u590d\u7684\u6570\u636e
iCount = iCount + 1
ReDim Preserve TempArray(LO To iCount) As String
TempArray(iCount) = vData(I)
End If
Next I
ReDim vData(LO To iCount) ‘ As String ‘\u91cd\u65b0\u8d4b\u503c\u5e76\u8fd4\u56de
For I = LO To iCount
vData(I) = TempArray(I)
Next I
Else
‘\u65e0\u91cd\u590d\uff0c\u4e0d\u5904\u7406
End If
Erase DupeIndex
End Sub<\/p>\n","protected":false},"excerpt":{"rendered":"