配列で格納されている文字列から、ユニークな文字列だけを取り出します。
例: {"hoge","fuga","hoge","foo","fuga","bar"} => {"hoge","fuga","foo","bar"}
phpだと、array_uniqueという関数がありますが、.NETでは似たような機能がないので自作しました。
'配列内容のダンプ 'ref;http://www.thescripts.com/forum/thread455026.html Private Sub DumpArray(ByVal srcArray() As String, ByVal msg As String) Dim iIndex As Integer Console.WriteLine(msg) Console.WriteLine("Length: " + S.Length.ToString) Console.WriteLine("--------------------------------------") For iIndex = 0 To UBound(srcArray) Console.WriteLine(srcArray(iIndex)) Next Console.WriteLine() End Sub '配列からユニークな値をとりだす Private sub array_unique() Dim arySrcString() As String = {"cab", "cab", "lzh", "cab", "lzh", "zip", "lzh"} Dim aryDestString(1) As String Dim bufString As String = "" Dim i, j As Integer DumpArray(arySrcString, "Contents of before") Array.Sort(arySrcString) For i = (arySrcString.Length - 1) To 0 Step -1 If arySrcString(i) <> bufString Then ReDim Preserve aryDestString(j) aryDestString(j) = arySrcString(i) j = j + 1 End If bufString = arySrcString(i) Next DumpArray(aryDestString, "Contents of after") End Function