جستجوي دو آرايه در يكديگر

[f_g1348]

سلام
من دوتا آرايه دارم كه مي خواهم اين دو را بصورت زير با هم مقايسه كنم :
فرض كنيد آرايه اول شامل كلمات :
من - تو - او
باشد و آرايه دوم بصورت زير باشد :
من - من - تو - من - . - من - او - من - .
حالا من مي خواهم مقادير درون آرايه دوم با مقادير آرايه اول مقايسه شود و سيستم به من بگويد در عبارت اول 3 تا من و 1 تو دارد و در عبارت دوم 2 تا من و 1 او دارد (علامت نقطه نشان دهنده پايان عبارت مي باشد )
جواب مي تواند بصورت يك آرايه 2 بعدي باشد كه ستون شامل كلمات و سطر شامل جملات باشد

[hakim22]

شما یک حلقه for می نویسید و به ازای هر عنصر موجود در آرایه ی اول در آرایه ی دوم جستجو کند.
برای جستجو در آرایه ی دوم هم یک حلقه می گذارید و به ازای هر عنصر آن که برابر اندیس آرایه ی آول است یک واحد به شمارنده اضافه می کنید.

dim counter as integer

for i=0 to FirstArray.count
for j=0 to SecondArray.count
if secondArray(j)=firstArray(i) then
counter+=1
end if
next j
next i


(به صورت شبهه کد نوشته شده است !)

[ROSTAM2]

تابع Filter رو توي ObjectBrowser ببينيد و براي اطلاعات بيشتر به MSDN مراجعه كنيد تو اين موارد خيلي به كار مياد

مثال:

Dim TestStrings(2) As String
TestStrings(0) = "This"
TestStrings(1) = "Is"
TestStrings(2) = "It"
Dim SubStrings() As String
SubStrings = Filter(TestStrings, "is", True, CompareMethod.Text)
Me.Text = SubStrings(0) + " " + SubStrings(1)