말 그대로 데이터를 순차적으로 읽는 과정에서 중복되는 데이터를 제외하고 저장하는 방법입니다.
뭐 다들 이중 루프 쓰면 쉽게 할 수는 있지만 다른 방법을 고안해보고자 글 올립니다.
( SQL 쿼리에서 distinct 와 같은 기능을 고안한 겁니다. )
' 데이터를 저장할 배열입니다.
Dim AddShoppingCart As New List(Of String)
' ItemsList 는 장바구니에 추가한 물품이 중복으로 들어가 있는 문자열 배열입니다.
' 문자열 배열을 For Each 로 반복하면서 읽습니다.
For Each tmpItems As String In ItemsList
If Not AddShoppingCart.Exists(Function(value As String)
Return value = tmpItems
End Function) Then
AddShoppingCart.Add(tmpItems)
End If
Next
쉽게 ShoppingCart 라는 중복된 항목이 포함된 문자 배열을 For Each 로 반복하면서 한개씩 tmpItems 문자열에 넣습니다.
한 개씩 읽어들인 값들을 List 객체의 Exists 메소드를 이용해서 있는지 없는지 판별하고 값이 존재하지 않을 경우에 List 객체에 Add 하는 기법입니다.
간단해서 참고하시라고 공유드립니다.