MENU

• コンテンツ
  • プログラミング
  • エレクトロニクス
  • 家サーバ管理帳
  • Solaris Administrator
  • ごちゃ混ぜ実験
  • このサイトについて
    
• その他
  • サイトマップ
  • 人気ページ
  • 最新記事
    
• 掲示板・ゲストブック
  • FORUM
    
• リンク
  • ExattoSoftware
  • GitHub
    

Online: 3
Today: 1
Yesterday: 0
Total: 2022

はじめに †

配列で格納されている文字列から、ユニークな文字列だけを取り出します。

例：
{"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

Prog