Skulle vilja ha hjälp med att skriva ut alla kombinationer som går att få med ex. alfabetet.

Typ:
a
b
aa
ab
ba
bb

osv.

Man skall kunna sätta en längd på hur många tecken som är max. (i ex. ovan är max=2, och bokstäverna är a och b bara)

Någon som har någon idé på en trevlig lösning?

/D

Det enklaste borde väl vara att ta en grej som gör så att du får ut alla kombinationer av en exakt längd först och sen köra en for-loop genom dem.

Och för att få alla kombinationer av en exakt längd är ju inte så svårt, men det tar fruktansvärt lång tid.
Principen blir:
Ställ dig på första tecknet. Du kan nu välja mellan n olika tecken. För varje val av tecken gör du samma sak med resten av strängen, och fogar till det första tecknet.

En enkel rekursiv variant, alltså.

Är ingen expert på VB men nåt i den här stilen borde väl fungera

Sub kombinera(ByVal aPrefix As String, aLength As Integer)
For Each ii In "abc...ö"
str = aPrefix & ii
If Len(str) < aLength Then
kombinera str, aLength ' lägg till fler bokstäver
Else
' skriv ut str
End If
Next
End Sub

kombinera("", 5) ger alla 5 teckens strängar

Funka kalas bra... tackar =)