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

■No7026 (まる さん) に返信
> 英字の文字列があって(200文字くらい)、それを指定された文字数ずつ区切って見る。１文字ずらして区切る。
> 文字列の中に２回以上でてくる組を表示するプログラムについてなんですが、初心者で全くわかりません。お願いします。

上記の事をコンピュータにやらせるためのロジックが分からないのでしょうか。
それとも、VBでの具体的な記述方法が分からないのでしょうか。

問題を解決するためには、問題を解決する手順（ロジック）を決めて、そしてそれに基づいて特定のコンピュータ言語でプログラミングをします。もちろん、手順を
決めるときに使う言語の特性や機能をしっていると有利な事は有利ですが、知らないからといって手順が決められない訳ではありません。

例えば、手順とは次のような感じで考えていきます。
(1) 文字列の入った変数を用意する
(2) (1)で用意した文字列に対して指定された文字数ずつ区切る　　　←区切ったものをどうすればよいかを考えて見ましょう。
(3) １文字ずらして区切る　　　　　　　　　　　　　　　　　　　 ←何に対して？
(4) 文字列の中に２回以上でてくる組を取り出す                   ←何に対して？
(5) (4)で取り出した文字列を表示する　　　　　　　　　　　　　　←どこに？

■No7070 (まる さん) に返信
> 「mdhvdkvmsxsgfsvvbhkmfhyybafxrdgnpmuhvydiszaqgnytdsfh･･･」
> �@---
>  �A---
>   �B---
> �@,�A,�Bなどのように区切って１度区切った組が２度以上出た組み合わせを表示する。

つまり、「先頭から１文字づつ位置をずらしながら指定された文字数ずつ区切る」ですね。
以下、まったく検証していないコード

        Dim inputString As String = Me.TextBox1.Text
        Dim splitLength As Integer = CType(Me.TextBox2.Text, Integer)
        Dim splitString(inputString.Length) As String

        For splitPosition As Integer = 0 To inputString.Length - splitLength
            splitString(splitPosition) = inputString.Substring(splitPosition, splitLength)
        Next


> >(4) 文字列の中に２回以上でてくる組を取り出す ←何に対して？
> 文字列に対して2回以上出てきた組み合わせを表示

手順は正確に！
例「(2)で作成した配列について、配列要素１つ１つに対して、他の要素と同じ文字列かをチェックして同じ文字列があったら・・どうする？」


> >(5) (4)で取り出した文字列を表示する　　　　　　　　　　　　　　←どこに？
> 表示の際に使うものは何がいいのか？(ツールボックスの中の何を使って表示すればいいのか？参考に)

どのように表示したいかにより何を使うかが決まります。
つまり、これも正解はまるさんの頭の中にあるということですね。

■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)

こうなります。

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

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

# 学校の宿題ですか？