文件名称:清理数组中重复的数据和读取顺序文件到数组.txt
文件大小:1KB
文件格式:TXT
更新时间:2012-07-29 08:50:22
清理数组中重复的数据和读取顺序文件到数组
清理数组中重复的数据和读取顺序文件到数组 清理数组中重复的数据 Public Function ClearArray(A() As String, ByRef B() As String) Dim i As Long Dim j As Long Dim N As Long Dim L As Long i) For j = 0 To UBound(B) If Temp1 = B(j) Then Temp = True: Exit For End Function