C# と VB.NET の質問掲示板

■No7099 (まる さん) に返信
> 2007/08/30(Thu) 11:49:16 編集(投稿者)

> のプログラムの書き方を教えてもらえますか？それを元に自分で追加しはじめの質問を完成させたいと思っています。

    Public Class Sample

        Private _List As New ArrayList()

        Private Structure Suji : Implements System.IComparable


            Public s As String
            Public c As Integer
            Public p As Integer

            Public Sub New(ByVal p As Integer, ByVal s As String, ByVal c As Integer)
               ''-- ☆ここに変数の初期化処理
            End Sub

            Public Overrides Function ToString() As String
               ''-- ☆変数の表示文字列を返してください
            End Function

            Public Function CompareTo(ByVal obj As Object) As Integer Implements System.IComparable.CompareTo
                Dim xSuji As Suji = DirectCast(obj, Suji)

                Return xSuji.c < Me.c

            End Function
        End Structure

        Public Sub New(ByVal text As String)

            SubstrText(text)
            CountSameKeywords(0)
            SortAndShowResult(False)

        End Sub

        Private Sub SubstrText(ByVal text As String)

            Dim p As Integer = 1

            Do While text.Length > 2
                Dim key As String = text.Substring(0, 3)
                _List.Add(New Suji(p, key, 0))
                text = text.Substring(1)
                p += 1
            Loop

        End Sub


        Private Sub CountSameKeywords(ByVal index As Integer)

            If index < _List.Count Then
                Dim self As Suji = DirectCast(_List.Item(index), Suji)
                CountSameKeywords(index + 1)
                ''-- ☆ここにカウントする処理
                _List.Item(index) = self
            End If

        End Sub

        Private Sub SortAndShowResult(ByVal bSort As Boolean)
            Dim os() As Object = _List.ToArray()

            If bSort Then Array.Sort(os)

            ''-- 確認
            ''-- ☆ここに表示する処理
        End Sub


    End Class


上記クラスで以下を実行すると、
Dim ss As New Sample("123456234123456246")

結果は、
位置(1)='123'=>頻度(1)
位置(2)='234'=>頻度(2)
位置(3)='345'=>頻度(1)
位置(4)='456'=>頻度(1)
位置(5)='562'=>頻度(1)
位置(6)='623'=>頻度(0)
位置(7)='234'=>頻度(1)
位置(8)='341'=>頻度(0)
位置(9)='412'=>頻度(0)
位置(10)='123'=>頻度(0)
位置(11)='234'=>頻度(0)
位置(12)='345'=>頻度(0)
位置(13)='456'=>頻度(0)
位置(14)='562'=>頻度(0)
位置(15)='624'=>頻度(0)
位置(16)='246'=>頻度(0)

こうなります。

ところどころ☆の部分が歯抜けになっていますが、宜しければどうぞ。

再帰を使っているので具合が悪ければ別の手段を使ってください。

# 学校の宿題ですか？

■No58212 (PATIO さん) に返信
ヘッタッタさんと、ＰＡＴＩＯさんがご指摘された部分
this.Invoke(new MethodInvoker(delegate
                           {
                           this.dataGridView1["imageColumn", 0].Value = new Bitmap(user_thum8);
                           this.dataGridView1.Rows.Add(new Bitmap(user_thum8), comecount, come2, user_id);
                           this.dataGridView1.AllowUserToAddRows = false;
                           }));
を
this.Invoke(new MethodInvoker(delegate
                           {
                           //this.dataGridView1["imageColumn", 0].Value = new Bitmap(user_thum8);
                           this.dataGridView1.Rows.Add(new Bitmap(user_thum8), comecount, come2, user_id);
                           this.dataGridView1.AllowUserToAddRows = false;
                           }));
とコメントにすることで最初のセルの画像が更新で変わること無く
条件通りに表示することが出来ました。
つまりコレ→this.dataGridView1["imageColumn", 0].Value = new Bitmap(user_thum8);
は要らなかったようです。

ありがとうございました、次回も機会がありましたらまたよろしくお願いします。