大数据在数组中排除，已有代码求加速

838833928

新的问题出来了，怎么才能达到类似于字典 Remove 的办法喃

838833928

列位老师：怎么加入字典 Remove 的办法,加入以后速度是不是会快一点啊

shiruiqiang

838833928 发表于 2023-2-9 12:32
列位老师：怎么加入字典 Remove 的办法,加入以后速度是不是会快一点啊

keys 的唯一性，items可以不具有唯一性

838833928

shiruiqiang 发表于 2023-2-9 12:38
keys 的唯一性，items可以不具有唯一性

老师，可以贴出代码不

tanglf188

838833928 发表于 2023-2-9 12:16
新的问题出来了，怎么才能达到类似于字典 Remove 的办法喃

为啥非要装入再删除，多此一举啊，不满足的不要装入就可以啦，我这测试代码时间大概缩短了60%-70%

1. Private Sub CommandButton1_Click()
   
2.     Dim arr, i%, i1%, k%, a, x, j, st As String
   
3.     Dim s As New Collection
   
4.     t = Timer
   
5.     j = [D1] '删除字符串
   
6.     k = 1
   
7.     ReDim arr(1 To 10000, 1 To 1)
   
8.     For x = 0 To 9999
   
9.         st = Format(x, "0000")
   
10.         If InStr(j, Mid$(st, 1, 1)) = 0 Then
    
11.             arr(k, 1) = st
    
12.             k = k + 1
    
13.         End If
    
14.     Next
    
15.     [C1:C10000] = Empty
    
16.     [C1].Resize(k - 1, 1) = arr
    
17.     '输出结果在C列
    
18.    
    
19.     [E1] = k - 1
    
20.     Set s = Nothing
    
21.     Erase arr
    
22.    
    
23.     [F1] = Timer - t
    
24. End Sub
    

复制代码

gwjkkkkk

参与一下。。。

838833928

经过验证，数组加字典 dic.Remove arr(i)方法适中，速度在本机i5五代上面运行 0.1640625 s 左右