Hochzählen

[Micke]

ich komme irgendwie bei folgendem nicht weiter:

ich suche einen Algirithmus welcher mir alle Varianten
aus z.B. 3 stelligen strings auflistet.

also a, .. , aa, ab, .. aab na usw.

eine schleife von a bis z ist natürlich nicht das problem,
aber wie mache ich das mit dem mehrstelligen ?
ich probiere gerade in VB, aber ich bin über jeden Tip egal welche sprache dankbar, pseudocode wäre mir auch ganz recht.

danke schon mal.

[enzephalon]

würde Dir gerne helfen, aber leider "BAHNHOF"

Sorry

EnzephaloN

[Micke]

mhmm, das ist natürlich nicht gut

vielleicht so:
also ich suche ne schleife (oder auch iterativen aufruf) für alle buchstabencombos von "a" bis "zzz"

wie geht det ?

[Harvey]

Hi,

mit oder ohne Sonderzeichen (im Beispeil nein)?
Leerzeichen in der Mitte zulässig (im Beispiel nein)?
Unterscheidung Groß-/Kleinschrift oder nur klein (im Beispiel nur klein)?

dim i as Integer
dim j as Integer
dim k as Integer
dim s as String

' einstellige Strings
For i = 97 To 122
    s = chr(i)
    ' Bearbeitung (z.B. Ausdrucken)
next i

' zweistellige Strings
For i = 97 To 122
    For j = 97 To 122
        s = chr(i) & chr(j)
        ' Bearbeitung (z.B. Ausdrucken)
    Next j
Next i

' dreistellige Strings
For i = 97 To 122
    For j = 97 To 122
	    For k = 97 To 122
        	s = chr(i) & chr(j) & chr(k)
	        ' Bearbeitung (z.B. Ausdrucken)
         next k
    Next j
Next i

[Micke]

vielen dank harvey,

haste dir aber Mühe gemacht - rot_werd.
mein prob - es ist zwar mehrstellig, aber wenn ich erweitere: bei einem 10-stelligen String müßte ich dann eine 10x verschachtelte schleife nehmen, deswegen hatte ich das von vorn herein verworfen.

Ideen?
Soll ich etwas Nervennahrung mitschicken

[Harvey]

Hi,

dann bietet sich eine rekursive Prozedur an.

sub naechstesZeichen(s as String, max as Integer)

dim i as Integer
dim s1 as String

s1 = s 'Umkopieren, weil ich nicht weiss, ob das Original mit veraendert wird
For i = 97 To 122
    s1 = s1 & chr(i)
    ' s1 bearbeiten (z.B. Ausgeben)
    if Len(s1) < max Then ' nur, wenn noch nicht genug Zeichen:
        call naechstesZeichen(s1, max) ' sich selbst aufrufen, um weitere Zeichen anzuhaengen
Next i

End Sub

'Hauptprogramm
call naechstesZeichen("", 10)

Das Umkopieren kann man sich schenken, wenn man
sub naechstesZeichen(byVal s as String, max as Integer)
deklarieren kann (so tief stecke ich in VB nicht drin)
Außerdem kann man das Laufzeitverhalten noch verbessern, indem man die aktuelle Länge mit übergibt statt sie berechnet:

sub naechstesZeichen(byVal s as String, byVal laenge as Integer, max as Integer)

dim i as Integer

For i = 97 To 122
    s = s & chr(i)
    ' s bearbeiten (z.B. Ausgeben)
    if laenge < max Then ' nur, wenn noch nicht genug Zeichen:
        call naechstesZeichen(s, laenge+1, max) ' sich selbst aufrufen, um weitere Zeichen anzuhaengen
Next i

End Sub

'Hauptprogramm
call naechstesZeichen("", 0, 10)

Getestet hab ich es nicht, bitte nicht schlagen, wenn nen Fehler drin ist

[Micke]

stimmt, ich meine natürlich rekursiv

Harvey vielen dank, genau das hatte ich gesucht.
Weiß dein Chef eigentlich daß du unterbezahlt bist