簡單編程篩選
❶ vba篩選編程
filter函數實現數組篩選:
數組的篩選就是根據一定的條件,從數組中篩選符合條件的值,組成一個新的數組，實現數組篩選的vba函數是：
filter函數
用法：filter(數組,
篩選的字元,
是否包含)
sub
dd()
arr1
=
vba.filter(arr,
"a",
true)
'篩選所有含a的數值組成一個新數組
arr2
=
vba.filter(arr,
"a",
false)
'篩選所有不含a的數值組成一個新數組
msgbox
join(arr2,
",")
'查看篩選的結果end
sub遺憾的是函數只能進行模糊篩選，不能精確匹配。
❷ EXCEL編程實現自動篩選。
試試看！
Sub 自動篩選()
Sheets("結果").Range("A2:G100").ClearContents
Sheets("信息表").Select
Range("A1:M1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="盧", Operator:=xlAnd
Range(Cells(1, 7), Cells(100, 13)).Copy
Sheets("結果").Range("A1").PasteSpecial Paste:=xlPasteValues
Selection.AutoFilter Field:=1, Criteria1:="塗", Operator:=xlAnd
Range(Cells(2, 7), Cells(100, 13)).Copy
Sheets("結果").Range("A3").PasteSpecial Paste:=xlPasteValues
Selection.AutoFilter Field:=1, Criteria1:="田", Operator:=xlAnd
Range(Cells(2, 7), Cells(100, 13)).Copy
Sheets("結果").Range("A4").PasteSpecial Paste:=xlPasteValues
Selection.AutoFilter Field:=1, Criteria1:="楊", Operator:=xlAnd
Range(Cells(2, 7), Cells(100, 13)).Copy
Sheets("結果").Range("A5").PasteSpecial Paste:=xlPasteValues
Selection.AutoFilter Field:=1
Sheets("結果").Select
Range("A1").Select
MsgBox Prompt:="完事了！"
End Sub
❸ 在編程中什麼叫篩選法
篩選法
篩選法又稱篩法，是求不超過自然數N（N>1）的所有質數的一種方法。據說是古希臘的埃拉托斯特尼（Eratosthenes，約公元前274～194年）發明的，又稱埃拉托斯特尼篩子。
具體做法是：先把N個自然數按次序排列起來。1不是質數，也不是合數，要劃去。第二個數2是質數留下來，而把2後面所有能被2整除的數都劃去。2後面第一個沒劃去的數是3，把3留下，再把3後面所有能被3整除的數都劃去。3後面第一個沒劃去的數是5，把5留下，再把5後面所有能被5整除的數都劃去。這樣一直做下去，就會把不超過N的全部合數都篩掉，留下的就是不超過N的全部質數。因為希臘人是把數寫在塗臘的板上，每要劃去一個數，就在上面記以小點，尋求質數的工作完畢後，這許多小點就像一個篩子，所以就把埃拉托斯特尼的方法叫做「埃拉托斯特尼篩」，簡稱「篩法」。（另一種解釋是當時的數寫在紙草上，每要劃去一個數，就把這個數挖去，尋求質數的工作完畢後，這許多小洞就像一個篩子。）
❹ 如何用VB編程篩選出txt符合條件的所有行
DimMyStrAsString
DimMyLineStrAsString
MyStr=""
'讀取原文件信息
Open"e:1.txt"ForInputAs#1'以讀的方式打開文件
DoWhileNotEOF(1)'循環至文件尾
LineInput#1,MyLineStr'讀入一行
IfLeft(MyLineStr,2)="TH"Then
MyStr=MyStr&銷敬MyLineStr&vbCrLf
EndIf
Loop
Close#1友斗拍'關閉文件。
'寫文件
Open"e:2.txt"ForOutputAs#1'以輸出方式好羨打開文件
Print#1,MyStr
Close#1'關閉文件。
❺ 如何編程篩選txt文本中的數據
額 先給你vb的吧.
privatesubform_load()
dimarr1,aasstring
open"文件路徑"forinputas#1
open"文件路徑"forappendas#2
whilenoteof(1)
扒陪肆lineinput#1,a
whileinstr(a,"")
a=replace(a,"","")
wend
春轎arr1=split(a,"")
ifarr1(1)=0andarr(2)=12thenprint#2a
亂老wend
close
endsub
沒有經過調試,不過想來是對的
❻ java編程 篩選
設置默認展示數據(最新幾條？最新年份數據？所有數據)
針對查詢年份讓後展示，最簡單的是直接查詢資料庫，根據輸入內容，或者選擇的內容去查資料庫，然後替換為你的展示數據(Set?Map?數組)，，，
如果是展示的所有數據，又不想去查資料庫，可以直接拿著你的條件去和當前展示的數據去對比，然後另存一個數據，然後展示，，，
總之就是拿著你的條件去篩選數據，然後展示出來就行了。
❼ 用易語言編程數組篩選
很簡單的兩行代碼，我傻傻的被你饒暈了。。。。這代碼執行效率得多差！
❽ c語言編程:用篩選法求100之內的素數,
源代碼如下：
#include <stdio.h>
#include <math.h>
int main()
{
int a, b, i, flag;
printf("輸入兩個整數: ");
scanf("%d %d", &a, &b);
printf("%d與%d之間的素數為: ", a, b);
while(a<b)
{
flag=0;
for(i=2; i<=sqrt(a); i++)
{
if(a%i==0)
{
flag=1;
break;
}
}
if(flag==0)
printf("%d ", a);
a++;
}
return 0;
}
(8)簡單編程篩選擴展閱讀
一個偶數總能表示為兩個素數之和的源代碼如下：
#include "stdio.h"
#include "math.h"
main()
{
int a,b,c,d;
scanf("%d",&a);
for(b=3;b<=a/2;b+=2)
{
for(c=2;c<=sqrt(b);c++)
if(b%c==0) break;
if(c>sqrt(b))
d=a-b;
else
break;
for(c=2;c<=sqrt(d);c++)
if(d%c==0)
break;
if(c>sqrt(d))
printf("%d=%d+%d ",a,b,d);
}
}
for(int i=5;i<=sqrt(x);i+=6)
if(x%i==0||x%(i+2)==0)
{
printf("%d不是素數",x);
return 0;
}
printf("%d是素數",x);
return 0;
}
❾ 求助高手，如何用Matlab編程篩選數據
<p>如果已經將數據導入matlab環境下，可將矩陣的第一行和第一列作為查找條，查喚啟找滿足條件的索引</p>
<p>，拆旦之後利用索引篩旅鏈擾選需要的數據。</p>
<p>例如設以導入數據矩陣為Data，</p>
<p>r
=
find(Data(:,1)>=2.49
&
Data(:,1)<=2.5);</p>
<p>c
=
find(Data(1,:)>=0.15
&
Data(1,:)<=0.25);</p>
<p>myData
=
Data(r,c);</p>
<p>則myData會得到途中紅框內數據</p>
<p></p>
❿ c語言編程 素數篩選
用篩法求100以內的素數：
#include<stdio.h>
int main()
{
int a[101],i,j;
for(i=2;i<=100;i++)
a[i]=1;
for(i=2;i<=10;i++)
for(j=i+i;j<=100;j+=i)
a[j]=0;
printf("100以內的素數： ");
for(i=2;i<=100;i++)
if(a[i])printf("%d ",i);
printf(" ");
getch();
return 0;
}