Prog/.NET/配列からユニークな値を取り出すの変更点

追加された行はこの色です。
削除された行はこの色です。
Prog/.NET/配列からユニークな値を取り出すへ行く。

#contents

*はじめに [#i14af5ca]
配列で格納されている文字列から、''ユニークな文字列''だけを取り出します。
 例：
 {"hoge","fuga","hoge","foo","fuga","bar"}
 => {"hoge","fuga","foo","bar"}

phpだと、''array_unique''という関数がありますが、.NETでは似たような機能がないので自作しました。

*ソースコード [#j73d9484]

 '配列内容のダンプ
 '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


RIGHT:2006-05-05 (金) 22:14:24
----
[[Prog]]

Prog/.NET/配列からユニークな値を取り出す の変更点

index.php?Prog/.NET/%C7%DB%CE%F3%A4%AB%A4%E9%A5%E6%A5%CB%A1%BC%A5%AF%A4%CA%C3%CD%A4%F2%BC%E8%A4%EA%BD%D0%A4%B9

Prog/.NET/配列からユニークな値を取り出すの変更点