查找多個陣列共同的價值觀，或者列出VB.NET

Question

Find common values in multiple arrays with PHP

差不多做什麼，我需要的，但在PHP，我需要VB。

我的情況是我想創建一個基於多個庫存位置的智能選股系統。

在發票點，我們循環通過發票項目並檢查庫存數據庫中的可用庫存。

如果發票上的所有項目均現貨供應位置1挑，那麼都應該從庫存位置1 ...等

如果所有的大多數項目都有現貨位置1，除了一個或回升兩個，然後從庫存地點1挑選所有庫存，但應從具有最高可用庫存的地點挑選的例外除外。

找到最高可用庫存很簡單，但我不能解決如何從多個位置分析庫存可用性並找到普通庫存位置。

如何我比較這些位置清單發現2是共同的所有四個我可以創建這樣

Item ID |  Available Stock Locations 
    1  |  2, 3, 5 
    2  |  1, 2, 6 
    3  |  2, 3, 4 
    4  |  1, 2 ,3 

一組陣列？其次，如果一個項目沒有普通的庫存位置，我將如何識別該項目，以便我可以返回併爲其找到最高的可用庫存水平？

Answer 1

就像在PHP中一樣，你可以用相交數組來找到共同的值。由於LINQ，這是很容易在VB：

Dim array1 = {2, 3, 5} 
Dim array2 = {1, 2, 6} 
Dim array3 = {2, 3, 4} 
Dim array4 = {1, 2, 3} 

Dim commonItems = array1.Intersect(array2).Intersect(array3).Intersect(array4) 

commonItems現在是一個包含所有公用存儲位置的IEnumerable(Of Integer)。

Answer 2

LINQ的將是更清潔，但這種方法應該適用於2.0 ...

Dim arrX(2) As Integer 
arrX(0) = 0 
arrX(1) = 1 
arrX(2) = 2 

Dim arrY(2) As Integer 
arrY(0) = 0 
arrY(1) = 32 
arrY(2) = 2 

Dim arrZ(2) As Integer 
arrZ(0) = 10 
arrZ(1) = 2 
arrZ(2) = 22 

Dim arrCommon() As Integer 

For Each i As Integer In arrX 

    For Each i2 As Integer In arrY 

     If i = i2 Then 

      For Each i3 As Integer In arrZ 

       If i2 = i3 Then 

        If arrCommon Is Nothing OrElse arrCommon.Length = 0 Then 

         ReDim arrCommon(0) 
         arrCommon(0) = i 

        Else 

         ReDim Preserve arrCommon(arrCommon.Length) 

         arrCommon(arrCommon.Length - 1) = i 

        End If 

       End If 

      Next 

     End If 

    Next 

Next