Hi Leute,
nach langer Abstinenz grüble ich an einer Aufgabe wo ich keinen mm weiter komme.
Einfacher Usecase: Aus einer Textbox wandern Wörter / Strings in eine kleine Tabelle im Dataset.
Eine SChleife sammelt jeweils die Anfangsbuchstaben der Wörter in einer list of Char ein.
Im nächsten Step möchte ich gerne alle möglichen Char-Kombinationen ausgeben, wiederrum z.B. in einer List of String.
Daran scheitere ich.
Ziel soll sein alle erdenklichen "Kunstwörter" aus den Anfangsbuchstaben der in der Tabelle enthaltenen Wörter zu generieren.
nach langer Abstinenz grüble ich an einer Aufgabe wo ich keinen mm weiter komme.
Einfacher Usecase: Aus einer Textbox wandern Wörter / Strings in eine kleine Tabelle im Dataset.
Eine SChleife sammelt jeweils die Anfangsbuchstaben der Wörter in einer list of Char ein.
Im nächsten Step möchte ich gerne alle möglichen Char-Kombinationen ausgeben, wiederrum z.B. in einer List of String.
Daran scheitere ich.
Ziel soll sein alle erdenklichen "Kunstwörter" aus den Anfangsbuchstaben der in der Tabelle enthaltenen Wörter zu generieren.
VB.NET-Quellcode
- Dim list As New List(Of Char)
- Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
- Dts.Words.AddWordsRow(tbAddText.Text)
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- End Sub
- Private Sub btnGenName_Click(sender As Object, e As EventArgs) Handles btnGenName.Click
- list.Clear()
- For Each Name As dts.WordsRow In Dts.Words.Rows
- list.Add(Name.Word.Substring(0, 1))
- Next
- genName()
- End Sub
- Sub genName()
- Dim name As String
- For Each c As Char In list
- name = name & c
- Next
- MessageBox.Show(name)
- End Sub
- Sub sort()
- 'Hier sollen alle möglichen char Kombinationen in der Liste erzeugt werden.
- End Sub
Gruß Hannes