filter 函数

smhf_6

filter 函数 可以用于数组的筛选，比如 arr=(1,2,3,4,5,6,10,12,13)
b=filter(arr,2,true)
结果是2，12      
  这是现有的功能，只要元素中有这个字符，就符合判断条件，这个元素就被提取。

但本人目前希望是另外 一种功能：第二参数 2 作为数组的一个元素，而不是元素中的一个字符，2 就是2，2与12无关
本想用 b=filter(arr,2,false) ,剔除元素2的，现在却剔除了2个元素，2、12

也就是没法用这个函数删除元素？ 只能用循环判断重新生成数组？

duquancai

你这种级别的人，应该知道啊！

smhf_6

duquancai 发表于 2018-8-1 06:26
你这种级别的人，应该知道啊！

不好意思，我的级别是灌水出来的，不懂的东西太多了，今后还请多多指教，谢谢

smhf_6

本意： 在数组内排名

1、原考虑，用max, 但需要在原数组中剔除，然后才能下一个max， 所以想到了filter。不行
2、后考虑，用large, 但发现，有重复值时，排名是不同的，也不行
3、 现解决办法：
      先用字典存入数据，目的是去重复
      再对p=dc.keys，用large循环取值， 并存入 dc()=i ,  即：值－排名
      最后到数组中赋值即可

smhf_6

duquancai 发表于 2018-8-1 06:26
你这种级别的人，应该知道啊！

我一直没有搞定的就是xmlhttp, 至今仍在用ie法，最近又看到了一个inet的示例，似乎比http要方便点，但比ie法，代码也复杂的多。  而网上又说winsork的效率最高，inet是一个淘汰的东西

水和米

1. Sub FilterExactly()
   
2. Const myMarker As String = "!"
   
3. Const myDelimiter As String = ","
   
4. Dim myArray() As Variant
   
5. Dim mySearchArray As Variant
   
6. Dim myFilteredArray As Variant
   
7. 
   
8.     '创建数组
   
9.     myArray = Array(1, 2, 3, 10)
   
10.     '预先在数组中筛选包含1的元素
    
11.     myFilteredArray = Filter(myArray, 1)
    
12. 
    
13.     If UBound(myFilteredArray) > -1 Then
    
14.         '标记每个找到的元素的开始和结束
    
15.         'myMarker和myDelimiter必须是字符
    
16.         '且该字符不会出现在数组的任何元素中!
    
17.         mySearchArray = Split(myMarker & Join(myFilteredArray, myMarker & myDelimiter & myMarker) & myMarker, myDelimiter)
    
18.         '下面筛选修改后的数组
    
19.         myFilteredArray = Filter(mySearchArray, myMarker & "1" & myMarker)
    
20.         '从结果中移除标记
    
21.         myFilteredArray = Split(Replace(Join(myFilteredArray, myDelimiter), myMarker, ""), myDelimiter)
    
22.     End If
    
23.     '显示结果
    
24.     MsgBox "筛选数组(" & Join(myArray, ", ") & ") 以获得含有1的完全匹配的元素将返回:" & vbCr & Join(myFilteredArray, vbCr)
    
25. End Sub

复制代码